VB与FLASH MX影片的信息交换及互动.doc

图片1为文件01.bmp 图片2为文件02.bmp VB与FLASH MX影片的信息交换及互动 FLASH MX制作的影片十分眩目，但并不是十全十美，尤其是在底层操作（如读写端口）和文件读写的时候缺乏这些功能。而VB、VC等编程语言的这些功能本十分强大，但在动画方面却远不及FLASH MX。幸好Macromedia公司为我们提供了功能十分强大的控件FLASH.OCX，使它成为二者沟通的桥梁。宿主语言（如：VB、VC、HTML等）通过使用它，与FLASH影片互通有无，使解决上述问题成为可能。 现通过一简单实例，简要介绍其某些重要功能： 创作环境：Win98;VB5;FLASH MX。 1.在FLASH环境下按照图1的样式新建一影片，并设置它的大小为300×200（像素）。在第一帧的动作中加入以下脚本： //全局变量，在VB中通过FLASH控件可设置此值 _global.var1="my flash" //全局函数，负责向VB传递数据 _global.myFunction = function (x) { fscommand(var1, x)//向VB传递数据 } this.stop() 从公用库中添加一按钮，设置其实例名称为“bott1”，在其动作中加入以下脚本： //当单击该按钮时向VB传递数据 on (release) { fscommand(var1, ""); } 新建一影片剪辑，设置其实例名称为“SS”，进入该影片剪辑内部舞台并插入两帧，设置第一帧的帧标签为“call1";设置第二帧的帧标签为“call2"。在第一帧的动作中加入以下脚本： //调用全局函数向VB传递数据，表明这是第一帧 myFunction(1); this.stop() 在第二帧的动作中加入以下脚本： //调用全局函数向VB传递数据，表明这是第二帧 myFunction(2); this.stop() 发布该影片,文件名为ZZD.SWF 2.在VB5.0环境下按照图2的布局样式新建一窗体form1,利用属性窗口如图2所示设置好各自的外观属性。 打开代码窗口输入以下代码： Private Sub Command1_Click() Dim a As Long, b As Long a = Text1.Text b = Text2.Text '根据属性代码（变量a的值）和属性值（变量b的值）设置FLASH影片剪辑的属性 S1.TSetProperty Text6.Text, a, b End Sub Private Sub Command2_Click() '向FLASH的变量(text7.text)传递数据(Text3.Text) S1.SetVariable text7.text, Text3.Text End Sub Private Sub Command3_Click() Dim a As Long If Asc(Text4.Text) > 57 Or Asc(Text4.Text) < 48 Then '如果是字符串说明该内容为影片帧的标签 '根据标签调用所对应帧的FLASH代码 S1.TCallLabel Text5.Text, Text4.Text Else a = Val(Text4.Text) '如果是数字说明该内容为影片帧的编号 '根据数字调用所对应帧的FLASH代码 S1.TCallFrame Text5.Text, a End If End Sub Private Sub Form_Activate() '载入FLASH影片 S1.Movie = App.Path & "\zzd.swf" End Sub Private Sub List1_Click() Text1.Text = List1.ItemData(List1.ListIndex) End Sub Private Sub S1_FSCommand(ByVal command As String, ByVal args As String) '用窗口的标题栏显示由FLASH传回的数据 Form1.Caption = "FLASH 控件演示 变量值 " & command & " 影片剪辑帧号" & args End Sub 注：函数原型 Sub TSetProperty(影片剪辑 As String, 属性代码 As Long, 属性 As String) Sub TCallFrame(影片剪辑 As String, 帧号 As Long) Sub TCallLabel(影片剪辑 As String, 帧标签 As String) Sub SetVariable(变量名称 As String, 变量值 As String) 3.实例演示 编译并运行以