如何注册.ocx控件

henyzhang 2003-05-08 04:30:08
在vb中如何注册.ocx控件啊。
...全文
116 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
lihonggen0 2003-05-08
  • 打赏
  • 举报
回复
Shell "regsvr32 xfxFormShaper.ocx", vbNormalNoFocus
lihonggen0 2003-05-08
  • 打赏
  • 举报
回复
regsvr32 ActiveResizerOCX.ocx
regsvr32 AresButtonPro.ocx
regsvr32 AS97POPUP.ocx
regsvr32 ccrphky.ocx
regsvr32 ccrpprg.ocx
regsvr32 CSplitBarCtrl.ocx

regsvr32 IconMenu.ocx
regsvr32 InputeDate.ocx
regsvr32 JScrollH.ocx
regsvr32 StringOps.ocx
regsvr32 Threed32.ocx
regsvr32 Toolbar2.ocx
regsvr32 Xcdzip35.ocx
regsvr32 xfxFormShaper.ocx
bydisplay 2003-05-08
  • 打赏
  • 举报
回复
同意上述看法
lilaclone 2003-05-08
  • 打赏
  • 举报
回复
在程序中注册和注销 OCX 控件
 
声明(在本例子里使用的是 ComCtl32.OCX,如果是其他,使用相应的名称):
Declare Function RegComCtl32 Lib "ComCtl32.OCX" _
Alias "DllRegisterServer" () As Long
Declare Function UnRegComCtl32 Lib "ComCtl32.OCX" _
Alias "DllUnregisterServer" () As Long
Const ERROR_SUCCESS = &H0

使用:

If RegComCtl32 = ERROR_SUCCESS Then
MsgBox "Registration Successful"
Else
MsgBox "Registration Unsuccessful"
End If

If UnRegComCtl32 = ERROR_SUCCESS Then
MsgBox "UnRegistration Successful"
Else
MsgBox "UnRegistration Unsuccessful"
End If

7,763

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

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