VBA专题05 | 您所在的位置:网站首页 › vba自动关闭弹窗参数 › VBA专题05 |
引子:本文改编著自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,将忽略该事件,并且该窗体不会被关闭。 |
CopyRight 2018-2019 实验室设备网 版权所有 |