练伟《医学计算机应用基础》14、第五章 程序设计基础_面向对象程序设计2.pptxVIP

本节内容5.2　面向对象程序设计的基础元素2键盘和鼠标事件键盘和鼠标是用户与计算机系统交互的主要工具。在应用程序中，窗体和大多数控件都能响应鼠标和键盘事件。利用鼠标事件，可以跟踪鼠标的操作，判断按下的是哪个鼠标键等；利用键盘事件，可以响应键盘的操作，解释和处理ASCII字符。键盘事件 使用键盘事件过程，可以处理当按下或释放键盘上某个键时所执行的操作； KeyPress事件 KeyDown、KeyUp 事件1. KeyDown、KeyUp 事件当控制焦点在某个对象上,同时用户按下键盘上的任一键,便引发该对象的KeyDown事件,释放按键便触发KeyUp 事件KeyDown和KeyUP 事件过程的形式：Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown …End SubPrivate Sub Form1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyUp …End Sub参数变量e的属性：e.KeyCode：KeyCode是一个键代码。它告诉事件过程用户所操作的物理键。键盘上的每个键都有一个唯一的..\Keycode编码.doc编码。e.Shift参数是用来响应Shift键状态的一个整数，返回一个逻辑值；e.Alt参数是用来响应Alt键状态的一个整数，返回一个逻辑值；e.Control参数是用来响应Ctrl键状态的一个整数， 返回一个逻辑值。例： 通过按方向键，来控制图片的移动方向Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown If e.KeyCode = 39 And PictureBox1.Left Me.Width - PictureBox1.Width - 10 Then PictureBox1.Left = PictureBox1.Left + 10 ElseIf e.KeyCode = 37 And PictureBox1.Left 0 Then PictureBox1.Left = PictureBox1.Left - 10 ElseIf e.KeyCode = 38 And PictureBox1.Top 0 Then PictureBox1.Top = PictureBox1.Top - 10 ElseIf e.KeyCode = 40 And PictureBox1.Top Me.Height - PictureBox1.Height - 10 Then PictureBox1.Top = PictureBox1.Top + 10 End If End Sub2. KeyPress事件当用户按下并释放一个某个字符键时被触发定义KeyPress事件过程：参数变量e的属性：e.KeyChar:获取或设置与按下的键对应的字符Private Sub Form1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyPress …End Sub例：在窗体上放置二个文本框，第一个文本框中只允许输入小写字母，如果输入大写字母，将其转换成对应小写字母，其他按键屏蔽；第二个文本框中只允许输入数字，其他屏蔽。 Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress If e.KeyChar = A And e.KeyChar = Z Then e.KeyChar = e.KeyChar.ToString.ToLower ElseIf Not (e.KeyChar = a And e.KeyChar = z) Then e.KeyChar = Nothing End If End Sub Private Sub TextBox2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Han