Office中国论坛/Access中国论坛

标题: 在acc中使用进度条控件 [打印本页]

作者: Roadbeg 时间: 2003-3-11 01:27
标题: 在acc中使用进度条控件
记得曾有网友问我:
如何在开始一段长操作之后,显示一个窗体,以反映当前的操作进度,
在操作结束后,关闭此窗体,当时,我利用 access 的弹出窗体做了一个例子.
但那样做有许多局限.
今天正好有空,花了一个小时做了一个 dll 上来,
有需要的网友可以下载.
可以把此文件解压到 windows\system (对于 win2000,是 winnt\system32) 目录下,
利用 regsvr32 注册.(本想做个安装文件,但打包文件居然有 1M 多,作罢)

完成以上动作之后,可以在 vba 编辑窗体的
工具 -> 引用
对话框中引用 Gtools_Dg

在程序中通过 set 变量= new gtools_dialog
创建对象的实例.
然后通过
show , hide , go 方法达到显示自定义进度条的要求.

文件下载

作者: Roadbeg 时间: 2003-3-11 02:30
这里做了一个 mdb 的例子
该例子必须在注册 Gtools_dg 之后才能进行.
(或者打开引用对话框,选浏览按钮,选择上一帖下载的 dll 文件,并确定也可)

文件下载

[此贴子已经被作者于2003-3-10 18:30:08编辑过]

作者: Roadbeg 时间: 2003-3-11 02:32
请试用的网友提意见,如果大家认为还有一定用处的话,
我可以在下一版本中把界面做得好看一点,提供更多的功能.
且,以后,我还可能开发更多的 ,用于 access 的控件放上来,供大家下载

作者: 楚狐 时间: 2003-3-11 06:40
真的非常好，先受用了。谢谢，继续期待好的东东。

作者: 李寻欢 时间: 2003-3-11 07:11
谢谢！

作者: XWQ2000 时间: 2008-9-4 09:17
[:50] [:50]

作者: zyp 时间: 2008-9-4 11:24
这个控件不错。
请问谁能告诉我控件show方法后面参数2000是起什么作用的，它与下面的5000000和2500有什么内在的联系呢？
谢谢！

Private Sub cmdDo_Click()
Dim i As Long

Gdg.Show "这是一个例子", "请稍候,正在进行后台处理", 2000
DoEvents
For i = 0 To 5000000
      If i Mod 2500 = 0 Then
         Gdg.Go 1
         DoEvents       '此句不是必须的
      End If
Next i
Gdg.Hide
End Sub

作者: p51219 时间: 2015-12-3 23:35
学习学习学习学习学习学习

作者: p51219 时间: 2015-12-3 23:35
学习学习学习学习

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)