6.5.2 状态栏
状态栏StatusBar控件用来显示系统信息和对用户的提示，如：系统日期、软件版本、光标的当前位置、键盘的状态等。
StatusBar控件就是一个窗体，该窗体通常放在窗体的底部，或通过其Align属性设置其出现的位置。在设计时，在窗体上增加 StatusBar 控件，打开其“属性页”对话框，选择“窗格”选项卡，如图6-37所示。可在其中进行必要的设置，以建立面板并定制它们的外观。
“插入窗格”按钮：在状态栏增加新的窗格，最多可分成16个窗格。
“索引”、“关键字”：分别表示每个窗格的编号和标识符。
“文本”：窗格上显示的文本。
“浏览”：可插入图像文件。
“样式”下拉列表：其中各常数指定系统提供的显示信息，具体设置值如表6-20所示。
通常使用状态栏显示程序运行过程中的状态，或在需要时给出特定的提示信息。很少会使用状态栏对事件做出相关响应，因而状态栏提供的方法和事件在程序设计中使用的非常有限。设计的状态栏效果如图6-38所示。
图6-37 StatusBar的“属性页”对话框中的“窗格”选项卡
表6-20 状态栏的Style属性
|
常数 |
值 |
描 述 |
|
sbrText |
0 |
（缺省）文本和位图。用 Text 属性设置文本 |
|
sbrCaps |
1 |
【Caps Lock】键状态。当激活【Caps Lock】键时，用黑体显示字母 CAPS；反之，显示暗淡的字母 |
|
sbrNum |
2 |
【Num Lock】键状态。当激活数字锁定键时，用黑体显示字母 NUM；反之，显示暗淡的字母。 |
|
sbrIns |
3 |
【Insert】键状态。当激活插入键时，用黑体显示字母 Ins；反之，显示暗淡的字母 |
|
sbrScrl |
4 |
【Scroll Lock】键状态。当激活滚动锁定键时，用黑体显示字母 SCRL；反之，显示暗淡的字母 |
|
sbrTime |
5 |
Time，以系统格式显示当前时间 |
|
sbrDate |
6 |
Date，以系统格式显示当前日期 |
|
sbrKana |
7 |
Kana |
图6-38 状态栏效果图
6.6 项目指导
操作步骤：
1．新建一个标准EXE工程。
2．界面设计与属性设计
（1）创建MDI窗体（Name 属性为“frmMDI”，Caption属性为“MDI记事本”），在其上设计一个图片框Picture1，然后在图片框上放置一个通用对话框（CommonDialog1）。打开然后“菜单编辑器”编辑如下结构的菜单：
文件（&F） MenuFile
….新建（&N） MenuNew
….打开（&O） MenuOpen
….退出（&E） MenuExit
（2）建立子窗体（Name属性为“frmNotePad”，Caption属性为“无标题”，MDIChild为“True”），在其中添加一个文本框控件Text1（Multiline属性为“True”，ScrollBars属性为“2—Vertical，Text属性为空白）。子窗体上创建的菜单结构如下：
文件（&F） MenuFile
….新建（&N） MenuNew
….打开（&O） MenuOpen
….保存（&S） MenuSave
….另存为（&A） MenuSaveAs
….关闭（&C） MenuClose
….- Menu1
….退出（&E） MenuExit
编辑（&E） MenuEdit
….剪切（&T） Ctrl+X MenuCut
….复制（&C） Ctrl+C MenuCopyt
….粘贴（&P） Ctrl+V MenuPaste
….删除（&D） Del MenuDelete
….- Menu2
….全部选定（&A） MenuSelectAll
搜索（&S） MenuSearch
….查找（&F） MenuFind
窗口（&W） MenuWindows
….层叠（&C） MenuCascade
….平铺（&T） MenuTile
….排列图标（&A） MenuArrange
（3）模式对话框窗体（frmFind）中添加一个标签、一个文本框和三个命令按钮，各控件属性设置如表6-21所示。
（4）选取“工程”菜单中的“添加模块”命令，新建标准模块Module1。
表6-21 frmFind窗体上各对象的主要属性设置
|
默认对象名称 |
设置对象名称（Name属性） |
标题属性（Caption属性） |
其他属性 |
|
Form1 |
frmFind |
查找 |
|
|
Label1 |
默认对象名称 |
查找内容 |
|
|
Command1 |
CmdFind |
查找 |
|
|
Command2 |
CmdFindNext |
查找下一个 |
|
|
Command3 |
CmdCancel |
取消 |
|
|
Text1 |
TxtFind |
无定义 |
Text属性为空白 |
3．程序代码设计
（1）通用过程的代码设计
文件操作通用过程（有关文件的具体操作没有给出，学习完第九章相关知识后，可自行补充）：
Private i As Integer
Public Sub FileNew()
Dim NewFrm As New frmNotePad ' 声明并创建一个NewFrm 窗体变量
i = i + 1
NewFrm.Caption = "无标题" & i ' 显示新的子窗体
NewFrm.Show
End Sub