Ход работы. 1. Создайте папку Лабораторная_работа_№16, а в ней папку 16.1

1. Создайте папку Лабораторная_работа_№16, а в ней папку 16.1.

2. Запустите программу Microsoft Visual Basic 6.0.

3. В открывшемся окне выберите тип приложения STANDARD.EXE и нажмите кнопку «Открыть».

4. Выберите команду Project - Components.

5. В появившемся окне найдите строку Microsoft Multimedia Control 6.0 и поставьте напротив нее галочку. В окне ToolBar появится новый компонент – - MMControl.

6. Аналогично выберите строку Microsoft Common Dialog Control 6.0 и поставьте напротив нее галочку. На панели инструментов ToolBar появится компонент Common Dialog - .

7. Свойству Caption формы Form1 задайте значение WAV Player.

8. Разместите на форме компоненты Common Dialog и MMControl.

9. Также разместите на форме компонент CommandButton. Свойству Caption задайте значение «Проиграть файл» (Рис.16.1).

10. Свойству Name компонента CommonDialog задайте значение CDlg1.

11. Щелкните два раза по кнопке CommandButton и наберите следующий программный код:

Private Sub Command1_Click()

CDlg1.ShowOpen

MMControl1.FileName = CDlg1.FileName

MMControl1.Command = "open"