Class + Object + Inherits 使用方法
AAA.vb |
Public Class AAA Shared A As String = "A" Public Shared B As String = "B" Shared C As String = "C" Public Shared D As String = "D" Sub New() A = "AA" B = "BB" C = "CC" D = "DD" End Sub End Class |
BBB.vb |
Public Class BBB Inherits AAA End Class |
form1.vb |
Public Class Form8 Private Sub Form8_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) _ Handles MyBase.Load Dim NewObj As New BBB Label1.Text = NewObj.B Label2.Text = NewObj.D End Sub End Class |