关于timer控件在查询中的应用
我的要求是在程序查询时显示 "查询中,请稍候>>>" 后面的">"是用timer动态加上去的但在查询时特别是多数据情况下,timer控件会停止计时,要等到所有数据查询出来才继续计时,这样就达不到效果了,请高手指教一下,谢谢了
不查询时label1.Visible=false的
Dim i%
Private Sub Form_load()
Label1.Caption = "查询中,请稍候"
Timer1.Interval = 200
End Sub
查询语句........
Private Sub Command2_Click()
label1.Visible=true
select * from table
....
....
label1.Visible=false
End sub
Private Sub Timer1_timer()
if label1.Visible=true then
i = i Mod 5 + 1
Label1.Caption = "查询中,请稍候" & String(i, ">")
end if
End Sub
[ 本帖最后由 jzhandly 于 2009-10-8 15:04 编辑 ]