当前位置：首页 → 问答吧 → '以ComCtl32.ocx为例，其它换相应的名字

'以ComCtl32.ocx为例，其它换相应的名字

时间：2011-10-21

来源：互联网

Option Explicit
'roect要注册的控件名
Private Sub Command1_Click()
If Dir("C:\WINDOWS\system32\roect", vbDirectory) <> "" Then
MsgBox "文件夹：C:\WINDOWS\system32\roect 存在！"
Else
'以ComCtl32.ocx为例，其它换相应的名字
Declare Function RegComCtl32 Lib "ComCtl32.ocx " Alias "DllRegisterServer " () As Long

Declare Function UnRegComCtl32 Lib "ComCtl32.ocx " Alias "DllUnRegisterServer " () As Long

End If
End Sub

作者: yangfeng98 发布时间: 2011-10-21

该回复于2011-10-21 14:15:49被版主删除

对我有用[0]
丢个板砖[0]
引用
举报
管理
TOP

yiguangqiang88
(神马)
等　级：

#2楼得分：0回复于：2011-10-21 14:21:51

学习了……
搬小板凳，坐沙发听课

作者: Veron_04 发布时间: 2011-10-21

我压根不明白楼主的意思，听课。。

作者: yiguangqiang88 发布时间: 2011-10-21

我的一楼又被掩埋了。。。

作者: Veron_04 发布时间: 2011-10-21

引用 4 楼 veron_04 的回复:
我的一楼又被掩埋了。。。

那是因为我要坐沙发……所以……

作者: Veron_04 发布时间: 2011-10-21

作者: yiguangqiang88 发布时间: 2011-10-21

我表示非常的淡定

作者: yiguangqiang88 发布时间: 2011-10-21

楼主大概是要注册控件
API声明无论如何也不能放在函数或过程里呀！
Declare Function RegComCtl32 Lib "ComCtl32.ocx " Alias "DllRegisterServer " () As Long

Declare Function UnRegComCtl32 Lib "ComCtl32.ocx " Alias "DllUnRegisterServer " () As Long

在函数或过程里，调用RegComCtl32 就可以注册ComCtl32.ocx 了

作者: Veron_04 发布时间: 2011-10-21

'以ComCtl32.ocx为例，其它换相应的名字

热门阅读

热门下载