VB中如何把ocx控件通过资源编辑器集合到exe中

这个怎么没有回答呢?我提供一下思路:

1. 在资源编辑器中 添加"自定义资源",将 界面美化.ocx文件加入

2. 添加一个模块,在模块中写上:

Sub Main()

Dim OcxData() As Byte

Dim OcxPath As String

OcxData=LoadResData(101, "CUSTOM")

If Right(App.Path,1)<>"\" Then OcxPath=App.Path &"\"

OcxPath=OcxPath &"界面美化.ocx"

If Dir(OcxPath) = "" Then '不存在ocx文件

Open OcxPath For Binary As #1

Put 1,,OcxData

Close #1

End If

Form1.Show '假设程序启动后先显示Form1,这里根据你自己情况编写

End Sub

3. 在"工程"菜单-->"工程属性"-->设置将启动对象选为Sub Main

4. 如果OCX文件>64KB,可能要分解成小的.

安装OCX控件的具体步骤如下：

我们需要准备的材料分别是：电脑、

以32位的电脑为例：

1、首先我们打开电脑，点击打开左下角的开始图标。

2、然后我们在d出来的窗口中点击打开“运行”。

3、然后我们在d出来的窗口中点击输入下图中的内容，回车确定即可。

调用控件的属性啊，ocx的属性会根据IDL的定义自动找get_XXX() 和 put_XXX()函数。

可以用命名管道，可以用事件通知，也可以用socket，不一定要用消息发送机制的

---