VBA专题05-1：一文彻底掌握用户窗体编程基础知识（上）

引子：本文改编著自Microsoft很久以前的一篇技术文章，虽然年代已久，但完全不过时。文章以完整的示例详细介绍了用户窗体的基本概念及常用技术，能够帮助你快速掌握用户窗体编程基础。

概述

当使用MsgBox函数和InputBox函数不能满足与用户交互的需求时，可以使用用户窗体来自定义对话框。能够使用用户窗体来显示所输入的数据，甚至能够使用用户窗体创建一个完整的用户界面，而不会让用户接触到电子表格本身。

在Windows对话框中所看到的大多数控件都能在用户窗体中实现，例如命令按钮、选项按钮、复选框、文本框、组合框，以及一些其它不常用的控件如图像、日历，等等。

本文介绍了用户窗体的基本概念，以及使用用户窗体的常用技术，在其中穿插讲解了一些最通用的思路，最后给出了一个包含所有过程的完整示例文件，以及实现这些过程的代码，让你能在实践中看到所有工作的基本原理和方法。

本文包含以下内容：

1.基本的用户窗体操作

2.用户窗体和控件的属性

3.用户窗体的生命周期

4.用户窗体和控件的事件

5.问题1：如何在用户窗体间传递数据？

6.问题2：如何找到用户窗体中的某类控件？

7.问题3：如何获取数据到列表框中？

8.问题4：如何创建进度条？

9.一个完整的用户窗体综合示例

基本的用户窗体操作

1.创建一个用户窗体。打开VBE编辑器（选择“开发工具”选项卡中的“VisualBasic”或按Alt+F11组合键)，选择菜单“插入——用户窗体”，或者在工程资源管理器窗口中单击右键，从弹出的快捷菜单中选择“插入——用户窗体”，即可创建一个用户窗体。

2.添加控件。当创建了一个用户窗体后，将会显示一个名为“工具箱”的浮动控件工具箱(如果没有该工具箱的话，可以从视图菜单中找到它)，其中显示了最常用的控件。单击想要的控件，在用户窗体中进行绘制。

3.更多的控件。有一些更多的可用的控件，可以在控件工具箱中单击右键，从快捷菜单中选择“附加控件”，能够添加日历、电子表格、图形等等其它控件。

4.添加事件程序。事件允许当用户对窗体和控件进行操作时作出相应的反应，事件程序要放置在用户窗体模块中，能够通过双击用户窗体或控件来打开代码模块窗口，或者在用户窗体或控件中单击右键，从快捷菜单中选择“查看代码”来打开代码模块窗口，或者在工程资源管理器窗口中的用户窗体图标上单击右键后选择“查看代码”来打开代码模块窗口。然后，在代码模块窗口中，对用户窗体或控件添加相应的事件程序代码。

5.显示用户窗体。打开用户窗体模块，按F5键可以运行宏程序，或者单击工具栏中的运行按钮，将显示用户窗体。注意，在用户窗体模块中按F5键并不会运行光标所在的子过程，而是运行用户窗体自身。

6.调试。和在宏程序中一样，按F8键可以逐语句运行代码。

用户窗体和控件的属性

用户窗体和控件都有属性(如尺寸、位置，等等)，在设置用户窗体时能够改变这些属性，并且也能够在运行时通过代码来改变它们中的大多数属性。在设置用户窗体时所选择的值是缺省值，而在运行时所作的变化仅当用户窗体被装载时有效。

两个最重要的属性是Name属性和Value属性：

1.Name属性可用于指定某个控件。当然，可以通过控件的索引号来指定控件，但这样会难于理解和调试，因此，使用名称更可取。

2.Value属性是实际输入或者输出的数据。在不同的控件中，该属性值稍有区别。例如，选项按钮控件和复选框控件的Value属性值为True/False，而文本框控件的Value值则是该文本框所包含的文本。Value属性既可用于输入，也可用于输出。

例如：

txtFirstName.Text = Range("A1").Value Range("B1").Value = optVegetarian.Value

一个好习惯

给用户窗体和控件起一个具有描述性且分类清楚的名字，是一个习惯。最好在每类控件名前加一个前缀来代表该控件的类型，例如，frm代表用户窗体，opt代表选项按钮，等等。这样，将会使代码更易阅读，并且也方便应用一些使代码更为简洁的技巧。

指定控件和用户窗体，以及Me关键字

当在用户窗体代码模块中指定窗体中的控件时，可以通过名字指定它们，例如txtFirstName.value="John"。而对于在其它用户窗体中的控件，用户窗体名称应该放在控件名之前，例如，frmEmployees.lstDepartments。

同样的方法对在用户窗体模块中所声明的公共变量也是有效的——这是用户窗体的基本属性(例如，frmImputs.AllDone)。注意，不能在用户窗体的代码模块中声明全局变量。

Me是一个在用户窗体的代码模块中指定该用户窗体的快捷方式(例如，Me.Height表示当前用户窗体的高度)。又如，在用户窗体UserForm1中指定TextBox1：

'在当前用户窗体模块中Me.TextBox1.Text" ="Example" '在不同的模块中UserForm1.TextBox1.Text ="Example"

用户窗体的生命周期——显示和关闭

可以在用户窗体窗口中或者是在用户窗体的代码模块中，按F5键来显示用户窗体。如果在模块中有一个Userform_Initialize过程，那么在用户窗体显示时，该过程将首先运行。

如果要使用代码显示和隐藏用户窗体(例如，可能想在frmIntro窗体中使用一个命令按钮来隐藏frmIntro窗体并显示frmMain窗体)，应该使用Show方法（显示窗体）和Hide方法（隐藏窗体）。

装载和卸载

在用户窗体显示之前，必须将其装载到内存中。如果显示一个没有装载的用户窗体，该窗体将自动装载。事实上，用户窗体中的任何引用或者变量或者控件或者属性都将强制装载，并且触发初始化事件。如果想初始化用户窗体但不显示窗体的话，可以使用如下方式装载：

Load frmMain

在隐藏了用户窗体后，该窗体仍然被装载。如果再次显示它，初始化程序不会再次运行。（但Activate程序将会运行）。为了从内存中清除窗体，必须卸载（unload）它。当用户单击关闭按钮关闭窗体时，用户窗体将被自动卸载。

因此，用户窗体装载和卸载的顺序是：

装载（Load）—显示（Show）—……—隐藏（Hide）—卸载（Unload）。

卸载会清除用户窗体模块中的所有的变量——类似于停止了一个过程。用户已经输入的任何数值都将丢失，控件将恢复为属性窗口中输入的缺省值。如果想保存它们的值，则需要在卸载用户窗体前进行保存。

模式和无模式

用户窗体可在两种“模式”之间显示，即模式或者无模式。模式窗体不允许用户当窗体显示时还能够在Excel中进行其它的操作，像MsgBox对话框一样。无模式窗体则允许用户当窗体显示时在Excel中进行其它操作，然后回到用户窗体中来。

当无模式窗体显示时，代码将在后台继续执行。能够使代码暂时停止，直到用户窗体关闭后继续执行。可使用一个循环语句来检查用户窗体是否已关闭：

Do Until frmOther.Visible =False DoEvents

Loop

缺省设置是模式窗体。一旦用户窗体作为模式窗体显示后，不能将它改变为无模式窗体。必须先隐藏该窗体，然后再显示它，并指定为无模式窗体。

无模式窗体仅对Excel2000及以上版本有效。

用户窗体和控件的事件

事件允许用户窗体和控件对用户所做的操作做出相应的反应。可能熟悉Excel VBA事件，例如Workbook_Open事件、Worksheet_Change事件，等等。在Excel中，如果没有事件，还能做许多操作，但是在用户窗体中，如果没有事件的话，用户窗体几乎没什么作用。

1.最常用的用户窗体事件包括窗体初始化（Initialize）、窗体激活（Activate）、窗体请求关闭（QueryClose）、以及单击窗体（Click）。

2.用户窗体中控件的常用事件包括更新后（AfterUpdate）、变化（Change）、单击（Click）、输入（Enter）、以及退出（Exit）。

为了插入某对象的事件过程，可以在该对象上单击右键，在快捷菜单中选择“查看代码”，将会自动创建一个该控件标准的事件过程。如果想创建不同的事件过程，可以从VBE窗口顶部右侧的下拉列表中选择想要创建的事件过程。还有一个方法是，可以先进入用户窗体代码窗口，在代码窗口顶部的左侧的下拉列表中选择对象，在右侧的下拉列表中选择相应的事件。

用户窗体初始化

最重要的用户窗体事件是初始化（Initialize）事件。初始化是发生在用户窗体中的第一件事情——只要用户窗体开始装载，就会触发初始化事件。

在这里，可以初始化变量和控件。例如，能够从电子表格中更新最新的数据到文本框中、改变文本框的缺省值为当天的日期，等等。

请求关闭和中止

结束用户窗体的事件有两个：请求关闭（QueryClose）和中止（Terminate）。请求关闭事件首先发生，并且给你取消的机会（不会关闭窗体）；中止事件是最终的并不能取消。

因此，事件的顺序是：

初始化（Initialize）—……—请求关闭（QueryClose）—中止（Terminate）。

激活用户窗体

如果不卸载用户窗体而只是隐藏它，然后再显示它，初始化事件不会再运行。但是，激活（Activate）事件将会发生。当用户窗体每次获得焦点时，都会触发激活事件。在每次显示用户窗体时，该事件也会发生。如果有几个用户窗体同时可见，那么当在这些窗体之间切换时，激活事件也会被触发。

带参数的事件

和Excel的事件一样，一些窗体事件也带有参数，提供更多的关于怎样触发事件和为什么会触发事件的信息。例如，UserForm_KeyDown事件将告诉按下了哪个按键。当在VBE中使用代码窗口顶部的下拉菜单创建一个事件过程时，该过程会自动为它的所有参数设置合适的值。

一些参数是只读的，而另一些参数则可读写。例如，发生在用户窗体关闭前的Userform_QueryClose事件，带有一个取消（Cancel）参数，在该过程中设置Cancel=True，将忽略该事件，并且该窗体不会被关闭。