vba控件常规使用UserForm基础课件.doc

vba控件常规使用UserForm基础课件.docvba控件常规使用UserForm基础如何显示UserForm以下是用于显示UserForm编程语法是:,UserForm使用以下代码:。复杂UserForm可能需要几秒钟以显示。因为预先您能加载到内存,UserForm可决定何时导致此开销。要加载到内存UserForm1不显示它,使用以下代码:LoadUserForm1若要显示UserForm,必须使用以前已显示显示方法。如何以暂时隐藏UserForm如果要暂时隐藏UserForm,使用隐藏方法。可能想要隐藏UserForm如果应用程序涉及用户窗体之间移动。要隐藏UserForm,使用以下代码:,删除UserForm使用Unload语句。要卸载,名为UserForm1,UserForm使用以下代码:UnloadUserForm1如果您卸载UserForm,是与UserForm或者,是与UserForm上控件的事件过程中(例如,mandButton控件),您可以使用"我"关键字代替的UserForm名称。将关键字用于卸载UserForm,"Me"使用以下代码:UnloadMe如何使用UserForm事件支持许多预定义事件,可以附加到VBA过程。在事件发生时,该附加到事件过程运行。单个操作由用户执行可初始化多事件。之间最经常对UserForm使用事件是Initialize事件、Click事件,和Terminate事件。注意包含事件过程VisualBasic模块可能称为"后面"UserForm模块。Explorer窗口Modules集合中。您必须双击正文部分UserForm以查看UserForm代码模块。如何捕获UserForm事件要捕获UserForm事件,请按照下列步骤操作:。,指向宏,然后单击VisualBasic编辑器。,单击要在工作簿中插入UserFormUserForm。。模块,中键入如下代码:PrivateSubUserForm_Click()=Int(Rnd*500)=Int(Rnd*750)EndSubPrivateSubUserForm_Initialize()="EventsEventsEvents!"=RGB(10,25,100)EndSubPrivateSubUserForm_Resize()="Width:"&&Chr(10)&"Height:"&:=msg,Title:="ResizeEvent"EndSubPrivateSubUserForm_QueryClose(CancelAsInteger,CloseModeAsInteger)msg="NowUnloading"&:=msg,Title:="QueryCloseEvent"EndSubPrivateSubUserForm_Terminate()msg="NowUnloading"&:=msg,Title:="TerminateEvent",单击运行子过程/用户窗体。UserForm首先加载,时宏使用Initialize事件改为"事件事件事件!"和BackColor属性以深蓝色的UserFormCaption属性。当您单击UserForm,您初始化Click事件。调整UserFormClick事件。因为您创建Resize事件,过程单击UserForm后收到两个消息框。因为Click事件代码更改宽度属性和Height属性是UserFormResize事件发生两次。关闭UserForm初始化QueryClose事件。QueryClose事件显示消息框包含标题为Initialize事件,您赋予UserForm代码中。可以使用时要执行特定的操作集如果用户关闭UserFormQueryClose事件。然后生成一个消息框,指出标题为UserForm是UserForm1Terminate事件。从内存中删除UserForm并返回到其原始状态标题为UserForm后Terminate事件发生。如何防止UserForm关闭通过关闭按钮当您运行UserForm,关闭按钮添加到UserForm窗口的右上角。如果要防止UserForm关闭通过关闭按钮,