在子窗口中设一定时控件,设置时间间隔为1秒(interval=1000),并设为有效。同时设一计数变量 dd
(dim dd as integer)请看以下过程:1.定时器过程:
Private Sub Timer1_Timer()
dd = dd + 1
If dd > 30 Then Unload me
End Sub2.子窗体CLICK过程:
Private Sub Form_Click()
dd = 0
End Sub这样,每当按压子幕时,计时变量dd都会清零,相反,如果超过30秒无动作,会清掉子屏幕返回主界面。
试试看,一定会行!!!
如有更好方法,请赐教!