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

王娟娟-廊坊师范学院信息技术提高班11期

信心要靠力量去支撑,爱要靠力量去付诸于实践。

 
 
 

日志

 
 

引用 【转载】vb中不能保存添加flash的窗体   

2014-03-10 11:13:51|  分类: 默认分类 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

       系统错误 &H80004005(-2147467259)未指定的错误,每每看到这个就无限伤感

       马上就第一次彩排了,可是我好像还有很多的问题没有解决呢,不过今天总算是可以松口气了,解决了一个了,感觉老好了,其实也不是我的功劳,大部分都是同学的帮忙,在这里我就把这些成果写出来,当然帮组过我的那些好人们我就不说了哈

      首先我的说明一下,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控件即可
      这是一种办法,安装了以后就可以保存了,可是安装了低版本的以后电脑的其他软件就会出现各种问题,所以这也是个暂时性的解决办法,现在我给大家一种代码的方式吧,当然还得感谢赵洪林同学了

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的版本,所以就实现不了第一种了

我感觉这个很有用,所以和大家分享一下。。

  评论这张
 
阅读(39)| 评论(13)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

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

页脚

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