注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

泽漆

未出头时先有节,到凌云处仍虚心

 
 
 

日志

 
 
关于我

像猫一样慵懒,像猪一样肚大能容,像人一样喜欢阅读, 性格分裂, 稍微偏激化,矛盾化, 情绪化 ,从不奉承别人 ,有点悲观,我认为想成功最快的方法,是做你喜欢做的事,然后全力以赴,初接触计算机,并且喜欢上了计算机,学习中……

网易考拉推荐

VB与FLASH的交互  

2013-04-18 21:20:27|  分类: 技术 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
本文转载自hj20762003《VB与FLASH的交互》

 
一、将FLASH插入VB窗体

在VB工程/部件的列表里找到shockwave flash,添加即可在工具栏里找到FLASH控件(快捷键ctrl+s能更方便的找到)然后点确定。
 Private Sub Form_Load()

     ShockwaveFlash1.Movie = App.Path & "\flash1.swf"

 End Sub

二、实现交互
(1)打开FLASH,要将做好的FLASH按纽元件拖入场景中,在on release事件里编写代码如下:

               on (release) { 

                   fscommand(" string ");

               }

这里的string为任意字符串,用于传递给VB。

(2)启动VB,在加载了shockwaveflash控件的窗体中找到如下事件在shockwave flash控件就会多出fscommand事件,FLASH里的字符串已经赋给了参数command,假如我们有多个按钮做为工具栏,那么我们就可以通过判定command来编写相应的代码。 例如:
   Private Sub flashmain_FSCommand(ByVal command As String, ByVal args As 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
 

  评论这张
 
阅读(48)| 评论(4)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017