//发送Send Action这个命令

}

这个命令的作用是当按下按钮后Flash向VB发送出名为”Send Action”的命令。当然，这个命令的名字在实际应用中可以叫做其他的任何名字。

2． 将Flash导出成为swf文件，如文章第一部分所述插入到VB6.0中，下面就是VB怎么接受这个命令的事情了；

3．  在窗体上双击Shockwave Flash控件，进入代码编辑窗口，加入如下语句

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

If command = "Send Action" Then

msg = MsgBox("Flash与VB成功结合了！", vbApplicationModal, "成功了！")

''''当接到Send Action命令的时候

''''这里加入你需要的程序

End If

End Sub

其中，ShockwaveFlash1_FSCommand这个过程是专门用来接收Flash发送的FSCommand命令的，其中第一个参数command就是与Flash发送过来的命令相对应的，当其一致的时候，则执行后面的程序（本例中是弹出MsgBox）。好了，看看程序运行的结果吧：

Yeah!成功了！：）

怎么样，通过本文你是不是完全掌握了Flash与VB的结合？这里，你只要把Then后面要执行的语句段变为你自己想要实现的程序，那么Flash中的动画按钮就能实现所有强大的VB功能了！

快去吧，再也不要那些死板的灰色按钮，加上你的炫目多彩的动画按钮，打造出你的魅力程序！

如有好的意见可与我联系：dennis_xing@163.com

上一页  [1] [2]