VB2008入门教程：[15]创建事件处理程序

在本课中，您将学习如何创建事件处理程序。

工具/原料

VB2008或VB6.0

联网电脑一台

要点

1、当发生某个相关事情时，控件会引发事件。控件可以引发各种类型的事件，但对于每个控件来说，始终存在一个默认事件。

试一试之【处理 Click 事件】2

1、按以前的方法兴建一个项目，并命名为【EventHandler】

2、将一个 Button 控件从“工具箱”中拖动到窗体上。在“属性”窗口中，将 AutoSize 属性设置为 True。

3、在“视图”菜单中单击“代码”以打开代码编辑器。注意在代码编辑器的正上方有两个下拉框。除“Form1”、“(常规)”和“(Form1 事件)”之外，左边的框中还包含窗体上所有控件的列表。右边的框中列出了左边框中所列项的每个可用事件。

4、在左边的框中，单击“Button1”。在右边的框中，单击“Click”。一个名为 Button1_Click 的新的事件处理程序出现在代码编辑器中。

5、在 Button1_Click 事件处理程序中，键入以下代码：MsgBox("You clicked the button")

6、运行该应用程序。当单击“Button1”时，会出现一个消息框。

试一试之【处理 MouseEnter 事件】3

1、在代码编辑器中，确保在左侧的下拉框中选择了“Button1”，然后在右侧的下拉框中撮劝丛食单击 MouseEnter。一个名为 Button1_MouseEnter 的新的事件处理程序出现在代码编辑器中。在 Button1_MouseEnter 事件处理程序中，键入以下代码：Button1.Text = "The Mouse has entered"

2、运行该应用程序。使鼠标指针经过该按钮。请注意，当鼠标指针经过“Button"时按钮上的文本会发生变化。

3、您可能注意到在上一例中，虽然 Button1 的文本在鼠标指针经过时发生变化，但是鼠标指针离开时该文本并未还原。如果希望文眺螗熨膣本在鼠标不再停留在按钮上时发生变化，必须处理 MouseEnter 事件和 MouseLeave 事件。

试一试之【处理 MouseLeave 事件】4

1、在代码编辑器中，确保在左侧的下拉框中选择了“Button1”，然后在右侧的下拉框中撮劝丛食单击 MouseLeave。一个名为 Button1_MouseLeave 的新的事件处理程序出现在代码编辑器中。在 Button1_MouseLeave 事件处理程序中键入下面的代码：Button1.Text = "The mouse has left"

2、运行该应用程序。现在，当鼠标指针经过该按钮时，文本变为 The mouse has entered，而当鼠标指针不再停留在该按钮上时，文本变为 The mouse has left。

3、在本课中，我们学习了如何使用代码编辑器创建事件处理程序。现在，您可以继续本系列中的下一课获取用户选项：使用复选框和单选按钮。