关于VB中的 comct132.ocx问题!


关于VB中的 comct132.ocx问题!
2010年11月25日
  关于VB中的 comct132.ocx问题! 我自己做了个小程序,我在我电脑里能运行,可是在别人电脑里不能运行,说什么少 comct132.ocx这个文件或者少什么文件之类的,我就不明白了,然后我在电脑里找 comct132.ocx这个文件,我自己电脑里也没找到!请高手解释! 
  嘿嘿,这个还是简单嘎嘎 你看错了是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文件代码:比如窗体加载时的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 

猜你喜欢

转载自nbq440kx.iteye.com/blog/1361682