VB低级问题

来源：百度知道 编辑：UC知道 时间：2024/06/15 00:54:50
Text1 与 Combo1
Combo1以下有 1 2 3 4 5 要求选择 1 的时候 Text1 显示为 D:\1.txt
里面的内容
显示 2 的时候 Text1 显示为 D:\2.txt 里面的内容
二楼的大大!
你没有发现你这样的话.TEST1的内容会叠起? 比如.D:\1.txt 内容为 1 D:\2.txt 内容为 2
若我选择了1 再先 2 那不成了 12 了? 我希望的是仅仅显示 一个文件内容. 谢了~

Private Sub Combo1_Click()
Select Case Combo1.Text
Case 1
text1.text=""
Call OpenTxt("d:\1.txt")
Case 2
text1.text=""
Call OpenTxt("d:\2.txt")
Case 3
text1.text=""
Call OpenTxt("d:\3.txt")
Case 4
text1.text=""
Call OpenTxt("d:\4.txt")
Case 5
text1.text=""
Call OpenTxt("d:\5.txt")
End Select
End Sub

Private Sub Form_Load()
Combo1.AddItem "1"
Combo1.AddItem "2"
Combo1.AddItem "3"
Combo1.AddItem "4"
Combo1.AddItem "5"
End Sub

Sub OpenTxt(x As String)
Open x For Input As #1
Do While Not EOF(1)
Line Input #1, temp
Text1.Text = Text1.Text & temp & vbCrLf
Loop
Close #1
End Sub

加一句text1.text=""不就好了。 看来