Visual Basic.NET程序设计夏敏捷电子教案及源代码 第9章.pptVIP

9.4 鼠标和键盘事件 9.4.1 鼠标事件 9.4.2 键盘事件 9.4.1 鼠标事件 鼠标事件是鼠标的不同操作相对应的过程描述，鼠标的主要操作有左右键的单击、滚轮的滚动、移动鼠标、拖动等几项，这些操作分别对应了特定的鼠标事件名称： Click，单击事件，可由任何鼠标键触发。 DoubleClick，双击事件，可由任何鼠标键触发。 MouseClick，鼠标单击事件，可由任何鼠标键触发。 MouseDoubleClick，鼠标双击事件，可由任何鼠标键触发。 MouseDown，鼠标键按下事件，可由任何鼠标键触发。 MouseEnter，鼠标进入事件，当鼠标从外部越过对象边界进入对象内时发生一次。 MouseHover，鼠标悬停事件，当鼠标从外部进入对象区域内停下时发生一次。 MousLeave，鼠标离开事件，当鼠标从内部越过对象边界移出对象外时发生一次。 MouseMove，鼠标移动事件，当鼠标在对象区域内移动时连续发生。 MouseUp，鼠标键松开事件，可由任何鼠标键触发。 Mousewheel，鼠标滚轮事件，在滚动鼠标滚轮且控件有焦点时发生。相应控件必须是支持鼠标滚轮的控件（如：多行文本框、列表框）。 9.4.1 鼠标事件 【例9.12】检测并利用鼠标的左、中、右键，分别以不同的方式控制对象。 分析：在鼠标的MouseDown和MouseUp事件中，可以利用其类型为MouseEventArgs的参数e对象，检测鼠标按键的不同，以控制程序的行为。 Private Sub Label1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label1.MouseUp Select Case e.Button Case Windows.Forms.MouseButtons.Left ‘左键 Label1.ForeColor = Color.Red Case Windows.Forms.MouseButtons.Middle ‘中键 Label1.ForeColor = Color.Green Case Windows.Forms.MouseButtons.Right ‘右键 Label1.ForeColor = Color.Blue End Select End Sub 源程序 9.4.1 鼠标事件 【例9.13】利用鼠标事件为其不同状态显示不同的提示信息。 分析：鼠标的进入、悬停、移动和离开事件分别代表了不同的鼠标状态，合理利用这些事件可以在特定时刻完成特定的功能。 Private Sub Label1_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label1.MouseEnter Label1.Text = 进入对象 End Sub Private Sub Label1_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label1.MouseLeave Label1.Text = 离开对象 End Sub Private Sub Label1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label1.MouseMove Label1.Text = CStr(10 + 90 * Rnd()) End Sub 源程序 9.4.2 键盘事件 键盘事件是与键盘操作相关的过程描述，可用于处理击键操作，更可用于检测特定的按键操作并据此作出响应。键盘事件主要有如下三个： KeyDown，键按下事件，在键盘按键按下时发生，适用于任何键。 KeyPress，按键事件，在键盘按键按下时发生，不适用于各功能键。 KeyUp，键松开事件，在键盘按键松开时发生，适用于任何键。 当有键盘操作时， 若操作的是非“功能键”（如：Ctrl、Shift等），则每次击键操作会依次引发KeyDown→KeyPress→KeyUp事件。 若操作的是“功能键”，则每次击键操作会依次引发KeyDown→KeyUp事件。 9.4.2 键盘事件 【例9.14】测试三个键盘事件，验证其针对不同按键的引发次序。 分析：根据前面