手机版不能截屏
timer控件初始化在表单INIT事件中,代码如下:
Do while .t.
If sec(datetime())=int(sec(datetime()))
Thisform.timer1.interval=1000
Thisform.timer1.reset
Thisform.timer1.enabled=.t.
Exit
Endif
Enddo
延时程序是这样的:
Function wait_time
Lparameter x_time
Do while second()>x_time
Enddo
Return .t.
Endfnc
使用inkey()或wait光标随意乱闪,看着不舒服