假设你的数据都存在于数据库中,列名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