VB代码,打开txt文本并把内容显示在text控件里?

Question

代码怎么写?
要详细的,谢谢,因为是初学
补充下：一个按钮控件，一个text控件，点按钮，手动打开相关txt文本，把内容显示在text控件里，

因为财富不多，所以想事后才追加的~不要见怪哇
==========================================

啊，运行错误：类型不匹配
=======================
input 1,inputdata 语法错误

Answer 1

Private Sub Command1_Click()
x = "C:\Documents and Settings\stu\桌面\11.txt" '你要读取的TXT文件路径
Open x For Input As #1
Do While Not EOF(1)
Input #1, aa
Loop
Text1.Text = aa
End Sub

Answer 2

添加一个CommandDialog

dim a as string, inputdata as string
commanddialog1.filename=""
commanddialog1.filter="*.txt|*.txt"
a=commanddialog1.filename
open a for input as #1
do while not EOF(1)
input #1,inputdata
loop
text1.text=inputdata & vbcrlf本回答被提问者采纳