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

泽漆

未出头时先有节,到凌云处仍虚心

 
 
 

日志

 
 
关于我

像猫一样慵懒,像猪一样肚大能容,像人一样喜欢阅读, 性格分裂, 稍微偏激化,矛盾化, 情绪化 ,从不奉承别人 ,有点悲观,我认为想成功最快的方法,是做你喜欢做的事,然后全力以赴,初接触计算机,并且喜欢上了计算机,学习中……

网易考拉推荐

vb flash 系统错误 &H80004005 (-214767259),未指定的错误问题  

2013-04-18 21:16:42|  分类: 技术 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
    vb使用控件shockwaveflash时,只要一保存,就会出现如标题所示的错误提示。
   方法一: 如果你只是想单纯地实现在VB窗体中播放flash的话你自己大可以定义一个类串,生成一个flash控件
代码如下:

Dim tmpCtl As Object                     '这句放在窗体层
Private Sub Form_Load()                  '添加控件
    Set tmpCtl = Me.Controls.Add("ShockwaveFlash.ShockwaveFlash", "Flash")
    tmpCtl.object.LoadMovie 0, App.Path "\swf.swf" ’第一个swf为flash文件名,第二个flash为拓展名
End Sub

Private Sub Form_Resize()
     If Me.WindowState = 1 Then Exit Sub
     tmpCtl.Left = 15
     tmpCtl.Top = 15
     tmpCtl.Height = Me.ScaleHeight
     tmpCtl.Visible = True
End Sub
   方法二:如果你想vb与flash交互的话方法一存在弊端(没办法写交互代码),所以最根本的办法是引用VB自带的flash控件
(1)确认vb调用的flash控件名称与路径:
vb flash 系统错误 H80004005 (-214767259),未指定的错误问题 - 刘颖 - 刘颖 廊坊师范学院信息技术提高班第十期

定位:   C:\Windows\System32\Macromed\flash\Flash32_11_7_700_169.ocx 由于计算机不同,所以VB调用的flash控件可能存在差异,但拓展名都是.ocx
        与flash32_11_7_700_169.ocx在同一文件夹的若还有拓展名为.ocx的文件,将其名称改为flash32_11_7_700_169.ocx并将原flash32_11_7_700_169.ocx删除;若同一文件夹无此拓展名的文件,可以去能保存flash控件窗体的计算机上拷贝一个放到原文件夹里。也可以从网上下载flash85.ocx,在进行上述操作。
    根据计算机的不同,可能还需要将上述文件拷贝放到同一文件夹,将其拓展名改为.cmd,右击,以管理员身份运行,有黑屏闪过,即可,若再不行可进行重启。
    
 
  评论这张
 
阅读(490)| 评论(2)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

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

页脚

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