VB与Flash交互

VB6+AS2测试环境

VB调用FLASH中的函数

Private Sub but1_Click(Index As Integer)
MYFLASH.CallFunction "<invoke name=""win""  returntype=""xml""></invoke>"
End Sub

//下面是AS2.0的
function win():Void{
  gotoAndPlay(2);//跳到第二帧
  stop();      
  };

flash.external.ExternalInterface.addCallback("win", this, win);  //这个是一定要写的.在AS3中不是这样写的.这是AS2的

带有参数的函数调用

CallFunction "<invoke name=""win""  returntype=""xml""><arguments><string>hello</string><string>world</string></arguments></invoke>"

 

改变flash中的变量

MYFLASH.SetVariable "shuru_txt.text", "123123"//这里还可以改动态文本内容
MYFLASH.SetVariable "aa", "123123--123123"//这里是直接改变量

 

3、常见说明

在使用Flash CS4的时候，按Ctrl+Enter预览时，常常会输出错误信息，“无法找到对动作脚本 2.0 进行类型检查所需的文件“toplevel.as”。请确保目录“$(LocalData)/Classes”在动作脚本首选参数的全局类路径中列出“。

解决方法：
打开Flash CS4，选择编辑 > 首选参数，选择ActionScript项，选择ActionScript 2.0 设置...，点"+"号，添加新路径，输入C:/Program Files/Adobe/Adobe Flash CS4/Common/First Run/Classes，然后把Flash CS3的”toplevel.as“文件拷贝到此路径下，就解决了！
文件下载：
http://download.csdn.net/detail/xlh145/5405945