锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net数组添加元素 vb如何给数组赋值( 三 )

IT技术Latent


Private Sub Form_load()
'确保ListView控件的view属性为报表视图 。
ListView1.View=lvwReport
'添加三列 。
ListView1.ColumnHeaders.Add,"Name","姓名"
ListView1.ColumnHeaders.Add,"Sex","性别"
ListView1.ColumnHeaders.Add,"Age","年龄"
'向控件添加ListItem对象 。
Dim itmX As ListItem
'添加column1的名称 。
Set itmX=ListView1.ListItems.Add(1,"ZL","张力")
'使用SubItemIndex将SubItem与正确的ColumnHeader关联 。使用关键字("Sex")指定正确的ColumnHeader 。
itmX.SubItems(ListView1.ColumnHeaders("Sex").SubItemIndex)="男"
'使用ColumnHeader关键字将SubItems字符串与
'正确的ColumnHeader关联 。
itmX.SubItems(ListView1.ColumnHeaders("Age").SubItemIndex)="19"
Set itmX=ListView1.ListItems.Add(1,"LF","李芳")
itmX.SubItems(ListView1.ColumnHeaders("Sex").SubItemIndex)="男"
itmX.SubItems(ListView1.ColumnHeaders("Age").SubItemIndex)="22"
Set itmX=ListView1.ListItems.Add(1,"WW","王伟")
itmX.SubItems(ListView1.ColumnHeaders("Sex").SubItemIndex)="男"
itmX.SubItems(ListView1.ColumnHeaders("Age").SubItemIndex)="24"
End Sub
Private Sub ListView1_ColumnClick(ByVal ColumnHeader As ComctlLib.ColumnHeader)
Select Case ColumnHeader.Key
Case "Sex":ListView1.SortKey=1
ListView1.SortOrder=lvwAscending
ListView1.Sorted=True
Case "Age":ListView1.SortKey=2
ListView1.SortOrder=lvwAscending
ListView1.Sorted=True
End Select
End Sub
VB.net ListBox 的值怎样添加？用ListView的方法比较简单，直接添加一个控件顺便把0001写到Tag属性里去就行了 。如果只用ListBox的话 ， 
先创建一个类代表城市
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需要这个函数来显示
Return Name
End Function
End Class
然后把这个类的实例添加进去即可 ， 比如：
ListBox1.Items.Add(New City("北京", "0001"))
读取的话就很简单，比如我要读第一项
Dim obj = ListBox1.Items(0)
If TypeOf obj Is City Then
Dim c As City = obj
'c.Name就是"北京"，c.Num就是"0001"了
End If
遍历之类的可以灵活使用 ， 你也可以在类里面加些其它内容 。
【vb.net数组添加元素 vb如何给数组赋值】vb.net数组添加元素的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vb如何给数组赋值、vb.net数组添加元素的信息别忘了在本站进行查找喔 。

推荐阅读


上一篇：国二考试C语言怎么调试程序，国二c语言程序设计题怎么给分

下一篇：益智小游戏视频挖掘机教案，幼儿益智挖掘机视频