VB 老旧版本维护系列---1
迷之集合
‘定义一个字符串
Dim dataType_ImageStr As String = “2023,2091,2092,2096,2212”
‘将字符串转化为数组
Dim dataType_Image() As String = dataType_ImageStr.Split(“,”)
‘将数组转化为数组集合
Dim DataType_ImageList As ArrayList = ArrayList.Adapter(dataType_Image)
‘对数组集合的item做操作
If DataType_ImageList.Contains(TypeName) Then
Msg = “此类型存在集合中”
Else
Msg = “不存在此项”
End If
具体方法：
引入集合dll Imports System.Collections.Generic
Function GetDataItemType(ByVal TypeName As String) As String
Dim dataType_ImageStr As String = “2023,2091,2092,2096,2212”
Dim dataType_Image() As String = dataType_ImageStr.Split(“,”)
Dim DataType_ImageList As ArrayList = ArrayList.Adapter(dataType_Image)
Dim Msg As String = “”
If DataType_ImageList.Contains(TypeName) Then
Msg = “此类型存在集合中”
Else
Msg = “不存在此项”
End If
Return Msg
End Function