VBA制作度条.docx

无标题栏窗体进度条目标：制作一个无标题栏窗体形式的进度条。要求：当进度条到达显示的数值后，数值设置为白色，否则数值设置为蓝色。步骤：创建用户窗体创建一个excel工作簿，进入VBA编辑环境，在当前工程中添加一个用户窗体UserForm1。设置窗体的Height、Width属性分别为38和241，ShowModal属性为False。添加文字框TextBox1在窗体上添加一个文字框TextBox1，作为进度条的白色背景。设置其Height、Width、Left、Top属性分别为18、220、8和8，TabStop属性为False，Text属性为空白。背景颜色BackColor属性用默认的“白色”，BackSyle属性用默认的1（不透明），SpecialEffect属性用默认的2（凹下）。添加文字框TextBox2在窗体上添加一个文字框TextBox2，用来显示进度条的百分比。设置其Height、Width、Left、Top属性分别为18、40、98和12，TabStop属性为False，TextAlign属性为2（水平居中），文字颜色为蓝色，BackSyle设置为0（透明），SpecialEffect属性设置为0（平面）。添加标签Label1在窗体中添加一个标签Label1，作为进度条。设置其Height、Width、Left、Top属性分别为18、0、8和8，Caption属性为空白，BackColor属性为“蓝色”。声明API函数和常量在窗体的快捷菜单中选择“查看代码”，用下列语句声明API函数和常量：Private Declare Function DrawMenuBar Lib user32 (ByVal hwnd As Long) As LongPrivate Declare Function GetWindowLong Lib user32 Alias GetWindowLongA _(ByVal hwnd As Long, ByVal nIndex As Long) As LongPrivate Declare Function SetWindowLong Lib user32 Alias SetWindowLongA _(ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As LongPrivate Declare Function FindWindow Lib user32 Alias FindWindowA _(ByVal lpClassName As String, ByVal lpWindowName As String) As LongPrivate Const GWL_STYLE As Long = (-16)Private Const WS_CAPTION As Long = HC00000编写窗体的初始化代码在用户窗体的初始化事件中编写如下代码，隐藏该窗体的标题栏：Private Sub UserForm_Initialize()If Val(Application.Version) 9 Thenhwnd = FindWindow(ThunderXFrame, Me.Caption)Elsehwnd = FindWindow(ThunderDFrame, Me.Caption)End IfIStyle = GetWindowLong(hwnd, GWL_STYLE)IStyle = IStyle And Not WS_CAPTIONSetWindowLong hwnd, GWL_STYLE, IStyleDrawMenuBar hwndEnd Sub编写子程序jd为了在窗体中显示进度条和完成的百分比，我们在模块中建立一个子程序jd，代码如下：Sub jd(h, lr)h表示当前次数，lr表示总次数UserForm1.Label1.Width = Int(h / lr * 220) 显示进度条If UserForm1.Label1.Width 105 Then 进度到达显示数值UserForm1.TextBox2.ForeColor = HFFFFFF 数值设置为白色ElseUserForm1.TextBox2.ForeColor = HFF0000 数值设置为蓝色End Ifpct = Int(h / lr * 100) 进度值pct = IIf(pct 10, pct %, pct %) 显示进度值UserForm1.TextBox2.Text = pctEnd Sub测试进度条为了测试