我想要在按下command1時,一起執行2個副程式,而不是先執行完a,在執行b的程式,請問各位大大我的command1的程式要改成寫什麼才可以同時執行?
我的程式如下:
Sub b()
For i = 1 To 5
10: Option2.Left = Option2.Left + 1
If Option2.Left ＜ 4000 Then GoTo 10
If Option2.Left ＞ 3999 Then
11: Option2.Left = Option2.Left - 1
If Option2.Left ＞ 120 Then GoTo 11
If Option2.Left ＜ 121 Then Option2.Left = 120
End If
Next i
End Sub
Sub a()
For i = 1 To 5
10: Option1.Left = Option1.Left + 1
If Option1.Left ＜ 4000 Then GoTo 10
If Option1.Left ＞ 3999 Then
11: Option1.Left = Option1.Left - 1
If Option1.Left ＞ 120 Then GoTo 11
If Option1.Left ＜ 121 Then Option1.Left = 120
End If
Next i
End Sub
Private Sub Command1_Click()
Call a
Call b
End Sub
謝謝各位大大...
我的程式如下:
Sub b()
For i = 1 To 5
10: Option2.Left = Option2.Left + 1
If Option2.Left ＜ 4000 Then GoTo 10
If Option2.Left ＞ 3999 Then
11: Option2.Left = Option2.Left - 1
If Option2.Left ＞ 120 Then GoTo 11
If Option2.Left ＜ 121 Then Option2.Left = 120
End If
Next i
End Sub
Sub a()
For i = 1 To 5
10: Option1.Left = Option1.Left + 1
If Option1.Left ＜ 4000 Then GoTo 10
If Option1.Left ＞ 3999 Then
11: Option1.Left = Option1.Left - 1
If Option1.Left ＞ 120 Then GoTo 11
If Option1.Left ＜ 121 Then Option1.Left = 120
End If
Next i
End Sub
Private Sub Command1_Click()
Call a
Call b
End Sub
謝謝各位大大...
文章標籤
全站熱搜
無解，VB不支援 就算用 Multi_Thread 或是 Multi-Process 也很難說到底算不算同時
Option Explicit Dim count_1 As Integer, count_2 As Integer Private Sub Command1_Click() Timer1.Enabled = True Timer2.Enabled = True End Sub Private Sub Timer1_Timer() Dim i As Integer For i = 1 To 5 10: Option1.Left = Option1.Left + 1 If Option1.Left ＜ 4000 Then GoTo 10 If Option1.Left ＞ 3999 Then 11: Option1.Left = Option1.Left - 1 If Option1.Left ＞ 120 Then GoTo 11 If Option1.Left ＜ 121 Then Option1.Left = 120 End If Next i Timer1.Enabled = False End Sub Private Sub Timer2_Timer() Dim i As Integer For i = 1 To 5 10: Option2.Left = Option2.Left + 1 If Option2.Left ＜ 4000 Then GoTo 10 If Option2.Left ＞ 3999 Then 11: Option2.Left = Option2.Left - 1 If Option2.Left ＞ 120 Then GoTo 11 If Option2.Left ＜ 121 Then Option2.Left = 120 End If DoEvents Next i Timer2.Enabled = False End Sub 權宜之計