VB中,设置打开一个TXT文件显示到一个TEXTBOX里面的程序该如何写
1个回答
展开全部
不知道您的意思是不是打开一个文本文件,其代码如下:
option
explicit
private
sub
command1_click()
'顺序文件的读操作
dim
inputdata
as
string
open
"d:\bootex.log"
for
input
as
#1
'打开指定的文件(必须存在)
do
while
not
eof(1)
'
否已到文件未尾
line
input
#1,
inputdata
'
读入一行数据并赋给变量inputdata
text1.text
=
text1.text
+
inputdata
+
vbcrlf
'加载到文本框中
loop
close
#1
end
sub
'文件框
'text1.multiline
=
true
多行显示
'text1.scrollbars
=
3
滚动条为水平加垂直,该属性为只读,需要在设计时指明,不能有代码改变
以上代码在vb6.0测试通过
option
explicit
private
sub
command1_click()
'顺序文件的读操作
dim
inputdata
as
string
open
"d:\bootex.log"
for
input
as
#1
'打开指定的文件(必须存在)
do
while
not
eof(1)
'
否已到文件未尾
line
input
#1,
inputdata
'
读入一行数据并赋给变量inputdata
text1.text
=
text1.text
+
inputdata
+
vbcrlf
'加载到文本框中
loop
close
#1
end
sub
'文件框
'text1.multiline
=
true
多行显示
'text1.scrollbars
=
3
滚动条为水平加垂直,该属性为只读,需要在设计时指明,不能有代码改变
以上代码在vb6.0测试通过
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询