Учебник по 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

    Вот и все!




    - Начало -  - Назад -  - Вперед -



    Книжный магазин