借助FLASH技术美化VBA操作界面

      备注：此文属转贴，原作者帖子地址：http://www.officefans.net/cdb/viewthread.php?tid=15539&extra=page%3D1
      
     算法优化了，程序编完了，调试过关了，接下来便是程序界面的设计问题。许多人都在努力使自己开发的程序界面更加的美观，但除了绞尽脑汁设计安排 控件的摆放，、使用 颜色、背景图片和底纹，似乎没有更好的方法了？当然并不是说越花哨的界面越好，在软件具备优良功能前提下，如果对软件进行适度包装，将一定会收到锦上添花的 效果！
      钟爱 网络的你我想一定对FLASH不会陌生，它是一种矢量 格式的动画 文件，包含有动画、声音、超文本链接等许多元素，而 文件的体积却很小，能实现流式播放（即边 下载边播放），非常适合在当今网速不快的年代 网络中运用：如FLASH网页、FLASH广告、FLASH MTV、FLASH短片等等。
      本示例将演示FLASH与 VBA的完美联结，即借助FLASH 制作出 漂亮的动态 按钮，在 EXCEL中实现与 VBA的调用。

     实现原理：利用Flash的FSCommand（） 函数，实现信息发送，向VBA程序中的Shockwave flash控件的FSCommand（）过程来完成通信，VBA根据接收到的不同的命令及参数来作出相应控制处理。
大体步骤：

   一、制作FLASH文件。
   （呵呵，不要说你不会哦，随便拿本FLASH书啃一下就会完成这一步）这一步关键就是建立包含按钮及按钮 代码的FLASH文件。我们完全可以从共享库里拖几个FLASH提供的漂亮按钮出来直接使用，因为不管怎样都比VBA里那种方方正正、灰灰的按钮强百倍啊（如果有 时间就自己设计个性点的吧，笔者的这个例子中的按钮就是自己设计的）。把按钮放好后，给其加入 代码：

     on  (release) {
    fscommand ( " 这里写你命名的字符串 " );  // 如 " open""saveas " 等，一个按钮对应一个，该字串将发送至VBA程序
    }

   如图



   二、在EXCEL中播放FLASH。
   这个简单，使用Shockwave Flash.ocx这个控件就可以了。

 假如把该控件拖放至Sheet1工作表上，那么在工作簿打开事件中：

Private   Sub  Workbook_Open() Sub  Workbook_Open()
    Sheet1.ShockwaveFlash1.Movie  =   " D:\test.swf "   ' 指定要播放的FLASH文件路径
     Sheet1.ShockwaveFlash1.Menu  =   False   ' 关闭FLASH菜单
     Sheet1.ShockwaveFlash1.Playing  =   True   ' 自动播放
End Sub

三、编写VBA代码完成交互。
在设计状态下双击工作表中的Shockwave Flash控件，进入代码编辑窗口，加入如下语句：

Private   Sub  ShockwaveFlash1_FSCommand() Sub  ShockwaveFlash1_FSCommand( ByVal   command   As   String ,  ByVal  args  As   String )
     Select   Case   command   ' 这里接收在FLASH制作中给每个按钮代码设定的字符串
          Case   " open "
        .     
         Case   " saveas "
        .     
         case  
        .    
     End   Select
End Sub

  完成以上三步后，你就可以在工作表中用鼠标点击FLASH中的按钮去控制整个VBA程序了。心动了吧？哈哈那就快下载示例体验一下吧

  示例界面预览：


点击下载

转载于:https://www.cnblogs.com/wangminbai/archive/2008/07/06/1236789.html