http://www.vbex.ru/index.php?action=history&feed=atom&title=VB.Net_by_API%2FSystem.Collections%2FIEnumeratorVB.Net by API/System.Collections/IEnumerator - История изменений2026-04-05T20:59:07ZИстория изменений этой страницы в викиMediaWiki 1.30.0http://www.vbex.ru/index.php?title=VB.Net_by_API/System.Collections/IEnumerator&diff=2559&oldid=prev в 16:40, 26 мая 20102010-05-26T16:40:16Z<p></p>
<table class="diff diff-contentalign-left" data-mw="interface">
<tr style="vertical-align: top;" lang="ru">
<td colspan="1" style="background-color: white; color:black; text-align: center;">← Предыдущая</td>
<td colspan="1" style="background-color: white; color:black; text-align: center;">Версия 16:40, 26 мая 2010</td>
</tr><tr><td colspan="2" style="text-align: center;" lang="ru"><div class="mw-diff-empty">(нет различий)</div>
</td></tr></table>http://www.vbex.ru/index.php?title=VB.Net_by_API/System.Collections/IEnumerator&diff=2560&oldid=prevAdmin: 1 версия2010-05-26T12:51:16Z<p>1 версия</p>
<p><b>Новая страница</b></p><div>==IEnumerator.Current==<br />
<br />
<br />
<br />
<source lang="vbnet"> <br />
<br />
Imports System<br />
Imports System.Collections<br />
Public Class MainClass<br />
<br />
Shared Sub Main(ByVal args As String())<br />
Dim m_employees As New Collection<br />
m_employees.Add(New employee("A", "B", "Author"))<br />
m_employees.Add(New employee("C", "D", "Band"))<br />
m_employees.Add(New employee("E", "F", "Artist"))<br />
" Iterator.<br />
Dim emp As employee<br />
Dim employee_enumerator As IEnumerator<br />
employee_enumerator = m_employees.GetEnumerator()<br />
Do While (employee_enumerator.MoveNext)<br />
emp = CType(employee_enumerator.Current, Employee)<br />
Console.WriteLine(emp.Title & " " & emp.FirstName & " " & emp.LastName)<br />
Loop<br />
<br />
" For Each.<br />
For Each emp1 As employee In m_employees<br />
Console.WriteLine(emp1.Title & " " & emp1.FirstName & " " & emp1.LastName)<br />
Next emp1<br />
End Sub<br />
End Class<br />
Public Class Employee<br />
Public FirstName As String<br />
Public LastName As String<br />
Public Title As String<br />
Public Sub New(ByVal first_name As String, ByVal last_name As String, ByVal new_title As String)<br />
FirstName = first_name<br />
LastName = last_name<br />
Title = new_title<br />
End Sub<br />
End Class<br />
<br />
<br />
</source><br />
<br />
<br />
==IEnumerator.MoveNext==<br />
<br />
<br />
<br />
<source lang="vbnet"> <br />
<br />
Imports System<br />
Imports System.Collections<br />
Public Class MainClass<br />
<br />
Shared Sub Main(ByVal args As String())<br />
Dim m_employees As New Collection<br />
m_employees.Add(New employee("A", "B", "Author"))<br />
m_employees.Add(New employee("C", "D", "Band"))<br />
m_employees.Add(New employee("E", "F", "Artist"))<br />
" Iterator.<br />
Dim emp As employee<br />
Dim employee_enumerator As IEnumerator<br />
employee_enumerator = m_employees.GetEnumerator()<br />
Do While (employee_enumerator.MoveNext)<br />
emp = CType(employee_enumerator.Current, Employee)<br />
Console.WriteLine(emp.Title & " " & emp.FirstName & " " & emp.LastName)<br />
Loop<br />
<br />
" For Each.<br />
For Each emp1 As employee In m_employees<br />
Console.WriteLine(emp1.Title & " " & emp1.FirstName & " " & emp1.LastName)<br />
Next emp1<br />
End Sub<br />
End Class<br />
Public Class Employee<br />
Public FirstName As String<br />
Public LastName As String<br />
Public Title As String<br />
Public Sub New(ByVal first_name As String, ByVal last_name As String, ByVal new_title As String)<br />
FirstName = first_name<br />
LastName = last_name<br />
Title = new_title<br />
End Sub<br />
End Class<br />
<br />
<br />
</source></div>Admin