Ход работы. 7. Запустите проект на выполнение и проверьте его функциональность*

End Sub

7. Запустите проект на выполнение и проверьте его функциональность*. Внешний вид приложения во время работы приведен на Рис.16.2

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

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

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

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

Задание 3. Переработка проигрывателя AVI файлов

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

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

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

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

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

4. Свойству Name формы задайте значение AVIPlayer2.

5. Разместите на форме компонент PictureBox (Рис.16.3).

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

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

Private Sub Command1_Click()

CDlg1.ShowOpen

MMControl1.FileName = CDlg1.FileName

MMControl1.Command = "open"

MMControl1.hWndDisplay = Picture1.hWnd

frmAVIPlayer.Picture1.SetFocus

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