VBA进度条

来源：互联网发布：javaweb编程实战宝典编辑：程序博客网时间：2024/05/21 08:53

这里写图片描述
一共三个控件：ScrollBar1、Label1、Label2

这里写图片描述

Private widthSum#Private Sub ScrollBar1_Change()    Label1.width = ScrollBar1.Value    Label2.width = widthSum - ScrollBar1.Value    Label2.Left = Label1.Left + Label1.width    '进度条太短或者完成部分太短，不显示进度    If Label1.width > 15 Then Label1.Caption = Round(Label1.width / widthSum, 2) * 100 & "%"End SubPrivate Sub UserForm_Initialize()Label1.BackColor = RGB(15, 200, 75)Label2.BackColor = RGB(255, 255, 0)Label1.Caption = ""Label2.Caption = ""Label1.TextAlign = fmTextAlignCenter    '使文本中央对齐Label1.Left = 20    '控件与所在窗体的左边之间的距离Label1.width = 0    '进度条完成部分，初始为0Label2.width = 100   'Label2的宽度（以磅为单位），即进度条未完成部分widthSum = Label2.width '进度条总长度Label2.Left = Label1.Left + Label1.widthUserForm1.Caption = "进度条示例"UserForm1.width = widthSum + Label1.Left * 2 + 4ScrollBar1.width = widthSumScrollBar1.Max = widthSumScrollBar1.Min = 0End Sub

1 0