VB与flash交互

作品展期间确实是很忙，每天很累，但是真的是很充实。和小伙伴一起努力做下来一个作品，收获也很多。
    VB与flash交互算是作品展中比较重要并且难的问题，之前一直在找好看的flash素材，找到后便兴奋好久，觉得我的作品用上哪个哪个flash会变得更酷，我会做出来最炫酷的作品这样的想法，后来才发现真的是太异想天开了，好多特别炫酷的flash动画就是改不了文本，好不容易找到可以用的最后按钮用不了，要么就是写好的代码在VB里就是不行。反正就是遇到各种问题。
    找了好几天找到几个可以用的flash主菜单素材后又不知道怎样与VB交互，最后请教了鑫超师父，再经过自己的研究终于完美解决。
    首先我们需要在flash中编写代码：

我理解这几行代码的意思就是在flash中我把这个按钮的command时间命名为“1”，然后在vb中代码如下：

在Form load（）事件下 Private Sub Form_Load() ShockwaveFlash1.Movie =
    App.Path & "flash男生菜单.swf"        //flash相对地址

    ShockwaveFlash1.Playing = True          //播放flash动画

    End Sub

    而在ShockwaveFlash1_FSCommand事件下就是VB与flash的基本原理了


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

        If command = "1" Then         //如果command = “1”则 msgbox输出111
            MsgBox "111"
        End If
       If command = "2" Then       //如果command = “2”执行以下语句
            MsgBox "222"    End If
        End If
       If command = "3" Then
            MsgBox "333"       
      End If
      If command = "4" Then
           平板支撑.Show
           Me.Hide
     End If
     If command = "5" Then
          MsgBox "555"
    End If
    If command = "6" Then
         健身菜单.Show
         Me.Hide
    End If
End Sub

这就是VB 和flash的基本原理，其实做几次就完全掌握了这些东西。到最终作品做出来真的是有一种满满的自豪感，相信我们在这里会越来越棒的！