查人人中国名人网ex-s高达 mg开盒:请问可不可以把OCX嵌入VB里,怎样实现???
来源：百度文库 编辑：查人人中国名人网 时间：2024/04/30 08:47:21
我有个程序运行时需要一个Mswinsck.ocx,别人没这个文件都要复制进system32里,很麻烦..有没有方法解决?!~
1.简单的是你用VB的打包工具打包。
2.复杂的就是用程序本身自己复制到系统目录下
'取得系统路径API
Private Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
'取得系统路径
Function GetSystemDir() As String
Dim s As String * 256
Dim l As Long
l = GetSystemDirectory(s, 255)
Dim b As String
b = Left(s, InStr(s, Chr(0)) - 1)
GetSystemDir = b
End Function
在你的form_load里写
Dim appname As String '取得文件的路径
'一定要把Mswinsck.ocx和你的EXE文件放在一个目录下
Dim newname As String
appname = App.Path + "\Mswinsck.ocx"
newna = GetSystemDir + "\Mswinsck.ocx"
FileCopy appname, newname
这样就自动拷贝到你朋友的机器里了
这个winsock控件好像不用注册，你把这个ocx和你的程序放在一个文件夹下，同时复制给别人就可以了
用VB带的打包程序制作成安装文件就行了
制作成安装程序，安装时注册