首先把将要使用的OCX控件房放在工程同一目录下,在“外接程序”->“外接程序管理器”->“VB 6 资源管理器” 添加资源文件,可以讲图标、image等文件添加进去,这里我们添加的是ocx。添加后保存会生成一个.reg文件,就是我们的资源文件。
然后在程序的主程序中加以下语句。
If Dir(App.Path & "\mscomm32.ocx") = "" Then
Dim a() As Byte, b() As Byte
a = LoadResData(101, "CUSTOM")
Open App.Path & "\mscomm32.ocx" For Binary As #1
Put #1, , a
Close #1
Shell "regsvr32 " + App.Path & "\mscomm32.ocx", vbHide '注册
End If
然后在打包的时候就不需要把OCX文件一起打包了,在执行EXE之后会自动生成OCX。
然后在程序的主程序中加以下语句。
If Dir(App.Path & "\mscomm32.ocx") = "" Then
Dim a() As Byte, b() As Byte
a = LoadResData(101, "CUSTOM")
Open App.Path & "\mscomm32.ocx" For Binary As #1
Put #1, , a
Close #1
Shell "regsvr32 " + App.Path & "\mscomm32.ocx", vbHide '注册
End If
然后在打包的时候就不需要把OCX文件一起打包了,在执行EXE之后会自动生成OCX。