vb 根据文本框的数字读取文本

如何让我的程序在点击一个按钮后根据text1文本框里的数字读取相应的文本，例如：用户text1文本框里输入“21”然后点击这个按钮，然后程序读取“music\url\21.txt"文本文档里的内容，并且把里面的内容写进text1文本框里。输入”22“，就读取"music\url\22.txt"输入”23“，就读取”music\url\23.txt"……如此类推

答案：open "c:\music\url\" & text1.text & ".txt for input as #250
 
 
团队“古木林”的团长——巫师 的完善答案：
代码：
Private Sub Command1_Click()
On Error GoTo E
    Dim FileName As String
    Dim Temp As String
    FileName = App.Path & "\music\url\" & Text1.Text & ".txt"
    Text1.Text = ""
    Open FileName For Input As #1
        Do While Not EOF(1)
            Line Input #1, Temp
            Text1.Text = Text1.Text & Temp & vbCrLf
        Loop
        Text1.Text = Left(Text1.Text, Len(Text1.Text) - 2) '删除多余的回车符号，占用两个字位
    Close #1
    Exit Sub
E:
    MsgBox Error, , "错误"
End Sub
 
 
为了让Text能换行显示并有滚动条，我们将修改一些属性:
 
 
 
 
————————————————————————————————
我把源码发到你的邮箱里去，你去看看吧。
还有，我们急需采纳，请尽快采纳我们。谢谢！
 
 
 
 
我们这是VB 6.0的，不是.net的
dim url
url="music\url\"+text1.text+".txt"
'下面只要读取变量url就行了
Private Sub Command1_Click()
Dim a, txt As String
a = "F:\12\" & Text1.Text & ".txt"    ‘“F:\....”文件位置
Text1.Text = ""
Open a For Input As #1
Do While Not EOF(1)
Line Input #1, txt
Text1 = Text1 + txt + vbNewLine
Loop
Close #1
End Sub

上一个：vb按键语法
下一个：vb.net文本加密与解密代码