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

吴士龙

机会,永远留给有准备的人。

 
 
 

日志

 
 

未结之余(下 I)  

2014-05-24 09:29:48|  分类: VB学习 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

谈起作品展,应该来说,是一件痛并快乐着的事情,与繁忙学习功课中,抽出唯一可以偷闲时间,来搞一个作品,是为之痛;于茫茫然中准备着作品展,正好利用这个机会,好好学习和巩固一下已学习的知识,是为之快乐。
关于vb加入 shockwaveflash控件后无法保存问题

最近在尝试vb与flash结合,发现了一个问题,添加shockwaveflash控件后无法保存,
保存时提示“系统错误&H80004005 (-2147467259). 未指定的错误”

未结之余(下 I) - 吴士龙 - 吴士龙

 

寻找原因,发现是flash这严重影响学习的啊,这个问题必须解决,
几经周折,找到了以下几种方法,有同样问题的童鞋可以尝试以下
1.卸载新版本的flash,装老版本的flash8(坑爹,本来装的就是flash8,后来想着新的比老的好用,就改装了flashcs5,结果不能用了)
2.找到 flash10d.ocx  copy到 C:/WINDOWS/system32/Macromed/Flash 下 把目前的给改名
  如果组件正在使用 建议用 Unlocker工具 把flash10d.ocx改名 为 :flash10k.ocx(当然adobe公司不断升级FLASH组件内核,平时留意一下。)  注册之后 重启VB工程 就没问题了
3.动态加入shockwaveflash,不添加控件,而是键入以下代码
Private Sub Form_Load()
     Dim tmpCtl As Object
    
     Set tmpCtl = Me.Controls.Add("ShockwaveFlash.ShockwaveFlash", "Flash")
             '添加控件
     tmpCtl.Width = Me.Width     '设置外观
     tmpCtl.Height = Me.Height
     tmpCtl.Visible = True
    
     tmpCtl.object.LoadMovie 0, app.path+"\a.swf" '把a.swf改成自己的文件名
   End Sub
未结之余(下 I) - 吴士龙 - 吴士龙
  评论这张
 
阅读(24)| 评论(18)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

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

页脚

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