Главная страница Случайная страница
КАТЕГОРИИ:
АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника
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