下载的 .ocx 控件如何安装到 windows 注册使用?
解决方案 »
- 无法关闭Excel进程的问题
- 如何得到文件的修改用户
- 大连发展机会(诚招vb/vb.net/java技术部长,vb,vb.net,java程序员),欢迎应届毕业生,学校学历外语年龄工作经验不限
- vb6.0自带的APEX True DBGrid Pro 6.0(OLEDB)
- 怎样让一个MDI窗口的指定子窗口永远居前?
- 在vb中这样的sql有没有其他的书写方式?
- 表名是否在数据库中存在的问题,MSDN有错??-----很着急,请大家帮忙,在线等待
- 用VB直接操作打印机的问题
- 如何指定控件的guid
- ■■■■我的一个难题
- 打印机问题,急救!!!
- installshield developer 8 在哪里设置安装程序口令保护????
注册:regsvr32 *.ocx
这里的文件名要使用全局路径注销:regsvr32 /u *.ocx
相应的文件在windows\system 下
在使用VB和其它一些Win9X下的编程软件,就要同ActiveX控件打交道,注册
和反注册控件是一件令人很头疼的事情。有时从网上下载了一个控件,但是在使用
时VB总是提示控件没有注册。又或者想删除一个控件却无法从注册中抹去。
实际上,每一个ActiveX控件都有两个输出函数:DllRegisterServer和
DllUnRegisterServer。顾名思义,通过这两个函数就可以注册和反注册控件了,
下面通过程序说明如何通过编程来注册。
首先在Form中加入两个CommandButton,不要改变它们的属性。然后在Form中
加入如下代码:
Private Declare Function RegComCtl32 Lib "ComCtl32.OCX" _
Alias "DllRegisterServer" () As Long
Private Declare Function UnRegComCtl32 Lib "ComCtl32.OCX" _
Alias "DllUnregisterServer" () As Long
Private Declare Function FormatMessage Lib "kernel32" _
Alias "FormatMessageA" (ByVal dwFlags As Long, _
lpSource As Any, ByVal dwMessageId As Long, _
ByVal dwLanguageId As Long, ByVal lpBuffer _
As String, ByVal nSize As Long, Arguments As _
Long) As Long
Private Declare Function GetLastError Lib "kernel32" () As LongConst ERROR_SUCCESS = &H0Private Sub Command1_Click()
Dim astr As String
'反注册ComCtl32.Ocx
If RegComCtl32 = ERROR_SUCCESS Then
MsgBox "注册成功"
Else
astr = String$(256, 20)
FormatMessage FORMAT_MESSAGE_FROM_SYSTEM Or _
FORMAT_MESSAGE_IGNORE_INSERTS, 0&, GetLastError, _
0&, astr, Len(astr), ByVal 0
MsgBox astr
End If
End Sub