Учебник по Visual Basic 5.0



Элемент управления средствами мультимедиа - часть 2


Создать командную кнопку на пустом поле рабочей формы.

Создать элемент управления средствами мультимедиа с установленными в False свойствами Visible и Enabled.

Для работы элемента в фоновом режиме надо воспользоваться следующей процедурой Form_Load:

Private Sub Form Load ()


        'Set the properties needed by the MCI control to work


        MMControll.Notify = False


        MMControll.Wait = True


        MMControli.Shareable = False


        MMControll.DeviceType = "WaveAudio" \


End Sub

Теперь добавим следующие строки в процедуру Command! Click:

Command! Click ()


        MMControll.FileName = Textl.Text


        MMControll.Command = "Open" 'play the file named in the textbox


End Sub

Вот и все!




Содержание  Назад  Вперед