计算机应用基础VB程序设计第3讲键盘和鼠标操作及菜单设计.ppt

作业 课本例5.21 课本例5.22 实现例3（包含实验33，可以适当简化） * 第五章 程序设计基础 键盘鼠标操作及菜单设计 * 第二讲 VB程序设计的基础元素_(P234-260) §5.2.5 键盘与鼠标操作 §5.3 项目菜单设计和系统组装 * §5.2.5 键盘与鼠标事件 键盘事件 利用键盘事件，可以响应键盘的操作，解释和处理按下或释放键盘某个键的字符，执行规定的操作。 主要的键盘事件 KeyPress、KeyDown、KeyUp 事件 * 键盘操作_续1 KeyPress事件 当用户按下并释放一个某个字符键时触发KeyPress事件 KeyPress事件过程的格式： Private Sub 对象名_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyPress … End Sub 说明: 参数变量e的属性： e.KeyCode：KeyCode是一个键代码。它告诉事件过程用户所操作的物理键。键盘上的每个键都有一个唯一的编码。 e.Shift参数是用来响应Shift键状态的一个整数，返回一个逻辑值； e.Alt参数是用来响应Alt键状态的一个整数，返回一个逻辑值； e.Control参数是用来响应Ctrl键状态的一个整数， 返回一个逻辑值。 * 键盘操作_续2 KeyPress 事件的应用(Class_Ex_Program04) 对输入的值进行限制 例1：在窗体上放置二个文本框，第一个文本框中只允许输入小写字母，如果输入大写字母，将其转换成对应小写字母，其他按键屏蔽；第二个文本框中只允许输入数字，其他屏蔽，如果输入其他字符，则响铃（Beep），并消除该字符。 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 * 键盘操作_续3 Private Sub TextBox2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox2.KeyPress If Not (e.KeyChar = 0 And e.KeyChar = 9) Then e.KeyChar = Nothing Beep() End If End Sub 可以捕捉击键动作 例2：编写模拟打字机的过程。 Private Sub Form2_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load Label1.Text = End Sub Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress Label1.Text = Label1.Text e.KeyChar End Sub * 键盘操作_续3 KeyDown、KeyUp 事件 KeyDown 和KeyUp 事件的作用： 当控制焦点在某个对象上时，按键盘上的某个键就会触发KeyDown事件，释放某个按键时就会触发KeyUp事件。 KeyDown事件过程的格式： Private Sub 对象名_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown … End Sub KeyUP 事件过程的格式： Private Sub 对象名_KeyUp(ByVa