Class + Object + Inherits 使用方法

 
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