listview 问题 vb

来源：百度知道 编辑：UC知道 时间：2024/07/11 15:31:11
有6个TEXT，当按下按钮1时，在listview中添加一行，这一行的1-6列为text1-text6的内容，

当点击listview中的一行时，把这一行的第一列内容显示在text7中
ljl88900错了，应改成
Private Sub Command1_Click()
Dim itm As ListItem
Set itm = ListView1.ListItems.Add(, "Row" & ListView1.ListItems.Count + 1, Text1.Text)
itm.SubItems(1) = Text2.Text
itm.SubItems(2) = Text3.Text
itm.SubItems(3) = Text4.Text
itm.SubItems(4) = Text5.Text
itm.SubItems(5) = Text6.Text
End Sub
Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
Text7.Text = ListView1.SelectedItem.Text
End Sub

加一要求：按下某一行后在text8显示按下的行数

已经按要求增加显示行数（增加Key关键字）

Private Sub Form_Load()
ListView1.View = lvwReport '设置成报表样式（否则下面的都无效:D）
ListView1.FullRowSelect = True '允许整行选取（否则只能选择第一列的内容）
With ListView1.ColumnHeaders
.Clear '清空原来的列，添加正确的列标题
.Add Text:="列1" ':=用于直接设置某一个参数的值。Text:= 请不要修改
.Add Text:="列2"
.Add Text:="列3"
.Add Text:="列4"
.Add Text:="列5"
.Add Text:="列6"
End With
End Sub

Private Sub Command1_Click()
static lineCount as integer
Dim ListItem As ListItem 'ListItem就是它的一行~
Set ListItem = ListView1.ListItems.Add(Text:=Text1.Text,Key:=lineCount) '对象用Set，Text是第一列的内容
With ListItem
.SubItems(1) = Text2.Text 'SubItems从1开始，对应第二列……
.SubItems(2) = Text3.Text '第三列……
.SubItems(3) = Text4.Text
.SubItems(4) = Text5.Text
.SubItems(5) = Text6.Text
End With
End Sub

Private Sub