Private Sub Command1_Click()
Dim shuzhi As Double
Dim shuzhi1 As Double
For shuzhi = 1 To 60000
For shuzhi1 = 1 To 20000
Next shuzhi1
Next shuzhi
Text1.Text = "完成"
End Sub
Private Sub Command2_Click()
Text1.Text = ""
取消运行的程序该怎么写
End Sub
上面是个循环程序,点击Command1后程序进入循环状态,这时怎么使他弹出个无按钮的信息提示框,显示正在运行四个字。点击Command2后让他停止循环事件,Command2的程序该如何写。
这个最靠谱,但是还是没实现弹出个信息提示正在运行的代码,那个弹出信息提示框怎么实现呢?
追答因为显示了 MsgBox 就不能点 Form1 的任何键,不能点 Command2,我用 Text1 代替 MsgBox 了,如果你不愿意,那就要自己做一个 MsgBox!就用 Form2 来做吧:
Private stopIt As Boolean
Private Sub Command1_Click()
Dim shuzhi As Double
Dim shuzhi1 As Double
Text1.Text = "正在运行"
Form2.Left = Form1.Left + 3000 '自己在 Form2 弄点 Text,Command 控件,像 MsgBox 那样
Form2.Top = Form1.Top + 1000
Form2.Show
For shuzhi = 1 To 60000
If stopIt Then Exit Sub
DoEvents
For shuzhi1 = 1 To 20000
Next shuzhi1
Next shuzhi
Text1.Text = "完成"
End Sub
Private Sub Command2_Click()
Text1.Text = "中断运行"
Form2.Hide
stopIt = True
End Sub