关于timer的问题 分不多了,请见谅!

Question

Private Sub Timer1_Timer()
    if 条件A then
        ......
        form1.show
    else
        ......
        form1.hide
    end if    if 条件B THEN
        ......
        FORM1.SHOW
     ELSE
        ......
        FORM1.HIDE
    END IF
  
    IF 条件C THEN
        ......
        FORM1.SHOW
    ELSE
        ......
        FORM1.HIDE
    END IF
End Sub我的意思是每隔5分钟检测一次条件A,如果是THEN,则显示FORM1,如果为假,则不显示FORM1,一但条件A是THEN,则返到前面继续检测条件A,但FORM1不变(不用重新SHOW),直到条件A为假,才往下远行,条件B和条件C是同样的要求最好在FORM1是SHOW状态时,隔几分钟再返回去检测条件

Answer 1

Private   Sub   Timer1_Timer() 
 IF 条件A THEN=TRUE
FORM1.SHOW
ELSEIF 条件B THEN=TRUE
FORM1.SHOW
ELSEIF 条件C THEN=TRUE
FORM1.SHOW
ELSE
FORM1.HIDE
END IF
END SUB

Answer 2

Private Declare Function ShowWindow Lib "user32" Alias "ShowWindow" (ByVal hWnd As Long, ByVal nCmdShow As Long) As LongPrivate Sub Timer1_Timer()
Dim bln As Boolean
bln = CBool(条件A)
If Not bln Then bln = CBool(条件B)
If Not bln Then bln = CBool(条件C)
Call ShowWindow(hWnd, Abs(bln))
End Sub

Answer 3

我已经搞定了,我用的是exit sub
该跑就跑,
其实以上两种都可以,因为某种原因,我没有用以上的

Answer 4

Timer1时间60000MS有限:最大1分,5分钟好象不能实现......