进度条的示例-->tmtony转移

zhengjialon

我以前做的两个示例：
文件下载

feier

我是菲儿，为什么我下载下来你那个进度提示，我想看你怎么写的，我用SHIFT+ENTER却打不开来

zhengjialon

可以呀，不是MDE的，你有没有解压缩的（要用WINRAR3。0）

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

zhengjialon

文件下载
再传一个。

feier

我已全解压缩了，只是我想看你的原代码如何写，无法看你把一些菜单给屏蔽了，我用SHIFT+ENTER打开你的ACCESS文件仍不行该如何打开

jonny

都可以看到，我都用上了。

WTM1

太棒了！！感谢感谢！！！这才是真正的进度条！！
多做一些这样的样版！这样以后制作起来拿来就用多好！！
我先拿去用了！


至于源码！可以看到！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

feier ：
如果你下载了第二个程序！按ALT+F11
就可以看到代码了！

STOCK

请问斑竹：我通过CLICK事件触发BACKUP模块，如何将上面的进度条引用到我的BACKUP事件中。

WTM1

DoCmd.OpenForm "进度条循环"

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