longmen23的专栏

喜欢倾听的感觉 ..........

用access实现的进度条

     其实用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进度条源码

2008年09月13日 74KB 下载

用Progress控件实现文字进度条

2010年07月01日 61KB 下载

没有更多推荐了,返回首页

关闭
关闭