关于窗体中使用进度条速度与后台运行的查询速度匹配的问题

yaw　发表于：2014-01-27 09:17:25 　

关于窗体中使用进度条的问题：
各位老师我想在窗体中加入“进度条”控件，窗体添加一个命令—>点击后里面全部是查询，请问如何才能关连好与进度条的速度匹配好呢？谢谢

Private Sub Command1_Click()
Const J As Integer = 10000
Dim I As Integer

   me.ProgressBar3.Max = J
      me.ProgressBar3.Value = 0
   me.ProgressBar3.Visible = True
      For I = 1 To J
DoCmd.OpenQuery "a查询名"
DoCmd.OpenQuery "b查询名"
DoCmd.OpenQuery "c查询名"
DoCmd.OpenQuery "d查询名"
DoCmd.OpenQuery "e查询名"
DoCmd.OpenQuery "f查询名"
DoCmd.OpenQuery "g查询名"
         me.ProgressBar3.Value = I
      Next
      me.ProgressBar3.Visible = False

End Sub

Top

在水一方发表于：2014-01-27 16:33:46

me.ProgressBar3.Max = 7
me.ProgressBar3.Value = 0
me.ProgressBar3.Visible = True

DoCmd.OpenQuery "a查询名"

me.ProgressBar3.Value =1

DoCmd.OpenQuery "b查询名"

me.ProgressBar3.Value =2

DoCmd.OpenQuery "c查询名"

me.ProgressBar3.Value =3

DoCmd.OpenQuery "d查询名"

me.ProgressBar3.Value =4

DoCmd.OpenQuery "e查询名"

me.ProgressBar3.Value =5

DoCmd.OpenQuery "f查询名"

me.ProgressBar3.Value =6

DoCmd.OpenQuery "g查询名"

me.ProgressBar3.Value = 7

me.ProgressBar3.Visible = False

‘以上是不用循环函数的方法

Top

yaw 发表于：2014-01-28 10:48:10

在水一方老师谢谢您的帮助，请问如何才能使进度条变成动态慢慢的走，有动态感呢？而不是一下就走一块呢？谢谢

Top

在水一方发表于：2014-02-06 15:26:06

使用计时器来判断进度

Top

总记录：3篇页次：1/1 9 1 :

Access交流中心

[5分]关于窗体中使用进度条速度与后台运行的查询速度匹配的问题