如何在VB程序中控制Flash控件的点击事件！？

1、如果flash是你自己做的 可以用

'**************************************************

'

'在FLASH中

'

'在制作flash的过程中加上下面的

''在FLASH中控制VB程序

''搜索按钮的as为:

''发送search命令，这个命令名可以自定义.

'on(release){

'Fscommand("Open","打开");

'}

''在退出按钮中写入:

''发送exit命令

'on(release){

'fscommand("Exit","退出");}

'**************************************************

'先在form上放个播放 flash的 控件

Private Sub Form_load()

'加载程序同一目录下的Search.swf的动画

ShockwaveFlash1.Movie = App.Path & "\Search.swf"

End Sub

Private Sub ShockwaveFlash1_FSCommand(ByVal command As String, ByVal args As String)

If command = "Open" Then

Form2.Show

Form1.Hide

End If

If command = "Exit" Then

End

End If

End Sub

2、如果flash不是你的 那就要用其他的方法代替 实现

'先设置 ShockwaveFlash1 的 TabStop = False

Private Sub ShockwaveFlash1_GotFocus() 'tabstop为false 这样就有单击的效果 了

Form2.Show

Form1.Hide

End Sub