'以ComCtl32.ocx为例,其它换相应的名字
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
--------------------编程问答-------------------- --------------------编程问答-------------------- 学习了……
搬小板凳,坐沙发听课 --------------------编程问答-------------------- 我压根不明白楼主的意思,听课。。 --------------------编程问答-------------------- 我的一楼又被掩埋了。。。 --------------------编程问答-------------------- 那是因为我要坐沙发……所以…… --------------------编程问答-------------------- --------------------编程问答-------------------- 我表示非常的淡定 --------------------编程问答-------------------- 楼主大概是要注册控件
API声明无论如何也不能放在函数或过程里呀!
Declare Function RegComCtl32 Lib "ComCtl32.ocx " Alias "DllRegisterServer " () As Long
Declare Function UnRegComCtl32 Lib "ComCtl32.ocx " Alias "DllUnRegisterServer " () As Long
在函数或过程里,调用RegComCtl32 就可以注册ComCtl32.ocx 了
补充:VB , API