作品展的评选告一段落了，伴随着在制作作品的紧张和压迫感也随之飘散！好似挪开了面前的一座大山，制作的作品也是从无到有，最后也是有一个能让自己满意的作品。
最后我们的作品实现了很多的功能，学到了很对之前自己不知道和感觉很难的东西，即使最后我们的作品没有被评选进学府，更多的是和我的搭档莹姐合作的这一过程，体验着紧张体验着快节奏的学习，到最后我们功能实现的喜悦！
经过两次的作品评选神奇的应验了提高班常说的一浪更比一浪强，但没有他们的铺垫就没有更好的我们，所以还是说前一浪更伟大！每个小组做出的作品都有自己的特色，具有他的意义，炫的不得了！功能也是很强大，这要是在自己没做出自己作品时真不相信我们十五期的小伙伴们使用VB写出来的！
这次作品我们攻克最大的难题就是VB与Flash的交互，在此很感谢百度，往期师哥师姐总结的博客！让我们站到了巨人的肩膀上！第一次接触的原因在查这个问题时很难看懂，我就在想我学会了就写一篇有图有文字的交互教程！

一、添加Shockwaveflash

在使用交互必须先往VB一个窗体上插入控件，在VB的部件里选中Shockwaveflash

Private Sub Form_Load()
    ShockwaveFlash1.Movie = App.Path & "\***.swf"
    ShockwaveFlash1.Menu = False
    ShockwaveFlash1.Playing = True
End Sub

这样在运行时就可以运行自己在网上下载的Flash动画了，当我们保存时会报错，这是就要在VB添加一个插件，在网上下载一个叫SaveFlash的插件就可以保存了！

二、实现交互

当我们在VB中插入的Flash是我们改好的SWF格式的Flash，所以不要着急先插入，就算是插入了也没有关系，把一地步的代码路径换成导出完的SWF就好了！
更改Flash需要在晚上下载一个叫Adobe Flash CS5的软件，打开它把要更改的Flash添加进去，因为Flash不同如何找自己要点的按钮我就说不全了。

找到要交互的按钮后右击-选择-转换为元件，最后确定。

下一步还是在按钮上右击选择动作

全局函数中的影片剪辑控制，单击on 这样空白处就有一个格式了，避免了少或多打了空格出现的错误！
接下来就在空白处编写on（release）{
fscommand（"send Action"）
}

这个代码就是实现VB和Flash通信的东西，fscommand后面的括号写其他的也可以，最后与在VB中的符合就行！可以多尝试几种方法。Flash里的字符串已经赋给了参数command，假如我们有多个按钮做为工具栏，那么我们就可以通过判定command来编写相应的代码。在添加了Shockwaveflash控件的窗体代码中填写。

Private Sub ShockwaveFlash1_FSCommand(ByVal command As String, ByVal args As String)
    If command = "Send Action1" Then
            **.Show
        Exit Sub
    Else
    If command = "Send Action2" Then
            **.Show
        Exit Sub
    Else
    End If
    If command = "Send Action3" Then
            **.Show
        Exit Sub
    Else
    End If
    If command = "Send Action4" Then
            Dim RetVal
        Exit Sub
    Else
    End If
End If
End Sub

之后把flash作为主页面点击想要那个窗体出来就要那个窗体出来，这样VB与Flash的交互就实现了！快点试试吧！

从这次制作自己作品的学习过程中发现人的潜力深不可测的，每每有困难认为是不可能办到的，但最后还是被我们给击碎，以后在遇到什么困难不会轻易说自己办不到了！这种体验估计不会再有第二次了，因为再制作就不是那个什么都感觉它是一件不可能完成的我了！

作品展-FlashVB交互

一、添加Shockwaveflash

二、实现交互

猜你喜欢