excel_vba_编程教程(完整版)-第57部分
按键盘上方向键 ← 或 → 可快速上下翻页，按键盘上的 Enter 键可回到本书目录页，按键盘上方向键 ↑ 可回到本页顶部！
————未阅读完？加入书签已便下次继续阅读！
属性让你设置它的最大值，而Min属性则决定了它的最小值。LargeChange属性决定了当用户点击滚
动条内部时Value属性的改变值。同样，当使用滚动条编程时，不要忘记设置SmallChange属性，它
决定当你点击滚动条的箭头时Value属性如何改变。
14。旋转按钮
旋转按钮作用类似于滚动条。你可以点击旋转按钮来增加或者减小某个数值。旋转按钮经常和文字
框一起使用，因为这样用户就可以使用旋转按钮在文字框里敲入精确的值或者选择数值。和文字框
一起使用旋转按钮的技术将会在本章后面讨论到。
15。图像
图像控件让你可以在窗体上显示图像，该控件支持下列文件格式：*。bmp，*。cur，*gif，*。ico，
*。jpg和*。wmf。就像工具箱里的其它控件一样，图像控件也有许多属性可以设定。例如，你可以使
用PictureSizeMode属性控制图片的外观，该属性有三种设置：0（fmPictureSizeModeClip将不在
图片框里面的部分截除），1（fmPictureSizeModeStretch水平或竖直拉伸图片，使之正好适合图片
框）和3（fmPictureSizeModeZoom按比例放大图片）。
16。多页控件
多页控件可以在窗体顶部显示一系列的页面（参见图10…17）。每小页作为单独的页面使用。使用多
页控件，你可以设置包含两页或多页的窗体，你可以在每页上放置不同的控件。当一个窗体包含很
多的数据时，它的可读性便降低了。点击窗体页要比在一个使用滚动条的长窗体上移动要轻松的多。
默认上，每个多页控件在窗体上显示两页，通过快捷菜单可以添加新页，也可以在VBA过程里使用
192
… 页面 209…
Add方法添加新页。本章中的第二个实践练习时犯了如何使用该控件来追踪学生的考试分数。
17。TabStrip 控件
虽然TabStrip和多页控件看上去非常相似，但是它们有各自不同的作用。TabStrip控件（参见图
10…17）允许你使用相同的控件来显示多套相同的数据。假设窗体显示学生的考试，每个学生必须
通过相同科目的考试。每个科目可以放在一个单独的页上（tab），每页包含相同的控件来收集得分
和考试日期。当你激活任何页的时候，你将看到相同的控件，只有这些控件里的数据变化。参见本
章的第二个实践练习，看看如何使用TablStrip控件。
18。RefEdit 控件
RefEdit控件是专门在Excel里面创建的窗体控件，它允许你在工作表里选择一个单元格或者单元格
区域并且传递到你的VBA过程。看一下一些Excel内置对话框，你就可以看到这个控件是如何工作的，
例如，“数据”菜单里的“合并计算”对话框就有一个标为“引用位置”的RefEdit控件，让你选定
想要进行合并计算的数据区域。点击RefEdit右边的按钮，可以在选择单元格区域的时候暂时隐藏
对话框。本章的第二个实践练习使用RefEdit控件给列表框添加学生姓名。
19。在窗体上放置控件
当你创建自定义窗体的时候，你将工具箱里可用的很多控件（参见图10…9）放置在一个空窗体上。
选择什么样的控件取决于控件需要储存的数据类型，以及你窗体的功能。当你使用窗体时，工具箱
总是可见的，你可以在屏幕上移动它，改变它的大小，或者当你将所有需要的控件放在窗体上了并
且你要做的只是设置它们的属性，你也可以关闭它。临时被移除的工具箱也可以通过选择“视图”
｜“工具箱”重新显示。
工具箱的使用是很容易的，要在窗体上添加新控件的话，可以先点击工具箱上面的控件图标，然后
在窗体上点击一下或者画一个框。在窗体上点击一下（不画框）将会在窗体上放置一个缺省大小的
控件。每个控件的标准设置可以在它的属性窗口里查找到。例如，标准的文字框大小为18X72磅（参
见文字框的Height和Width属性）。在窗体上放置控件后，“选定对象”按钮（用箭头代表）成为工
具箱上的活动控件。如果你双击工具箱上的控件时，你可以随你需要画上很多这个控件。例如，要
快速在窗体上放置三个文字框，可以双击文字框控件，然后在窗体上点击三次。点击工具箱上的选
定对象按钮，可以失活所选的控件。
技巧10…2 设置网格选项
当你在窗体上拖曳控件时，VB将调节控件以使得它和窗体的网格对齐。通过使用“选项”对话框你
可以按你的喜好设置窗体的网格。要访问网格选项的话，可以选择“工具”｜“选项”，然后点击选
项对话框的“通用”页，窗体网格设置区域允许你关闭网格、调整网格大小，以及决定是否需要控
件和网格对齐。
20。应用程序示例 1：信息调查
既然你已经通读了创建用户窗体的理论知识，并且了解了工具箱上不同控件之间的区别，你已经可
以来做一些实践练习了。你可能也知道，理解一个复杂特征的最好方式就是将它应用到一个实际生
活的项目中。在这部分，你将给合作者创建一个自定义窗体，他要求你将给工作表输入调查数据的
单调过程简单化。使用该窗体时（参见图10…11），你将有机会体验许多控件和它们的属性，另外，
你也将学习如何将数据从你的窗体转移到工作表（参见图10…12）
在本章结束的时候，你将拥有创建自定义窗体的必要技能，适应你VBA应用程序独特的要求。
1。 在工程浏览窗口，选中工程VBAProject（Chap10。xls）并且在属性窗口将工程名称改为
CustomForms
2。 选择“插入”｜“用户窗口”，添加一个空白窗体
3。 在属性窗口，双击Name属性并输入InfoSurvey，将窗体的缺省名称（UserForm1）更改掉。你将
在VBA过程里使用给名称引用到该用户窗体
4。 双击Caption属性，并输入窗体新标题：Info Survey。该名称将出现在窗体的标题栏上
5。 双击BackColor属性，点击“调色板”并且给窗体底色选上一种颜色
193
… 页面 210…
图10…11Info Survey窗体允许用户通过作一些适当的选择就可以快速地数据数据
图10…12 每次使用窗体Survey后，用户的选择就会写入到工作表里面
21。在窗体上添加按钮、选项框和其它控件
给自定义窗体设置完初始属性（Name和Caption）后，我们继续来给窗体放置需要的控件吧。这里
是一步一步的指导如何准备如图10…11显示的窗体。
1。 更改窗体大小
当你在工程里插入的缺省窗体太小，不够放置你VBA程序要求的控件时，你可以按照下述方法
之一来更改它的大小：
a。 使用鼠标调整大小
* 点击窗体的空白部分，窗体周围便会出现好几个选用符
* 将鼠标放在窗体右边中间的选用符上，并且将其向右拖曳至你想要的位置，释放鼠标
194
… 页面 211…
* 将鼠标放在窗体下边中间的选用符上，并且将其向下拖曳至你想要的位置，释放鼠标
b。 通过属性窗口调整窗体大小：
每个新建的窗体缺省大小为180 X 240。窗体尺寸单位是磅。一磅等于1/72英寸。输入窗体两
个属性：Height和Width的新数值，可以改变窗体的大小。
* 点击窗体的标题栏（显示“Info Survey”的地方）
* 在属性窗口，双击属性Height并且输入值252。75，更改Width属性为405。75
为了避免重复工作，总是在添加需要的控件之前调整窗体的大小。
2。 添加框架
* 点击工具箱上的框架控件，这时鼠标光标变成了一个十字架并且跟随着被选择控件的标
志
* 指向窗体的左上角，然后点击并拖曳鼠标画出一个小矩形。当你释放鼠标后，你将看到
一个标题为“Frame1”的小矩形。当该框架被选择上后，它旁边就会出现一些选用符，
并且属性窗口的标题栏便会显示“属性…Frame1”
* 在属性窗口，双击Caption属性并将默认的标题Frame1改为“Main Interest”
3。 添加选项按钮
* 点击工具箱上的选项按钮，将鼠标移动到你刚才在窗体上添加的框架“Main Interest”
内部，点击并且向右拖曳鼠标，直到看到一个带有标签“OptionButton1”的矩形
* 在属性窗口将该选项按钮的Caption属性改为“Hardware”
* 使用相同的技术，在“Main Interest”框架里添加另外一个选项按钮并且将Caption
属性改为Software
无论何时当用户必须从一组相互排斥的选项中选择一个时就要使用选项按钮，如果用户必须
选择多余一个的选项的话，就要使用复选框。
4。 添加列表框
* 点击工具箱上的列表框控件，这时鼠标光标变成了一个十字架并且跟随着被选择控件的
标志。在Main Interest框架下面点击并且向下向右拖曳鼠标画出一个列表框，当你释
放鼠标后，将看到一个白的矩形。
图10…11显示了添加了各种硬件的列表框。在本实践工程的后面，你将学习如何在该列表框里
面显示合适的项目。
5。 添加带选项按钮的框架
* 按照第二步在列表框下面插入一个框架并且按照第四步将框架的Caption属性改为
Gender。在该框架里面添加两个选项按钮，并且将第一个按钮的Caption属性改为Male，
第二个为Female。参见图10…11
技巧10…3 操作和移动控件
如果你想要复制控件的话，那么就选择该控件（被选择的控件将会有选用符在其周围），按住Ctrl
键，将光标置于控件中央然后按下鼠标左键，拖曳光标到你需要的位置，然后释放鼠标，更改按钮
的Caption属性。
在选择和移动一组控件的话，点击工具箱上面的“选定对象”工具，并且在你需要移动的一组控件
周围画一个矩形框，当你释放鼠标后，所有控件都将被选择上。（你也可以通过按住Shift键，并点
击每个要选择的控件来选择一个以上的控件——不要只看，动手试试）要移动被选择的控件组到窗
体上的另外位置的话，可以点击选择区域并拖曳鼠标到预期位置。
6。 添加带复选框的框架
* 点击工具箱上的框架控件，并且在Main Interest框架右边画一个矩形
* 将其Caption属性改为puter Type
* 点击工具箱上的复选框按钮，并且在刚添加的框架内部点击一下，框架里应该出现
CheckBox1控件
* 更改CheckBox1的Caption属性为IBM/patible
* 在puter Type框架里面再放置两个复选框，使用Caption属性将这两个复选框标题设
置为：Notebook/Laptop和Macintosh。最后的结果应该和图10…11一致。
不像选项按钮那样相互排斥，复选框允许用户同时激活一个或者多个选项。复选框在特定时
候可以是选定的，未选定的或者不可用的。不可用的复选框会变灰并且不能被选定。选定的
195
… 页面 212…
复选框的标题前面有一个x号，具有焦点的复选框的标题周围有虚线包围。
技巧10…4 复选框还是选项按钮
同时只能选择一个选项的时候使用选项按钮，而复选框让用户选择任意多个适合的选项。
7。 添加标签和复合框
* 点击工具箱上的标签控件
* 点击puter Type框架下面的空白地方，Label1控件应该就会出现在那里
* 将Label1的Caption属性改为Where Used
* 点击工具箱上的复合框控件
* 点击标签Where Used下面的空白地方并且拖曳鼠标画出一个长方形，释放鼠标。
只有当你点击
