Question

vb listview上被选择的多个行的某个列的内容怎样得到？

vb窗体上有一个listview1控件（有四列），一个text1文本框控件，一个按钮command1。现在如果在listview1上选择三行，然后点击command1按钮，怎样在text1中自动输入被选择的行的第三列的内容，并把它们用逗号分开？
如上图，如果被选择的行是前三行，点击command1后，text1输入的内容应该是1，2，3。如果选择的行是第二、第三、第四行，点击command1后，text1输入的内容应该是：2，3，4。

Answer 1

Private Sub Command1_Click()
Text1.Text = ""
For i = 1 To ListView1.ListItems.Count
If ListView1.ListItems(i).Checked Then
Text1.Text = Text1.Text & ListView1.ListItems(i).SubItems(2) & ","
End If
Next
Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1)
End Sub

追问

如果没有任何行Checked，调试会出错： Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1。可以避免不？

追答

Private Sub Command1_Click()
Text1.Text = ""
For i = 1 To ListView1.ListItems.Count
If ListView1.ListItems(i).Checked Then
Text1.Text = Text1.Text & ListView1.ListItems(i).SubItems(2) & ","
End If
Next
If Text1.Text = "" Then Exit Sub
Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1)
End Sub

追问

在不选任何行的情况下测试结果：实时错误5,无效的过程调用和参数

追答

在哪一行出错，我经测试不选任何行的情况下正常
还有你的属性设置？
Private Sub Command1_Click()
Text1.Text = ""
For i = 1 To ListView1.ListItems.Count
‘If ListView1.ListItems(i).Selected Then '采用“多重选择”
If ListView1.ListItems(i).Checked Then '采用“复选框”
Text1.Text = Text1.Text & ListView1.ListItems(i).SubItems(2) & ","
End If
Next
If Text1.Text = "" Then Exit Sub
Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1)
End Sub

我经测试没问题呀

也不知是哪行出错，检查一下属性设置

Private Sub Command1_Click()

    Text1.Text = ""

    For i = 1 To ListView1.ListItems.Count

        'If ListView1.ListItems(i).Selected Then '采用“多重选择” .MultiSelect = True

        If ListView1.ListItems(i).Checked Then '采用“复选框” .Checkboxes = True

            Text1.Text = Text1.Text & ListView1.ListItems(i).SubItems(2) & ","

        End If

    Next

    If Text1.Text = "" Then Exit Sub

    Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1)

End Sub