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

前端之家收集整理的这篇文章主要介绍了【转载】第一次亲密接触 之 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这种教程,但是试着去成为那种人吧。。。。

猜你在找的VB相关文章