我这那里错了...

[yqzhanglei]

Private Sub mnuopen_Click()
Dim filedata As String, mychar As String
CommonDialog1.Filter = "Text Files (*.TXT)|*.txt|All Files (*.*)|*.*"
CommonDialog1.Flags = &H4
CommonDialog1.ShowOpen
If CommonDialog1.FileName = "" Then Exit Sub
Open CommonDialog1.FileName For Input As #1
Do While Not EOF(1)
Line Input #1, mychar
filedata = filedata & mychar & Chr$(13) & Chr$(10)
Text1.Text = fildata
Loop
End Sub
目的是在文本筐里显示打开文件的内容!!!!!
在立即窗口是能显示.但在文本筐中不能显示~~~~

[zhangxiushu]

把 Text1.Text = fildata
改作：Text1.Text=Text1.Text+filedata (当然进入循环之前保证 Text1.Text="")

[落伍者]

Private Sub mnuopen_Click()
Dim filedata As String,strline as string , mychar As String
CommonDialog1.Filter = "Text Files (*.TXT)|*.txt|All Files (*.*)|*.*"
CommonDialog1.Flags = &H4
CommonDialog1.ShowOpen
If CommonDialog1.FileName = "" Then Exit Sub
Open CommonDialog1.FileName For Input As #1
filedata =""
Do While Not EOF(1)
Line Input #1, strline
filedata = filedata & strline & Chr$(13) & Chr$(10)

Loop
Text1.Text = fildata
End Sub

[yqzhanglei]

谢谢
我弄好了