VB中如何实现单击listview中的一行，让text显示该行某列的值！！

Posted 2023-04-16

问题如题：VB中如何单击listview中的一行，让text显示该行某列的值！！
请各位大侠，高手不吝赐教，给出完整的代码，谢谢啦！！！！
比如，listview里有10行，我现在用鼠标单击第二行，我要让text1.text显示第二行第1列的内容

参考技术A Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
text1.Text =Item.Text
End Sub 参考技术B 数据集应该获取到了吧？假设数据集为ds
listview.datasource=ds.Tables(0)
listview.displaymember="列名" 参考技术C listview1.listitems(1).setected:=ture 参考技术D Private Sub Command1_Click()
Text1.Text = ListView1.SelectedItem.SubItems(1)
End Sub本回答被提问者采纳

vb中如何让一个按钮调用另一个按钮中的数组

我要在文本框中一次只输入一个数，单击按钮后，把在文本框中输入的那些数据存在一个数组中，当按另一个按钮时会重新调用数组进行加法运算，请高手指点，最好有vb代码，非常感谢，回答完后将追加所有我的分数！！！！，谢谢。万分感激！！！

窗体上有两个command 一个text
运行程序时在文本框输入一个数,然后单击command1,此时数据已存入数组. 注意输入数据后,只能在单击command1后这个数才能存入数组. 其实一楼已回答了,只是有点不足,稍作修改,如果要求text 对非数字不响应的话,还需要调用个函数. 这里为了省事,就没写出来,如有需要再HI
代码如下
Dim a()
Private Sub Command1_Click()
Static i As Integer
i = i + 1
ReDim Preserve a(i)
a(i) = Val(Text1)
Text1 = ""
Text1.SetFocus
End Sub
Private Sub Command2_Click()
For i = 0 To UBound(a)
Sum = Sum + Val(a(i))
Next i
MsgBox Sum
End Sub
Private Sub Form_Load()
Me.Show
Text1 = ""
Text1.SetFocus
End Sub 参考技术A dim a()
dim i as integer
dim sum as integer
i=0

'==========按钮一代码
i=i+1
a(i)=val(text1.text)‘========text1是你文本框的名称

'==========按钮二代码
for j=1 to i 'i就是点击按钮一的次数，就是输入了多少个数
sum=sum+a(j)
print sum'在程序界面输出结果 参考技术B 定义一个模块级的数组不就行了。追问

想请教高手能否在另一个窗体2中用一个命令按钮调用窗体1中command建立的数组来绘图，横坐标为数组（1 2 3 4 5 6 7 8 9 ），纵坐标为

追答

那你就定义一个全局数组变量呀。在一个公共模块里面用public 你的数组（）来定义一个全局的数组，然后窗体一的command点击就把数据写入这个数组。然后在另外个窗体直接调用这个数组不就成了。这是最简单的方法，但是每次点击窗体一的按钮的时候你要从新清空数组。这就要用到动态数组的概念，我认为，首先你要弄清楚不同作用域的变量使用范围的概念。然后在弄清如何动态的定义数组，修改数组。就能解决你的问题了。具体的方法你可以百度，或者看教科书。直接写答案对你的帮助不大，人都是有惰性的，有现成的答案肯定就直接照抄了，还是自己多摸索，多尝试，失败几次反而加深印象，对你的进步也有好处。

参考技术C Dim a()
Private Sub Command1_Click()
Static i As Integer
i = i + 1
ReDim Preserve a(i)
a(i) = Text1
End Sub

Private Sub Command2_Click()
For i = 0 To UBound(a)
Sum = Sum + Val(a(i))
Next
MsgBox Sum
End Sub