VBA的控件及用户窗体

VBA常用技巧代码解析技巧51、REF_Ref230487954\r\h技巧52中我们在用户窗体上添加了菜单和工具栏，为了使窗体更像正规的软件，还需要在用户窗体的底部添加一个状态栏，用于显示程序的各种状态信息。在用户窗体上添加状态栏使用StatusBar控件，StatusBar控件用于设计窗体状态栏，状态栏由一组连续的窗格（最多16个）对象组合而成，用于显示应用程序当前的工作状态，其位置通常在应用程序窗体的底部。在设计模式下右键单击“工具箱”，在显示的右键菜单中选择“附加控件”，在显示的对话框中选择“MicrosoftStatusBarControl，veision6.0”控件如REF_Ref230510200\h图551所示，拖动后就可以在用户窗体上添加一个StatusBar控件。图STYLEREF3\s55SEQ图\*ARABIC\s31 选择StatusBar控件在用户窗体上添加了StatusBar控件后还需要添加窗格，可以在StatusBar控件的属性页中进行设置和添加，在StatusBar控件的属性窗口中选择“自定义”按钮，在显示的属性页中设置属性和添加窗格，如REF_Ref230510885\h图552所示。图STYLEREF3\s55SEQ图\*ARABIC\s32 添加StatusBar控件的窗格也可以在代码运行时对其进行属性设置和添加窗格，双击用户窗体写入下面的代码：#001PrivateSubUserForm_Initialize()#002……使用API函数添加菜单代码略，详见附件。#003DimarrAsVariant#004DimiAsByte#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=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是可选的，指定新增窗格的索引值，该索引值决定了窗格在StatusBar控件中的位置。如果省略index参数新增窗格添加到Panels集合的最后。参数key是可选的，指定新增窗格的关键字。参数text是可选的，指定新增窗格中显示的文本。参数style是可选的，指定新增窗格的样式，设置值如REF_Ref230532763\h表格551所示。属性值值说明sbrText0显示文本与图形sbrCaps1显示大小写状态sbrNum2显示numlock键状态sbrIns3显示Insert状态sbrScrl4显示Scroll键状态sbrtime5按系统格式显示时间sbrDate6按系统格式显示日期表格STYLEREF3\s55SEQ表格\*ARABIC\s31 Style参数值参数picture是可选的，指定新增窗格载入的图像。第12行代码设置第一个窗格显示的文本。第13行到第15行代码设置三个窗格的宽度。第16行代码为第三个窗格加载指定的图像。第17行到第19行代码设置三个窗格中文本的对齐方式。Panels对象的Alignment属性返回或设置窗格中文本的对齐方式，设置值如REF_Ref230533422\h表格552所示。属性值值说明sbrLeft0文本左对齐sbrCenter1文本居中对齐sbrRight3文本右对齐表格STYLEREF3\s55SEQ表格\*ARABIC\s32 Alignment属性值在示例中使用StatusBar控件的第一个窗格在用户窗体的文本框输入时显示所输入的内容，需要在文本框中写入下面的代码。#001PrivateSubTextBox1_Change()#002StatusBar1.Panels(1).Text="正在录入:"&TextBox1.Text#003EndSub代码解析：文本框的Change事件过程，将文本框中