利用Do....Loop循环延时的问题，请大家帮忙

yqlh_20

Option Explicit

Private Sub Command1_Click()
Dim dtStartTm As Single

dtStartTm = Timer
Do While (Timer - dtStartTm) < 10
    DoEvents
    Label1.Caption = (Timer - dtStartTm)
Loop
End Sub

Private Sub Command2_Click()
Dim dtStartTm As Single

dtStartTm = Timer
Do While (Timer - dtStartTm) < 10
    DoEvents
    Label2.Caption = (Timer - dtStartTm)
Loop
End Sub


两个延时程序，打开时，相互干扰。Command1先开，Command2后开，Command2打开后，Command1的Do.........Loop过程就暂停运行了。该怎么解决呢？

LionCSQ

Option Explicit

Private dtStartTm2 As Single
Private blnTimer2Flag As Boolean

Private Sub Form_Load()
   blnTimer2Flag = False
End Sub

Private Sub Command1_Click()
   Dim dtStartTm As Single
   
   dtStartTm = Timer
   Do While (Timer - dtStartTm) < 10
       DoEvents
       Label1.Caption = (Timer - dtStartTm)
      
       If blnTimer2Flag Then
         Label2.Caption = (Timer - dtStartTm2)
       End If
   Loop
End Sub

Private Sub Command2_Click()
   dtStartTm2 = Timer
   blnTimer2Flag = True
End Sub

yqlh_20

LionCSQ 发表于 2016-3-1 09:17
Option Explicit

Private dtStartTm2 As Single

但是这样Command2的过程就没有延时作用了。我的想法是两个过程都能延时，延时时间到了之后，再执行后面的程序

yqlh_20

Option Explicit

Private Sub Command1_Click()
Dim dtStartTm As Single

dtStartTm = Timer
Do While (Timer - dtStartTm) < 10
    DoEvents
    Label1.Caption = (Timer - dtStartTm)
Loop

MsgBox "Command1 已延时10秒！"
End Sub

Private Sub Command2_Click()
Dim dtStartTm As Single

dtStartTm = Timer
Do While (Timer - dtStartTm) < 10
    DoEvents
    Label2.Caption = (Timer - dtStartTm)
Loop

MsgBox "Command2 已延时10秒！"
End Sub

像这样，每个过程都延时一段时间。是不是Do....Loop只能有一个占用CPU？两个Do....Loop过程不能同时运行呢

yqlh_20

Option Explicit

Private Sub Command1_Click()
Dim dtStartTm As Single

dtStartTm = Timer
aaa:
If (Timer - dtStartTm) < 10 Then
    DoEvents
    Label1.Caption = (Timer - dtStartTm)
    GoTo aaa
End If

MsgBox "Command1 已延时10秒！"
End Sub

Private Sub Command2_Click()
Dim dtStartTm As Single

dtStartTm = Timer
Do While (Timer - dtStartTm) < 10
    DoEvents
    Label2.Caption = (Timer - dtStartTm)
Loop

MsgBox "Command2 已延时10秒！"
End Sub

改成用if来判断延时，也是同样的问题。后一个启动的延时过程会阻止先启动的延时过程的运行，等后启动的延时过程运行结束，先启动的延时过程才继续运行。循环时占用CPU,但Doevents释放了控制权还是不行，无法让两个循环过程同时运行。

仙剑魔

因为vb6只有1个线程
两段代码无法同时执行

yqlh_20

那怎么才能实现这样的功能呢，要多线程？这个我还不会啊

hid

用定时器试试

yqlh_20

hid 发表于 2016-3-2 00:04
用定时器试试

定时器可以，只要不 使用循环就没问题