в 16:40, 26 мая 2010

2010-05-26T16:40:30Z

Admin: 1 версия

2010-05-26T12:55:31Z

1 версия

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

==Inheritance and overloads==

<source lang="vbnet">Public Class Tester
Public Shared Sub Main
Dim objBob As New Bob
objBob.Walk("Now I"m walking...")
End Sub
End Class
Public Class Person
Public Sub Walk()
Console.WriteLine("Walking...")
End Sub
End Class
Class Bob
Inherits Person
Public Overloads Sub Walk(ByVal Text As String)
Console.WriteLine(Text)
End Sub
End Class</source>
<pre class=codeResult>Now I"m walking...</pre>

==Method Overloads with different number of parameters==

<source lang="vbnet">Public Class Tester
Public Shared Sub Main
Dim Alerter As New MyMessageBox

Alerter.Alert("No Problems!")
Alerter.Alert("No Problems!", MsgBoxStyle.Exclamation)
End Sub
End Class

Public Class MyMessageBox
Public Sub Alert(ByVal Text As String)
MsgBox(Text)
End Sub
Public Sub Alert(ByVal Text As String, ByVal Icon As MsgBoxStyle)
MsgBox(Text, Icon)
End Sub
End Class</source>

==Overloads function==

<source lang="vbnet">public class Test
public Shared Sub Main
Console.WriteLine(Min(10.1, 10))
Console.WriteLine(Min("last", "first"))
Console.WriteLine(Min(#1/1/2000#, #3/4/2000#))
End Sub
Overloads Shared Function Min(ByVal dblA As Double, ByVal dblB As Double) As Double
Min = IIf(dblA < dblB, dblA, dblB)
End Function
Overloads Shared Function Min(ByVal strA As String, ByVal strB As String) As String
Min = IIf(strA < strB, strA, strB)
End Function
Overloads Shared Function Min(ByVal dteA As Date, ByVal dteB As Date) As Date
Min = IIf(dteA < dteB, dteA, dteB)
End Function

End class</source>
<pre class=codeResult>10
first
01/01/2000 12:00:00 AM</pre>

==Using overloaded methods==

<source lang="vbnet">Public Class Tester
Public Shared Sub Main
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>
<pre class=codeResult>The square of Integer 7 is 49
The square of Double 7.5 is 56.25</pre>

==Using overloaded methods to print arrays of different types==

<source lang="vbnet">Module Test
Sub Main()
Dim integerArray As Integer() = {1, 2, 3, 4, 5, 6}
Dim doubleArray As Double() = {1.1, 2.2, 3.3, 4.4, 5.5, 6.6, 7.7}
Dim charArray As Char() = {"H"c, "E"c, "L"c, "L"c, "O"c}
PrintArray(integerArray)
PrintArray(doubleArray)
PrintArray(charArray)
End Sub " Main
Sub PrintArray(ByVal inputArray() As Integer)
For Each element As Integer In inputArray
Console.Write(element.ToString() & " ")
Next element
Console.WriteLine(vbCrLf)
End Sub

Sub PrintArray(ByVal inputArray() As Double)
For Each element As Double In inputArray
Console.Write(element.ToString() & " ")
Next element
Console.WriteLine(vbCrLf)
End Sub

Sub PrintArray(ByVal inputArray() As Char)
For Each element As Char In inputArray
Console.Write(element.ToString() & " ")
Next element
Console.WriteLine(vbCrLf)
End Sub
End Module</source>
<pre class=codeResult>1 2 3 4 5 6
1.1 2.2 3.3 4.4 5.5 6.6 7.7
H E L L O</pre>

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

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

в 16:40, 26 мая 2010

Admin: 1 версия