Private Sub cmd_Open_Click()
Dim FileN$, FreeF%, T$
cmd_dlg.Filter = "文本文件(*.txt)|*.txt"
cmd_dlg.CancelError = True
On Error GoTo endsub
cmd_dlg.ShowOpen
FreeF = FreeFile
FileN = cmd_dlg.FileName
Open FileN For Input As FreeF
Line Input #FreeF, T
a_txt.Text = T
Do Until EOF(FreeF)
Line Input #FreeF, T
a_txt.Text = a_txt.Text + vbNewLine + T
Loop
Close FreeF
endsub:
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024