(VB.NET)상속 (Inherits)을 알려 주마!!

Public Class Form1

 

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim 상속 As New cls_bbb
        상속.junwoo()
        상속.kkk()
        상속 = Nothing

    End Sub

 

End Class

 

Class cls_aaa

    Public Overridable Sub junwoo()
        MsgBox("상속된 Class")
    End Sub

End Class

 

Class cls_bbb       '상속을 설정한 Class

    Inherits cls_aaa

    Public Sub kkk()
        MsgBox("상속된 Class")
    End Sub

End Class

[출처] (VB.NET)상속 (Inherits)을 알려 주마!!|작성자 김준우  

[출처] (VB.NET)상속 (Inherits)을 알려 주마!!|작성자 김준우