VB制作OCX控件

利用vb自制ocx控件

创新互联专注于网站设计、成都网站设计、网页设计、网站制作、网站开发。公司秉持“客户至上,用心服务”的宗旨,从客户的利益和观点出发,让客户在网络营销中找到自己的驻足之地。尊重和关怀每一位客户，用严谨的态度对待客户，用专业的服务创造价值，成为客户值得信赖的朋友，为客户解除后顾之忧。

如今OCX控件在编程中已占领了很重要的地位,我们可以利用OCX控件完成一些相当复杂的编程操作。同时OCX控件还有利于主程序的简单化、功能的重用、隐藏程序实现细节、便于升级、传播方便等优点。现在我们可以利用VB 6.0方便地制作出自己的OCX控件供我们在编程中使用，同时还可以把它送给你周围喜欢编程的朋友!下面列出制作OCX控件的步骤：

一：新建OCX

打开VB 6.0选择新建工程在对话框中选择ActiveX控件，打开后会见一空的文档，这就是OCX控件的初始界面。想看一看空OCX控件的效果吗?选择“添加工程”选中标准EXE，这时你就可以像调用其它控件一样在左边的工具栏里选择刚才新建的OCX控件图标，放在标准的EXE文档中看一看有什么效果!(什么也没有!)自然因为刚才的OCX文档是空的嘛。

二：创建界面

一般我们用VB创建OCX控件都是在我们的控件里添加其它的控件来组合成一个完整的控件（也可以让它只完成某种算法），比如：你可以在上面添加一按钮、编辑框，这时你再用第一部的方法看一看效果，是不是控件上多了一个按钮和一个编辑框。

三：OCX属性

一个OCX控件有许多的属性，比如控件背景是否透明（BackStyle），控件是否可以获得焦点(CanGetFocus)等。这些属性都可以在控件的“属性框”中找到。

四：添加事件

一个控件有很多事件，如：Click、MouseDown、MouseUp、MouseMove等。要触发这些事件都需要你加入代码。在控件的声明处加入Public Event Click()就表明该控件有一“Click”事件。自己编写的控件有什么事件就在声明处加几条事件。关于触发事件是使用“RaiseEvent”语句来完成的，如：RaiseEvent事件名（参数）。

五：用户属性

一个控件应有许多属性供用户设置，如：控件的背景色、控件要显示的图形等。它们通常用Property Get和Property Let两条语句来完成。前者表示给用户显示一个属性的值，后者表示用户设置一个属性的值。

六：保存属性和读取属性

当属性被用户更改后需要将该属性值保存，以便控件运行时读取更改后的属性值。它们分别用ReadProperty和WriteProperty两种方法来完成。前者表示读取一个属性值，后者表示写入一个属性值。

好了，一个简单的OCX控件制作方法大概就需要以上几步就可完成。有兴趣的朋友不妨一试。

代码：

Private Sub Command1_Click()

a = Val(Text1.Text)

b = Val(Text2.Text)

Call add(a, b)

End Sub

Private Sub add(ByVal a As Integer, ByVal b As Integer)

Label1.Caption = a + b

End Sub

如何使用VB制作OCX控件

VB使用第三方制作的ActiveX 控件需要将该控件的.ocx文件，通过工程-部件-浏览-勾选添加到工具箱方可应用。而VB自带的ActiveX 控件则需通过工程-部件-勾选添加到工具箱方可应用。

ActiveX 控件是 Visual Basic 工具箱的扩充部分。使用 ActiveX 控件的方法与使用其它标准内装的控件，如 CheckBox 控件，完全一样。在程序中加入 ActiveX 控件后，它将成为开发和运行环境的一部分，并为应用程序提供新的功能。

ActiveX 控件文件名的后缀是.ocx。

双击在工具箱添加的ActiveX 控件，应用窗体上就会添加好该ActiveX 控件。通过属性对该ActiveX 控件进行设置。

VB.Net程序中怎么注册OCX控件

参看下面的代码

Public Sub main()

Dim str As String = Application.StartupPath  "\videocapx.ocx"

Shell("regsvr32.exe /s """  str  """", AppWinStyle.NormalFocus)'这里如果文件名包含空格，需要把整个文件名用双引号引起来哦，切记

Application.Run(New Form1)

End Sub