代码注册ocx控件

zhoufang19860123 2006-11-03 12:14:23
在vb里怎么用代码写,怎样判断是否已经注册过了
shell app.path & "BSE.ocx"???
...全文
362 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
zhoufang19860123 2006-11-03
  • 打赏
  • 举报
回复
我把"MSFlexGridLib.MSFlexGrid"换成"BSE.ocx"报错:ActiveX部件不能创建对象,为什么呀
zhoufang19860123 2006-11-03
  • 打赏
  • 举报
回复
command1的单击事件中"MSFlexGridLib.MSFlexGrid.1" 什么意思啊,是指控件名吗
zhoufang19860123 2006-11-03
  • 打赏
  • 举报
回复
还在吗,每次都注册速度太慢了,对不起,上次没给你分,这么还给你,这段代码是判断是否注册过,看不懂Option Explicit

public function IsRegistered(byval 控件名 as string) as boolean
'其中控件名:OCXLib.ControlName
dim oCheckup as object
' Check whether the activeX control ControlName is installed and registered.
Set oCheckup = CreateObject(控件名)
IsRegistered= (Err.Number = 0)
end function

Private Sub Command1_Click()
If IsRegistered("MSFlexGridLib.MSFlexGrid.1") Then
MsgBox "MSFlexgrid已注册"
Else
MsgBox "MSFlexgrid为注册"
End If

End Sub
happy_sea 2006-11-03
  • 打赏
  • 举报
回复
regsvr32.exe是32位系统下使用的DLL注册和反注册工具,使用它必须通过命令行的方式使用,格式是:
regsvr32 [/u] [/s] [/n] [/i[:cmdline]] DLL文件名
命令可以在“开始→运行”的文本框中,也可以事先在bat批处理文档中编写好命令。未带任何参数是注册DLL文件功能,其它参数对应功能如下:
/u:反注册DLL文件;
/s:安静模式(Silent)执行命令,即在成功注册/反注册DLL文件前提下不显示结果提示框。
/c:控制端口;
/i:在使用/u反注册时调用DllInstall;
/n:不调用DllRegisterServer,必须与/i连用。
happy_sea 2006-11-03
  • 打赏
  • 举报
回复
注册没注册的都再注册一下:
shell "regsvr32.exe /s " & app.path & "\bse.ocx"

2,506

社区成员

发帖
与我相关
我的任务
社区描述
VBA(Visual Basic for Applications)是Visual Basic的一种宏语言,是在其桌面应用程序中执行通用的自动化(OLE)任务的编程语言。
社区管理员
  • VBA
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧