http://club.excelhome.net/thread-577159-1-1.html
在这个帖子,下面语句如下。
请问:各位大侠的问题,ctlbar32.ocx,MSCOMCT2.OCX有什么用处。Public Sub zcqq()
Dim SourceFile, DestinationFile
SourceFile = ThisWorkbook.Path & "\注册控件\ctlbar32.ocx" ' 指定源文件名。
DestinationFile = "c:\windows\system32\ctlbar32.ocx" ' 指定目的文件名。
FileCopy SourceFile, DestinationFile ' 将源文件的内容复制到目的文件中
Shell "regsvr32 " & DestinationFile, vbHide '注册控件
'MsgBox "如果显示注册成功的信息,该文件你可以可删除."
'Application.Quit
End Sub
Public Sub zcrq()
Dim SourceFile, DestinationFile
SourceFile = ThisWorkbook.Path & "\注册控件\MSCOMCT2.OCX" ' 指定源文件名。
DestinationFile = "c:\windows\system32\MSCOMCT2.OCX" ' 指定目的文件名。
FileCopy SourceFile, DestinationFile ' 将源文件的内容复制到目的文件中
Shell "regsvr32 " & DestinationFile, vbHide '注册控件
End Sub
OCX文件就是一些控件
软件里面有用到这些控件
CTLBAR控件是一个可包含icos和bitmaps(用于背影)图象的卷轴式菜单。
CTLBAR控件提供一系列的列表栏(LISTBAR),每个列表栏(LISTBAR)可添加多达32000个列表条(LIST ITEM)。MSCOMCT2.OCX
microsoft windows common controls-2 6.0 (sp6)
提供Animation控件、UpDown控件、MonthView控件、DTPicker控件和FlatScrollBar控件。