关于OCX控件注册问题

最新推荐文章于 2023-12-12 19:20:23 发布

原创最新推荐文章于 2023-12-12 19:20:23 发布 · 3.7k 阅读

1 ·

本内容遵循CC 4.0 BY-SA版权协议

标签

#function #shell #command #object #string

VB 专栏收录该内容

10 篇文章

订阅专栏

博客介绍了使用Shell命令和API函数注册OCX控件的方法，给出了注册和注销的代码示例，并说明了判断注册是否成功的逻辑。同时，还提供了判断OCX控件是否已注册的代码，可避免重复注册。

'使用Shell命令
Shell "regsvr32 /s """ & 文件全路径名 & """"

'有个API用来注册.ocx的
Declare Function RegComCtl32 Lib "C:/name.dll" _
Alias "DllRegisterServer" () As Long
Declare Function UnRegComCtl32 Lib "C:/name.dll" _
Alias "DllUnregisterServer" () As Long
Const ERROR_SUCCESS = &H0

'使用：
call RegComCtl32
If RegComCtl32 = ERROR_SUCCESS Then
MsgBox "注册成功！"
Else
MsgBox "注册失败！"
End If
其中C:/name.dll是你的控件名（全路径），在此我仅仅以name.dll为例

TO： winehero(编程人生) 我有个问题，如何判断OCX控件已被注册过？如果以注册国的话就不需要再注册了。
——————————————————————————————————

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnaxctrl/html/msdn_ctlreg.asp
或者是使用如下代码判断：

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