在用户窗体上添加状态栏.docVIP

在用户窗体上添加状态栏 在技巧148 、技巧149 中我们在用户窗体上添加了菜单和工具栏，为了使窗体更像正规的软件，还需要在用户窗体的底部添加一个状态栏，用于显示程序的各种状态信息。 在用户窗体上添加状态栏使用StatusBar控件，StatusBar控件用于设计窗体状态栏，状态栏由一组连续的窗格（最多16个）对象组合而成，用于显示应用程序当前的工作状态，其位置通常在应用程序窗体的底部。在设计模式下右键单击“工具箱”，在显示的右键菜单中选择“附加控件”，在显示的对话框中选择“Microsoft StatusBar Control， veision 6.0”控件如图 1521所示，拖动后就可以在用户窗体上添加一个StatusBar控件。 图 1521 选择StatusBar控件 在用户窗体上添加了StatusBar控件后还需要添加窗格，可以在StatusBar控件的属性页中进行设置和添加，在StatusBar控件的属性窗口中选择“自定义”按钮，在显示的属性页中设置属性和添加窗格，如图 1522所示。 图 1522 添加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是可选的，指定新增窗格的样式，设置值如表格 1521所示。 属性值 值 说明 sbrText 0 显示文本与图形 sbrCaps 1 显示大小写状态 sbrNum 2 显示numlock键状态 sbrIns 3 显示Insert状态 sbrScrl 4 显示Scroll键状态 sbrtime 5 按系统格式显示时间 sbrDate 6 按系统格式显示日期 表格 1521 Style参数值 参数picture是可选的，指定新增窗格载入的图像。 第12行代码设置第一个窗格显示的文本。 第13行到第15行代码设置三个窗格的宽度。 第16行代码为第三个窗格加载指定的图像。 第17行到第19行代码设置三个窗格中文本的对齐方式。Panels对象的Alignment属性返回或设置窗格中文本的对齐方式，设置值如表格 1522所示。 属性值 值 说明 sbrLeft 0 文本左对齐