VB.Net中文教程(12) 共享成员(Shared Member)

Imports System.WinForms

@#----------------------------------------------------------------------

Class Employee

Private Shared temp As Double

Private emp_name As String

Private salary As Double

Shared Sub New()

temp = 0

End Sub

Public Overloads Sub New(ByVal na As String)

emp_name = na

End Sub

Public Overloads Sub New(ByVal na As String, ByVal s As Double)

emp_name = na

salary = s

End Sub

Public Sub addSalaryTo(ByVal emp As Employee , ByVal money As Double)

salary = emp.salary + money

End Sub

Public Sub Display()

MessageBox.Show("Name: " + emp_name + " Salary: " + str(salary))

End Sub

End Class

@#------------------------------------------------------------------------------