如何在FLASH中调用VB程序(-)
首先,先制作一个VB程序
建立一个以sub main() 为主程序的VB程序文件,程序主要为弹出一个消息框.制作步骤如下:
打开VB,在"文件"菜单中选择"新建工程"->"标准EXE"
在工程管理器中右击"Form1(from1)"在菜单中选择"移除Form1".
右击"工程1(工程1)"选择"添加"->"添加模块"
选择新建模块
在代码框中输入如下代码:
Option Explicit
Dim a
Sub main()
a = MsgBox("现在已经运行VB程序!!!")
End Sub
生成EXE文件,将生成的EXE文件命名为VB1.exe,存放在c:\Vbok目录.
完成VB程序的制作.
制作FLASH
打开FLASH工作程序.
选择菜单"插入"->"新建组件",组件属性中设置类型为"按钮".
选取圆形工具,填充颜色为蓝黑色渐变.在舞台上画一椭圆.
选择文字工具,在圆上输入"我是按钮"

按F6增加一个关键帧,将文字改为"按一下".
按F6键增加一个关键帧,将文字改为"放开就是VB程序了!",把蓝色椭圆放大.
回到"场景1",将按钮拉入舞台中央.

在按钮选中时按鼠标右键选择快捷菜单中的"动作"
在对象动作面板中输入如下代码:
// 鼠标事件,执行VB程序
on (release) {
fscommand ("exec", "c:\\VBok\\vb1");
}
注:vb程序的路径一定要为绝对路径.
如图:
10,保存文件,文件名为"Vbok1.swf",同样存放在c:\Vbok 目录中.
11,选择主菜单"文件"->"发布设置",选择类型"FLASH"和"Html",按发布.
12,完成FLASH的制作.
运行Vbok1.swf文件,点击蓝色按钮后出现VB程序的消息框.如图:
作者freshtea@163.com