Элемент управления средствами мультимедиа
Элемент управления средствами мультимедиа
Устройства мультимедиа, такие, как проигрыватель компакт-дисков, становятся неотъемлемой частью современного персонального компьютера. Идея совместного объединения текста, звука и изображения действительно является передовой для нашего времени.
Элементы управления средствами мультимедиа дают пользователю возможность воспользоваться командами интерфейса media control interface (MCI). Команды MCI позволяют управлять аудио- и видеоустройствами и не зависят от используемого оборудования. При помощи элемента управления средствами мультимедиа можно посылать такие команды, как старт, перемотка вперед, перемотка назад, пауза и т.д. Всего этот- элемент управления содержит около 60 свойств, поэтому вместо детального их описания здесь приводятся только основные принципы работы, исходя из которых можно самостоятельно настроить элемент управления, используя страницу Custom Properties.
Это просто набор кнопок с названиями: Prev, Next, Play, Pause, Bask, Step, Stop, Record и Eject.
Всякий раз, когда пользователь нажимает одну из кнопок, необходимо послать соответствующую команду MCI. Но прежде чем сделать это, необходимо решить, нужно ли:
чтобы пользователь управлял устройством мультимедиа посредством нажатия на кнопки:
самостоятельно управлять устройством без участия пользователя.
В первом случае следует установить значение True для свойств Visible и Enable (обычно это сделано по умолчанию в процедуре события Form_Load). Во втором случае необходимо использовать значение False для подавления вывода элемента на экран и для блокировки его использования.
В качестве простейшего примера использования элемента управления средствами мультимедиа приведем программу проигрывания .wav-файлов. Последовательность шагов при этом будет такая:
Создать текстовую панель для названия проигрываемого файла.
Создать командную кнопку на пустом поле рабочей формы.
Создать элемент управления средствами мультимедиа с установленными в 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
Вот и все!
