в 16:40, 26 мая 2010

2010-05-26T16:40:30Z

Admin: 1 версия

2010-05-26T12:55:28Z

1 версия

Новая страница

==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>
<pre class=codeResult>Jones, Bob Hired: 3/12/1988 Birthday: 7/24/1949</pre>

← Предыдущая	Версия 16:40, 26 мая 2010
(нет различий)

VB.Net Tutorial/Class Module/Class Combination - История изменений

в 16:40, 26 мая 2010

Admin: 1 версия