VB制作OCX控件

利用vb自制ocx控件

創(chuàng)新互聯(lián)專注于網(wǎng)站設(shè)計、成都網(wǎng)站設(shè)計、網(wǎng)頁設(shè)計、網(wǎng)站制作、網(wǎng)站開發(fā)。公司秉持“客戶至上,用心服務(wù)”的宗旨,從客戶的利益和觀點出發(fā),讓客戶在網(wǎng)絡(luò)營銷中找到自己的駐足之地。尊重和關(guān)懷每一位客戶，用嚴(yán)謹(jǐn)?shù)膽B(tài)度對待客戶，用專業(yè)的服務(wù)創(chuàng)造價值，成為客戶值得信賴的朋友，為客戶解除后顧之憂。

如今OCX控件在編程中已占領(lǐng)了很重要的地位,我們可以利用OCX控件完成一些相當(dāng)復(fù)雜的編程操作。同時OCX控件還有利于主程序的簡單化、功能的重用、隱藏程序?qū)崿F(xiàn)細(xì)節(jié)、便于升級、傳播方便等優(yōu)點?，F(xiàn)在我們可以利用VB 6.0方便地制作出自己的OCX控件供我們在編程中使用，同時還可以把它送給你周圍喜歡編程的朋友!下面列出制作OCX控件的步驟：

一：新建OCX

打開VB 6.0選擇新建工程在對話框中選擇ActiveX控件，打開后會見一空的文檔，這就是OCX控件的初始界面。想看一看空OCX控件的效果嗎?選擇“添加工程”選中標(biāo)準(zhǔn)EXE，這時你就可以像調(diào)用其它控件一樣在左邊的工具欄里選擇剛才新建的OCX控件圖標(biāo)，放在標(biāo)準(zhǔn)的EXE文檔中看一看有什么效果!(什么也沒有!)自然因為剛才的OCX文檔是空的嘛。

二：創(chuàng)建界面

一般我們用VB創(chuàng)建OCX控件都是在我們的控件里添加其它的控件來組合成一個完整的控件（也可以讓它只完成某種算法），比如：你可以在上面添加一按鈕、編輯框，這時你再用第一部的方法看一看效果，是不是控件上多了一個按鈕和一個編輯框。

三：OCX屬性

一個OCX控件有許多的屬性，比如控件背景是否透明（BackStyle），控件是否可以獲得焦點(CanGetFocus)等。這些屬性都可以在控件的“屬性框”中找到。

四：添加事件

一個控件有很多事件，如：Click、MouseDown、MouseUp、MouseMove等。要觸發(fā)這些事件都需要你加入代碼。在控件的聲明處加入Public Event Click()就表明該控件有一“Click”事件。自己編寫的控件有什么事件就在聲明處加幾條事件。關(guān)于觸發(fā)事件是使用“RaiseEvent”語句來完成的，如：RaiseEvent事件名（參數(shù)）。

五：用戶屬性

一個控件應(yīng)有許多屬性供用戶設(shè)置，如：控件的背景色、控件要顯示的圖形等。它們通常用Property Get和Property Let兩條語句來完成。前者表示給用戶顯示一個屬性的值，后者表示用戶設(shè)置一個屬性的值。

六：保存屬性和讀取屬性

當(dāng)屬性被用戶更改后需要將該屬性值保存，以便控件運行時讀取更改后的屬性值。它們分別用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文件，通過工程-部件-瀏覽-勾選添加到工具箱方可應(yīng)用。而VB自帶的ActiveX 控件則需通過工程-部件-勾選添加到工具箱方可應(yīng)用。

ActiveX 控件是 Visual Basic 工具箱的擴充部分。使用 ActiveX 控件的方法與使用其它標(biāo)準(zhǔn)內(nèi)裝的控件，如 CheckBox 控件，完全一樣。在程序中加入 ActiveX 控件后，它將成為開發(fā)和運行環(huán)境的一部分，并為應(yīng)用程序提供新的功能。

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

雙擊在工具箱添加的ActiveX 控件，應(yīng)用窗體上就會添加好該ActiveX 控件。通過屬性對該ActiveX 控件進(jìn)行設(shè)置。

VB.Net程序中怎么注冊O(shè)CX控件

參看下面的代碼

Public?Sub?main()

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

Shell("regsvr32.exe?/s?"""??str??"""",?AppWinStyle.NormalFocus)'這里如果文件名包含空格，需要把整個文件名用雙引號引起來哦，切記

Application.Run(New?Form1)

End?Sub