VB 如何让ListView选中的内容显示在Textbox中

Posted 2023-03-19

有一个ListView控件，名字是ListView1
还有一TextBox控件，名字是TextBox1
我的目的是：选定ListView1中的一项时，将选定项的内容输出到文本框TextBox1中，
代码该怎么写啊？哪位高手能帮帮我？

假设你的数据都存在于数据库中，列名content，并且listview的首列是主键值id，还有已经建立了一个数据库连接对象Conn，那么可以在listview_itemclick事件代码中这样写：
Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
Dim sql As String
Dim rs As ADODB.Recordset
sql = "select content from article where id=" & Item.Text
Set rs = Conn.Execute(sql)
If Not rs.EOF Then
TextBox1.Text = rs(1)
End If
rs.Close
End Sub

或许我把你的问题想得复杂了点，你要取得内容就在listview里面，那么这样写：
Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
TextBox1.Text = item.subitems(1) '假设你的内容是存放在第2列
End Sub 参考技术A '获取点击的内容
Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)'ItemClick：单击某行或某ListItem时触发。参数中可以获得被单击的ListItem对象。
Dim intX As Integer '定义一个整数变量
intX = ListView1.SelectedItem.Index
TextBox1.Text= ListView1.ListItems(intX).Text
End Sub