Практическая работа 35. Элемент управления Animation
Date: 2015-10-07; view: 432.
1. Создать на форме элементы управления Animation, CommonDialog, две командные кнопки и поле метки для надписи, см.рис. 5.4
2. присвоить значения свойствам элемента CommonDialog: FileName, InitDir (используемый файл Filemove.avi находится в каталоге Videos); в данном случае проставляется путь и имя файла,
3. ввести код, данный ниже, стартовать проект, сделать щелчок на первой командной кнопке, в окне Open выбрать имя файла, см.рис. 5.4
4.
Рис. 5.4.Элемент управления Animation
(General) (Declarations) Dim FileName As String, Filemove As String Private Sub Command1_Click() ' воспроизведение файлаCommonDialog1.ShowOpenFilemove$ = CommonDialog1.FileNameAnimation1.Open FilemoveAnimation1.Play End Sub Private Sub Command2_Click() ' закончить воспроизведениеAnimation1.CloseEnd Sub
| <== previous lecture | | | next lecture ==> |
| Элемент управления Animation | | | Практическая работа 36. Генерация текста |