显示文本文档的内容,一般用文本框来实现,当然,如果是比较规则的文本,也可以用表格控件,列表框控件等来实现,下面,以文本框为例,演示如何显示文本文档的内容
'运行之前 , 请先在窗体上添加一个文本框,
'并设置Multiline属性为True,ScrollBars属性为True
Private Sub Form_Load()
Dim S1 As String, S2 As String
Open "C:\a.txt" For Input As #1
'请将路径换成你要打开的文本文件的文件路径及文件名
While Not EOF(1)
Line Input #1, S1
S2 = S2 & S1 & IIf(EOF(1), "", vbCrLf)
Wend
Text1.Text = S2
End Sub
Private Sub Form_Resize()
Text1.Move 0, 0, Form1.ScaleWidth, Form1.ScaleHeight
End Sub
温馨提示:答案为网友推荐,仅供参考