Visual Basic видео
Приветы вам, кул программеры. Сегодня будем творить проигрыватель видео клипов. Сразу замечу, что проигрывать он будет только не сжатые AVI файлы. Так что не удивляйтесь, если вдруг будут какие-нибудь глюки =). Приступим:1. Добавляем на форму три кнопки с первоначальными именами.2. Добавляем компонент Windows Common Controls - 2 5.03. Добавляем компонент Microsoft Common Dialog Control 6.0 (делаем свойство Name = "CD1")4. Помещаем на форму объект Animation, задаем нужные размеры и присваеваем ему имя Animation1Private Sub Command1_Click() " загрузить выбранный файлAnimation1.Open CD1.FileName" Начать проигрываниеAnimation1.PlayEnd Sub Private Sub Command2_Click()" При какой-либо ошибке иди к error1On Error GoTo error1" Открываем диалоговое окно для выбора видеофайлаCD1.ShowOpen" Загружаем в Animation1 этот файлAnimation1.Open CD1.FileName" При ошибке ничего не делатьerror1: If Err <> 0 ThenEnd IfEnd Sub
Private Sub Command3_Click()" Остановить проигрывание файлаAnimation1.StopEnd SubPrivate Sub Form_Load()
" Пишем на первой кнопке
Command1.Caption = "Play"
" Пишем на второй кнопке
Command2.Caption = "Open"
" Пишем на третьей кнопке
Command3.Caption = "Stop"
End SubВот и все. Оформите это все и проигрыватель у вас готов =). Короче, все как всегда просто. Не зря Basic самый простой для понимания язык программирования . Удачи вам и до встречи...
