Visual Basic程序设计(等级考试版)下ppt217.ppt

Visual Basic程序设计(等级考试版) 史春联 主 编 第1章 Visual Basic程序开发环境 第2章 对象及其操作 第3章 简单程序设计 第4章 Visual Basic 程序设计基础 第5章 数据的输入输出 第6章 控制结构 第7章 数组 第8章 常用标准控件 第9章 过程 第10章 键盘与鼠标事件过程 第11章 菜单程序设计 第12章 Visual Basic程序开发环境 第13章 多重窗体程序设计环境应用 第14章 文件处理 第15章 多媒体应用开发 第16章 数据库编程初步 第10章 键盘与鼠标事件过程 KeyPress 事 件 KeyDown和KeyUp事件 鼠标事件 鼠标光标的形状 拖放 10.1 KeyPress 事件 当击打键盘上的某个按键时，将发生 KeyPress事件。该事件可用于窗体、复选框、组合框、命令按钮、列表框、图片框、文本框、滚动条及与文件有关的控件。严格地说，当按下某个键时，所触发的是拥有输入焦点（Focus）的那个控件的KeyPress事件。KeyPress事件过程一般格式为： Private Sub Text1_KeyPress(KeyAscii As Integer) End Sub KeyPress事件带有一个参数， KeyAscii As Integer。KeyPress事件用来识别按键的ASCII码。参数KeyAscii是一个预定义的变量，执行KeyPress事件过程时，KeyAscii是所按键的ASCII码。 10.1 KeyPress 事件 例10.1 编写口令程序。 用文本框的Password属性编写过口令程序，下面的口令程序是用KeyPress事件编写的。 首先在窗体上画一个标签和一个文本框，如图所示 Private Sub Form_Load() Text1.Text = ******** Text1.FontSize = 10 Label.FontSize = 16 Label.FontBold = True Label.FontName = 宋体 Label.Caption = 请输入密码： End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) Static Password As String Static Counter As Integer Static Num As Integer Num = Num + 1 If Num = 6 Then End Counter = Counter + 1 Password = Password + Chr$(KeyAscii) KeyAscii = 0 Text1.Text = String$( Counter,*) If LCase$(Password) = aaa Then Text1.Text = Password = 0 MsgBox 密码正确，请继续 Counter = 0 Print Continue…… ElseIf Counter = 3 Then Counter = 0 Password = Text1.Text = MsgBox 密码不正确，请查实后重新输入！ End If End Sub 10.1 KeyPress 事件 程序运行后，在文本框中输入口令，如果口令正确，则显示相应的信息，单击“确定”按钮后，将显示一行信息；如果口令不正确，则要求重新输入。3次输入的口令都不正确，则停止输入，并结束程序。 10.2 KeyDown和KeyUp事件 KeyDown和KeyUp事件返回的是键盘的直接状态，而KeyPress并不反映键盘的直接状态。换言之，KeyDown和KeyUp事件返回的是“键”，而KeyPress事件返回的是“字符”的ASCII码。例如，当按字母键“A”时，KeyDown所得到的KeyCode码（KeyDown事件的参数）与按字母键“a”是相同的，而对KeyPress来说，所得到的ASCII码不一样。 10.2 KeyDown和KeyUp事件 KeyDown和KeyUp事件都有两个参数，即KeyCode和Shift，例如： Private Sub Form_ KeyDown(KeyCode As Integer,Shift As Integer) End Sub 或 Private Sub Form_ KeyUp (KeyCode As Integer,Shift As Integer) End Sub 两个参数的含义如下： 1. KeyCode