vb6.0 中listview 的问题 ,hurry!!!

shenkan007 2007-09-18 08:48:22
想实现在鼠标双击listview中的某一项后,该行的所有字段的值都显示在响应的text中,
例如有这么一个listview显示的列表如下:
姓名 年龄
张三 18
李四 20
当我双几关于张三的任意字段(姓名,或者年龄),在两个text中一个显示 张三 一个显示18..
这个到底怎么写,刚刚接触listview 希望大家见凉 ..
...全文
106 1 打赏 收藏 转发到动态 举报
写回复
用AI写文章
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
daisy8675 2007-09-18
  • 打赏
  • 举报
回复
Private Sub Form_Load()
With Me.ListView1
.View = lvwReport
.ListItems.Clear
.FullRowSelect = True

.GridLines = True
.ColumnHeaders.Clear
.ColumnHeaders.Add , , "Name"
.ColumnHeaders.Add , , "Age"

.ListItems.Add , , "张三"
.ListItems(1).SubItems(1) = "18"
.ListItems.Add , , "李四"
.ListItems(2).SubItems(1) = "19"
.ListItems.Add , , "王五"
.ListItems(3).SubItems(1) = "25"
End With
End Sub

Private Sub ListView1_Click()
Me.txtName.Text = Me.ListView1.SelectedItem.Text
Me.txtAge.Text = Me.ListView1.SelectedItem.SubItems(1)

End Sub

1,216

社区成员

发帖
与我相关
我的任务
社区描述
VB 数据库(包含打印,安装,报表)
社区管理员
  • 数据库(包含打印,安装,报表)社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧