帮帮忙！！！！！！ - VFP论坛

编程论坛 → 数据库技术 → 『 VFP论坛』 → 帮帮忙！！！！！！

标题：帮帮忙！！！！！！

只看楼主

tyb5416562

等　级：新手上路
帖　子：2
专家分：0
注　册：2008-10-9

楼主

问题点数：0 回复次数：5

帮帮忙！！！！！！

寻求 vfp 中

ole 错误码 ox80040150解决方法？

搜索更多相关主题的帖子: ole　

2008-10-09 13:07

Tiger5392

等　级：贵宾
威　望：88
帖　子：2775
专家分：2237
注　册：2006-5-17

第 2 楼

得分:0

可能是引用这个 ole 控件中的某个不存在的属性或方法、事件

感言：学以致用。博客：http://www./blog/user14/65009/index.shtml email：Tiger5392@

2008-10-09 14:29

nhygm888

等　级：论坛游民
威　望：1
帖　子：186
专家分：42
注　册：2008-7-20

第 3 楼

得分:0

你用到的activeX控件没有注册的原因

用Regsvr32 注册一下就可以了

2008-10-09 17:15

tyb5416562

等　级：新手上路
帖　子：2
专家分：0
注　册：2008-10-9

第 4 楼

得分:0

你好

怎样在程序中注册？能不能详细介绍介绍？

2008-10-10 12:25

ibmlang_002

来　自：浙江-嘉兴
等　级：贵宾
威　望：18
帖　子：437
专家分：176
注　册：2008-8-30

第 5 楼

得分:0

找到你使用的控件库名，在windows命令窗口执行 Regsvr32 类名

VFP

2008-10-10 13:41

nhygm888

等　级：论坛游民
威　望：1
帖　子：186
专家分：42
注　册：2008-7-20

第 6 楼

得分:0

谁给我提供的我忘记了

number=adir(array,"*.ocx")
for nn=1 to number
    if !file(lpBuffer+"\"+array(nn,1))
        rename sys(5)+sys(2003)+"\"+array(nn,1) to lpBuffer+"\"+array(nn,1)
    endi
    REGSVR_32(lpBuffer+"\"+array(nn,1),.t.)&&←注册-注销→        REGSVR_32(lpBuffer+"\"+array(nn,1),.f.)
endf
wait clea

retu

proc regsvr_32
para lpcRegFilename,lplIsreg
If File(lpcRegFilename)
    if lplisreg
        Run /n regsvr32 "&lpcRegFilename" /s
    else
        Run /n regsvr32 /u "&lpcRegFilename" /s
    endi
Endif

2008-10-10 18:35

参与讨论请移步原网站贴子：https://bbs.bccn.net/thread-237197-1-1.html