用ListView的方法比較簡(jiǎn)單,直接添加一個(gè)控件順便把0001寫到Tag屬性里去就行了。如果只用ListBox的話,
成都創(chuàng)新互聯(lián)公司專注于勉縣企業(yè)網(wǎng)站建設(shè),響應(yīng)式網(wǎng)站,商城網(wǎng)站建設(shè)。勉縣網(wǎng)站建設(shè)公司,為勉縣等地區(qū)提供建站服務(wù)。全流程按需求定制網(wǎng)站,專業(yè)設(shè)計(jì),全程項(xiàng)目跟蹤,成都創(chuàng)新互聯(lián)公司專業(yè)和態(tài)度為您提供的服務(wù)
先創(chuàng)建一個(gè)類代表城市
Public Class City
Public Name As String
Public Num As String
Public Sub New(na As String, nu As String)
Name = na
Num = nu
End Sub
Public Overrides Function ToString() As String 'ListBox需要這個(gè)函數(shù)來(lái)顯示
Return Name
End Function
End Class
然后把這個(gè)類的實(shí)例添加進(jìn)去即可,比如:
ListBox1.Items.Add(New City("北京", "0001"))
讀取的話就很簡(jiǎn)單,比如我要讀第一項(xiàng)
Dim obj = ListBox1.Items(0)
If TypeOf obj Is City Then
Dim c As City = obj
'c.Name就是"北京",c.Num就是"0001"了
End If
遍歷之類的可以靈活使用,你也可以在類里面加些其它內(nèi)容。
使用動(dòng)態(tài)定義
ReDim a() AS **********'定義一個(gè)動(dòng)態(tài)數(shù)組
...........
計(jì)算出第一個(gè)Y
ReDim a(0)
a(0)=Y
.....................
計(jì)算出第二個(gè)Y
ReDim Preserve a(1) '再次分配元素并保留原有元素
a(1) =Y
.........................
.........................
ReDim Preserve a(N) '第N次分配元素并保留原有元素
a(N) =Y
list1.additem j 意思就是把j添加至list1列表中,這是在一個(gè)for 循環(huán)中,循環(huán)了10次,添加了10次 j,即 list1 中 有10列分別為:1,3,6,10,15,21,28,36,45,55
下面又來(lái)了一個(gè)循環(huán), list1.removeitem 刪除列,刪除的是 list1.listcount - i ,list1.listcount 就是總列數(shù)為10,減去 i ,i 是1到4,即10-1,9-2,8-3,7-4 每減掉一次,list1.listcount 就少了一條記錄。
(注意,list1.listcount-1 是最后一條記錄)
減掉了第 9,7,5,3列
剩余為 1,3,6,15,28,45
結(jié)果為:3,15,28
'ListCount返回列表框中的項(xiàng)目總數(shù)
'ListCount-1是列表框中最后一個(gè)項(xiàng)目的索引號(hào)
'虧你提醒了,我寫錯(cuò)了,上面修改了,第一個(gè)索引為0,最后一個(gè)為9.
'也就是,問(wèn)題所問(wèn)的第二列的索引為1,第四列的索引為3...
Dim
sl
As
New
ArrayList
sl.Add("單個(gè)字符串")
Dim
sa
As
String()
=
{"a",
"b",
"c"}
sl.AddRange(sa)
'添加字符數(shù)組
Dim
objs
As
Object()
=
sl.ToArray
'將數(shù)據(jù)轉(zhuǎn)換為數(shù)組
注意,ArrayList不是類型安全的集合方式,如果你的集合只要存儲(chǔ)字符串的話,建議用List(Of
String)來(lái)進(jìn)行操作。