如果今天有個Function...如下 :
Function Nexta() As Boolean
Dim Tmr
Tmr = Timer
Do While Timer - Tmr < 60
DoEvents
Loop
Nexta = True
End Function
當有一事件的述途如下 :
Private Sub Timer1_Timer()
If Nexta Then Exit Sub
End Sub
如果Timer1.Interval = 300
那會不會一直引發Nexta呢,且Nexta裡的東東會"同時"執行嗎 ?
by Peter ^_^
arrow
arrow
    全站熱搜

    vbqa 發表在 痞客邦 留言(3) 人氣()