一个进度条的问题

wgf2005

求救！！！

[此贴子已经被作者于2005-3-1 21:55:20编辑过]

徐阿鹏

在窗体的合适位置加个文本控件text7Private Sub Form_Timer() '窗体计时器事件

If Me.Text3.Width < 5000 Then '设置Text3文本框宽度（在这里指横长）< 5000那么

Me.Text3.Width = Me.Text3.Width + 10 '设置Text3文本框宽度（在这里指速度）＋10

Text7 = Format(Me.Text3.Width / 5000, "0%")

Else

Me.TimerInterval = 0

MsgBox "!!!"  '或者写上docmd.openform“要打开的窗体”

End If '结束IF语句

End Sub '结束过程

chenlugen

我下来看看..