当前位置:编程学习 > VB >>

vb执行两个循环的问题

--------------------编程问答-------------------- 没有看明白,是要按钮2执行时按钮1停止?
如果是这设置一个变量来判断 --------------------编程问答--------------------
引用 1 楼 mpy2003 的回复:
没有看明白,是要按钮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
--------------------编程问答-------------------- 看错了。

不知楼主是要满足应用需求,还是要确定代码方法。

从需求的角度,一个循环就能解决问题。


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
--------------------编程问答-------------------- 6楼应该可以满足楼主的要求,每个循环设置一个变量不判断是否结束 --------------------编程问答-------------------- 每个循环设置一个变量来判断是否结束 --------------------编程问答-------------------- 多线程的程序推荐楼主就使用vb.net来写吧。
补充:VB ,  基础类
CopyRight © 2022 站长资源库 编程知识问答 zzzyk.com All Rights Reserved
部分文章来自网络,