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