2024年5月28日发(作者：)

VB与FLASH的交互

其实这是一个很容易解决的问题，可惜这个问题属于两不管的境遇，VB的书没有，FLASH的书也没有，

对于不懂FLASH的VB写手就是个问题。

一、将FLASH插入VB窗体

在VB工程/部件的列表里找到shockwave flash,添加即可在工具栏里找到FLASH控件

，添加之。。。

该控件有两个值得注意的属性，movie和playing,movie指代FLASH文件，扩展名.SWF,强烈建议采用相

对路径给其赋值，例如：

Dim strpath As String

strpath =

If Right(strpath, 1) <> "" Then

strpath = strpath & ""

End If

= strpath & ""

而playing为是否自动播放，默认为false,记得改成true哦！

现在你可以用FLASH做为你的闪屏啦！

二、实现交互

首先，打开FLASH，要将做好的FLASH按纽选定，在on release事件里编写代码如下：

{

fscommand("string")；

}

这里的string为任意字符串，传递给VB的就是这个字符串。让我们启动VB，在shockwave flash控件就

会多出fscommand事件，FLASH里的字符串已经赋给了参数command，假如我们有多个按钮做为工具

栏，那么我们就可以通过判定command来编写相应的代码。以下是我的实例：

Private Sub flashmain_FSCommand(ByVal command As String, ByVal args As String)

Select Case command

Case "cmdshop"

vbModal

Case "cmdvip"

vbModal

Case "cmdhome"

vbModal

Case "cmdbill"

vbModal

Case "cmdjiankong"

vbModal

Case "cmdhelp"

vbModal

Case "cmdexit"

End

End Select

End Sub

三、应用

VB界面的恶心是天人共愤的，利用FLASH就可以很好的弥补这一点。FLASH美化界面的能力使得FLASH

与各种编程工具间的交互变为FLASH推广的契机。

（一） 在VB中播放Flash动画

怎样才能在VB中加入Flash动画呢？我们只要使用Flash5自带的Shockwave 这个控件就可以

了。方法如下：

1． 打开VB6.0，新建一个工程，在工具箱上单击右键，选择Components…，在部件窗口的控件列表中

选择Shockwave flash，然后确定，Flash控件就被加到工具箱上。

2.选择工具箱上的Flash控件，放到窗体上并调整好大小；