轴承 7005db:flash8怎么传递信息到vb6

来源:百度文库 编辑:杭州交通信息网 时间:2024/05/12 04:30:00
vb 的代码如下:
Private Sub Form_Load()
ShockwaveFlash1.Movie = "e:\aa\3d.swf"
ShockwaveFlash1.Menu = False
ShockwaveFlash1.Playing = True
End Sub
'第一种情况
Private Sub ShockwaveFlash1_OnReadyStateChange(newState As Long)
If command = "1" Then
MsgBox ("Flash与VB.net成功结合了!")

'第二种情况
Private Sub flashmain_FSCommand(ByVal command As String, ByVal args As String)
If command = "1" Then
MsgBox ("Flash与VB.net成功结合了!")

第三种情况
Private Sub ShockwaveFlash1_Fscommand(ByVal command As String, nyVa As String, args As String)
If command = "1" Then
MsgBox ("Flash与VB.net成功结合了!")

End If
End Sub

flash里的 代码如下:
on (rollOver) {
setProperty("/light", _alpha, "100");
}
on (rollOut) {
setProperty("/light", _alpha, "0");
}
on (press) {
fscommand("1");
//发送Send Action这个命令
}

结果是可以打开flash,但点flash按钮就是没反应啊.
郁闷啊!!!!!