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

刘檬 廊坊师范学院信息技术提高班十四期

 
 
 

日志

 
 

【转载】作品展技术总结  

2017-04-26 20:22:43|  分类: 计算机的使用 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
本文转载自14期 张慧颖《作品展技术总结》

一、 flash与VB交互

为了让我们的作品更加完美,需要引入flash来美化外包,那么怎样实现flash中的按钮能在VB中使用呢,这就用到VB与flash的交互了。

1、   首先让flash给VB发送一个命令按钮。

我们需要找到一个含有按钮的flash界面或视频,也可以自己做(如果flash玩的够好的话),将界面导入flash中,选中其中的一个按钮,右击选动作 在动作窗口中输入代码

On release {

Fscommand (“1”);

}  

“1”只是一个按钮将来在VB中的名称,名称不是固定的,这里只是举个例子。代码的意思大概就是输送一个“1”的命令给VB。如果还有别的按钮需要加载到VB中,可以继续重复上面的内容。都弄好之后,导出为swf格式(我命名为“界面”)

2、   将swf视频加载到VB中

在窗体中添加flash控件,代码窗口输入

 ShockwaveFlash1.Movie = App.Path & "\界面.swf"

 ShockwaveFlash1.Playing = True

这里用到了相对路径,即App.Path & "\界面.swf"

需要将“界面.swf”放到与工程同一个文件夹下。

3、   VB接收flash命令按钮,并加载需要的工程

在代码窗口中输入下面内容

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

 If command = "1" Then         '如果command = “1”则

Form2.show              ‘form2窗体弹出 可以在form2中编写要弹出的内容

End If

End Sub

4、   保存

由于用的VB版本太低,所以保存时经常会出现“系统错误 &H80004005(-2147467259)未指定的错误”的现象。下面有三种办法,来解决这个问题。

(1)vb6.0能支持的flash最高的版本只能是flash8,但是我们现在的flash更新的版本早就远远大于那个可怜的8了,所以第一种办法就是安装低版本的flash

第一步:打开360软件管家,卸载高版本的flash ,   Adobe  Flash Player for IE 11.5.502.118 Beta 和 adobe flash player plugin插件
      第二步:把flash85.cmd 和flash85.ocx文件拷到 C:\Windows\System32\Macromed\Flash 
                  (其中flash85.cmd是一个注册表指令,注册信息就是flash85.ocx,我们也可以通过运行cmd命令通过输入regsvr32.flash85.ocx)
      第三步:双击flash85.cmd把注册表信息添加进去
      第四步:重启VB软件,在次添加flash控件即可
      这是一种办法,安装了以后就可以保存了,可是安装了低版本的以后电脑的其他软件就会出现各种问题,所以这也是个暂时性的解决办法。

(2)也可以在窗体中输入代码实现

Dim tmpctl
Private Sub Form_Load()
   Set tmpctl = Me.Controls.Add("shockwaveflash.shockwaveflash", "flash")
    tmpctl.object.LoadMovie 0, "C:\Users\ermu\Desktop\cx\flash1.swf"     ’添加路径的时候可以   用app.path  (相对路径) 也可以用flash.swf的直接路径

End Sub

Private Sub Form_Resize()
If Me.WindowState = 1 Then Exit Sub
tmpctl.Left = 15                          '设置外观
tmpctl.Top = 15
tmpctl.Height = Me.Heigh             '这里的长和宽可以根据自己的设计来设定                  
tmpctl.Width = Me.Width / 3                               
tmpctl.Visible = True
End Sub

这里说明一下,如果是win8的系统的话就可以直接用第二种了,第一种貌似是在系统里边自带了flahs11的版本,所以就实现不了第一种了

(3)第三种办法也是我用的办法,在VB中另外安装一个flash控件,上面一切操作都在新安装的flash控件中进行,这样就可以保存了。

二、一种可以实现透明效果的命令按钮

之前还没发现过,还要谢谢子豪给了我这个想法。其实这个也是非常简单的,就是在部件中插入一个控件就好了

工程-部件,选择Microsoft Forms 2.0 Object Library,这里的控件几乎都有背景透明属性,修改Backstyle属性 就可以啦!

 

 

 

 

 

  评论这张
 
阅读(28)| 评论(11)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

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

页脚

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