vb中listview如何显示数据库内容
vb中listview如何显示数据库内容?并且每行的首部都带有复选框供选择,选择完后可以取得选中行的某列数据?VC中我会用,但是到了VB中就不行了。...
vb中listview如何显示数据库内容?并且每行的首部都带有复选框供选择,选择完后可以取得选中行的某列数据?VC中我会用,但是到了VB中就不行了。
展开
展开全部
第一步:添加列头
可在form_load里边添加,如下:
'初始化
ListView1.FullRowSelect = True '(允许整行选择)
listview1.gridlines=true '(显示网格)
listview1.checkboxs=true '显示checkboxs框
listview1.view=3 '以报表形式显示
ListView1.ColumnHeaders.Clear
ListView1.ColumnHeaders.Add 1, , "姓名", 1000
ListView1.ColumnHeaders.Add 2, , "性别", 500
ListView1.ColumnHeaders.Add 3, , "职称", 1500
ListView1.ColumnHeaders.Add 4, , "电话", 1000
第二步,添加数据
Dim itmX As ListItem
Set itmX = lvw.ListItems.Add(参数,参数,参数,……) '这些参数都可以为空,具体你可以看看msdn
itmX.text="李四"
itmX.SubItems(1) = "雄性"
itmX.SubItems(2) = "大将军"
itmX.SubItems(3) = "10086"
第三步,取得行数据
Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
Text1 = Item.Text
Text2 = Item.SubItems(1)
Text3 = Item.SubItems(2)
Text4 = Item.SubItems(3)
End Sub
试一试就能知道怎么用了,快去试试吧
可在form_load里边添加,如下:
'初始化
ListView1.FullRowSelect = True '(允许整行选择)
listview1.gridlines=true '(显示网格)
listview1.checkboxs=true '显示checkboxs框
listview1.view=3 '以报表形式显示
ListView1.ColumnHeaders.Clear
ListView1.ColumnHeaders.Add 1, , "姓名", 1000
ListView1.ColumnHeaders.Add 2, , "性别", 500
ListView1.ColumnHeaders.Add 3, , "职称", 1500
ListView1.ColumnHeaders.Add 4, , "电话", 1000
第二步,添加数据
Dim itmX As ListItem
Set itmX = lvw.ListItems.Add(参数,参数,参数,……) '这些参数都可以为空,具体你可以看看msdn
itmX.text="李四"
itmX.SubItems(1) = "雄性"
itmX.SubItems(2) = "大将军"
itmX.SubItems(3) = "10086"
第三步,取得行数据
Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
Text1 = Item.Text
Text2 = Item.SubItems(1)
Text3 = Item.SubItems(2)
Text4 = Item.SubItems(3)
End Sub
试一试就能知道怎么用了,快去试试吧
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询