Question

VB6.0中关于LISTBOX和TEXTBOX互相传值的问题......各位帮帮忙。。。。。

在VB中，有textbox1 textbox2 textbox3 三个内容，如何把3个里面的内容设置到listbox中且在listbox中显示为text1的名字
而且保存了改变textbox1的内容还可以继续保存并且添加到listbox，最后就是关闭掉程序后再打开list内容仍然存在并且单击其中的LIST可以将3个值返回到3个textbox、、、、、、、、
各位大哥大姐帮帮忙

Answer 1

Private Sub Command1_Click()
List1.AddItem (Text1.Text & "|" & Text2.Text & "|" & Text3.Text) '将text,text2,text3中的内容添加如list1
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub

Private Sub List1_Click()
Dim S As String
S = List1.Text '读取选中的list行中的内容
v = Split(S, "|") '根据分隔符“|”来分割
Text1.Text = v(0) '将分割好的内容赋值给text
Text2.Text = v(1)
Text3.Text = v(2)
End Sub

追问

我是想把listbox中只显示text1中的内容（比如姓名），text2和3中的相当于是隐藏的（比如成绩），但点击listbox 中的姓名时，成绩都能显示出来？怎么做啊？谢谢啦、、、、、

追答

不好意思，是我没有看清楚题目，改了一下。

Private S As String
Private Sub Command1_Click()
List1.AddItem (Text1.Text)
Open "c:\1.txt" For Append As #1
Print #1, Text1.Text
Print #1, Text2.Text
Print #1, Text3.Text
Close #1
End Sub

Private Sub Form_Load()
S = String(FileLen("c:\1.txt"), " ")
Open "c:\1.txt" For Binary As #1
Get #1, , S
Close #1
v = Split(S, vbCrLf)
For i = 0 To UBound(v) - 3 Step 3
List1.AddItem v(i)
Next i
End Sub

Private Sub List1_Click()
Dim selS As String, i As Integer
selS = List1.Text
v = Split(S, vbCrLf)
For i = 0 To UBound(v)
If v(i) = selS Then
Text1.Text = v(i)
Text2.Text = v(i + 1)
Text3.Text = v(i + 2)
End If
Next i
End Sub

追问

谢谢啦！！！！感激不尽！！！！顺便问一下，如何在Private Sub Form_Load时把c:\1.txt清空啊？？

Answer 2

非常简单的，你可参考http://zhidao.baidu.com/question/263608835.html再增加点代码即可。