в 16:40, 26 мая 2010

2010-05-26T16:40:30Z

Admin: 1 версия

2010-05-26T12:55:42Z

1 версия

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

==ParamArray Parameter (Variable Args)==

<source lang="vbnet">Module Module1
Sub Main()
ShowMessage("Hello there!")
ShowMessage("Hello", " there!")
End Sub
Sub ShowMessage(ByVal ParamArray Text() As String)
Dim i As Integer
For i = 0 To UBound(Text)
System.Console.Write(Text(i))
Next i
End Sub
End Module</source>
<pre class=codeResult>Hello there!Hello there!"</pre>

==Using ParamArray to create variable-length parameter lists.==

<source lang="vbnet">Module Tester
Sub Main()
AnyNumberArguments()
AnyNumberArguments(2, 3)
AnyNumberArguments(7, 8, 9, 10)
End Sub " Main
Sub AnyNumberArguments(ByVal ParamArray array1 _
As Integer())
Dim i, total As Integer
total = 0
If array1.Length = 0 Then
Console.WriteLine(" received 0 arguments.")
Else
Console.Write("The total of ")
For i = 0 To array1.GetUpperBound(0)
Console.Write(array1(i) & " ")
total += array1(i)
Next
Console.WriteLine("is {0}.", total)
End If
End Sub
End Module</source>
<pre class=codeResult>received 0 arguments.
The total of 2 3 is 5.
The total of 7 8 9 10 is 34.</pre>

==Varied length Method parameter==

<source lang="vbnet">Option Strict On
Imports System
Class Tester
Public Shared Sub DisplayVals(ByVal ParamArray intVals( ) As Integer)
Dim i As Integer
For Each i In intVals
Console.WriteLine("DisplayVals {0}", i)
Next i
End Sub
Shared Sub Main( )
Dim a As Integer = 5
Dim b As Integer = 6
Dim c As Integer = 7
Console.WriteLine("Calling with three Integers")
DisplayVals(a, b, c)
Console.WriteLine("Calling with four Integers")
DisplayVals(5, 6, 7, 8)
Console.WriteLine("calling with an array of four Integers")
Dim explicitArray( ) As Integer = {5, 6, 7, 8}
DisplayVals(explicitArray)
End Sub
End Class</source>
<pre class=codeResult>Calling with three Integers
DisplayVals 5
DisplayVals 6
DisplayVals 7
Calling with four Integers
DisplayVals 5
DisplayVals 6
DisplayVals 7
DisplayVals 8
calling with an array of four Integers
DisplayVals 5
DisplayVals 6
DisplayVals 7
DisplayVals 8</pre>

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

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

в 16:40, 26 мая 2010

Admin: 1 версия