VB.NET中IDictionaryEnumerator使用示例

Imports System.Collections
Imports System
Imports Microsoft.VisualBasic
Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Button1.Click
        Dim myHT As New Hashtable()
        myHT.Add("First","Hello")
        myHT.Add("Second","World")
        myHT.Add("Third","!")
        '''''''''''''''''''显示''''''''''''''
        Dim myEnumerator As IDictionaryEnumerator = myHT.GetEnumerator()
        TextBox1.Text = ControlChars.Tab + "-KEY" + ControlChars.Tab + "-VALUE"
        While myEnumerator.MoveNext()
            ListView1.Items.Add(ControlChars.Tab + myEnumerator.Key + ControlChars.Tab + myEnumerator.Value)
        End While
    End Sub
End Class

运行效果截图：

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!