当前位置: 首页>>代码示例>>VB.NET>>正文


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;未经允许,请勿转载。