в 16:40, 26 мая 2010

2010-05-26T16:40:06Z

Admin: 1 версия

2010-05-26T12:42:49Z

1 версия

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

==Overload Constructor Demo==

<source lang="vbnet">
Imports System
Public Class MainClass
Shared Sub Main(ByVal args As String())
Dim timeObject As New Time(2005, 3, 25, 9, 35)
Dim t2 As New Time(timeObject)
timeObject.DisplayCurrentTime( )
t2.DisplayCurrentTime( )
End Sub
End Class
Public Class Time
" Private variables
Private Year As Integer
Private Month As Integer
Private Day As Integer
Private Hour As Integer
Private Minute As Integer
Private Second As Integer = 30
" Public methods
Public Sub DisplayCurrentTime( )
System.Console.WriteLine("{0}/{1}/{2} {3}:{4}:{5}", _
Month, Day, Year, Hour, Minute, Second)
End Sub "DisplayCurrentTime
Public Sub New( _
ByVal theYear As Integer, _
ByVal theMonth As Integer, _
ByVal theDate As Integer, _
ByVal theHour As Integer, _
ByVal theMinute As Integer)
Year = theYear
Month = theMonth
Day = theDate
Hour = theHour
Minute = theMinute
End Sub
Public Sub New(existingObject As Time)
Year = existingObject.Year
Month = existingObject.Month
Day = existingObject.Day
Hour = existingObject.Hour
Minute = existingObject.Minute
Second = existingObject.Second
End Sub
End Class "Time

</source>

==Using overloaded methods: Integer and Double==

<source lang="vbnet">
Imports System
Public Class MainClass
Shared Sub Main(ByVal args As String())
Console.WriteLine( "The square of Integer 7 is " & _
Square(7) & vbCrLf & "The square of Double " & _
"7.5 is " & Square(7.5) )
End Sub
Shared Function Square(ByVal value As Integer) As Integer
Return Convert.ToInt32(value ^ 2)
End Function " Square
Shared Function Square(ByVal value As Double) As Double
Return value ^ 2
End Function " Square
End Class

</source>

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

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

в 16:40, 26 мая 2010

Admin: 1 версия