其实这是一个很容易解决的问题,可惜这个问题属于两不管的境遇,VB的书没有,FLASH的书也没有,对于不懂FLASH的VB写手就是个问题。 一、将FLASH插入VB窗体 在VB工程/部件的列表里找到shockwave flash,添加即可在工具栏里找到FLASH控件 ,添加之。。。 该控件有两个值得注意的属性,movie和playing,movie指代FLASH文件,扩展名.SWF,强烈建议采用相对路径给其赋值,例如: Dim strpath As String strpath = App.Path If Right(strpath, 1) <> "\"Then strpath = strpath & "\" End If shockflash.Movie = strpath & "ping.swf" '这里写上你的Flash文件目录 Shockwave.Menu = False Shockwave.Playing = True 其中,Shockwave.Movie是用来指定你要播放的Flash动画的目录; Shockwave.Menu是用来指定是否在Flash动画播放中封闭右键菜单,True为能够显示菜单,False为封闭右键菜单; Shockwave.Playing =True是让动画播放。而playing为是否自动播放,默认为false,记得改成true哦!是让动画播放。 现在你可以用FLASH做为你的闪屏啦! 二、实现交互 首先,打开FLASH,要将做好的FLASH按纽选定,在on release事件里编写代码如下: { fscommand("string"); } 这里的string为任意字符串,传递给VB的就是这个字符串。让我们启动VB,在shockwaveflash控件就会多出fscommand事件,FLASH里的字符串已经赋给了参数command,假如我们有多个按钮做为工具栏,那么我们就可以通过判定command来编写相应的代码。以下是我的实例: Private Sub flashmain_FSCommand(ByVal command As String, ByVal argsAs String) Select Case command Case "cmdshop" Frmkaitai.Show vbModal Case "cmdvip" frmMbEmit.Show vbModal Case "cmdhome" FrmJiezhang.Show vbModal Case "cmdbill" Frmtuitai.Show vbModal Case "cmdjiankong" FrmXiaofei.Show vbModal Case "cmdhelp" frmAbout.Show vbModal Case "cmdexit" End End Select End Sub 三、应用 VB界面的恶心是天人共愤的,利用FLASH就可以很好的弥补这一点。FLASH美化界面的能力使得FLASH与各种编程工具间的交互变为FLASH推广的契机。 |
联系客服