Office中国论坛/Access中国论坛

标题: 一个进度条的问题 [打印本页]

作者: wgf2005 时间: 2005-3-2 05:53
标题: 一个进度条的问题
求救！！！[attach]9136[/attach]

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

作者: 徐阿鹏 时间: 2005-3-2 18:18
在窗体的合适位置加个文本控件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 时间: 2008-8-28 21:28
我下来看看..

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