我的要求是在程序查询时显示 "查询中,请稍候>>>" 后面的">"是用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 编辑 ]

也就是显示正在处理呀.
写个不用多少时间的SQL 查询不更好过吗?

我指的是查询的数据量大时,没有效果
如果是查询数据量小的情况下,一闪儿过,也没有效果

= =;
也就是问题不在查询快慢,而在于查询时显示提示信息?

[ 本帖最后由 bczgvip 于 2009-10-8 20:55 编辑 ]

看下面的代码能不能为你提供参考：
Dim i As Integer
Private Sub Form_load()
Label1.Caption = "查询中,请稍候"
Timer1.Interval = 200
Timer1.Enabled = False
End Sub
Private Sub Command1_Click()
Label1.Visible = True
Timer1.Enabled = True
 
'以下换为查询语句
For ii = 0 To 1000000
  DoEvents
Next
'查询完成
 
Label1.Visible = False
Timer1.Enabled = False
End Sub
 
Private Sub Timer1_Timer()
Label1.Caption = "查询中,请稍候" & String(i Mod 5 + 1, ">")
i = i + 1
'如果查询时间很长就 Dim i As Double
End Sub

，不是很懂，学习中

建立一个ActiveX EXE 作为监视应该可以解决问题。