46、高级用户窗体技术全解析-优快云博客

高级用户窗体技术全解析

模拟工具栏与任务窗格

在用户窗体的操作中，有许多实用的技巧。首先是模拟工具栏的操作，有这样一个过程调用 NormalSize 过程，它能让每个图像恢复到正常大小，代码如下：

Private Sub NormalSize()
 '   Make all controls normal size
    Dim ctl As Control
    For Each ctl In Controls 
        ctl.Width = 24
        ctl.Height = 24
    Next ctl 
End Sub

这个操作的实际效果是，当鼠标光标移到控件上时，用户能获得一些视觉反馈，就像真正的工具栏一样。不过，这种工具栏模拟有一定局限性，比如无法调整用户窗体的大小（例如让图像垂直显示而非水平显示），也不能将这个伪工具栏停靠在Excel窗口的边框上。

从Office 2013开始，任务窗格的作用得到了扩展，用于调整许多对象（包括图表和图像）的格式，并且外观也焕然一新。有一个用户窗体尝试模拟内置任务窗格的外观，它和本章开头的无模式用户窗体示例类似。你可以通过拖动标题来移动这个用户窗体（就像移动任务窗格一样），它的右上角还有一个“X”（关闭）按钮，并且和任务窗格一样，仅在需要时显示垂直滚动条。

任务窗格的背景颜色会根据Office主题（在Excel选项对话框的“常规”选项卡中指定）而变化。为了设置背景颜色，需要将控件的背景设为透明，并使用以下代码：