VB.NET IEnumerator.MoveNext方法代碼示例

本文整理匯總了VB.NET中System.Collections.IEnumerator.MoveNext方法的典型用法代碼示例。如果您正苦於以下問題：VB.NET IEnumerator.MoveNext方法的具體用法？VB.NET IEnumerator.MoveNext怎麽用？VB.NET IEnumerator.MoveNext使用的例子？那麽, 這裏精選的方法代碼示例或許可以為您提供幫助。您也可以進一步了解該方法所在類System.Collections.IEnumerator的用法示例。

在下文中一共展示了IEnumerator.MoveNext方法的2個代碼示例，這些例子默認根據受歡迎程度排序。您可以為喜歡或者感覺有用的代碼點讚，您的評價將有助於係統推薦出更棒的VB.NET代碼示例。

示例1: PeopleEnum

' When you implement IEnumerable, you must also implement IEnumerator.
Public Class PeopleEnum
    Implements IEnumerator

    Public _people() As Person

    ' Enumerators are positioned before the first element
    ' until the first MoveNext() call.
    Dim position As Integer = -1

    Public Sub New(ByVal list() As Person)
        _people = list
    End Sub

    Public Function MoveNext() As Boolean Implements IEnumerator.MoveNext
        position = position + 1
        Return (position < _people.Length)
    End Function

    Public Sub Reset() Implements IEnumerator.Reset
        position = -1
    End Sub

    Public ReadOnly Property Current() As Object Implements IEnumerator.Current
        Get
            Try
                Return _people(position)
            Catch ex As IndexOutOfRangeException
                Throw New InvalidOperationException()
            End Try
        End Get
    End Property
End Class

開發者ID:VB.NET開發者，項目名稱:System.Collections，代碼行數:33，代碼來源:IEnumerator.MoveNext

示例2: MainClass

' 導入命名空間
Imports System
Imports System.Collections

Public Class MainClass
    
    Shared Sub Main(ByVal args As String())
        Dim m_employees As New Collection

        m_employees.Add(New employee("A", "B", "Author"))
        m_employees.Add(New employee("C", "D", "Band"))
        m_employees.Add(New employee("E", "F", "Artist"))

        ' Iterator.
        Dim emp As employee
        Dim employee_enumerator As IEnumerator

        employee_enumerator = m_employees.GetEnumerator()

        Do While (employee_enumerator.MoveNext)
            emp = CType(employee_enumerator.Current, Employee)
            Console.WriteLine(emp.Title & " " & emp.FirstName & " " & emp.LastName)
        Loop


        ' For Each.
        For Each emp1 As employee In m_employees
            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

開發者ID:VB程序員，項目名稱:System.Collections，代碼行數:44，代碼來源:IEnumerator.MoveNext

注：本文中的System.Collections.IEnumerator.MoveNext方法示例由純淨天空整理自Github/MSDocs等開源代碼及文檔管理平台，相關代碼片段篩選自各路編程大神貢獻的開源項目，源碼版權歸原作者所有，傳播和使用請參考對應項目的License；未經允許，請勿轉載。