如何让在Listbox里选中的值，如：张三，让张三的具体情况，如：身高，年龄，体重等各项值分别显示在Textbox里？

Question

各位帮帮忙

Answer 1

这个最好用数据库来解决!
首先建立数据库:
姓名 身高，年龄，体重
然后
Dim strName As String
strName=List1.Text
'建立数据库连接
set rs=conn.execute("select * from TableName where 姓名='" & strName & "'")
text1=rs!身高
text2=rs!年龄我的代码不完整,但大体思路就是这样

Answer 2

两个办法 1，把listbox里面的一行读出来，然后用截取字符串的方式来把你要的信息分别找出来放到textbox里面。
         2，就是用数据库了，上面大哥的样子。

Answer 3

ListItem有一个Tag属性，将相关的属性放到Tag里面，点击的时候读出Tag里面的内容即可。

Answer 4

一个简单的办法，利用 ItemData：
ListBox 中的每一项 List 都有一个 ItemData，是 Long 型的（4字节），完全可以容纳你的年龄(<256)、身高（单位厘米<256）、体重数据。'例子（从数据库填充数据到 ListBox）：
Do Until rs.EOF
   List1.AddItem rs!UserName
   List1.ItemData(List1.NewIndex) = rs!Weight * 65536 + rs!Age * 256 + rs!Height
   rs.MoveNext
Loop'取数据
Private Sub List1_Click()
   txtHeight = List1.ItemData(List1.ListIndex) Mod 256
   txtAge =  (List1.ItemData(List1.ListIndex) Mod 65535)\256
   txtWeight = List1.ItemData(List1.ListIndex) \ 65535
End Sub