[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囉！
(不過到底要怎麼讓工具箱裡面會自動出現Class1元件阿...
有的時候他不會自動出現....)

轉載：

[教學] [VB.net]控制項的繼承