VB与Flash联合打造你的魅力程序

原创 2003年11月09日 23:15:00

VBFlash联合打造你的魅力程序<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />

 

天津 黄兴

 

    在软件开发的过程中,为了提高软件的商品化程度,许多开发人员都在努力使自己开发的程序界面更加的美观,但除了简单的使用图片和底纹,还有没有更好的方法呢?Flash是一种矢量格式的动画文件, 可以包含动画,声音,超文本链接,而文件的体积却很小,在网页上使用Flash可以做出很漂亮动态菜单条。那么Flash可不可以加入到应用程序中而起到美化程序的作用呢?经过一番研究,Flash不仅仅可以插入到程序中起到美化的作用,而且可以通过FSCommand命令与VB应用程序进行交互!也就是说你的应用程序的按钮再也不会是灰灰的那样的死板,而是颇具魅力的动画了!怎么样,动心了吧?那好,随我来一起让VBFlash联合起来,打造我们的魅力程序!

 

(一)   VB中播放Flash动画

    怎样才能在VB中加入Flash动画呢?我们只要使用Flash5自带的Shockwave Flash.ocx这个控件就可以了。方法如下:

1.  打开VB6.0,新建一个工程,在工具箱上单击右键,选择Components…,在部件窗口的控件列表中选择Shockwave flash,然后确定,Flash控件就被加到工具箱上

<?xml:namespace prefix = v ns = "urn:schemas-microsoft-com:vml" />CSDN_Dev_Image_2003-11-91544040.jpg

 

 

2.选择工具箱上的Flash控件,放到窗体上并调整好大小;

 

 

 

3.在Form_Load()过程中加入如下代码:

 

Private Sub Form_Load()

 ShockwaveFlash1.Movie = “D:/test.swf”   

'这里写上你的Flash文件目录

 ShockwaveFlash1.Menu = False

 ShockwaveFlash1.Playing = True

End Sub

<?xml:namespace prefix = w ns = "urn:schemas-microsoft-com:office:word" />

 

 

 

 

 

 

 

 

其中,ShockwaveFlash1.Movie是用来指定你要播放的Flash动画的目录;ShockwaveFlash1.Menu是用来指定是否在Flash动画播放中封闭右键菜单,True为能够显示菜单,False为封闭右键菜单;ShockwaveFlash1.Playing = True是让动画播放。

 

好了,按F5看看吧,是不是程序中的Flash动画能播放了?     :)

 

(二)   Flash中控制VB程序实现交互

 

   现在Flash动画已经能在VB程序中播放了,那么怎么实现在Flash中控制VB的程序从而实现交互式的操作呢?本文的重点也在于此。

    首先我们先来了解Flash中控制VB程序的基本原理:在Flash的ActionScript里面有个叫做FSCommand()的函数,它的主要功能就是发送FScommand命令,例如使动画全屏播放,隐藏动画菜单,更重要的就是可以与外部文件和程序进行通信。而在VB程序中,我们就是利用的Shockwave flash控件的FSCommand()过程来完成这一通信过程,实现信息发送的功能,并且根据发送出来的不同的命令及参数来实现对VB程序的控制。

明白了吧?简单的说,我们就是利用Flash中的FSCommand()函数向VB发送命令,利用Shockwave Flash控件来接受这个命令,从而达到Flash控制VB程序的目的。

好了,现在知道了原理,我们就一步一步来实现吧!

1.  首先要打开Flash5制作一个交互按钮,并在按钮上面加上如下代码:

CSDN_Dev_Image_2003-11-91544042.jpg

on (release) {

    fscommand ("Send Action");

    //发送Send Action这个命令

}

 

 

 

 

 

这个命令的作用是当按下按钮后Flash向VB发送出名为”Send Action”的命令。当然,这个命令的名字在实际应用中可以叫做其他的任何名字。

2. Flash导出成为swf文件,如文章第一部分所述插入到VB6.0中,下面就是VB怎么接受这个命令的事情了;

3.  在窗体上双击Shockwave Flash控件,进入代码编辑窗口,加入如下语句

CSDN_Dev_Image_2003-11-91544044.jpg

 

Private Sub ShockwaveFlash1_FSCommand(ByVal command As String, ByVal args As String)

If command = "Send Action" Then

msg = MsgBox("Flash与VB成功结合了!", vbApplicationModal, "成功了!")

'当接到Send Action命令的时候

'这里加入你需要的程序

End If

End Sub

其中,ShockwaveFlash1_FSCommand这个过程是专门用来接收Flash发送的FSCommand命令的,其中第一个参数command就是与Flash发送过来的命令相对应的,当其一致的时候,则执行后面的程序(本例中是弹出MsgBox)。好了,看看程序运行的结果吧:

CSDN_Dev_Image_2003-11-91544046.jpg

Yeah!成功了!:)

 

怎么样,通过本文你是不是完全掌握了Flash与VB的结合?这里,你只要把Then后面要执行的语句段变为你自己想要实现的程序,那么Flash中的动画按钮就能实现所有强大的VB功能了!

快去吧,再也不要那些死板的灰色按钮,加上你的炫目多彩的动画按钮,打造出你的魅力程序!

 

 

如有好的意见可与我联系:dennis_xing@163.com

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

对于VB界面的设计,其实我们组最开始也没想用Flash,只想到用PS修几张图,然后借助控件的Visible属性做一个伪动作的效果,但是看到用了flash的童鞋,感觉人家那个界面才能被称之为界面,仅用v...
  • bianyamei
  • bianyamei
  • 2015年12月23日 11:53
  • 615

flash 与 vb 也能交互啦!

其实这是一个很容易解决的问题,可惜这个问题属于两不管的境遇,VB的书没有,FLASH的书也没有,对于不懂FLASH的VB写手就是个问题。 一、将FLASH插入VB窗体 在VB工程/部件的列表里找到...
  • cjr15233661143
  • cjr15233661143
  • 2012年04月24日 19:20
  • 4042

《魔兽世界》的魅力究竟在哪儿?

写在前面:《魔兽世界》(World of Warcraft,后面简称WOW),是由暴雪开发的一款大型角色扮演网络游戏,曾经付费的正式用户一度超过1150万人,覆盖244个国家和地区,是曾经的“世界第一...
  • u012200908
  • u012200908
  • 2016年01月20日 19:30
  • 1919

在VC中使用 Flash 美化你的程序

源代码下载代码运行效果图   利用flash可以作出很漂亮的动画,想不想让自己的程序也有这样漂亮的界面呢? ^_^,其实,要做到这点也不难。在这里将介绍怎样把falsh制作的界面嵌入到自己的程序中,并...
  • Suprman
  • Suprman
  • 2007年01月04日 12:59
  • 2111

李开复: 算法的魅力

算法是计算机科学领域最重要的基石之一,但却受到了国内一些程序员的冷落。许多学生看到一些公司在招聘时要求的编程语言五花八门就产生了一种误解,认为学计算机就是学各种编程语言,或者认为,学习最新的语言、技术...
  • u013946585
  • u013946585
  • 2014年08月02日 15:36
  • 476

学习的原动力与开源的魅力

笔者今日读到《鸟哥的Linux私房菜》,突然想写点东西,于是记录下来。 一.学习的原动力 1.兴趣 由此可见兴趣是需要花时间培养的。由此笔者联想到自己的读书计划 先要花时间精力产生自己...
  • czyv587
  • czyv587
  • 2016年08月20日 14:33
  • 557

初识linux和android的魅力

刚开始培训android,从底层linux和C开始讲起。 今天让我了解了很多关于linux和UNIX的历史。真正牛B的程序员,世界上最后一个真正的黑客,Richard Stallman,享有这样的美誉...
  • wudi3111835
  • wudi3111835
  • 2011年07月11日 23:03
  • 755

沃趣科技与Mellanox联合打造证券行业高性能及同城双活数据库云平台

Mellanox 和沃趣科技基于对行业用户的深刻理解共同设计开发的 QData Cloud 解决方案提供了高可用、高性能、可扩展的数据库云平台,QData MetroX 更是可以帮助证券用户轻松构建同...
  • woqutechteam
  • woqutechteam
  • 2017年07月05日 08:57
  • 726

win7 下完美解决VB 动态添加的flash 控件 fscommand 消息未触发的方法

Private WithEvents ShockwaveFlash1 As ShockwaveFlashObjectsCtl.ShockwaveFlash//一定要放到外边声明 Private ...
  • lxnkobe
  • lxnkobe
  • 2011年09月03日 10:22
  • 3418

Linux魅力

RedHat7命令
  • sima64
  • sima64
  • 2015年10月27日 10:54
  • 306
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:VB与Flash联合打造你的魅力程序
举报原因:
原因补充:

(最多只允许输入30个字)