新手小白求助

Dim txt As String
Private Sub Command1_Click()
CommonDialog1.Filter = "文本文件.txt|*.TXT"
CommonDialog1.ShowOpen
Open CommonDialog1.FileName For Input As #1
Do While Not EOF(1)
Line Input #1, txttemp
txt = txt & txttemp & vbCrLf
Loop
Close #1
Text1.Text = txt
End Sub


TEXT1.multiline=true
text1.scrollbars=3-both

谢谢

lz的头像