Студопедия

Главная страница Случайная страница

Разделы сайта

АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника






VB звук






Для работы со звуом, и все что с ним связанно есть компонент Microsot Multimedia Control 6.0. С помощью него можно проигрывать звуковые и видео файлы. Подключи этот компонент, и за одно Common Dialog. Щас сделаем программу, котоая будет проигрывать звуковые файлы. На форму кинь кнопу(Caption = " Открыть"), MMControl(Name= " MM"), CommonDialog(Name = " CD"). Код:

Private Sub Command1_Click()CD.ShowOpen ' Вызываем окно открытия файлов MM.FileName = CD.FileName ' Открываем выбранный файл MM.Command = " open" ' Запускаем End Sub

Теперь выбери любой звуковой файл, и нажми на Play. Только в этом примере все кнопки выбираются автоматом, и от тебя ни чего не зависит. В следующем шаге мы будем делать все это только в ручную.

 

Visual Basic звук. Убираем лишние кнопки

Чтобы убрать не нужные кнопки на MMControl, кинь его на форму, потом нажми на него правой кнопкой мыши, и выбери в меню - " Properties", потом в появившимся окне нажми на закладку Control.

 

Здесь на против кнопки стоят 2 флажка. Первый Enabled - это активность кнопки, если галка стоит, то кнопка будет активна, если нет, то не активна. Второй Visible - это видимость, если галка стоит то кнопку будет видно, если нет...
Только на забудь выключить свойство AutoEnabled = False, а то у тебя будут кнопки автоматом становится активными и не активными...

Так же можно делать и вручную, например:

Private Sub Form_Load()MM.AutoEnable = False ' Выключаем AutuEnabled MM.PrevEnabled = True ' Делаем первую кнопку активной MM.PrevVisible = True ' И видимой End Sub

 

Атрибуты файлов Visual Basic

SetAttr " C: Чел.exe", vbReadOnly 'Поставить атрибут " Только чтение" SetAttr " C: Чел.exe", GetAttr(" C: Scan Port.exe") And (Not vbReadOnly) 'Очистить атрибут " Только чтение" SetAttr " C: Чел.exe", vbArchive 'Поставить атрибут " Архивный" SetAttr " C: Чел.exe", GetAttr(" C: Scan Port.exe") And (Not vbArchive) 'Очистить атрибут " Архивный" SetAttr " C: Чел.exe", vbHidden 'Поставить атрибут " Скрытый" SetAttr " C: Чел.exe", GetAttr(" C: Scan Port.exe") And (Not vbHidden) 'Очистить атрибут " Скрытый"

 

VB коды клавиш

В этом Шаге представленны коды основных клавиш клавы. Например, у CTRL вобще не определяется ASCII код. Вот он: (Начнем с верхушки клавы)

vbKeyF1 - От F1
...
vbKeyF12 - До F12

vbKeyA - От A
...
vbKeyZ - До Z(только англиские буквы(заглавные и обычные))

vbKeyBack - BackSpace

vbKeyInsert - Insert
vbKeyHome - Home
vbKeyPageUp - Page Up
vbKeyDelete - Delete
VbKeyEnd - End
VbKeyPageDown - Page Down

vbKeyNumlock - Num Lock
vbKeyCapital - Caps Lock

vbKeyEscape - Esc
vbKeyReturn - Enter
vbKeySpace - Пробел

vbKeyShift - Shift
vbKeyTab - TAB
VbKeyControl - CTRL
vbKeyMenu - ALT

VbKeyLeft - Стрелка влево
VbKeyRight - Стрелка в право
VbKeyDown - Стрелка в низ
VbKeyUp - Стрелка вверх

Ну вроде и все, а пользоваться ими также как и ASCII кодами:

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeySpace Then MsgBox " Нажат пробел" ' Если нажат пробел то выскакивает сообщение End Sub

 

Связь форм visual basic

Private Sub Form_Load() 'При загрузке формы: Form2.Show 'Показываем Форму 2(Form2) End Sub Private Sub Command1_Click() 'При нажатии на кнопку: Form2.Command1.Caption = " " 'Меняем свойство Caption у кнопки второй формы End Sub

 






© 2023 :: MyLektsii.ru :: Мои Лекции
Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав.
Копирование текстов разрешено только с указанием индексируемой ссылки на источник.