UC知道vb command开关
来源：百度知道 编辑：UC知道 时间：2024/05/27 06:51:58
在运行下列程序时,我想按一下command2,让它暂停程序运行,并caption显示"开始",然后再按一下时接着刚才的运行,caption显示"暂停".这种开关程序怎么做?谢谢!!
Private Sub Command1_Click()
Dim sz(16) As Integer
Dim i, j, k, l, m, n As Integer
sz(1) = 15
sz(2) = 58
sz(3) = 74
sz(4) = 59
sz(5) = 68
sz(6) = 62
sz(7) = 63
sz(8) = 64
sz(9) = 59
sz(10) = 12
sz(11) = 35
sz(12) = 57
sz(13) = 29
sz(14) = 28
sz(15) = 27
sz(16) = 75
For i = 1 To 16
For j = 1 To 16
For k = 1 To 16
For l = 1 To 16
For m = 1 To 16
For n = 1 To 16
DoEvents '看看加在这里可以吗
If i = j Or i = k Or i = l Or i = m Or i = n Or j = k Or j = l Or j = m Or j = n _
Or k = l Or k = m Or k = n Or l = m Or l = n Or m = n Then
Else
Text1.Text = Text1.Text & sz(i) & sz(j) & sz(k) & sz(l) & sz(m) & sz(n) & " "
x = x + 1
If x Mod 6 = 0 Then vbCrLf
End If
Next n
Next m
Next l
Next k
Private Sub Command1_Click()
Dim sz(16) As Integer
Dim i, j, k, l, m, n As Integer
sz(1) = 15
sz(2) = 58
sz(3) = 74
sz(4) = 59
sz(5) = 68
sz(6) = 62
sz(7) = 63
sz(8) = 64
sz(9) = 59
sz(10) = 12
sz(11) = 35
sz(12) = 57
sz(13) = 29
sz(14) = 28
sz(15) = 27
sz(16) = 75
For i = 1 To 16
For j = 1 To 16
For k = 1 To 16
For l = 1 To 16
For m = 1 To 16
For n = 1 To 16
DoEvents '看看加在这里可以吗
If i = j Or i = k Or i = l Or i = m Or i = n Or j = k Or j = l Or j = m Or j = n _
Or k = l Or k = m Or k = n Or l = m Or l = n Or m = n Then
Else
Text1.Text = Text1.Text & sz(i) & sz(j) & sz(k) & sz(l) & sz(m) & sz(n) & " "
x = x + 1
If x Mod 6 = 0 Then vbCrLf
End If
Next n
Next m
Next l
Next k
1.定义一个窗体级变量
Dim ctEsc As Boolean
2.在语句 Dim i, j, k, l, m, n As Integer 下面添加：
ctEsc = False
Command2.Enabled = True
3.将你的 DoEvents 一行语句替换为：
Do
DoEvents
If Not ctEsc Then Exit Do
Loop
4.在 Command1_Click 过程的最后添加：
Command2.Enabled = False
5.在 Form_Load 中添加：
Command2.Caption = "开始"
Command2.Enabled = False
6.Command2 的代码这样写
Private Sub Command2_Click()
ctEsc = Not ctEsc
If ctEsc Then Command2.Caption = "开始" Else Command2.Caption = "暂停"
End Sub