在用户窗体上添加状态栏

技巧1 在用户窗体上添加状态栏
在错误！未找到引用源。

、错误！未找到引用源。

中我们在用户窗体上添加了菜单和工具栏，为了使窗体更像正规的软件，还需要在用户窗体的底部添加一个状态栏，用于显示程序的各种状态信息。

在用户窗体上添加状态栏使用StatusBar控件，StatusBar控件用于设计窗体状态栏，状态栏由一组连续的窗格（最多16个）对象组合而成，用于显示应用程序当前的工作状态，其位置通常在应用程序窗体的底部。

在设计模式下右键单击“工具箱”，在显示的右键菜单中选择“附加控件”，在显示的对话框中选择“Microsoft StatusBar Control，veision 6.0”控件如图1-1所示，拖动后就可以在用户窗体上添加一个StatusBar控件。

图1-1 选择StatusBar控件
在用户窗体上添加了StatusBar控件后还需要添加窗格，可以在StatusBar控件的属性页中进行设置和添加，在StatusBar控件的属性窗口中选择“自定义”按钮，在显示的属性页中设置属性和添加窗格，如图1-2所示。

图1-2 添加StatusBar控件的窗格
也可以在代码运行时对其进行属性设置和添加窗格，双击用户窗体写入下面的代码：
#001 Private Sub UserForm_Initialize()
#002 ……使用API函数添加菜单代码略，详见附件。

#003 Dim arr As Variant
#004 Dim i As Byte
#005 ……使用Toolbar控件添加工具栏代码略，详见附件。

#006 arr = Array(0, 6, 5)
#007 With StatusBar1
#008 .Width = Me.Width - 10
#009 For i = 1 To 3
#010 .Panels.Add(i, , "").Style = arr(i - 1)
#011 Next
#012 .Panels(1).Text = "准备就绪!"
#013 .Panels(2).Width = 60
#014 .Panels(3).Width = 75
#015 .Panels(1).Width = Me.Width - .Panels(1).Width
- .Panels(2).Width
#016 .Panels(3).Picture = LoadPicture(ThisWorkbook.Path & "\123.BMP")
#017 For i = 0 To 2
#018 .Panels(i + 1).Alignment = i
#019 Next
#020 End With
#021 End Sub
代码解析：
第8行代码设置StatusBar控件的宽度比用户窗体略小一点。

第9行到第11行代码在StatusBar控件中添加三个窗格并指定窗格的样式。

添加窗格需要在Panels集合对象中使用Add方法，语法如下：
object.Panels.Add(index, key, text, style, picture)
参数object是必需的，代表StatusBar对象。

参数index是可选的，指定新增窗格的索引值，该索引值决定了窗格在StatusBar控件中的位置。

如果省略index参数新增窗格添加到Panels集合的最后。

参数key是可选的，指定新增窗格的关键字。

参数text是可选的，指定新增窗格中显示的文本。

参数style是可选的，指定新增窗格的样式，设置值如表格1-1所示。

表格1-1 Style参数值
参数picture是可选的，指定新增窗格载入的图像。

第12行代码设置第一个窗格显示的文本。

第13行到第15行代码设置三个窗格的宽度。

第16行代码为第三个窗格加载指定的图像。

第17行到第19行代码设置三个窗格中文本的对齐方式。

Panels对象的Alignment属性返回或设置窗格中文本的对齐方式，设置值如表格1-2所示。

表格1-2 Alignment属性值
在示例中使用StatusBar控件的第一个窗格在用户窗体的文本框输入时显示所输入的内容，需要在文本框中写入下面的代码。

#001 Private Sub TextBox1_Change()
#002 StatusBar1.Panels(1).Text = "正在录入:" & TextBox1.Text
#003 End Sub
代码解析：
文本框的Change事件过程，将文本框中输入的内容显示在StatusBar控件的第一个窗格中。

运行窗体后在窗体上添加状态栏，如图1-3所示。

图1-3 在用户窗体上添加状态栏。