Excel VBA编程 调整窗体中的控件

Excel VBA编程 调整窗体中的控件

设计用户窗体时，要求尽可能的美观整洁、简单实用。当用户窗体中的控件数量较多时，如何安排各控件的位置，以及设置控件的大小等操作就显得非常的重要了，下面介绍快速调整控件大小及排列控件位置的方法。 1．设置控件大小

要设置用户窗体中控件的大小时，可通过拖动鼠标来控制控件的大小。对于已经添加到窗体上的控件，单击并选中控件时，其周围将出现8个控制点，拖动这些控制点也可以设置控件的大小。

除了使用鼠标拖动的方式来设置控件的大小外，还可以使用Height和Width属性来设置控件的高度与宽度，以磅为单位的数值类型的值。 当窗体中的控件较多时，一般还需要将类似的控件设置为大小相同。可在窗体中选择要设置的控件，并在【属性】窗口中，为其Height和Width属性指定值，来设置所选择的控件的大小。还可以在选择控件后，并右击其中的一个控件，执行【统一尺寸】｜【两者有相同】命令，设置控件大小（宽度和高度）相同。如图12-13所示。

执行

图12-13 设置控件大小

【统一尺寸】菜单下有三个子菜单命令，其作用为：

? ? ?

在使用右键快捷菜单中的命令，来控制控件的大小统一相同的时候，选择的控件将宽度相同 高度相同 两者相同

该命令可使被选择的所有控件的宽度相同 该命令可使被选择的所有控件的高度相同

该命令可使被选择的所有控件的宽度和高度相同。执行该命令等于分别执行了【宽度相同】和【高宽相同】。

以拥有白色控制点的控件的大小为准。在本书中称其为“参照控件”

。

提 示

2．设置控件布局

控件布局是指在窗体中添加控件之后，对控件的大小、位置、间距等格式的设置。通过对窗体控件的布局的设置，可使窗体界面变得更加整齐和美观，并为用户提供一个更加友好的用户界面。

在用户窗体中，分别提供了对窗体对象的对齐、水平间距、垂直间距、窗体内居中和排列按钮等内容设置，下面来介绍这些设置的作用，如表12.5所示。

表12.5 控件布局的设置

类别 名称 说明 对齐 左对齐 居中对齐 右对齐 顶端对齐 中间对齐 底端对齐 对齐到网格 左对齐指定的控件，控件的数量为两个或两个以上。 居中对齐指定的控件，控件的数量为两个或两个以上。 右对齐指定的控件，控件的数量为两个或两个以上。 顶端对齐指定的控件，所选控件应为同行显示的控件。 中间对齐指定的控件，所选控件应为同行显示的控件 底端对齐指定的控件，所选控件应为同行显示的控件 将指定的控件对齐到网格中，适用于被Height和Width设置过 控件。 水平间距（所选控件应为同行显示的控件） 正好容纳 调至网格 相同 递增 将控件大小设置为正好容纳控件中标题文字的大小。 将指定的控件设置为控件所完全占用最大网格的大小。 设置所选控件的水平间距相同，控件的数量为三个或三个以上。 参照控件不动，其两侧的控件向窗体的边框处移动一个网格的间距。 递减 移除 参照控件不动，其两侧的控件向参照控件移动一个网格的间距。 参照控件不动，其他控件向参照控件移动，且相临控件的水平间距为零。 垂直间距（所选控件应为同列显示的控件） 相同 增加 设置所选控件的垂直间距相同，控件的数量为三个或三个以上。 参照控件不动，其上面或下面的控件向窗体的顶部和底部移动一个网格的间距。 减少 参照控件不动，其上面或下面的控件向参照控件移动一个网格的间距。 移除 参照控件不动，其他控件向参照控件移动，且相临控件的垂直间距为零。 窗体内居中 水平对齐 垂直对齐 将所选控件，以窗体为参照，垂直显示到窗体中间 将所选控件，以窗体为参照，水平显示到窗体中间 将所选按钮，水平显示到窗体的左下处，控件之间间距为1个网格。 排列按钮 底端 居右 将所选按钮，垂直显示到窗体的右上端，控件之间间距为1个网格。 如要对窗体控件的布局进行设置，可在选择控件后，执行【格式】菜单中相应的命令。

3．设置Tab键顺序 使用键盘操作控件时，按“Enter”键相当于单击具有焦点的控件。控件的焦点可使用“Tab”键来改变，Tab键顺序确定了按“Tab”键时控件的激活顺序，还可以确定最初焦点放在哪个控件上。

要设置控件的Tab键顺序，可在用户窗体中选择控件。在【属性】窗口中，选择TabIndex属性，并输入其Tab键顺序的数字，然后依次为其他的控件设置Tab键。如图12-14所示。

输入

图12-14 设置TabIndex属性

设置Tab键顺序时，其最小的值为0。窗体中如标签、分组框等控件设置的Tab键

提 示

在运行时无效。因为，这些控件无法为其指定焦点。