VB.net控制项的继承浅析

先建立一个新的表单，然后"文件"→"加入新项目"→选择"类别"，建立一个Class1.vb。

以下是范例源代码：

Class1.vb 
Public Class Class1 
Inherits TextBox '继承TextBox 
Public Sub msg(ByVal x As String) '建立一个Class1的方法 
MsgBox(x) '显示MsgBox 
End Sub 
End Class 
 
 
Form1.vb 
Public Class Form1 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
Dim Class11 As New Class1 
Class11.Text = "Hello! VB2005." '在Class1显示文字 
Dim x As String = Class11.Text 
Class11.msg(x) '会跑出MsgBox(新增的方法，并非TextBox原本有的方法) 
End Sub 
End Class 

正常情况下，先输入完所有程式码之后，你会在工具箱的最上面找到Class1元件，把他拉到表单。还要拉个Button元件。

原本Textbox控制项并没有自动跑出MsgBox的方法，但是建立Class1物件后，继承自TextBox，所以可以当成TextBox用，又有了Class1的新增功能，所以当按下Button1之后，就会跑出MsgBox哦。