关于VB中的 comct132.ocx问题!

关于VB中的 comct132.ocx问题!

悬赏分：10 - 解决时间：2010-1-9 00:27

我自己做了个小程序,我在我电脑里能运行,可是在别人电脑里不能运行,说什么少 comct132.ocx这个文件或者少什么文件之类的,

我就不明白了,然后我在电脑里找 comct132.ocx这个文件,我自己电脑里也没找到!请高手解释! 

提问者： vilus - 五级

最佳答案

检举    

嘿嘿，这个还是简单嘎嘎
你看错了是comctl32.ocx不是comct132.ocx，是字母l不是数字1，具体在你C盘系统目录c:/windows/system32目录下
这个程序让我来打包的话我会采用2种方法：
1：把控件放在程序目录下，然后在同目录里写个BAT，内容：
Copy /y comctl32.ocx %windir%/system32/
regsvr32/s %windir%/system32/comctl32.ocx
程序运行时自动运行BAT文件代码<假设文件名是1.bat>：比如窗体加载时的Form_Load代码下写：
shell "cmd.exe /c start1.bat",VbHide

2.把控件打包在程序里面，然后在模块sub main里进行释放、注册等操作！
Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation 

As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd 

As Long) As Long

Private Declare Function GetSystemDirectory Lib "kernel32" Alias _
"GetSystemDirectoryA" (ByVal lpBuffer As String, _
ByVal nSize As Long) As Long

Sub main()
Dim appexe() As Byte