对于VB界面的设计,其实我们组最开始也没想用Flash,只想到用PS修几张图,然后借助控件的Visible属性做一个伪动作的效果,但是看到用了flash的童鞋,感觉人家那个界面才能被称之为界面,仅用vb是做不出那么潇洒的效果的。
最后还是走上了自学flash之路。
一,首先,解决高版本的flash不能不能保存的问题。
卸载高版本的flash,安装低版本的flash。安装低版本后,看网页和在线看视频时,好多广告都显示不出来,,这个,顺便解决了“361”也无法解决的乱弹广告的问题,还是有好处滴。。。。
二,交互问题
以我今晚做的小实验为例。
我先在源码爱好者上下了一段flash的源码,打开,我下的这个小flash是一个背景,(如下图),粉色的部分就是动态的flash,打开后有一个类似水流动的动画效果,因为主要是为了学习交互这些东西,所以我就没有自己做按钮,偷懒粘了现成的东西,绿色的部分是我从另一个flash源代码中粘过来的图片(如下下图),
做好后,选择绿色的小按钮,右击——选择——转换为元件,单击确定。
然后,右击——动作,弹出如下图,
保存后导出为swf格式,插入到vb中。
三,vb中的设置
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
If command = "Exit" Then '这里将flash代码中的字符串传递给vb
MsgBox "VB与flash交互成功!" '这里加入点击按钮后发生的事件
End If
End Sub
然后,F5。。。。。。。
另外,有些下载的flash源代码中,按钮的点击事件是已经被写好了的,所以,应先去掉里面点击事件里链接到网页的那部分代码。