第2章对象(免费阅读).pptVIP

窗体事件和方法 窗体作为对象，能够执行方法并对事件作出响应。 无论是因为用户交互，还是通过代码调整窗体的大小，都会触发一个 Resize 事件。当窗体尺寸变化时，允许在窗体上进行移动控件或调整控件大小等操作。 要使一个窗体可见，调用 Show 方法。 Private Sub Command1_Click() Form1.Hide Form2.Show End Sub Demo(2_10) 窗体激活演示 每当一个窗体变成活动窗体时，就会产生一个 Activate 事件；当另一个窗体或应用程序被激活时，就会产生 Deactivate 事件。这些事件对初始化或结束窗体行为十分方便。例如，在 Activate 事件中，可以编写代码突出显示一个特定文本框中的文本；在 Deactivate 事件中，可以把更改保存到一个文件或数据库中。 除窗体设计原理以外，还需考虑应用程序的开始与结束。有一些技巧用于决定应用程序启动时的外观。熟悉应用程序卸载时进行的一些处理也很重要。 设置启动窗体 在缺省情况下，应用程序中的第一个窗体被指定为启动窗体。应用程序开始运行时，此窗体就被显示出来（因而最先执行的代码是该窗体的 Form_Initialize 事件中的代码）。如果想在应用程序启动时显示别的窗体，那么就得改变启动窗体。 要改变启动窗体，请按照以下步骤执行： （1）从“工程”菜单中，选取“工程属性”。（2）选取“一般”或“通用”。（3）“启动对象”ListBox 中，选取要作为新启动窗体的窗体。（4）单击“确定”。 结束应用程序 当所有窗体都已关闭并且没有代码正在执行时，事件驱动的应用程序就停止运行。如果最后一个可见窗体关闭时仍有隐藏窗体存在，那么，应用程序表现为已经结束了（因为没有可见的窗体），可实际上应用程序仍在继续运行，直至所有隐藏窗体都关闭为止。 避免出现关闭应用程序时的这类问题，最好的办法是确保所有的窗体都已卸载。 如果应用程序只有一个窗体，则 Click 事件过程可简单为： Demo(2_10) Private Sub Command1_Click() Unload Me End Sub 如果应用程序使用多窗体，通过把代码放入主窗体的 Unload 事件过程可以卸载这些窗体。可以使用 Forms 集合确保找到并关闭所有窗体。下列代码就是使用窗体集合来卸载所有窗体的： Private Sub Command1_Click() Dim MyForm As Form For Each MyForm In Forms Unload MyForm Next End Sub 窗体事件 Click 事件 此事件是在一个对象上按下然后释放一个鼠标按钮时发生。它也会发生在一个控件的值改变时。 对一个 Form 对象来说，该事件是在单击一个空白区或一个无效控件时发生。 语法 Private Sub Form_Click( ) Private Sub object_Click([index As Integer]) Click 事件的语法包括下列部分： 部分 描述 Object 一个对象表达式，其值是“应用于”列表中的一个对象。Index 一个整数，用来唯一地标识一个在控件数组中的控件。 Private Sub form_Click() Picture1.Move Picture1.Left + 750, Picture1.Top - 550 End Sub 窗体的左下角处有一个 PictureBox 控件。 Demo(2_11) DblClick 事件 当在一个对象上按下和释放鼠标按钮并再次按下和释放鼠标按钮时，该事件发生。 对于窗体而言，当双击被禁用的控件或窗体的空白区域时，DblClick 事件发生。 语法 Private Sub Form_DblClick ( ) Private Sub object_DblClick (index As Integer) 部分 描述 Object 对象表达式，其值是“应用于”列表中的一个对象。 Index 如果控件在控件数组内，则这个 index 值就用来标识该控件。 Load 事件 此事件是在一个窗体被装载时发生。当使用 Load 语句启动应用程序，或引用未装载的窗体属性或控件时，此事件发生。 语法 Private Sub Form_Load() Private Sub MDIForm_Load() Private Sub Form_Load() Combo1.AddItem Mozart