Question

vb里listbox的用法，用text1和text2填入listbox，然后双击listbox里面填入的选择这项来确定

比如QQ的账号和密码.text1和text2，填入里面zhanghao和mima，然后再listbox里面就添加一项显示为QQhaoma，我怎么弄选择这项，然后点击确定，msgbox弹出zhanghao和mima，不知道能不能明白我的意思，就像万用私服登录器一样，能够添加IP和名字还有端口，然后添加了在listbox里就只是显示名字，但是选中它点登陆就能自动填写ip名字端口到登录器配置里面然后登陆。就想要这个怎么做的

Answer 1

用列表框的多列属性，将它列数设置为3列，其中第一列为"QQhaoma”，第二列为text1中的文本，第三列为text2中的文本,但将第二列和第三列的列宽设置为0，这样列表框将会只显示第一列即QQ号码，这样你选择其中一项的时候就可以用msgbox弹出隐藏的另外两项的内容了。

Answer 2

'点击按钮Command1添加Text1、Text2到List1
Private Sub Command1_Click()
Dim i As Integer
List1.AddItem
i = List1.ListCount - 1
List1.List(i, 0) = Text1
List1.List(i, 1) = Text2
End Sub

Private Sub List1_Click()
Dim i As Integer
i = List1.ListIndex
If i > -1 Then
MsgBox List1.List(i, 0) & vbCrLf & List1.List(i, 1)
End If
End Sub

Private Sub Form_Load()
List1.ColumnCount = 2
List1.ColumnWidths = "100;0"
End Sub

Answer 3

用两个listbox，一个存zhanghao，一个存mima（不显示，visible=false）
private sub command1_click
msgbox "zhanghao:" & list1.text & vbcrlf & "mima:" & list2.list(list1.listindex)
end sub
private sub list1_click
text1=list1.text
text2=list2.list(list1.listindex)
end sub

Answer 4

listbox只能显示一列，如果你要多个内容，需要用listview控件！具体的使用方法你百度一下就知道了~！