【VB开源代码栏目提醒】：文章导读：在新的一年中，各位网友都进入紧张的学习或是工作阶段。

    网学会员整理了VB开源代码-vb net与flash的结合 - 技术总结的相关内容供大家参考，祝大家在新的一年里工作和学习顺利！

vb.net与FLASH的完美结合 一 在VB.net中播放Flash动画 怎样才能在VB.net中加入Flash动画呢我们只要使用Flash5自带的Shockwave Flash.ocx这个控件就可以了。

    方法如下 1 打开VB.net新建一个工程在工具箱上单击右键选择添加…在com窗口的控件列表中选择Shockwave flash然后确定Flash控件就被加到工具箱上。

     2.选择工具箱上的Flash控件放到窗体上并调整好大小 3在Form_Load过程中加入如下代码 ShockwaveFlash1.Movie “D:test.swf” 这里一定要写绝对地址其实只要把FLASH文件放到你程序的bin目录里生成后自然变成相对路径 这里写上你的Flash文件目录 ShockwaveFlash1.Menu False ShockwaveFlash1.Playing True 其中ShockwaveFlash1.Movie是用来指定你要播放的Flash动画的目录ShockwaveFlash1.Menu是用来指定是否在Flash动画播放中封闭右键菜单True为能够显示菜单False为封闭右键菜单ShockwaveFlash1.Playing True是让动画播放。

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

     首先我们先来了解Flash中控制VB程序的基本原理在Flash的ActionScript里面有个叫做FSCommand的函数它的主要功能就是发送FScommand命令例如使动画全屏播放隐藏动画菜单更重要的就是可以与外部文件和程序进行通信。

    而在VB程序中我们就是利用的Shockwave flash控件的FSCommand过程来完成这一通信过程实现信息发送的功能并且根据发送出来的不同的命令及参数来实现对VB.net程序的控制。

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

     好了现在知道了原理我们就一步一步来实现吧 1 首先要打开Flash制作一个交互按钮并在按钮上面加上如下代码 on release fscommand Send Action //发送Send Action这个命令 这个命令的作用是当按下按钮后Flash向VB发送出名为”Send Action”的命令。

    当然这个命令的名字在实际应用中可以叫做其他的任何名字。

     2 将Flash导出成为swf文件如文章第一部分所述插入到VB.net中下面就是VB.net怎么接受这个命令的事情了 3 在窗体上双击Shockwave Flash控件进入ShockwaveFlash1_FSCommand事件中在此事件中加入 If e.command Send Action Then MsgBoxFlash与VB.net成功结合了 vbApplicationModal 成功了 当接到Send Action命令的时候 这里加入你需要的程序 End If 其中ShockwaveFlash1_FSCommand这个过程是专门用来接收Flash发送的FSCommand命令的其中第一个参数command就是与Flash发送过来的命令相对应的当其一致的时候则执行后面的程序本例中是弹出MsgBox。

     点击查看NBA战况有奖竞猜快来参与哦 zhourj 自信弱冠狮 帖子:274 注册: 2004-09-22 来自: 发表于 2006-04-23 09:54 只看楼主短消息 资料 字号 小 中 大 3楼 呵呵 你的看起来好像是FLASH发往应用程序的吧 我想要的应用程序发送参数到FLASH的代码 谈VC结合FLASH开发精美程序界面做过界面开发的人想必都清楚如果要用VC来开发漂亮的程序界面其难度真是苦不堪言当然VC可以作出漂亮的界面但要投入大量的人力和时间其代码量可以用海量来形容。

    BUG自然也就不计其数。

    本文主要介绍如何采用VC结合FLASH在短时间内以及很少的人力投入的情况开发出精美漂亮的软件界面。

    在本例中VC主要进行相关数据逻辑及业务处理FLASH则进行相关的界面表现。

    FLASH和VC之间采用XML流通信。

    VC的XML解析库为开源的TinyXml解析库。

    本实例的开发环境为visualstudio2003FLASH8.0。

    其效果图如下下面将进行详细介绍1、首先建一个基于MFC的对话框应用程序。

    2、在对话框中插入名为ShockwaveFlashObject的ActiveX控件.3、为该FLASH控件添加相应的变量即FSCommand消息处理函数.4、在OnInitDialog函数添加如下代码将相关数据传给FLASH界面1//TODO:在此添加额外的初始化代码2//加载flash界面3charszBuf2564stringszXml56CStringszFlashPathm_FlashCtrl.GetModulePath7szFlashPath演示界面.swf89m_FlashCtrl.LoadMovie0szFlashPath10MoveWindow0049034511m_FlashCtrl.MoveWindow004903451213//设置标题栏14TiXmlElementxRootwin_app15sprintfszBufu0xf000000616xRoot.SetAttributestyleszBuf17xRoot.SetAttributeevent131819TiXmlElementxItemitem20xItem.SetAttributetitle我的测试程序21xRoot.InsertEndChildxItem22szXml