利用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 SubPrivate Sub add(ByVal a As Integer, ByVal b As Integer)Label1.Caption = a + bEnd Sub