в 16:40, 26 мая 2010

2010-05-26T16:40:30Z

Admin: 1 версия

2010-05-26T12:53:57Z

1 версия

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

==For Each with Collection==

<source lang="vbnet">Imports System.Collections

public class Test
public Shared Sub Main
Dim m_employees As New Collection
m_employees.Add(New employee("A", "F", "F"))
m_employees.Add(New employee("B", "E", "H"))
m_employees.Add(New employee("C", "D", "I"))

For Each emp1 As employee In m_employees
If emp1.FirstName = "A" Then Continue For
Console.WriteLine(emp1.Title & " " & emp1.FirstName & " " & emp1.LastName)
Next emp1
End Sub
End class

Public Class Employee
Public FirstName As String
Public LastName As String
Public Title As String
Public Sub New(ByVal first_name As String, ByVal last_name As String, ByVal new_title As String)
FirstName = first_name
LastName = last_name
Title = new_title
End Sub
End Class</source>
<pre class=codeResult>H B E
I C D</pre>

==Use For Each to loop through Array==

<source lang="vbnet">Option Strict On
Imports System
Public Class Employee
Private empID As Integer
Public Sub New(ByVal empID As Integer)
Me.empID = empID
End Sub
Public Overrides Function ToString( ) As String
Return empID.ToString( )
End Function
End Class

Class Tester
Shared Sub Main( )

Dim intArray( ) As Integer
Dim empArray( ) As Employee
intArray = New Integer(5) {}
empArray = New Employee(3) {}

Dim i As Integer
For i = 0 To empArray.Length - 1
empArray(i) = New Employee(i + 5)
Next i

Console.WriteLine("The Integer array...")
Dim intValue As Integer
For Each intValue In intArray
Console.WriteLine(intValue.ToString( ))
Next

Console.WriteLine("The employee array...")
Dim e As Employee
For Each e In empArray
Console.WriteLine(e)
Next
End Sub "Run
End Class</source>
<pre class=codeResult>The Integer array...
0
0
0
0
0
0
The employee array...
5
6
7
8</pre>

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

VB.Net Tutorial/Statements/For Each - История изменений

в 16:40, 26 мая 2010

Admin: 1 версия