vb 按按钮终止一个text框里的for循环输出

第一个按钮能够使text框里不断输出星号
大概代码:
Dim ST As Long, ED As Long
for i=1 to 500
t=t+"*"
text1.text=t
ST = Timer
Do
ED = Timer
DoEvents
Loop Until ED - ST >= 1 '每个循环进行1秒
next i
想按另一个按钮立即终止text框里的输出，如何加代码？

在通用那声明一个窗口级变量：dim bRun as boolean
在窗口的FORM_LOAD事件里加入以下语句：
bRun=true
修改循环条件：
Loop Until (ED - ST >= 1) AND bRun '每个循环进行1秒

在你想按下就终止循环的按钮的CLICK事件里加入：
bRun=false

温馨提示：内容为网友见解，仅供参考

当前网址：https://11.t2y.org/zz/pppf884q4.html