UC知道VB找错误
来源：百度知道 编辑：UC知道 时间：2024/06/19 10:05:04
dim str as string
open "c:\abc.txt" for input As #1
do until eof(1)
line input #1,str
text2.text = text2.text & vbcrlf & str
loop
close #1
第一次不运用此代码 第二次才用
不知道可不可以实现
open "c:\abc.txt" for input As #1
do until eof(1)
line input #1,str
text2.text = text2.text & vbcrlf & str
loop
close #1
第一次不运用此代码 第二次才用
不知道可不可以实现
窗体控件加一个label，设置为隐藏，把里面的内容清空
运行代码的时候检测一下，这个模块加一段代码
if label1.caption<>"" then
你的代码
end if
你说的明白一点……
这个是我回答的，我来继续解答你
第一次不运行，第二次运行？
那么可以这样：
在过程中用
Static flag as integer '默认值是0
if flag = 0 then '第一次运行，为第二次做准备
flag = flag + 1
elseif flag = 1 then '第二次运行
dim str as string
open "c:\abc.txt" for input As #1
do until eof(1)
line input #1,str
text2.text = text2.text & vbcrlf & str
loop
close #1
else '第三、第四……等等 都可以在这里写
end if