【转载】第一次亲密接触 之 VB和Flash的交互
发布时间：2020-12-17 07:42:28 所属栏目：百科 来源：网络整理
导读：对于VB界面的设计，其实我们组最开始也没想用Flash，只想到用PS修几张图，然后借助控件的Visible属性做一个伪动作的效果，但是看到用了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:UserslhcDesktop桌面美化flash11.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源代码中，按钮的点击事件是已经被写好了的，所以，应先去掉里面点击事件里链接到网页的那部分代码。 （编辑：李大同） 【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容! |