2个回答
推荐于2017-11-26
展开全部
Private Sub Form_click()
Dim a$
Open "c:\1.txt" For Input As #1
Do
Input #1, a
Text1.Text = Text1.Text & a & vbCrLf
Loop Until EOF(1)
Close #1
End Sub
貌似1楼的只能读取1行而已。。
Dim a$
Open "c:\1.txt" For Input As #1
Do
Input #1, a
Text1.Text = Text1.Text & a & vbCrLf
Loop Until EOF(1)
Close #1
End Sub
貌似1楼的只能读取1行而已。。
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
2013-09-02
展开全部
dim a as stringopen "c:\1.txt" for input as #1 '文件路径可以修改input #1,aclose #1text1=a
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询