在acc中使用进度条 控件

Roadbeg

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

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

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

文件下载

p51219

学习学习学习学习

p51219

学习学习学习学习学习学习

zyp

这个控件不错。
请问谁能告诉我控件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

XWQ2000

[:50] [:50]

李寻欢

谢谢！

楚狐

真的非常好，先受用了。谢谢，继续期待好的东东。

Roadbeg

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

Roadbeg

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

文件下载

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