在用户窗体上添加状态栏

1、VBA常用技巧代码解析技巧1在用户窗体上添加状态栏在错误！未找到引用源。、错误！未找到引用源。中我们在用户窗体上添加了菜单和工具栏，为了使窗体更像正规的软件，还需要在用户窗体的底部添加一个状态栏，用于显示程序的各种状态信息。在用户窗体上添加状态栏使用StatusBar控件，StatusBar控件用于设计窗体状态栏，状态栏由一组连续的窗格（最多16个）对象组合而成，用于显示应用程序当前的工作状态，其位置通常在应用程序窗体的底部。在设计模式下右键单击“工具箱”，在显示的右键菜单中选择附加控件”，在显示的对话框中选择MicrosoftStatusBarControl,veision6.0控件如图1-

2、1所示，拖动后就可以在用户窗体上添加一个StatusBar控件。图1-1选择StatusBar控件在用户窗体上添加了StatusBar控件后还需要添加窗格，可以在StatusBar控件的属性页中进行设置和添加，在StatusBar控件的属性窗口中选择“自定义”按钮，在显示的属性页中设置属性和添加窗格，如图1-2所示。；.Ij - D2：iFdeB) DincFara!：EI 如吧 urn m aw皿。minnTutuI-崎看1融，TUFflP|tiBIHRjSe/yrfew工.(iTPHilba-稚fu-TfvsuqBATr.j.TC!II$II；“Hi.eF-tulliEiteltfltSA

3、.” ，备3 i4fF+nl廿仃餐序苗斓瞽庠TsarN*LgMLfEIczb-bI-sa lwaf 43 ntn- 口 LiJlfiif* XrT*”副捕Taft-TiUu才2y加d u wTm0 - r 百LW t;%142切/“Ttmn*ibrt*TrwD - ihwBxrwkl皋，心”图1-2添加StatusBar控件的窗格也可以在代码运行时对其进行属性设置和添加窗格，双击用户窗体写入下面的代码：# 001PrivateSubUserForm_Initialize()# 002使用API函数添加菜单代码略，详见附件。# 003DimarrAsVariant# 004DimiAsByte#

4、005使用Toolbar控件添加工具栏代码略，详见附件。#006arr=Array(0,6,5)#007WithStatusBar1#008.Width=Me.Width-10#009Fori=1To3#010.Panels.Add(i,).Style=arr(i-1)#011Next#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

5、=LoadPicture(ThisWorkbook.Path&123.BMP)# 017Fori=0To2# 018.Panels(i+1).Alignment=i# 019Next# 020EndWith# 021EndSub代码解析：第8行代码设置StatusBar控件的宽度比用户窗体略小一点。第9行到第11行代码在StatusBar控件中添加三个窗格并指定窗格的样式。添加窗格需要在Panels集合对象中使用Add方法，语法如下：object.Panels.Add(index,key,text,style,picture)参数object是必需的，代表StatusBar对象。参数index

6、是可选的，指定新增窗格的索引值，该索引值决定了窗格在StatusBar控件中的位置。如果省略index参数新增窗格添加到Panels集合的最后。参数key是可选的，指定新增窗格的关键字。参数text是可选的，指定新增窗格中显示的文本。参数style是可选的，指定新增窗格的样式，设置值如表格1-1所示。属性值值说明sbrText0显示文本与图形sbrCaps1显示大小写状态sbrNum2显示numlock键状态sbrIns3显示Insert状态sbrScrl4显示Scroll键状态sbrtime5按系统格式显示时间sbrDate6按系统格式显示日期表格1-1Style参数值参数picture是可

7、选的，指定新增窗格载入的图像。第12行代码设置第一个窗格显示的文本。第13行到第15行代码设置三个窗格的宽度。第16行代码为第三个窗格加载指定的图像。Panels 对象的 Alignment 属第17行到第19行代码设置三个窗格中文本的对齐方式。性返回或设置窗格中文本的对齐方式，设置值如表格1-2所示。属性值值说明sbrLeft0文本左对齐sbrCenter1文本居中对齐sbrRight3文本右对齐表格1-2Alignment属性值在示例中使用StatusBar控件的第一个窗格在用户窗体的文本框输入时显示所输入的内容，需要在文本框中写入下面的代码。#001PrivateSubTextBox1_Change()#002StatusBar1.Panels(1).Text=正在录入：&Te