类的共享成员用Shared关键字来说声明,
Public Shared Property 属性名() As 数据类型
Public Shared Sub 过程名(参数)
Pubiic Shared Function 函数名(参数) as 数据类型
Pubiic Shared 变量名 As 数据类型
共享成员可以直接用类名来访问。
Module Module1
Public Class 家庭成员
Private Shared FamilyIncome As Single = 0
Public Shared Property Income As Single
Get
Return FamilyIncome
End Get
Set(ByVal value As Single)
FamilyIncome = value
End Set
End Property
End Class
Sub Main()
Dim Father As New 家庭成员
'Dim Mother As New 家庭成员
'Dim Husband As New 家庭成员
'Dim Wife As New 家庭成员
'Dim Son As New 家庭成员
Dim Money As Single
Money = 家庭成员.Income
MsgBox(Money)
'vb2010中,father.Income要写成下面这个样子了
家庭成员.Income = 8000
Money = 家庭成员.Income
MsgBox(Money)
End Sub
End Module