急，如何用Flash与VB程序进行通讯

Question

我们软件的启动界面要嵌入一个flash动画，其中包含一些flash的活动按钮。现在的目的是点活动按钮那么就进入下一个界面。问问各位高手，如何实现flash中的按钮与VB程序通讯的这一个功能。究竟是必须用flash实现还是VB中的控件也有解决的办法

Answer 1

用 ShockwaveFlash 控件你的问题很好解决

Answer 2

必须完成两步工作
1、在flash 中编程，使用flash自带的教本语言，只需要简单编程即可，具体参考有关书籍
   在flash中点击按钮时也有点击事件，在事件中发送字符，用于VB中接收
   也可以在flash播放到某一帧时发送控制命令，通常是在启动动画播放时通过用户交互
   选择性加载组件及界面2、在VB中使用ShockWaveFlash 控件，用于播放flash文件和在它的方法中接收flash发送的
   关键字符简单示意代码
Private Sub Form_Load()
    SWF1.Movie = App.Path & "\启动动画.swf"
    SWF1.Play
    bolUnload = False
End SubPrivate Sub SWF1_FSCommand(ByVal command As String, ByVal args As String)
    Select Case command
        Case "CLOSE"
            unload me
            from1.show 
     End Select
End Sub

Answer 3

不要那么烦，楼主的意思是只要进入下个窗体就可以了我认为有2个FROM就可以了，FROM1用于方ShockwaveFlash控件，主要播放FLASH。再放一个COMMAND，用于关闭FROM1,显示FROM2。

Answer 4

flash5。0之后的脚本语言得到加强，甚至可以开发出独立的用户交互系统
flash和VB结合，需要注意的是场景切换，界面风格的统一，不然就画虎不成反类犬了

Answer 5

to 阿磊
  楼主的这句话 “如何实现flash中的按钮与VB程序通讯的这一个功能”
  你来理解就是简单的播放flash么

Answer 6

TO SoHo_Andy(冰）我们软件的启动界面要嵌入一个flash动画，其中包含一些flash的活动按钮。
现在的目的是点活动按钮那么就进入下一个界面
现在的目的是点活动按钮那么就进入下一个界面
现在的目的是点活动按钮那么就进入下一个界面
现在的目的是点活动按钮那么就进入下一个界面
现在的目的是点活动按钮那么就进入下一个界面
现在的目的是点活动按钮那么就进入下一个界面看清楚需求分析，我们把复杂的事做简单了，那是贡献。

Answer 7

阿磊同志有些曲解我的意思，我的意思是必须点击用Flash做成的按钮，而不是简单实现
Flash动画的播放。如何在flash中编写脚本程序？大家帮帮我

Answer 8

http://www.ourfly.com/download/downloadlist.aspx?type=VB
vb中如何调用flash 这个例子适合你

Answer 9

整个开发的过程我说的已经够详细了
至于怎么编写flash的脚本程序就不是这里一句话说得清了
你发短信给我，私下我们交流一下吧结贴喽

Answer 10

我现在没有手机，我只需要flash按钮被点后如何向VB程序抛出事件的一段实现代码就可以拉。希望老兄帮忙啊。我的问题就是在那儿。得到最关键的提示，马上结帖

Answer 11

实现方法：
1、创作flash动画。
1）启动flash，定义动画参数。
2）新建一个按钮符号，并把其拖到场景中。
3）在场景中右击按钮，在弹出菜单中选action，打开object actions对话框。
4）展开actions，双击FSCommand，在command和argnuments文本框中输入任意字符（有意义的字符，要记住，在VB中要引用，这里假设为browse，browse）。
5）保存并出版动画（假设出版的动画为flash1.swf），把它copy到VB应用的文件夹中。
2、启动VB。
1）新建窗口，添加控件：ShockWaveFlash 名字为SWF1。
2）在窗口中添加以下代码：
Private Sub Form_Load()
    SWF1.Movie = App.Path & "\启动动画.swf"
    SWF1.Play
    bolUnload = False
End SubPrivate Sub SWF1_FSCommand(ByVal command As String, ByVal args As String)
    Select Case command
        Case "CLOSE"
            unload me
            from1.show 
     End Select
End Sub
3、保存，运行应用，OK！ 找flash5装上花了我不少时间

Answer 12

呵呵，修改一下Private Sub SWF1_FSCommand(ByVal command As String, ByVal args As String)
    Select Case command
        Case "browse"
            unload me
            from1.show 
     End Select
End Sub