VBA小技巧：扩大/缩小用户窗体

有时候，在使用VBA实现主要功能的同时，使用一些小技巧，可以起到锦上添花的效果。正如本文所介绍的技巧，可以通过一个标签控件，来扩大或者缩小用户窗体。效果如下图1所示。

图1

首先，按Alt+F11组合键打开VBE，单击菜单“插入——用户窗体”插入一个用户窗体，然后，在其中插入一个标签控件，设置其背景和字体颜色，将其命名为“lblView”，修改其Caption属性为“全局视图”，如下图2所示。

图2

在该用户窗体代码模块中，输入下面的代码：

Private Sub lblView_Click()

With Me.lblView

If .Caption = "全局视图" Then

.Caption = "局部视图"

With Me

.Height = Application.Height

.Width = Application.Width

.Left = Application.Left

.Top = Application.Top

End With

Else

Unload Me

UserForm1.Show

End If

End With

End Sub

此时，按F5键或者单击菜单“运行——运行子过程/用户窗体”，然后单击该标签，就会出现如上图1所示的效果。

如果你在用户窗体中放置有文本框等控件，则可以编写相应的代码，在放大用户窗体时，相应增加这些控件的尺寸，在缩小时恢复原尺寸。

很简单的技巧，可以给你的界面增添不错的效果。