一个关于进度条的问题!

andyfr1210 2004-10-22 10:35:54
我的一个sql server 数据库很大,在备份的时候要好久, 所以我想加一个进度条.
大家在备份的时候是怎么做的?
请各位赐教!
...全文
113 4 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
tztz520 2004-10-22
  • 打赏
  • 举报
回复
备份是比较难掌握时间的.所以就显示一个提示窗口,显示"正在备份数据库,请稍候...."
cosio 2004-10-22
  • 打赏
  • 举报
回复
学习
zhhot 2004-10-22
  • 打赏
  • 举报
回复
在窗体中添加一个picturebox
在picturebox中放入一个标签(label1)
在picturebox右面放入一个标签(label2)
代码如下
Dim intpercent As Integer
Private Sub Form_Load()
Timer1.Interval = 50
Label1.Left = -Label1.Width
Label1.BackColor = vbBlue
Label1.Caption = ""
Picture1.Width = 2000
intpercent = 1
End Sub

Private Sub timer1_Timer()
If Label1.Left + Label1.Width < Picture1.Width Then
Label1.Left = Label1.Left + 20
Label2.Caption = intpercent & "%"
intpercent = intpercent + 1
Else:
MsgBox "安装完成"
Timer1.Enabled = False
End If
End Sub
'可以通过备份进程与Timer1.Interval的值来控制进度条进度,待完善
snowmiao2002 2004-10-22
  • 打赏
  • 举报
回复
帮你up 给1分

1,217

社区成员

发帖
与我相关
我的任务
社区描述
VB 数据库(包含打印,安装,报表)
社区管理员
  • 数据库(包含打印,安装,报表)社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧