VB.Net Tutorial/Class Module/Class Combination
Demonstrate an object with member object reference
<source lang="vbnet">Module Tester
Sub Main() Dim employee As New CEmployee( _ "Bob", "Jones", 7, 24, 1949, 3, 12, 1988) Console.WriteLine(employee.ToStandardString()) End Sub
End Module
Class CDay
Inherits Object Private mMonth As Integer " 1-12 Private mDay As Integer " 1-31 based on month Private mYear As Integer " any year Public Sub New(ByVal monthValue As Integer, _ ByVal dayValue As Integer, ByVal yearValue As Integer) mMonth = monthValue mYear = yearValue mDay = dayValue End Sub " create string containing month/day/year format Public Function ToStandardString() As String Return mMonth & "/" & mDay & "/" & mYear End Function " ToStandardString
End Class
Class CEmployee
Inherits Object Private mFirstName As String Private mLastName As String Private mBirthDate As CDay " member object reference Private mHireDate As CDay " member object reference Public Sub New(ByVal firstNameValue As String, _ ByVal lastNameValue As String, _ ByVal birthMonthValue As Integer, _ ByVal birthDayValue As Integer, _ ByVal birthYearValue As Integer, _ ByVal hireMonthValue As Integer, _ ByVal hireDayValue As Integer, _ ByVal hireYearValue As Integer) mFirstName = firstNameValue mLastName = lastNameValue mBirthDate = New CDay(birthMonthValue, birthDayValue, _ birthYearValue) mHireDate = New CDay(hireMonthValue, hireDayValue, _ hireYearValue) End Sub " New Public Function ToStandardString() As String Return mLastName & ", " & mFirstName & " Hired: " _ & mHireDate.ToStandardString() & " Birthday: " & _ mBirthDate.ToStandardString() End Function " ToStandardString
End Class</source>
Jones, Bob Hired: 3/12/1988 Birthday: 7/24/1949