VB使用资源编辑器写入OCX与注册

首先把将要使用的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。