Office中国论坛/Access中国论坛

标题: 进度条的示例-->tmtony转移 [打印本页]

作者: zhengjialon 时间: 2002-11-27 18:40
标题: 进度条的示例-->tmtony转移
我以前做的两个示例：
文件下载

作者: feier 时间: 2002-11-27 19:20
标题: 为什么下载下来，用SHIFT键打不开来
我是菲儿，为什么我下载下来你那个进度提示，我想看你怎么写的，我用SHIFT+ENTER却打不开来

作者: zhengjialon 时间: 2002-11-27 19:28
可以呀，不是MDE的，你有没有解压缩的（要用WINRAR3。0）

[此贴子已经被zhengjialon于2002-11-27 11:27:51编辑过]

作者: zhengjialon 时间: 2002-11-27 19:32
标题: re
文件下载
再传一个。

作者: feier 时间: 2002-11-27 19:39
标题: 我已用WINRAR解了
我已全解压缩了，只是我想看你的原代码如何写，无法看你把一些菜单给屏蔽了，我用SHIFT+ENTER打开你的ACCESS文件仍不行该如何打开

作者: jonny 时间: 2002-11-27 19:44
都可以看到，我都用上了。

作者: WTM1 时间: 2002-11-27 20:01
标题: 11
太棒了！！感谢感谢！！！这才是真正的进度条！！
多做一些这样的样版！这样以后制作起来拿来就用多好！！
我先拿去用了！

至于源码！可以看到！zhengjialon斑竹没有藏私！
代码如下：
Option Compare Database

Private Sub Form_Timer()

If Me.标签48.Caption = " " Then
Me.标签48.Caption = "."
ElseIf Me.标签48.Caption = "." Then
Me.标签48.Caption = ".."
ElseIf Me.标签48.Caption = ".." Then
Me.标签48.Caption = "..."
ElseIf Me.标签48.Caption = "..." Then
Me.标签48.Caption = "...."
ElseIf Me.标签48.Caption = "...." Then
Me.标签48.Caption = "....."
ElseIf Me.标签48.Caption = "....." Then
Me.标签48.Caption = "......"
ElseIf Me.标签48.Caption = "......" Then
Me.标签48.Caption = "......."
ElseIf Me.标签48.Caption = "......." Then
Me.标签48.Caption = "........"
ElseIf Me.标签48.Caption = "........" Then
Me.标签48.Caption = "........."
ElseIf Me.标签48.Caption = "........." Then
Me.标签48.Caption = ".........."
ElseIf Me.标签48.Caption = ".........." Then
Me.标签48.Caption = "..........."
ElseIf Me.标签48.Caption = "..........." Then
Me.标签48.Caption = "............"
ElseIf Me.标签48.Caption = "............" Then
Me.标签48.Caption = "............."
ElseIf Me.标签48.Caption = "............." Then
Me.标签48.Caption = ".............."
ElseIf Me.标签48.Caption = ".............." Then
Me.标签48.Caption = "..............."
ElseIf Me.标签48.Caption = "..............." Then
Me.标签48.Caption = "................"
ElseIf Me.标签48.Caption = "................" Then
Me.标签48.Caption = "................."
ElseIf Me.标签48.Caption = "................." Then
Me.标签48.Caption = ".................."
ElseIf Me.标签48.Caption = ".................." Then
Me.标签48.Caption = "..................."
ElseIf Me.标签48.Caption = "..................." Then
Me.标签48.Caption = "...................."
ElseIf Me.标签48.Caption = "...................." Then
Me.标签48.Caption = "....................."
ElseIf Me.标签48.Caption = "...................." Then
Me.标签48.Caption = "......................"
Else
Me.标签48.Caption = " "
End If

If Me.标签4.Caption = "." Then
Me.标签4.Caption = ".."
ElseIf Me.标签4.Caption = ".." Then
Me.标签4.Caption = "..."
ElseIf Me.标签4.Caption = "..." Then
Me.标签4.Caption = "...."
ElseIf Me.标签4.Caption = "...." Then
Me.标签4.Caption = "....."
ElseIf Me.标签4.Caption = "....." Then
Me.标签4.Caption = "......"
ElseIf Me.标签4.Caption = "......" Then
Me.标签4.Caption = ""
Else
Me.标签4.Caption = "."
End If
End Sub

Private Sub Form_Unload(Cancel As Integer)
DoCmd.Quit
End Sub
不关联进度条代码：

Private Sub Form_Close()
DoCmd.OpenForm "进度条循环"
End Sub

Private Sub Form_Load()
Dim CDB As Long
DoCmd.RunCommand acCmdAppMinimize
Me.文本4.Width = 0
CDB = Me.文本4.Width / Me.文本0.Width
Me.文本12.Value = Format(CDB, "0%")
End Sub

Private Sub Form_Timer()
Me.文本4.Width = Me.文本4.Width + 10
CDB = Me.文本4.Width / Me.文本0.Width
Me.文本12.Value = Format(CDB, "0%")
If Me.文本12.Value = "50%" Then Me.文本12.ForeColor = RGB(192, 192, 192)
If Me.文本4.Width + 67 > Me.文本0.Width Then
   Me.文本12.Value = Format(1, "0%")
   MsgBox "My Program 安装成功！", 64, "系统提示"
   DoCmd.Close
End If
End Sub

Private Sub 取消_Click()
DoCmd.Close
End Sub

作者: WTM1 时间: 2002-11-27 20:03
feier ：
如果你下载了第二个程序！按ALT+F11
就可以看到代码了！

作者: STOCK 时间: 2002-11-27 20:39
请问斑竹：我通过CLICK事件触发BACKUP模块，如何将上面的进度条引用到我的BACKUP事件中。

作者: WTM1 时间: 2002-11-27 20:57
DoCmd.OpenForm "进度条循环"

把进度条的这行指令修改！就可以了！

作者: STOCK 时间: 2002-11-27 21:56

以下是引用WTM1在2002-11-27 12:56:30的发言：
DoCmd.OpenForm "进度条循环"

把进度条的这行指令修改！就可以了！

我的意思是当我把 DOCMD.OPENFORM改为BACKUP后，本来只需要几秒钟就可以完成的备分却要等到进度条完成才可以，这段代码的执行顺序是先运行进度条，完成后才执行备份，这不是要多花时间去运行进度条，而备份等待时间仍然没有任何提示吗？

[此贴子已经被作者于2002-11-27 13:55:30编辑过]

作者: zhengjialon 时间: 2002-11-27 22:27
也可以更改窗的计时器间隔。

作者: WTM1 时间: 2002-11-27 22:31
标题: 12
进度条是用来看得！他并没有运行任何东东！

但不知道可不可以在运行精度的时候由后台进行备份，备份完成，进度完成！？？？

这样可以吗？

作者: zhengjialon 时间: 2002-11-27 23:33
应该是可以，不过本人解决不了。

作者: WTM1 时间: 2002-11-28 00:00
我也失败了！！谁会！
还望赐教！

作者: cg1 时间: 2002-11-28 00:57
access911.126.com，早就解决了

作者: WTM1 时间: 2002-11-28 01:05
请指明具体位置！

作者: cg1 时间: 2002-11-28 02:09
等，我找，没有专门列出，是网页上列出数据库中的一个功能

作者: HG 时间: 2002-11-28 02:12
WTM1你為何為運行一個循環，來控制符點數量呢。

作者: cg1 时间: 2002-11-28 03:45
http://temp.shtip.com.cn/eg/backup.rar

作者: WTM1 时间: 2002-11-28 19:20
密码？？？

作者: cg1 时间: 2002-11-28 20:50

不是a9bbs.126.com里面有吗？

作者: WTM1 时间: 2002-11-28 21:41
说一下吧！谢了！大哥！

作者: cg1 时间: 2002-11-28 22:56
倒，好人做到底，我去找，好了吧？

作者: huanghai 时间: 2002-11-28 23:15
备份这里也有一个，跟ACCESS911不一样，ACCESS911用的是DAO，这一个使用是的ADO。代码比较简洁。不过如果做到跟进度条相连，我也想知道。

http://www.office-cn.net/bbs/dispbbs.asp?boardID=2&RootID=22587&ID=22587

作者: cg1 时间: 2002-11-28 23:21
找到了，旧版的是access911.126.com
新版的是a9bbs.126.com

另外说一句， a9 的是ado 和dao全有，可以自己选择

作者: WTM1 时间: 2002-11-29 20:25
谢谢！！密码是对了！！可是代码有问题！！不能使用！！

作者: cg1 时间: 2002-12-6 06:02
呵呵呵，你自己搞定吧，反正我可以用了

作者: binuochao 时间: 2002-12-6 07:22
不知如何，反正我这总是不是这个引用丢失，就是别的，为什么我这可边VB6都装了！要引用的都被说明丢失，怎么回事！

作者: ccczzz 时间: 2002-12-6 15:38
如何在压缩数据库时用进度条等待。

作者: yahai 时间: 2002-12-7 02:53
多谢

作者: szyangwenbo 时间: 2003-4-11 00:07
[em18]为什么我看不到？是不是要改源代码？如果这样那我的机子不就要死了。

作者: nxjswt 时间: 2005-6-29 18:23
@_@

作者: longerth123 时间: 2006-1-22 18:48
学习学习再学习

作者: xiaxue_203 时间: 2006-2-2 23:04
支持楼主!

作者: 南飞雁 时间: 2006-3-29 21:34
我正需要这个，多谢楼主！

作者: huanghyd 时间: 2014-5-13 12:45
kanakan

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