经验之谈VB.NET FLASH完美结合

开发 后端
想知道怎么把VB.NET FLASH完美的结合起来使用吗?本文就给大家做出了详细的介绍,有代码有解释,希望看过之后大家可以动手试试。

FLASH现在是个热门的行业,其实我也很想学,因为许多原因还是入了编程这个行业,但是我们可以把两者合起来使用,我们怎样才能在VB.NET中加入Flash动画呢?我们只要使用Flash5自带的ShockwaveFlash.ocx这个控件就可以了。方法如下:

#T#1.打开VB.NET,新建一个工程,在工具箱上单击右键,选择"添加…",在com窗口的控件列表中选择Shockwaveflash,然后确定,Flash控件就被加到工具箱上。

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

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

  1. ShockwaveFlash1.Movie=“D:\test.swf”'这里一定要写绝对地址,其实只要把FLASH文件放到你程序的bin目录里,生成后自然变成相对路径  
  2. '这里写上你的Flash文件目录  
  3. ShockwaveFlash1.Menu=False 
  4. ShockwaveFlash1.Playing=True 


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


在VB.NET Flash控制程序实现交互

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

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

好了,现在知道了原理,我们就一步一步来实现VB.NET FLASH结合吧!

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

  1. on(release){  
  2. fscommand("SendAction");  
  3. //发送SendAction这个命令  


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

2.将Flash导出成为swf文件,如文章第一部分所述插入到VB.NET中,下面就是VB.NET怎么接受这个命令的事情了;
3.在窗体上双击ShockwaveFlash控件,进入ShockwaveFlash1_FSCommand事件中,在此事件中加入:

  1. Ife.command="SendAction"Then 
  2. MsgBox("Flash与VB.NET成功结合了!",vbApplicationModal,"成功了!")  
  3. '当接到SendAction命令的时候  
  4. '这里加入你需要的程序  
  5. EndIf 

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

 

责任编辑:田树 来源: 博客
相关推荐

2009-11-02 15:16:07

VB.NET编程

2009-11-03 10:40:57

VB.NET Prot

2009-10-28 17:00:30

VB.NET数据库

2009-10-27 17:08:35

VB.NET流操作文件

2009-12-23 10:07:57

学习WPF

2009-10-13 17:08:10

CLR VB.NET

2009-11-09 17:06:38

WCF选择绑定

2009-12-17 18:12:31

Ruby框架应用

2010-04-30 14:31:58

Unix系统

2009-12-09 16:58:03

PHP strtoti

2010-03-02 17:48:35

WCF寻址报头

2009-10-26 13:13:17

VB.NET编码规范

2010-01-14 18:14:22

VB.NET开发特点

2009-10-14 11:27:20

VB.NET Grou

2009-10-16 14:31:48

VB.NET Noti

2010-04-22 18:07:28

Aix系统维护

2009-10-30 14:45:42

Flash控制VB.N

2012-05-23 09:43:59

Linux升级经验

2009-11-16 15:32:05

PHP数组函数

2009-11-05 15:50:25

WCF behavio
点赞
收藏

51CTO技术栈公众号