Question

vb如何使程序文件夹下的1.txt中的内容加载到程序中的text1.text中。

Answer 1

dim sTem as string
open app.path+"\1.txt" for input as #1
input #1,stem
text1.text=stem
close #1

Answer 2

Open app.path & "\1.txt" For Input As #1
Do Until EOF(1)
Input #1, a
b = b & a
Loop
Text1.Text = b