End Sub. 12. Для событий «Загрузка формы» (для его выбора можно щелкнуть два раза в любом пустом месте на форме) и «Сброс формы» (выбирается в окне программного кода)

End Sub

Ход работы.

End Sub

End Sub

End Sub

12. Для событий «Загрузка формы» (для его выбора можно щелкнуть два раза в любом пустом месте на форме) и «Сброс формы» (выбирается в окне программного кода) напишите следующие обработчики событий:

Private Sub Form_Load()

MMControl1.Notify = False

MMControl1.Wait = True

MMControl1.Shareable = False

MMControl1.DeviceType = "WaveAudio"

Private Sub Form_Unload(Cancel As Integer)

MMControl1.Command = "Close"

13. Сохраните форму под названием WAVPlayer.frm и проект под именем WAVPlayer.vbp в папке 16.1.

14. Запустите проект на выполнение и проверьте его функциональность.

15. Закройте запущенное приложение.

16. Создайте exe-файл приложения с помощью команды File → Make WAVPlayer.exe.

17. Выйдите из среды Visual Basic.

18. Запустите на выполнение файл WAVPlayer.exe и убедитесь в работоспособности exe-файла.

Задание 2. Создание проигрывателя AVI файлов

Постановка задачи.

Поставим задачу: разработать приложение, позволяющее проигрывать видеофайлы с расширением.avi.

1. В папке Лабораторная_работа_№16 создайте папку 16.2.

2. Скопируйте файлы WAVPlayer.vbp, WAVPlayer.frm и WAVPlayer.vbw из папки 16.1 в папку 16.2.

3. Откройте файл WAVPlayer.vbp.

4. Свойству Name формы задайте значение AVIPlayer, а свойству Caption – AVI Player.

5. Сохраните файл под названием AVIPlayer.vbp, а также форму под аналогичным именем (например, AVIPlayer.frm).

6. Внесите изменения в программный код обработчиков событий:

Private Sub Command1_Click()

CDlg1.ShowOpen

MMControl1.FileName = CDlg1.FileName

MMControl1.Command = "open"

Private Sub Form_Load()

MMControl1.Notify = False

MMControl1.Wait = True

MMControl1.Shareable = False

MMControl1.DeviceType = "AVIVideo"

Private Sub Form_Unload(Cancel As Integer)

MMControl1.Command = "Close"

Дата добавления: 2014-12-23