14、第五章 程序设计基础_面向对象程序设计2.ppt

Public temp as integer ’全局变量 Sub Form1_click() Dim temp As Integer 局部变量 temp = 10 访问局部变量 Me.temp = 9 访问全局变量 MsgBox(temp , Me.temp) End Sub 例：在不同级声明相同的变量 静态变量 用Static语句将变量声明为静态变量，在程序运行过程中可保留变量的值； 而用Dim说明的变量，每次调用过程时，重新初始化。 观察每次单击窗体时变量a的值 Private Sub Form1_Click() static a as integer a=a+1 MsgBox(a) End Sub 例：图片的交替变化 Private Sub Timer1_Tick() Static t As Integer If t = 0 Then PictureBox3.Image = PictureBox2.Image t = 1 Else PictureBox3.Image = PictureBox1.Image t = 0 End If End Sub * 上机实习 实验35* 、 实验36* 掌握菜单、快捷菜单和按钮的设计。 * 本节内容 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 Sub Private Sub Form1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyUp … End Sub * 参数变量e的属性： e.KeyCode：KeyCode是一个键代码。它告诉事件过程用户所操作的物理键。键盘上的每个键都有一个唯一的编码。 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