重載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 Sub
End Class

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