vb执行两个循环的问题
--------------------编程问答-------------------- 没有看明白,是要按钮2执行时按钮1停止?如果是这设置一个变量来判断 --------------------编程问答--------------------
两个按钮 分别执行两段do while true 死循环 但是只能执行一个...点开按钮2按钮1就会自动停止 我要求两个死循环同时执行 --------------------编程问答-------------------- VB6.0应该实现不了,感觉你这样相当于2个线程了。 --------------------编程问答-------------------- vb6.0实现不了 可以用其他的开发环境么? vb.net或者是其他?
--------------------编程问答-------------------- 完全可以:
--------------------编程问答-------------------- 看错了。
Option Explicit
Dim bStop1 As Boolean, bStop2 As Boolean
Private Sub Command1_Click()
bStop1 = False
Do While True
Text1.Text = Timer
DoEvents
DoEvents
If bStop1 Then Exit Do
Loop
End Sub
Private Sub Command2_Click()
bStop1 = True
bStop2 = False
Do While True
Text2.Text = Timer
DoEvents
DoEvents
If bStop2 Then Exit Do
Loop
End Sub
Private Sub Command3_Click()
bStop1 = True
bStop2 = True
End Sub
不知楼主是要满足应用需求,还是要确定代码方法。
从需求的角度,一个循环就能解决问题。
--------------------编程问答-------------------- 6楼应该可以满足楼主的要求,每个循环设置一个变量不判断是否结束 --------------------编程问答-------------------- 每个循环设置一个变量来判断是否结束 --------------------编程问答-------------------- 多线程的程序推荐楼主就使用vb.net来写吧。
Option Explicit
Dim blnDisplay1 As Boolean, blnDisplay2 As Boolean
Dim blnLoop As Boolean
Private Sub Time_Loop()
Do
If Not blnLoop Then Exit Do
If blnDisplay1 Then Text1 = Timer
If blnDisplay2 Then Text2 = Timer
DoEvents
Loop
End Sub
Private Sub Command1_Click()
blnDisplay1 = True
If Not blnLoop Then
blnLoop = True
Time_Loop
End If
End Sub
Private Sub Command2_Click()
blnDisplay2 = True
If Not blnLoop Then
blnLoop = True
Time_Loop
End If
End Sub
Private Sub Command3_Click()
blnLoop = False
blnDisplay1 = False
blnDisplay2 = False
End Sub
Private Sub Form_Unload(Cancel As Integer)
blnLoop = False
End Sub
补充:VB , 基础类