VB 2010 (29)集合
System.Collections 命名空间
https://docs.microsoft.com/zh-cn/dotnet/api/system.collections?view=netframework-4.8
类 | 说明 |
ArrayList | 实现一个数组,其大小在添加元素时自动增加 |
BitArray | 管理以位值存储的布尔数组 |
Hashtable | 实现由键组织的值的集合。排序是基于键的散列完成的 |
Queue | 实现先进先出集合 |
SortedList | 实现带有相关的键的值集合。该值按键来排序,可以通过键或索引来访问 |
Stack | 实现后进先出的集合 |
客户端
Public Class Form1
Private Sub SampleColl()
Dim objMyArrList As New System.Collections.ArrayList()
Dim objItem As Object
Dim intLine As Integer = 1
Dim strHello As String = "Hello"
Dim objWord As New System.Text.StringBuilder("World")
objMyArrList.Add(intLine)
objMyArrList.Add(strHello)
objMyArrList.Add(" "c)
objMyArrList.Add(objWord)
objMyArrList.Insert(1, ". ")
For Each objItem In objMyArrList
TextBox1.Text += objItem.ToString
Next
TextBox1.Text += vbCrLf
For Each objItem In objMyArrList
TextBox1.Text += objItem.GetType.ToString & vbCrLf
Next
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
SampleColl()
End Sub
End Class