重載Windows控制項

在vb.net中，使用者可以根據一個已經存在的控制項繼承出一個新的Windows控制項，假設現在需要一種Text控制項，當用tab鍵移到該控制項時，整個Text中的內容都被highlight了，在vb 6.0中，這可以通過編寫一個新的Dll動態庫，但是Textbox控制項在工具箱中被屏蔽掉了，並且失去了Textbox的一些有用的事件。而在vb 7.0中則可以通過繼承Textbox類而派生出一個新的類。
下面舉一個例子，通過Windows設計環境，建立一個表單，在這個表單中有兩個Textbox，通過在"Project|Add User Control"菜單給工程加入一個名為"HitextBox.vb"的對象，使這個控制項繼承TextBox的屬性，而不是要自訂一個全新的控制項，如下：
Public class HtextBox
Inherits Textbox
下面先編譯一下整個工程，新加入的HtextBox控制項將會出現在左邊的工具列的底部。使用者可以在建立的任何一個Windows表單中建立一個HtextBox類對象。
在類的代碼中，插入如下代碼以實現highlight的功能：當你用Tab鍵移到Textbox時，Textbox的全部內容變為hightlight。

Public class HttextBox   Inherits Textbox   Public Sub New      Mybase.New   'Add Event event handler   AddHandler Enter,_      New System.EventHandler(AddressOf_                   Me.Ht_Enter)      End Sub   '----------------   'Enter event handler is inside the class   Protected Sub Ht_Enter(Byval sender as Object,_             Byval e as System.EventArgs)      Me.selectionStart=0      Me.selectionLength=Me.text.length   End SubEnd Class

這就是所有的過程，通過添加大概10行代碼就做出了一個繼承Windows控制項派生出來的控制項。