展开全部
显示文本文档的内容,一般用文本框来实现,当然,如果是比较规则的文本,也可以用表格控件,列表框控件等来实现,下面,以文本框为例,演示如何显示文本文档的内容
'运行之前 , 请先在窗体上添加一个文本框,
'并设置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
'运行之前 , 请先在窗体上添加一个文本框,
'并设置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
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询