【转载】第一次亲密接触 之 VB和Flash的交互

对于VB界面的设计，其实我们组最开始也没想用Flash，只想到用PS修几张图，然后借助控件的Visible属性做一个伪动作的效果，但是看到用了flash的童鞋，感觉人家那个界面才能被称之为界面，仅用vb是做不出那么潇洒的效果的。

最后还是走上了自学flash之路。

一，首先，解决高版本的flash不能不能保存的问题。

卸载高版本的flash,安装低版本的flash。安装低版本后，看网页和在线看视频时，好多广告都显示不出来，，这个，顺便解决了“361”也无法解决的乱弹广告的问题，还是有好处滴。。。。

二，交互问题

以我今晚做的小实验为例。

我先在源码爱好者上下了一段flash的源码，打开，我下的这个小flash是一个背景，（如下图），粉色的部分就是动态的flash，打开后有一个类似水流动的动画效果，因为主要是为了学习交互这些东西，所以我就没有自己做按钮，偷懒粘了现成的东西，绿色的部分是我从另一个flash源代码中粘过来的图片（如下下图），

做好后，选择绿色的小按钮，右击——选择——转换为元件，单击确定。

然后，右击——动作，弹出如下图，

加入代码，这个代码就是那段实现vb与flash“通信”的东西。

保存后导出为swf格式，插入到vb中。

三，vb中的设置

打开vb，在窗体上加一个ShockwaveFlash控件，然后添加如下代码

Private Sub Form_load() '这里设置flash控件的一些属性，事件，方法
Show

With ShockwaveFlash1
.Left = 0
.Height = Form1.Height
.Width = Form1.Width
.Top = Form1.Top
.Height = Form1.Height
.Movie = "C:\Users\lhc\Desktop\桌面美化\flash\11.swf"
.Play
End With

End Sub

Private Sub ShockwaveFlash1_Fscommand(ByVal command As String,ByVal args As String)
If command = "Exit" Then '这里将flash代码中的字符串传递给vb
MsgBox "VB与flash交互成功！" '这里加入点击按钮后发生的事件
End If

End Sub

然后，F5。。。。。。。

另外，有些下载的flash源代码中，按钮的点击事件是已经被写好了的，所以，应先去掉里面点击事件里链接到网页的那部分代码。

呵呵，虽然没有三天学会flash这种教程，但是试着去成为那种人吧。。。。

原文地址：https://www.jb51.cc/vb/257198.html