excel_vba_编程教程(完整版)-第58部分
按键盘上方向键 ← 或 → 可快速上下翻页，按键盘上的 Enter 键可回到本书目录页，按键盘上方向键 ↑ 可回到本页顶部！
————未阅读完？加入书签已便下次继续阅读！
只有当你点击控件右边的向下箭头时，复合框才会显示可用的选项清单。复合框有时也被称
为下来列表并且用来屏幕上的宝贵空间。尽管用户一时只能看见清单中的一项，但是通常点
击向下箭头可以很快地改变当前选择。
8。 添加标签、文字框和旋转按钮
* 点击工具箱上的标签控件
* 在Where Used复合框下面的空白地方点击一下，将会出现一个标签控件，更改其Caption
属性为Percent （％） Used
* 点击工具箱上的文字框控件
* 在Percent （％） Used标签右边点击一下放置一个默认大小的文字框
* 点击工具箱上的旋转控件，然后点击文字框控件的右侧，出现一个默认大小的旋转按钮。
最后的样子如图10…11所示
旋转按钮有两个箭头，用来在一个给定范围内增加或者减少数值。最大值由Max属性的设置决
定，而最小值则由Min属性设定。旋转按钮和滚动条有相同的属性，但是也有两个不同之处：
旋转按钮没有滚动条，而且它少一个LargeChange属性。文字框通常放置在旋转按钮的旁边，
这样允许用户直接在文字框里面输入数据，或者使用旋转按钮控制数值。如果旋转按钮必须
和文字框一起使用的话，那么你定VBA过程必须确保文字框里输入的数据和旋转按钮保持同
步。在本练习里，你将使用旋转按钮来显示所选硬件或者软件的兴趣百分比。
9。 添加命令按钮
* 双击工具箱上的命令按钮控件。回想一下双击工具箱上的控件时，表明你想要添加一个
以上的所选控件
* 点击窗体的右上角，这将导致出现mandButton1
* 点击mandButton1的下面，出现mandButton2
* 将mandButton1的Caption属性为OK，mandButton2为Cancel。
多数自定义窗体都有两个命令按钮，确定和取消，使用户能够接受窗体上输入的数据，或者
离开窗体。在本练习里，OK按钮将输入在窗体上的数据转移到工作表里。无论何时当他完成
数据输入的时候，用户也可以点击取消按钮。你将在本章后面编写合适的VBA过程，使按钮对
用户的操作有反应。
10。添加图像控件
* 点击工具箱上的图像按钮
* 在Cancel按钮下面用鼠标点击，并且拖曳鼠标，画一个长方形，释放鼠标，最后的样子
如图10…11所示。窗体将根据选择的是Hardware或者Software选项按钮，显示不同的图
片。图像将用VBA程序上载。
11。检查窗体外观
* 点击窗体标题栏，或者点击窗体上的任意空白区域，选定窗体
* 按下F5键或者选择“运行”｜“运行子过程/用户窗体”来显示用户将看到的窗体
* VB将切换到Excel窗口的当前活动工作表，并且显示你设计的自定义窗体。如果你忘了
选择窗体，就会出现宏对话框（译者：按下F5的时候），关闭宏对话框，然后重复前面
两步
* 点击窗体右上角的关闭按钮（x）来关闭该窗体，返回到VB编辑器窗口。回想一下，我
们放置在窗体上的OK和Cancel按钮都还没有任何功能，它们需要VBA过程让它们工作。
在窗体上添加完控件后，你可以使用鼠标或者格式菜单命令来调节控件的对齐和空间。
196
… 页面 213…
技巧10…5 使用用户窗体工具栏
用户窗体工具栏包含很多有用的使用窗体的快捷键，例如使控件大小一样，水平或者数值居中，控
件边缘对齐，以及组合或取消组合控件。选择“视图”｜“工具栏”｜“用户窗体”。
22。更改控件名称
在开始编写程序控制窗体之前，你应该给每个放置在窗体上的控件分配自己的名称。尽管VB自动给
每个控件分配一个缺省名称，但是要在一个过程里引用多个几乎具有一样的名称的同类对象的话，
这些名称是很难区分的，例如：OptionButton1， OptionButton2，等等。给窗体上的控件分配有
意义的名称可以让你引用这些控件的VBA过程可读性增加。
给控件命名：
* 点击窗体上合适的控件
* 双击属性窗口的Name属性
注意：在更改Name属性之前，你得确保属性窗口的标题栏显示正确的控件类型。例如，要给一个框
架控件重命名的话，就要先点击窗体上的框架控件。当属性窗口显示“属性…Frame1”时，双击Name
属性，并且在默认名称加亮区域输入新的名称。
不要将控件的名称和标题（Caption）混淆。例如，在Info Survey窗体上，框架的缺省名称是Frame1，
但是该控件的标题是Main Interest。控件的标题可以通过设置其Caption属性来更改。控件的标题
允许用户明确控件的目的，以及建议预期的数据类型，然而控件的名称是用在VBA代码里使事情发
生的。
1。 给窗体Info Survey上的控件分配名称，如下表所示：（译者：你可以按照自己的方式命名控件，
但是一个好的方法是按表中的样式命名控件。例如第一个选项按钮，optHard，opt表示该控件
类型为OptionButton，而Hard则表明该控件的作用是Hardware选项。）
对象类型 Name属性
第一个选项按钮 optHard
第二个选项按钮 optSoft
列表框 lboxSystems
第三个选项按钮 optMale
第四个选项按钮 optFemale
第一个复选框 chkIBM
第二个复选框 chkNote
第三个复选框 chkMac
复合框 cboxWhereUsed
文字框 txtPercent
旋转按钮 spPercent
第一个命令按钮 butOK
第二个命令按钮 butCancel
图像 picImage
23。设置其它控件属性
放置在Info Survey窗体上的控件也是对象，这些对象中的每一个都有它们自己的属性和方法。在
前面的部分，你更改了所有对象的Name属性，这些后面将在VBA过程里引用。控件的属性可以在自
定义窗体的设计时候设定，也可以在运行的时候设置（也就是说，在VBA过程执行的时候）。
我们现在来给所选控件设置一些属性。点击窗体上的控件，定位属性窗口上希望设置的属性，并且
在属性名称右边输入新值。例如，设置控件lboxSystems的ControlTipText属性，点击窗体Info
Survey上的列表框并且在属性窗口里找到ControlTipText属性，在属性窗口的右边一列里输入你要
显示的文本，当用户将鼠标移动到该列表框上面时就会显示该文本：Select only one item
1。 更改对象属性，如下所示：
197
… 页面 214…
对象名称 属性 更改为
lboxSystems ControlTipText Select only one item
spPercent Max 100
spPercent Min 0
OK button Accelerator O
Cancel button Accelerator C
picImage PictureSizeMode 0 … fmPictureSizeModeClip
Accelerator属性指明对象名称中的哪一个字母可以用在键盘快捷组合家里来激活该控件。该特定
的字母在该对象的标题里将显示为下划线。例如，显示该窗体后，你将可以使用组合键Alt＋O快速
选择OK按钮。Info Survey窗体对象的其它属性将将VBA过程里直接设置。
24。准备工作表以储存窗体数据
用户在窗体上选择了合适的选项并点击OK按钮之后，这些被选择的数据将会转移到一个工作表中。
然而，在此之前，你得准备一个工作表来接收这些数据，并且给用户一个易于操作的界面来启动你
的窗体。按照下述步骤来准备你的工作表：
1。 激活Excel窗口
2。 双击工作簿Chap10。xls的Sheet1页，并且输入新名称：Info Survey
3。 输入列标，如图10…13所示
4。 选择K列和第一行，并且将它们的底色改为你喜欢的颜色（使用“格式”工具栏上的“填充底色”
按钮）。
从工作表里启动自定义窗体的最简单方法是点击一个按钮，接下来的步骤带领你在工作表Info
Survey里添加按钮Survey
5。 选择“视图”｜“工具栏”，并选择“窗体”
6。 点击窗体工具栏上的按钮控件，在单元格K2里放置一个按钮。当出现指定宏对话框时，在“宏
名”框里面输入DoSurvey，并且点击确定。稍后你将编写该过程。
7。 当你返回工作表时，该被指定宏DoSurvey的按钮（按钮1）应该仍然被选中了，给它输入一个新
名称：Survey。如果该按钮没有被选定的话，那么就在其上单击右键来选中它，选择快捷菜单
上的“编辑文字”并输入Survey作为其新名称。要退出编辑模式，可以点击按钮之外的任何地
方。
8。 保存你对Chap10。xls做的改变。
198
… 页面 215…
图10…13 Survey按钮将会启动Info Survey窗体。当用户点击窗体上的OK按钮时，窗体数据将会放
置到该工作表里面
25。显示自定义窗体
每个用户窗体都有Show方法，让你可以给用户显示该窗体。在下面的例子里，你将准备DoSurvey
过程。回想前面部分，你已经将该过程指定给了Info Survey工作表的Survey按钮。
1。 在VB编辑器窗口，选择工程CustomForms（Chap10。xls），并且选择“插入”｜“模块”
2。 在属性窗口，将新模块的名称改为ShowSurvey
3。 输入下述显示自定义窗体的过程
Sub DoSurvey（）
InfoSurvey。Show
End Sub
注意，Show方法前面是窗体对象的名称，正如出现在窗体文件夹里面的那样（InfoSurvey）
4。 保存Chap10。xls的变化
5。 切换到Excel窗口，并点击Survey按钮，窗体Info Survey将出现。
注意，如果你点击Survey按钮后出现错误信息的话，那么你可以没有按前面步骤6那样给该按钮指
定需要的宏。要更正该错误，可以点击确定，单击右键于Survey按钮，并选择快捷菜单上的“指定
宏”，然后点击指定宏对话框里的DoSurvey宏，并点击确定退出。现在，你可以点击Survey按钮显
示窗体了。
6。 通过点击窗体右上角的关闭按钮（x），关闭Info Survey窗体
26。设置 Tab 顺序
用户可以使用鼠标或者Tab键在窗体上移动，因为许多用户倾向于使用键盘在窗体上移动，所以决
定窗体上控件激活的顺序是很重要的。下列步骤示范设置Info Survey窗体上控件的Tab顺序：
1。 在工程浏览器窗口里的窗体文件夹里，双击InfoSurvey窗体
2。 选择“视图”｜“Tab键顺序”。Tab键顺序对话框出现了，该对话框按控件添加的顺序显示窗体
InfoSurvey上的所有控件名称。对话框的右边有一些按钮，允许你向上或者向下移动所选的控
件。要移动某个控件的话，可以点击其名称并且点击上移或者下移按钮，直到你想要的位置。
3。 按照图10…14显示的那样重新安排Info Survey窗体上的控件
4。 点击确定，退出Tab键顺序对话框
199
… 页面 216…
5。 返回Excel界面，并且点击按钮Survey
6。 按Tab键向前移动，按Shift＋Tab向后移动
7。 关闭InfoSurvey窗体。如果你想要更改控件激活的顺序的话，那么重新打开Tab键顺序对话框，
并作�
