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

Posted 2023-04-16

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

参考技术A 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

本回答被提问者采纳

vb.net 点击按钮选中listview最后一行

我用vb.net写的一款超市管理软件，现在遇到一个问题。。。就是textbox里填写代码，在listview 中加载完数据以后聚焦focus是回到textbox的。我想在textbox的key-down事件中加入+好按钮选中listview最后一行的代码上犯难了。。。别人的代码如图所示，即使在textbox中聚焦，也可以选中listview的最后一行还能用加减号来添加删除数量。添加删除数量的代码我写好了 但是前提是 不动用鼠标单机选择listview一行的情况下，如何选择listview最后一行的数据呢。。。。先给30分，答得满意我在补充20分。求高手

参考技术A Me.ListView1.Items(Me.ListView1.Items.Count - 1).Selected = True
Me.ListView1.EnsureVisible(Me.ListView1.Items.Count - 1)

追问

现在可以选择每次输入的一行了，大神在告诉我下 我要是想在textbox中用加减号管理所选行的某个列的数值该怎么做？我在listview1_keydown属性中编写的按加减号改变数量的代码怎么运用到textbox中？这个问题在帮我 我立马100分

本回答被提问者和网友采纳