//发送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
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]
Copyright ＠ 2007-2012 敏韬网(敏而好学，文韬武略--MinTao.Net)（学习笔记） Inc All Rights Reserved. 闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)
鄂公网安备 42011102001154号
站长：MinTao ICP备案号：鄂ICP备11006601号-18
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
