VisualBasic程序设计第4章VB高级语言技巧课件.ppt

《VisualBasic程序设计第4章VB高级语言技巧课件.ppt》由会员分享，可在线阅读，更多相关《VisualBasic程序设计第4章VB高级语言技巧课件.ppt（98页珍藏版）》请在三一办公上搜索。

1、Visual Basic程序设计,第 4 章 VB高级语言技巧,1,Visual Basic程序设计第 4 章 1,4.1 多功能计算器任务4.1.1 任务描述在第三章简单计算器的基础，增加以下功能：1. 将计算结果转换为十六进制。2. 就数字键设置为命令按钮组，使“0”“9”数字按键的Index属性分别为0、1、2、3、4、5、6、7、8、9。3.禁止键盘在文本框中输入数据。4.使计算器总是悬浮在其它窗体上。 界面如下页所示。,2,4.1 多功能计算器任务2,3,3,4.1.2 界面设计,1. 添加“十六进制”和“数字大写”两个文本框，分别命名为txtHex和txtBig。2.删除原来的“0

2、”“9”数字按钮控件，并重新放置一个命令按钮控件，将其Caption属性设置为“0”。3.复制该数字命令按钮。4.在数字区框架控件上，粘贴该数字命令按钮，系统询问是否创建一个控件数组，回答“是”。将它的Caption属性改为“1”，Index属性值设置为1。 按照上述方法粘贴数字按钮控件“2”“9”。5、此时得到一 个按钮控件数组“0”“9”，它们的Index书香依次为“0”“9”。6、将TxtBig的ToolTipText属性设置为“大写数字”。,4,4.1.2 界面设计1. 添加“十六进制”和“数字大写”两个,4.1.3 代码设计,1.用API函数实现“总在前面”效果（1）程序代码在代码编

3、辑器的“通用”部分声明SetWindowPos函数及相关常数：Private Declare Function SetWindowPos Lib user32 _ (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, _ ByVal x As Long, ByVal y As Long, ByVal cx As Long, _ ByVal cy As Long, ByVal wFlags As Long) As Long Private Const HWND_TOPMOST = -1 Private Const SWP_NOMOVE = &H2

4、 Private Const SWP_NOSIZE = &H1然后在Form的Load事件中加入以下代码：SetWindowPos hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE,5,4.1.3 代码设计1.用API函数实现“总在前面”效果5,（1）API函数调用的一般方法,要在VB中使用API函数，首先要在工程的标准模块（Module）或窗体的代码的“通用”部分中声明它，然后可以按照调用VB其它函数一样来使用它。获得函数声明的一般方法：在安装VB系统后，通常会在VB程序组中看到“API文本浏览器”的应用程序。步骤如下： 沿开始

5、-程序-Microsoft Visual Studio 6.0-Microfoft Viaual Stodio 6.0 Tools-API Text Wiewer找到API浏览器。,6,（1）API函数调用的一般方法要在VB中使用API函数，首先,7,7,第1步：启动“API文本浏览器”,8,第1步：启动“API文本浏览器”8,9,9,第2步：选择“文件-加载文本文件”菜单项,10,第2步：选择“文件-加载文本文件”菜单项10,加载WinAPI.txt文件。,11,加载WinAPI.txt文件。11,第3步：选择API类型：声明,12,第3步：选择API类型：声明12,第4步：选择立刻用项Se

6、tWindowPos，将声明范围设置为“私有”。,13,第4步：选择立刻用项SetWindowPos，将声明范围设置,按添加按钮。,14,按添加按钮。14,第5步：就选定项下的VB代码复制,15,第5步：就选定项下的VB代码复制15,第5步：将复制的VB代码粘贴到窗体代码编辑器中的“通用-声明”部分。,16,第5步：将复制的VB代码粘贴到窗体代码编辑器中的“通用-声明,习题 P115 一、单项选择题,2. 能够实现“窗体总在最前端”界面效果的API函数是（ ）。A. SetWindowPosB. SetWindowAPIC. SetWindowShapeD. DeclareAPI答案：A,17

7、,习题 P115 一、单项选择题2. 能够实现“窗体总在,2. 数字区命令按钮的Click事件,Private Sub Command1_Click(Index As Integer) 使用Str函数将Index转换为字符串，然后使用Trim函数去掉前后空格 If txtLabel.Text = Then txtFirst.Text = txtFirst.Text + Trim(Str(Index) Else txtSecond.Text = txtSecond.Text + Trim(Str(Index) End IfEnd Sub,18,2. 数字区命令按钮的Click事件Private

8、Sub,3. 禁止用户在文本框中输入数字,Private Sub txtResult_KeyDown(KeyCode As Integer, Shift As Integer) KeyCode = 0 禁止所有的键盘输入（除BackSpace退格键外）End SubPrivate Sub txtResult_KeyPress(KeyAscii As Integer) KeyAscii = 0 禁止BackSpace退格键End Sub,19,3. 禁止用户在文本框中输入数字Private Sub tx,习题 P116 二、填空题,1. 通常可将文本框控件的 属性设置为True，以禁止键盘输入。

9、答案：Locked,20,习题 P116 二、填空题1. 通常可将文本框控件的,4. 修改“计算结果”按钮的Click事件代码,“计算结果”命令按钮的Click事件Private Sub Command17_Click() 定义一个Double类型的变量 Dim MyResult As Double 以txtLable.Text的值为多重分支条件 Select Case txtLabel.Text Case + 当txtLabel.Text的值为+时 MyResult = Val(txtFirst.Text) + Val(txtSecond.Text) Case - 当txtLabel.Tex

10、t的值为-时 MyResult = Val(txtFirst.Text) - Val(txtSecond.Text) Case 当txtLabel.Text的值为时 MyResult = Val(txtFirst.Text) * Val(txtSecond.Text) Case 当txtLabel.Text的值为时 MyResult = Val(txtFirst.Text) / Val(txtSecond.Text) End Select,21,4. 修改“计算结果”按钮的Click事件代码“计算结果”,4. 修改“计算结果”按钮的Click事件代码,txtResult.Text = MyRe

11、sult 显示计算结果 将计算结果转换为十六进制数字 txtHex.Text = Hex(MyResult) 将计算结果转换为大写数字，（采用函数功能完成） txtBig.Text = ChangeMe(MyResult)End Sub,22,4. 修改“计算结果”按钮的Click事件代码txtResu,5. 编写ChangeMe函数代码,Private Function ChangeMe(First As Double) As String 声明变量 Dim strFirst As String Dim strBig(9) As String 声明一个字符串数组 Dim strTemp As

12、 String Dim i, j As Integer 设置数组变量的值 strBig(0) = 零: strBig(1) = 壹: strBig(2) = 贰: _ strBig(3) = 叁: strBig(4) = 肆: strBig(5) = 伍: _ strBig(6) = 陆: strBig(7) = 柒: strBig(8) = 捌: strBig(9) = 玖,23,5. 编写ChangeMe函数代码Private Funct,5. 编写ChangeMe函数代码,将Double型的参数First转换为字符串型 strFirst = Trim(Str(First) strTemp

13、 = 开始数字转换 For i = 1 To Len(strFirst) 取出第i位的字符数字，并将它转换为数值型 j = Val(Mid(strFirst, i, 1) 通过数组完成大写转换 strTemp = strTemp + strBig(j) Next i 将转换结果返回 ChangeMe = strTemp End Function （演示）,24,5. 编写ChangeMe函数代码将Double型的参数F,习题 P116 三、问答题,5. 请简述多功能计算器与第3章计算器在功能上的区别。答：区别有以下几点：1）能将计算结果转换为十六进制。2） 将数字键设置为命令按钮组，使“0”“

14、9”数字按键的Index属性分别为0、1、2、3、4、5、6、7、8、9。用按键的Index来识别输入的数字。3）禁止键盘在文本框中输入数据。4）使计算器总是悬浮在其它窗体上。,25,习题 P116 三、问答题5. 请简述多功能计算器与第3章,4.2 数组的使用,4.2.1 数组1. 数组的概念 VB把一组具有同一名字、不同下标的变量称为数组，它实际上是一组具有相同类型的变量的集合。根据下标的个数可分为一维数组、二维数组、多维数组。例如：设置数组变量的值 strBig(0) = 零: strBig(1) = 壹: strBig(2) = 贰: _ strBig(3) = 叁: strBig(4

15、) = 肆: strBig(5) = 伍: _ strBig(6) = 陆: strBig(7) = 柒: strBig(8) = 捌: strBig(9) = 玖,26,4.2 数组的使用4.2.1 数组26,2. 声明静态数组,数组分为静态数组和动态数组。定义静态数组的方法与变量的声明方法基本相同。有两种声明方法：（1）方法1Dim 数组名（上界） As 数据类型这种定义方法，默认情况下数组的下界从0开始，因此数组元素的个数等于上界+1。数组的全部元素都初始化为0（数值型）或空字符串（字符串型）例如定义一维数组： Dim A（5） As Integer数组A包括6个数组元素：A（0）、A（

16、1）、A（5）。,27,2. 声明静态数组数组分为静态数组和动态数组。定义静态数组的,（2）方法2,Dim 数组名（下界 To 上界）采用这种方法可以根据需要设置下标的起始和结束值，即上界和下界。例如 Dim A（1 To 5）As Integer该数组包括5个元素：A（1）、A（2）、A（5）。也可定义二维数组。例如： Dim A（1 To 5，1 To 5） As Integer该数组包括 A（1,1),A(1,2),、A(1,5),，A(5,1),A(5,2),，A(5,5)又如: Dim A(5,5) As Integer该数组包括36个元素:A（0,0),A(0,1),A(0,2),

17、A(0,5),，A(5,0),A(5,1),A(5,2),，A(5,5),28,（2）方法2Dim 数组名（下界 To 上界）28,3. 动态数组,如果事先不能确定数组元素的个数,可以采用动态数组声明技术,主要方法是:（1）首先声明一个静态数组，只定义其数组名，不指定数组的大小。例如 Dim A As Integer（2）在程序执行过程中，使用ReDim语句修改数组的大小或数组的上界，例如： ReDim A （20）As Integer ReDim A（1 To 20） As Integer,29,3. 动态数组如果事先不能确定数组元素的个数,可以采用动态,习题 P115 一、单项选择题,1.

18、 Dim A（1 To 6，1 To 5）定义的数组包含的元素个数是（ ）。A. 30B. 25C. 42D. 动态变化答案：A,30,习题 P115 一、单项选择题1. Dim A（1 T,习题 P116 二、填空题,4. Dim A（1 To 6）定义的数组包含 个元素。答案：6,31,习题 P116 二、填空题4. Dim A（1 To,习题 P116 三、问答题,3. 什么是数组，如何声明，使用数组有什么好处？答： VB把一组具有同一名字、不同下标的变量称为数组，它实际上是一组具有相同类型的变量的集合。 数组分为静态数组和动态数组。定义静态数组的方法与变量的声明方法基本相同。有两种声明

19、方法： 方法1：Dim 数组名 （上界） As 数据类型 方法2：Dim 数组名（下界 To 上界） As 数据类型。 使用数组可以使程序代码更清晰、简洁。，可以方便灵活地组织数据。,32,习题 P116 三、问答题3. 什么是数组，如何声明，,4.2.2 控件数组,控件数组是一种特殊的数组，与普通数组的主要区别是，它的数据类型为控件类型。每个数组元素都是一个控件对象，这些控件对象共用一个相同的名字，即所有的元素的Name属性值相同，各控件元素用Index属性表示数组下标。,33,4.2.2 控件数组 控件数组是一种特殊的数组，与,数字区命令按钮的Click事件,Private Sub Com

20、mand1_Click(Index As Integer) 使用Str函数将Index转换为字符串，然后使用Trim函数去掉前后空格 If txtLabel.Text = Then txtFirst.Text = txtFirst.Text + Trim(Str(Index) Else txtSecond.Text = txtSecond.Text + Trim(Str(Index) End IfEnd Sub,34,数字区命令按钮的Click事件Private Sub Com,数字区命令按钮的Click事件也可编写如下：,Private Sub Command1_Click(Index As

21、 Integer) Select Case Index Case 0 If txtLabel.Text = Then txtFirst.Text = txtFirst.Text + “0” Else txtSecond.Text = txtSecond.Text + “0” End If Case 1 If txtLabel.Text = Then txtFirst.Text = txtFirst.Text + “1” Else txtSecond.Text = txtSecond.Text + “1” End If,35,数字区命令按钮的Click事件也可编写如下：Private, Case

22、 9 If txtLabel.Text = Then txtFirst.Text = txtFirst.Text + “9” Else txtSecond.Text = txtSecond.Text + “9” End If End SelectEnd Sub 利用Select或If选择结构，通过对Index属性值的判断，响应不同按钮元素的单击事件。,36,36,习题 P116 一、单项选择题,3. 如果创建了命令按钮数组控件 ，那么Click事件的参数是（ ）。A. IndexB. CaptionC. TagD. 没有参数答案：A,37,习题 P116 一、单项选择题3. 如果创建了命令按钮

23、,习题 P116 二、填空题,2. 在程序运行过程中可以使用 语句修改数组的上下界。答案：ReDim,38,习题 P116 二、填空题2. 在程序运行过程中可以使,4.2.3 枚举及自定义数据类型,1. 枚举当一个变量只可能取几个值时，可将其定义为枚举型，比如一个变量取17之间的整数来表示星期几，则可以把这个变量定义为枚举型。枚举类型只能有一个元素。要定义枚举型变量，须先用关键字Emum定义一个枚举类型。例如： Public Enum enmDay 星期日 = 1 星期一 = 2 星期五 = 6 星期一 = 7 End Emun,39,4.2.3 枚举及自定义数据类型1. 枚举39,4.2.3

24、 枚举及自定义数据类型,该语句定义了一个名为enmDay的枚举变量。注意emnDay本身并不是一个变量，它只是用户自己定义的新的数据类型。一经定义，就可以像VB提供的标准数据类型（如String、Integer）一样使用。例如： Dim Myday As emnDay 声明一个变量Myday，其数 据类型为enmDay Myday = 星期日 为变量赋值，即Myday = 1使用枚举型时应注意几点：（1）枚举类型中的元素只能表示长整型常数。（2）枚举类型应在模块级别中定义。（3）当定义时没有给枚举成员赋值时，系统自动为第一个成员赋值0，以后的成员值依次加1。,40,4.2.3 枚举及自定义数据

25、类型该语句定义了一个名为enmD,2. 自定义类型自定义类型与枚举类型一样，也是一种构造型数据，称为记录类型。使用方法如下：（1）定义 Public Type Student 学号 As String*10 姓名 As String*10 年龄 As Integer 籍贯 As String End Type该语句定义了一个名为Student的数据类型。（2）声明变量 Dim x As Student （3）使用 x. 学号 = “2004001” x. 姓名 = “张红”,41,2. 自定义类型41,枚举和自定义类型是一种有效的数据组织方式。尽管不使用它们也照样可以开发出功能强大的应用程序，

26、但有效地应用这两种方式，可以使程序代码更清晰、简洁。如果要使用这两种方式，最好能在模块中用Public定义，以便整个应用程序使用。,42,枚举和自定义类型是一种有效的数据组织方,4.3 过程和函数的定义和调用,VB窗体和控件的每一个事件都是一个过程，称为事件过程，它们总是与特定的控件对象相关联，所以被认为是私有（Private）过程。此外，VB还提供了一些内置的由系统预先编好的函数，比如Trim，Str和Val函数等。 在VB中，将SubEnd Sub定义的子程序称为Sub过程（子过程），而将FunctionEnd Fuction定义的函数称为Function过程（函数过程）。,43,4.3

27、过程和函数的定义和调用 VB窗体和控件的每,4.3.1 为什么要编写自定义过程,函数过程是一种代码分块技术，采用这种技术将应用程序划分为多个程序模块，其好处是：1.过程规模小，容易调用和维护。2.过程可以被反复调用，避免了重复编码，加强了可重用性。3.过程是由处理某一特定功能的代码组成，是一个相对独立的实体，将应用程序划分为这样一个实体，会使程序结构简洁，便于阅读维护。,44,4.3.1 为什么要编写自定义过程函数过程是一种代码分块技术,习题 P116 三、问答题,1. 为什么要编写自定义过程？因为自地那以过程有以下好处：1.过程规模小，容易调用和维护。2.过程可以被反复调用，避免了重复编码，

28、加强了可重用性。3.过程是由处理某一特定功能的代码组成，是一个相对独立的实体，将应用程序划分为这样一个实体，会使程序结构简洁，便于阅读维护。,45,习题 P116 三、问答题1. 为什么要编写自定义过程,4.3.2 Sub 过程,1. 定义一般应在窗体代码编辑器的“通用”部分定义私有的Sub过程，一经定义则可以在窗体的所有地方调用它。,46,4.3.2 Sub 过程1. 定义46,如果希望定义整个应用程序均可以使用的公有过程，则最好在标准模块（Module）进行。,47,如果希望定义整个应用程序均可以使用的公有过程，则最好在标准模,2. 调用,调用过程的方法非常简单，如图所示。,48,2. 调

29、用调用过程的方法非常简单，如图所示。48,习题 P116 一、单项选择题,4. 如果要在窗体代码编辑器的“通用”部分定义私有Sub过程，则正确的语句是（ ）。A. Public SubB. Public FnctionC. Private SubD. Private Function答案：C,49,习题 P116 一、单项选择题4. 如果要在窗体代码编,4.3.3 Fucttion函数,1. 定义 Function过程以一个返回值表示执行结果，也有公有的和私有的两种作用范围。例如，在窗体中定义一个返回整型数据的私有Function函数： Private Function PlusXY（x As

30、 Integer,yAs Integer)As Integer PlusXY = x+y End Function 2. 调用 Function过程的调用方法如下： Dim I As Integer I = PlusXY（1，2）,50,4.3.3 Fucttion函数 1. 定义5,4.3.4 参数传递机制简介,大部分过程都含有参数。将Sub过程或Function过程定义中出现的变量名称为形式参数，而在调用时传递给Sub过程和Function过程的常量、变量或表达式称为实际参数。将参数以变量形式传递的过程称为参数传递。 VB中参数传递机制有两种：一种是引用参数传递（默认），另一种是按值传递参

31、数。,51,4.3.4 参数传递机制简介 大部分,1. 引用传递参数,这种方式将参数变量的内存地址传递给Sub或Function过程，过程通过内存地址访问实际参数的内容，从而可以方便地改变实际参数的值。,52,1. 引用传递参数 这种方式将参数变量的内,Private Sub Change(x As Integer,y As Integer) 本程序将参数x，y的值互换 Dim t As Integer t=x x=y y=t 在窗体是输出结果 Print “x=”;x,”y=”;yEnd SubPrivate Sub Form_Click() Dim a As Integer Dim b A

32、s Integer a=3:b=4 Change a,b Print “a=”;a,”b=”;bEnd Sub （演示）,运行结果：x=4，y=3A=4，b=3我们发现，调用Change过程后，实际参数a，b的值也发生了变化。这就是引用传递参数的执行结果。,53,Private Sub Change(x As Intege,2. 按值传递参数,按值传递参数是只把参数的数值传递给过程，也称传值方式。即传递给过程的只是实际参数的副本，即使过程调用时改变了形式参数的值，实际参数也不会改变。如果按值传递参数，需要在定义过程时在形式参数前面加是G关键字ByVal，例如上例中：Private Sub Ch

33、ange(ByVal x As Integer,ByVal y As Integer)Dim t As Integer t=x x=y y=t 在窗体是输出结果 Print “x=”;x,”y=”;yEnd Sub,运行结果：x=4，y=3a=3，b=4,54,2. 按值传递参数按值传递参数是只把参数的数值传递给过程，也,4.4 键盘和鼠标使用技巧,驱动VB应用程序运行的主要动力是事件响应。在VB响应的所有事件中，数目最多也最重要的是对键盘和鼠标的响应事件，因为键盘和鼠标是用户和应用程序交互的主要工具。下面系统介绍鼠标和键盘常用事件的使用技巧和原理。,55,4.4 键盘和鼠标使用技巧 驱动VB

34、应用程序运行的,习题 P116 三、问答题,2. 简述参数传递机制。答：VB中参数传递机制有两种：一种是引用参数传递（默认），另一种是按值传递参数。 引用参数传递是将参数变量的内存地址传递给Sub或Function过程，过程通过内存地址访问实际参数的内容，从而可以方便地改变实际参数的值。 按值传递参数是只把参数的数值传递给过程，也称传值方式。即传递给过程的只是实际参数的副本，即使过程调用时改变了形式参数的值，实际参数也不会改变。如果按值传递参数，需要在定义过程时在形式参数前面加是G关键字ByVal。,56,习题 P116 三、问答题2. 简述参数传递机制。56,4.4.1 响应键盘事件,常用的

35、键盘事件主要有KeyPress，KeyUp和KeyDown。KeyPress事件：用户按下某ASCII字符的键，因此它不是对所有的键盘码均响应，比如键盘上的删除键。KeyDown和KeyUp事件：按下或释放键盘上的任意键时均会触发该事件，包括Delete删除键。,57,4.4.1 响应键盘事件常用的键盘事件主要有KeyPress,1. 焦点处理,窗体或控件（对象）的焦点是对象活动的标志，在Windows应用中，可以同时运行几个应用程序，但只有具有焦点的应用程序才有活动标题栏，才能接受用户输入。在同一窗体中，也只有具有焦点的的TextBox文本框才能接受键盘输入。总之只有获得焦点的窗体或控件才能

36、接受键盘事件。所以在处理键盘事件嵌，应首先对焦点进行处理。,58,1. 焦点处理 窗体或控件（对象）的,实现控件焦点的两种方法,（1）SetFocus方法 在程序运行时，通过鼠标选择操作或控件的SetFocus方法实现。 VB所提供的标准控件一般都有一个SetFocus方法。通过该方法可以把焦点赋予指定的控件，是一种灵活的焦点控制方法。比如希望在程序运行期的某个阶段，使某个控件后得焦点被激活，可使用以下代码： 控件名.SeFocus,59,实现控件焦点的两种方法（1）SetFocus方法59,实现控件焦点的两种方法,（2）利用Tab控制键 VB所有可被设置焦点的控件均具有一个TabIndex属

37、性。默认情况些，在窗体上创建的第一个控件的TabIndex的值为0，第一个控件的TabIndex的值为1，移此类推。可按预先设计好的顺序，改变控件的TabIndex的值。这样就可以在程序运行期间，通过Tab键使焦点按TabIndex的值，从小到大在众多控件中切换。 如果不希望使某些控件获得焦点，就可以把该控件的TabStop属性值设置为False。当然，如果控件不可视（Visible=False）或不可用（Enabled=False），也不可能获得焦点了。,60,实现控件焦点的两种方法（2）利用Tab控制键60,习题 P116 二、填空题,3. 如果不希望某个控件获得焦点，则可以将它的 属性设

38、置为False。答案：TabStop,61,习题 P116 二、填空题3. 如果不希望某个控件获得,习题 P116 三、问答题,4. 什么是焦点，设置控件焦点有哪些方法？答：窗体或控件（对象）的焦点是对象活动的标志，只有获得焦点的窗体或控件才能接受键盘事件。设置控件焦点的两种方法：SetFocus方法：控件名.SeFocus按预先设计好的顺序，改变控件的TabIndex的值。,62,习题 P116 三、问答题4. 什么是焦点，设置控件焦点,2. 窗体的键盘事件,如果希望无论何时按下某个键，都会同时执行同一操作，而不管此时到底哪个控件具有焦点的话，就可以使用窗体的键盘事件。具体方法是：首先将窗体

39、的KeyPreview属性设置为True，然后再编写相应的键盘事件处理程序。,63,2. 窗体的键盘事件如果希望无论何时按下某个键，都会同时执行,1. KeyDown和KeyUp事件分析,计算机键盘上的每一个键均有一个键码，称为键码。KeyCode参数返回了键盘的键码值。通过它判断用户按下哪个键。既可以用数字也可以利用VB提供的键码常数进行判断处理，比如vbKeyF1（F1键）、vbKeyHome（Home键）、vbKeyA（A和a键）等。例如： If KeyCode = vbKeyBack Then If KeyCode = vbKeyDelete Then,64,1. KeyDown和Ke

40、yUp事件分析 计,（2）Shift参数,通过该参数判断用户是否按下了Shift、Ctrl或Alt键。例如：If Shift = vbShiftMask ThenIf Shift = vbCtrlMask ThenIf Shift = vbAlttMask ThenIf (Shift = vbAltMask) And (Key Code= VbKeyA) Then,65,（2）Shift参数通过该参数判断用户是否按下了Shift、,3. KeyPress事件,KeyPress事件发生于KeyDown和KeyUp之间，它只有一个KeyAscii参数，反映了用户通过键盘输入的字符的ASCII码。当

41、需要处理标准ASCII字符时可使用这个事件，但要处理扩展字符键、组合键和定位键时，则只能使用KeyDown和KeyUp事件。例如：Private Sub Text1_KeyPress(Index As Integer,KeyAscii As Integer)只允许输入数字，其中用到的数字48和57分别表示字符0和9的ASCII码 If(KeyAscii57) Then KeyAscii= 0 End IfEnd Sub,66,3. KeyPress事件KeyPress事件发生于KeyD,常用键盘码与ASCII码的对应关系,键码未必都有对应的ASCII码。A和a的ASCII码不同，但它们在键盘上

42、是一个按键，因此键码是一样的。,67,常用键盘码与ASCII码的对应关系按键键码常数ASCII码数,习题 P116 一、单项选择题,5. 键盘事件的执行顺序是（ ）。A. KeyPress，KeyDown，KeyUpB. KeyDown，KeyPress，KeyUpC. KeyUp，KeyDown，KeyPressD. KeyUp，KeyPress，KeyDown答案：B,68,习题 P116 一、单项选择题5. 键盘事件的执行顺序,习题 P116 四、程序设计题,2. 键盘按键程序。请使用MsgBox过程对窗体的KeyDown和KeyPress事件编程，以显示按下、放开一个键时事件的发生过程

43、。比如，当按下了A键时程序界面如图所示。,69,习题 P116 四、程序设计题2. 键盘按键程序。请使用M,代码设计：,Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) MsgBox KeyDown事件发生了，KeyCode的值是： _ & KeyCode & Chr(13) & _ Shift参数的值是： & Shift, 0, 键盘按键程序End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer) MsgBox KeyPress事件发生了，KeyAscii的值是：

44、 _ & KeyAscii, 0, 键盘按键程序End SubPrivate Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer) MsgBox KeyUp事件发生了，KeyCode的值是： _ & KeyCode & Chr(13) & _ Shift参数的值是： & Shift, 0, 键盘按键程序End Sub （演示）,70,代码设计：Private Sub Text1_KeyDown,4. SendKeys过程,利用SendKeys可以将一个或多按键消息发送到湖动窗口，就如同在键盘上湿润一样。比如： SendKeys “Tab”

45、SendKeys “A 10” SendKeys “Enter” SendKeys “Left 3” SendKeys “F1” SendKeys “CapsLock”,71,4. SendKeys过程利用SendKeys可以将一个或,例：在所示界面中，为了加快用户的输入速度，希望每当用户按完回车键后，控制焦点自动移到下一个，就可以在文本框控件数组中加入以下代码：,Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then SendKeys tab End IfEnd Sub,72,例：在所示界面中，为了加快用户的

46、输入速度，希望每当用户按完回,Private Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then SendKeys tab End IfEnd SubPrivate Sub Text3_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then SendKeys tab End IfEnd Sub （演示）,73,Private Sub Text2_KeyPress(Key,习题 P116 四、程序设计题,1. 焦点切换程序。在一窗体上创建一文本框控件数组，并设置好它们的TabI

47、ndex属性，然后使用SendKeys语句编写文本框事件的KeyPress事件。运行时，当按下回车键后，空间的焦点自动切换。第一步：设计界面第二步：设计代码,74,习题 P116 四、程序设计题1. 焦点切换程序。在一窗体,Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer) Select Case Index Case 0 If KeyAscii = 13 Then SendKeys tab End If Case 1 If KeyAscii = 13 Then SendKeys tab End If Case 2

48、 If KeyAscii = 13 Then SendKeys tab End If Case 3 If KeyAscii = 13 Then SendKeys tab End If End SelectEnd Sub,75,Private Sub Text1_KeyPress(Ind,4.4.2 响应鼠标事件,1. 改变鼠标的形状每个窗体和控件都具有MousePointer属性，可通过它赋予它015间的不同值改变鼠标形状。既可在设计阶段进行，也可以在程序代码中改变设置。2.使用自定义鼠标形状如果将MousePointer属性的值设置为99，则可以使用自定义鼠标形状。方法是：首先找一些光标（*

49、.cur)或（*.ico)文件，然后通过MouseIcon属性完成设置。,76,4.4.2 响应鼠标事件1. 改变鼠标的形状76,4.4.2 响应鼠标事件,3. MouseDown和MouseUp事件这两个事件主要有两个参数：（1）Button参数可用来区分当前鼠标的左、中、右按键，0表示按下左键，1表示按下右键，2表示按下中间键。（2）Shift参数可用来区分鼠标与键盘的组合，它的值等于1，表示Shift键按下，2表示Ctrl 键，4表示Alt键。（3）x，y参数返回鼠标指针当前的位置，计量单位由窗体的ScaleMode决定。它们的值被限定在caleHeight，ScaleWidth，Sca

50、leLeft和ScaleTop属性所建立的坐标系内。,77,4.4.2 响应鼠标事件3. MouseDown和Mouse,习题 P116 四 程序设计题,4. 随机序列排序程序。使用第三章学过的Ren函数生成10个199之间的随机整数，并按从小到大的顺序排序，最后在列标框控件中输出。本程序主要使用数组、自定义过程、引用传递参数等知识。,78,习题 P116 四 程序设计题4. 随机序列排序程序。,代码设计：,Private Sub MyRnd(B() As Integer) Dim i As Integer Randomize For i = 1 To 10 B(i) = Int(Rnd *