VBA常用技巧代码解析

lidning

谢谢   非常好  已经下载

lidning

看了下载后的文件  非常精彩  谢谢

zcljsfgs

好好学习，天天向上

zxk007

已下来学习，十分感谢。

淹没

回去学习下，谢 楼主了

jadeite1982

先作个记号，再慢慢学

yunghedy

谢谢，先下了再说．

blueogre

好东西，谢谢，希望能坚持下去。

dolphincdz

感谢分享 非常有用

yuanzhuping

技巧152         在用户窗体上添加状态栏
       在技巧148 、技巧149 中我们在用户窗体上添加了菜单和工具栏，为了使窗体更像正规的软件，还需要在用户窗体的底部添加一个状态栏，用于显示程序的各种状态信息。
      在用户窗体上添加状态栏使用StatusBar控件，StatusBar控件用于设计窗体状态栏，状态栏由一组连续的窗格（最多16个）对象组合而成，用于显示应用程序当前的工作状态，其位置通常在应用程序窗体的底部。在设计模式下右键单击“工具箱”，在显示的右键菜单中选择“附加控件”，在如图所示对话框中选择“Microsoft StatusBar Control， veision 6.0”控件，拖动后就可以在用户窗体上添加一个StatusBar控件。
      
       在用户窗体上添加了StatusBar控件后还需要添加窗格，可以在StatusBar控件的属性页中进行设置和添加，在StatusBar控件的属性窗口中选择“自定义”按钮，在如图所示的属性页中设置属性和添加窗格。
      
       也可以在代码运行时对其进行属性设置和添加窗格，双击用户窗体写入下面的代码：

1. #001  Private Sub UserForm_Initialize()
   
2. #002      ……使用API函数添加菜单代码略，详见附件。
   
3. #003      Dim arr As Variant
   
4. #004      Dim i As Byte
   
5. #005      ……使用Toolbar控件添加工具栏代码略，详见附件。
   
6. #006      arr = Array(0, 6, 5)
   
7. #007      With StatusBar1
   
8. #008          .Width = Me.Width - 10
   
9. #009          For i = 1 To 3
   
10. #010              .Panels.Add(i, , "").Style = arr(i - 1)
    
11. #011          Next
    
12. #012          .Panels(1).Text = "准备就绪!"
    
13. #013          .Panels(2).Width = 60
    
14. #014          .Panels(3).Width = 75
    
15. #015          .Panels(1).Width = Me.Width - .Panels(1).Width - .Panels(2).Width
    
16. #016          .Panels(3).Picture = LoadPicture(ThisWorkbook.Path & "\123.BMP")
    
17. #017          For i = 0 To 2
    
18. #018              .Panels(i + 1).Alignment = i
    
19. #019          Next
    
20. #020      End With
    
21. #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是可选的，指定新增窗格的样式，设置值如表格所示。
      
       参数picture是可选的，指定新增窗格载入的图像。
       第12行代码设置第一个窗格显示的文本。
       第13行到第15行代码设置三个窗格的宽度。
       第16行代码为第三个窗格加载指定的图像。
       第17行到第19行代码设置三个窗格中文本的对齐方式。Panels对象的Alignment属性返回或设置窗格中文本的对齐方式，设置值如表格所示。
      
       在示例中使用StatusBar控件的第一个窗格在用户窗体的文本框输入时显示所输入的内容，需要在文本框中写入下面的代码。

1. #001  Private Sub TextBox1_Change()
   
2. #002      StatusBar1.Panels(1).Text = "正在录入:" & TextBox1.Text
   
3. #003  End Sub

复制代码

代码解析：
       文本框的Change事件过程，将文本框中输入的内容显示在StatusBar控件的第一个窗格中。
       运行窗体后在窗体上添加状态栏，如图所示。