1. Создайте новый проект VB.
2. Добавьте элемент управления Shockwave Flash ActiveX в свой проект. Создайте экземпляр элемента управления в вашей форме.
3. Назовите контрольные «флешмов».
4. Откройте окно кода для вашей формы (например, событие Form_Load) и добавьте следующий код:
'movie.swf is movie file
flashmov.Movie = App.Path & "movie.swf"Обратите внимание, что приведенный выше код предполагает, что фильм находится в том же файле, что и проект vb.
5. Вы можете вызвать функцию vb из флэш-памяти с помощью команды fscommand
Например, вы можете создать кнопку во флэш-памяти и вставить действие:
//the below code is for flash not for vb
fscommand("execute");
6. Создайте файл SWF.
7. Код VB, который отвечает на команду Flash:
Private Sub flashmov_FSCommand(ByVal command As String,
ByVal args As String)
If command = "execute" then
MsgBox "Hey i can control vb"
End Sub
8. Код отображает окно сообщения при нажатии кнопки Flash.