用access实现的进度条

原创 2006年06月24日 16:47:00

     其实用access实现进度条几简单。用vba都能,相信用其它的语言也是相同,可能差别就是放在不同的事件里吧!

   '下面的代码放在窗体的“计时器触发”(顺便提一下最好设计时器间隔为100)

Private Sub Form_Timer()
  If Text1.Value < 100 Then
   Text1.Value = 1 + Text1.Value
   Label0.Width = 4991 / 100 * Text1.Value '其中4991决定着进度条达到100%时的长度
   If  你要停止的条件  Then DoCmd.Close
   Else
   Text1.Value = 1
   Label0.Width = 1
  End If
End Sub

  注: 很久没有在自己空间发一些代码了!以后在这里除了写一下自己的心情外还得放一下自己总结的或者是高手们的代码!还有就是写一下英语吧!本来我有一个msn空间专门用来写英语日记的,可惜公司的网络不能登陆(不知是不是给封了端口)

版权声明:本文为博主原创文章,未经博主允许不得转载。

相关文章推荐

用access实现的进度条

其实用access实现进度条几简单。用vba都能,相信用其它的语言也是相同,可能差别就是放在不同的事件里吧! Private Sub Form_Timer()进度条代码---开始  下面的代码放在窗体...

用access实现的进度条

其实用access实现进度条几简单。用vba都能,相信用其它的语言也是相同,可能差别就是放在不同的事件里吧! Private Sub Form_Timer()进度条代码---开始  下面的代码放在窗体...

ACCESS进度条源码

  • 2008-09-13 14:39
  • 74KB
  • 下载

SleePLib进度条实现

  • 2016-04-29 14:25
  • 189KB
  • 下载

flash AS3.0实现进度条与播放暂停按钮的同步

前面我分别介绍过如何实现播放和暂停按钮以及进度条的实现,不过一般情况下需要把两者结合起来使用,因此今天在这里我就来介绍实现两者统一的方法。       以下的代码实现了通常所见的进度条和播放暂停按钮...

Canvas实现简易圆形进度条

canvas 绘制简易进度条

用线程实现进度条显示

  • 2013-01-21 12:02
  • 37KB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:深度学习:神经网络中的前向传播和反向传播算法推导
举报原因:
原因补充:

(最多只允许输入30个字)