Использование стандартных элементов управления Microsoft Windows



Использование стандартных элементов управления Microsoft Windows

В этом упражнении Вы встроите различные компоненты Microsoft Windows Common Controls в приложение на Visual Basic. Средствами элемента управления Animation отобразится содержимое выбранного пользователем AVI-файла, а панель инструментов станет альтернативой кнопке формы.

> Использование элемента управления Animation

  1. Создайте в Visual Basic новый проект типа Standard EXE.
  2. Добавьте в проект библиотеки Microsoft Windows Common Controls 5.0, Microsoft Windows Common Controls-2 5.0 и Microsoft Common Dialog Control 5.0.
  3. Поместите на пустую форму элементы управления Animation и Common Dialog, а также кнопку.

    Сделайте элемент управления Animation достаточно большим для того, чтобы в нем мог нормально отображаться AVI-файл.

  4. Присвойте кнопке имя cmdPlay и название Play.
  5. Добавьте следующий код в событие для нажатия кнопки cmdPlay:

    With CommonDialog1

    .Filter = "avi (*.avi)¦*.avi"

    .ShowOpen

    End With

    With Animation1

    .AutoPlay = True



    .Open CommonDialog1.filename

End With

  1. Сохраните проект в каталоге WA\Practice\Chl2 и запустите приложение.
  2. Нажмите кнопку Play и выберите в каталоге c:\Program Files\DevStudio\Vb\ Graphics\AVIs файл filedel.avi.
  3. Закройте приложение.

> Использование элемента управления Toolbar

  1. Поместите на форму frmMain элементы управления Toolbar и ImageList.

    Панель инструментов следует расположить в верхней части формы. Если понадобится, переместите уже имеющиеся на форме элементы управления.

  2. Щелкните правой кнопкой ImageList и выберите пункт Properties.
  3. Установите размер изображения 16 Х 16.
  4. Выберите вкладку Images.
  5. Щелкните Insert Picture и выберите файл open.bmp из каталога c:\Program Files\DevS4udio\Vb\Graphics\Bitmaps\Outline.
  6. Нажмите ОК, чтобы закрыть панель свойств ImageList.
  7. Щелкните правой кнопкой Toolbar и выберите пункт Properties.
  8. В области ImageList укажите ImageList 1.
  9. Откройте вкладку Buttons и щелкните Insert Button.
  10. Присвойте свойству Image значение 1.
  11. Нажмите ОК, чтобы закрыть панель свойств Toolbar.
  12. Дважды щелкните Toolbar и добавьте следующий код:

    If Button.Index = 1 Then

    13. Play_Click

End If

  1. Сохраните и протестируйте внесенные изменения.



Содержание раздела