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

1、14.1 4.1 多功能计算器任务多功能计算器任务4.1.1 4.1.1 任务描述任务描述在第三章简单计算器的基础，增加以下功能：在第三章简单计算器的基础，增加以下功能：1.1.将计算结果转换为十六进制。将计算结果转换为十六进制。2.2.就数字键设置为命令按钮组，使就数字键设置为命令按钮组，使“0”0”“9”9”数字按键的数字按键的IndexIndex属性分别为属性分别为0 0、1 1、2 2、3 3、4 4、5 5、6 6、7 7、8 8、9 9。3.3.禁止键盘在文本框中输入数据。禁止键盘在文本框中输入数据。4.4.使计算器总是悬浮在其它窗体上。使计算器总是悬浮在其它窗体上。界面如下页所示

2、。界面如下页所示。231.1.添加添加“十六进制十六进制”和和“数字大写数字大写”两个文本框，分别两个文本框，分别命名为命名为txtHextxtHex和和txtBigtxtBig。2.2.删除原来的删除原来的“0”0”“9”9”数字按钮控件，并重新放置数字按钮控件，并重新放置一个命令按钮控件，将其一个命令按钮控件，将其CaptionCaption属性设置为属性设置为“0”0”。3.3.复制该数字命令按钮。复制该数字命令按钮。4.4.在数字区框架控件上，粘贴该数字命令按钮，系统询在数字区框架控件上，粘贴该数字命令按钮，系统询问是否创建一个控件数组，回答问是否创建一个控件数组，回答“是是”。将它的

3、。将它的CaptionCaption属性改为属性改为“1”1”，IndexIndex属性值设置为属性值设置为1 1。按照上述方法粘贴数字按钮控件按照上述方法粘贴数字按钮控件“2”2”“9”9”。5 5、此时得到一、此时得到一 个按钮控件数组个按钮控件数组“0”0”“9”9”，它们的，它们的IndexIndex书香依次为书香依次为“0”0”“9”9”。6 6、将、将TxtBigTxtBig的的ToolTipTextToolTipText属性设置为属性设置为“大写数字大写数字”。41.1.用用APIAPI函数实现函数实现“总在前面总在前面”效果效果（1 1）程序代码）程序代码在代码编辑器的在代码编

4、辑器的“通用通用”部分声明部分声明SetWindowPosSetWindowPos函数及相关函数及相关常数：常数：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

5、SWP_NOMOVE=&H2 Private Const SWP_NOSIZE=&H1然后在然后在Form的的Load事件中加入以下代码：事件中加入以下代码：SetWindowPos hwnd,HWND_TOPMOST,0,0,0,0,SWP_NOMOVE Or SWP_NOSIZE5要在要在VBVB中使用中使用APIAPI函数，首先要在工程的标准模函数，首先要在工程的标准模块（块（ModuleModule）或窗体的代码的或窗体的代码的“通用通用”部分中部分中声明它，然后可以按照调用声明它，然后可以按照调用VBVB其它函数一样来其它函数一样来使用它。获得函数声明的一般方法：使用它。获得函数声明

6、的一般方法：在安装在安装VBVB系统后，通常会在系统后，通常会在VBVB程序组中看到程序组中看到“APIAPI文本浏览器文本浏览器”的应用程序。的应用程序。步骤如下：步骤如下：沿沿 开始开始-程序程序-Microsoft Visual Studio Microsoft Visual Studio 6.0-6.0-Microfoft Viaual Stodio Microfoft Viaual Stodio 6.0 6.0 Tools-API Text Tools-API Text WiewerWiewer 找到找到APIAPI浏览器。浏览器。6789101112131415162.能够实现能够

7、实现“窗体总在最前端窗体总在最前端”界面效果界面效果的的API函数是（函数是（）。）。A.SetWindowPosB.SetWindowAPIC.SetWindowShapeD.DeclareAPI答案：答案：A17Private Sub Command1_Click(Index As Integer)使用使用Str函数将函数将Index转换为字符串，然后使用转换为字符串，然后使用Trim函数去掉前后空格函数去掉前后空格 If txtLabel.Text=Then txtFirst.Text=txtFirst.Text+Trim(Str(Index)Else txtSecond.Text=tx

8、tSecond.Text+Trim(Str(Index)End IfEnd Sub18Private Sub txtResult_KeyDown(KeyCode As Integer,Shift As Integer)KeyCode=0 禁止所有的键盘输入（除禁止所有的键盘输入（除BackSpace退格键外）退格键外）End SubPrivate Sub txtResult_KeyPress(KeyAscii As Integer)KeyAscii=0 禁止禁止BackSpace退格键退格键End Sub191.通常可将文本框控件的通常可将文本框控件的 属性设置属性设置为为True，以禁止键盘

9、输入。以禁止键盘输入。答案：答案：Locked20“计算结果计算结果”命令按钮的命令按钮的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.Text的值为的值为-时时 My

10、Result=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 21txtResult.Text=MyResult 显示计算结果显示计算结果 将计算结果转换为十六进制数字将计算结果转换为十六进制数字 txtHex.Text=Hex(MyResult

11、)将计算结果转换为大写数字，（采用函数功能完成）将计算结果转换为大写数字，（采用函数功能完成）txtBig.Text=ChangeMe(MyResult)End Sub22Private Function ChangeMe(First As Double)As String 声明变量声明变量 Dim strFirst As String Dim strBig(9)As String 声明一个字符串数组声明一个字符串数组 Dim strTemp As String Dim i,j As Integer 设置数组变量的值设置数组变量的值 strBig(0)=零零:strBig(1)=壹壹:strB

12、ig(2)=贰贰:_ strBig(3)=叁叁:strBig(4)=肆肆:strBig(5)=伍伍:_ strBig(6)=陆陆:strBig(7)=柒柒:strBig(8)=捌捌:strBig(9)=玖玖23将将Double型的参数型的参数First转换为字符串型转换为字符串型 strFirst=Trim(Str(First)strTemp=开始数字转换开始数字转换 For i=1 To Len(strFirst)取出第取出第i位的字符数字，并将它转换为数值型位的字符数字，并将它转换为数值型 j=Val(Mid(strFirst,i,1)通过数组完成大写转换通过数组完成大写转换 strTem

13、p=strTemp+strBig(j)Next i 将转换结果返回将转换结果返回 ChangeMe=strTemp End Function （演示）演示）245.请简述多功能计算器与第请简述多功能计算器与第3章计算器在功能上的章计算器在功能上的区别。区别。答：区别有以下几点：答：区别有以下几点：1 1）能将计算结果转换为十六进制。）能将计算结果转换为十六进制。2 2）将数字键设置为命令按钮组，使将数字键设置为命令按钮组，使“0”0”“9”9”数字按键的数字按键的IndexIndex属性分别为属性分别为0 0、1 1、2 2、3 3、4 4、5 5、6 6、7 7、8 8、9 9。用按键的。用

14、按键的IndexIndex来识别输入的数字。来识别输入的数字。3 3）禁止键盘在文本框中输入数据。）禁止键盘在文本框中输入数据。4 4）使计算器总是悬浮在其它窗体上。）使计算器总是悬浮在其它窗体上。254.2.1 数组数组1.数组的概念数组的概念 VB把一组把一组具有同一名字、不同下标的变量称为数组，具有同一名字、不同下标的变量称为数组，它实际上是一组具有相同类型的变量的集合。根据下它实际上是一组具有相同类型的变量的集合。根据下标的个数可分为一维数组、二维数组、多维数组。标的个数可分为一维数组、二维数组、多维数组。例如：例如：设置数组变量的值设置数组变量的值 strBig(0)=零零:strB

15、ig(1)=壹壹:strBig(2)=贰贰:_ strBig(3)=叁叁:strBig(4)=肆肆:strBig(5)=伍伍:_ strBig(6)=陆陆:strBig(7)=柒柒:strBig(8)=捌捌:strBig(9)=玖玖26数组分为静态数组和动态数组。定义静态数组的方数组分为静态数组和动态数组。定义静态数组的方法与变量的声明方法基本相同。有两种声明方法：法与变量的声明方法基本相同。有两种声明方法：（1 1）方法）方法1 1Dim Dim 数组名（上界）数组名（上界）As As 数据类型数据类型这种定义方法，默认情况下数组的下界从这种定义方法，默认情况下数组的下界从0 0开始，开始，

16、因此数组元素的个数等于上界因此数组元素的个数等于上界+1+1。数组的全部元。数组的全部元素都初始化为素都初始化为0 0（数值型）或空字符串（字符串（数值型）或空字符串（字符串型）例如定义一维数组：型）例如定义一维数组：Dim ADim A（5 5）As IntegerAs Integer数组数组A A包括包括6 6个数组元素：个数组元素：A A（0 0）、）、A A（1 1）、）、A A（5 5）。）。27Dim Dim 数组名（下界数组名（下界 To To 上界）上界）采用这种方法可以根据需要设置下标的起始和结束值，采用这种方法可以根据需要设置下标的起始和结束值，即上界和下界。例如即上界和下

17、界。例如 Dim ADim A（1 To 51 To 5）As IntegerAs Integer该数组包括该数组包括5 5个元素：个元素：A A（1 1）、）、A A（2 2）、）、A A（5 5）。）。也可定义二维数组。例如：也可定义二维数组。例如：Dim ADim A（1 To 51 To 5，1 To 51 To 5）As IntegerAs Integer该数组包括该数组包括 A A（1,1),A(1,2),1,1),A(1,2),、A(1,5),A(1,5),，A(5,1),A(5,2),A(5,1),A(5,2),，A(5,5)A(5,5)又如又如:Dim A(5,5)As In

18、tegerDim A(5,5)As Integer该数组包括该数组包括3636个元素个元素:A A（0,0),A(0,1),A(0,2),A(0,5),0,0),A(0,1),A(0,2),A(0,5),，A(5,0),A(5,1),A(5,2),A(5,0),A(5,1),A(5,2),，A(5,5)A(5,5)28如果事先不能确定数组元素的个数如果事先不能确定数组元素的个数,可以采用动可以采用动态数组声明技术态数组声明技术,主要方法是主要方法是:（1）首先声明一个静态数组，只定义其数组名，）首先声明一个静态数组，只定义其数组名，不指定数组的大小。例如不指定数组的大小。例如 Dim A As

19、 Integer（2）在程序执行过程中，使用在程序执行过程中，使用ReDim语句修改语句修改数组的大小或数组的上界，例如：数组的大小或数组的上界，例如：ReDim A（20）As Integer ReDim A（1 To 20）As Integer291.Dim A（1 To 6，1 To 5）定义的数组包定义的数组包含的元素个数是（含的元素个数是（）。）。A.30B.25C.42D.动态变化动态变化答案：答案：A304.Dim A（1 To 6）定义的数组包含定义的数组包含 个元素。个元素。答案：答案：6313.3.什么是数组，如何声明，使用数组有什么好处？什么是数组，如何声明，使用数组有什

20、么好处？答：答：VBVB把一组具有同一名字、不同下标的变量称为数组，它把一组具有同一名字、不同下标的变量称为数组，它实际上是一组具有相同类型的变量的集合。实际上是一组具有相同类型的变量的集合。数组分为静态数组和动态数组。定义静态数组的方法与数组分为静态数组和动态数组。定义静态数组的方法与变量的声明方法基本相同。有两种声明方法：变量的声明方法基本相同。有两种声明方法：方法方法1 1：Dim Dim 数组名数组名 （上界）（上界）As As 数据类型数据类型 方法方法2 2：Dim Dim 数组名（下界数组名（下界 To To 上界）上界）As As 数据类型。数据类型。使用数组可以使程序代码更清

21、晰、简洁。，可以方便灵使用数组可以使程序代码更清晰、简洁。，可以方便灵活地组织数据。活地组织数据。32 控件数组是一种特殊的数组，与普控件数组是一种特殊的数组，与普通数组的主要区别是，它的数据类型为通数组的主要区别是，它的数据类型为控件类型。每个数组元素都是一个控件控件类型。每个数组元素都是一个控件对象，这些控件对象共用一个相同的名对象，这些控件对象共用一个相同的名字，即所有的元素的字，即所有的元素的NameName属性值相同，属性值相同，各控件元素用各控件元素用IndexIndex属性表示数组下标。属性表示数组下标。33Private Sub Command1_Click(Index As

22、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 34Private Sub Command1_Click(Index As Integer)Select Case Index Case 0 If txtLabel.Text=Then txtFirst.

23、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 If35 Case 9 If txtLabel.Text=Then txtFirst.Text=txtFirst.Text+“9”Else txtSecond.Text=txtSecond.Text+“9”End If End SelectEnd Sub 利用利

24、用Select或或If选择结构，通过对选择结构，通过对Index属性值属性值的判断，响应不同按钮元素的单击事件。的判断，响应不同按钮元素的单击事件。363.如果创建了命令按钮数组控件如果创建了命令按钮数组控件，那么，那么Click事件的参数是（事件的参数是（）。）。A.IndexB.CaptionC.TagD.没有参数没有参数答案：答案：A372.在程序运行过程中可以使用在程序运行过程中可以使用 语句语句修改数组的上下界。修改数组的上下界。答案：答案：ReDim381.枚举枚举当一个变量只可能取几个值时，可将其定义为枚举型，当一个变量只可能取几个值时，可将其定义为枚举型，比如一个变量取比如一个

25、变量取1717之间的整数来表示星期几，则可以之间的整数来表示星期几，则可以把这个变量定义为枚举型。枚举类型只能有一个元素。把这个变量定义为枚举型。枚举类型只能有一个元素。要定义枚举型变量，须先用关键字要定义枚举型变量，须先用关键字EmumEmum定义一个枚举类定义一个枚举类型。例如：型。例如：Public Public Enum enmDayEnum enmDay 星期日星期日 =1=1 星期一星期一 =2=2 星期五星期五 =6=6 星期一星期一 =7=7 End End EmunEmun39该该语句定义了一个名为语句定义了一个名为enmDayenmDay的枚举变量。注意的枚举变量。注意em

26、nDayemnDay本身并不是一个变量，它只是用户自己定义的新的数本身并不是一个变量，它只是用户自己定义的新的数据类型。一经定义，就可以像据类型。一经定义，就可以像VBVB提供的标准数据类型提供的标准数据类型（如（如StringString、IntegerInteger）一样使用。例如：一样使用。例如：Dim Dim MydayMyday As As emnDayemnDay 声明一个变量声明一个变量MydayMyday，其其数数 据类型为据类型为enmDayenmDay Myday Myday=星期日星期日 为变量赋值，即为变量赋值，即Myday Myday=1=1使用枚举型时应注意几点：使

27、用枚举型时应注意几点：（1 1）枚举类型中的元素只能表示长整型常数。）枚举类型中的元素只能表示长整型常数。（2 2）枚举类型应在模块级别中定义。）枚举类型应在模块级别中定义。（3 3）当定义时没有给枚举成员赋值时，系统自动为第一）当定义时没有给枚举成员赋值时，系统自动为第一个成员赋值个成员赋值0 0，以后的成员值依次加，以后的成员值依次加1 1。402.自定义类型自定义类型自定义类型与枚举类型一样，也是一种构造型数据，称为记录类型。自定义类型与枚举类型一样，也是一种构造型数据，称为记录类型。使用方法如下：使用方法如下：（1）定义）定义 Public Type Student 学号学号 As S

28、tring*10 姓名姓名 As String*10 年龄年龄 As Integer 籍贯籍贯 As String End Type该语句定义了一个名为该语句定义了一个名为Student的数据类型。的数据类型。（2）声明变量）声明变量 Dim x As Student（3）使用使用 x.学号学号=“2004001”x.姓名姓名=“张红张红”41 枚举和自定义类型是一种有效的数枚举和自定义类型是一种有效的数据组织方式。尽管不使用它们也照样可据组织方式。尽管不使用它们也照样可以开发出功能强大的应用程序，但有效以开发出功能强大的应用程序，但有效地应用这两种方式，可以使程序代码更地应用这两种方式，可以

29、使程序代码更清晰、简洁。如果要使用这两种方式，清晰、简洁。如果要使用这两种方式，最好能在模块中用最好能在模块中用Public定义，以便整个定义，以便整个应用程序使用。应用程序使用。42 VBVB窗体和控件的每一个事件都是一窗体和控件的每一个事件都是一个过程，称为事件过程，它们总是与特个过程，称为事件过程，它们总是与特定的控件对象相关联，所以被认为是私定的控件对象相关联，所以被认为是私有（有（PrivatePrivate）过程。此外，过程。此外，VBVB还提供了还提供了一些内置的由系统预先编好的函数，比一些内置的由系统预先编好的函数，比如如TrimTrim，StrStr和和ValVal函数等。函

30、数等。在在VBVB中，将中，将SubEnd SubSubEnd Sub定义的子定义的子程序称为程序称为SubSub过程（子过程），而将过程（子过程），而将FunctionEnd FunctionEnd FuctionFuction定义的函数称定义的函数称为为FunctionFunction过程（函数过程）。过程（函数过程）。43函数过程是一种代码分块技术，采用这种技术将函数过程是一种代码分块技术，采用这种技术将应用程序划分为多个程序模块，其好处是：应用程序划分为多个程序模块，其好处是：1.1.过程规模小，容易调用和维护。过程规模小，容易调用和维护。2.2.过程可以被反复调用，避免了重复编码，加

31、强过程可以被反复调用，避免了重复编码，加强了可重用性。了可重用性。3.3.过程是由处理某一特定功能的代码组成，是一过程是由处理某一特定功能的代码组成，是一个相对独立的实体，将应用程序划分为这样一个相对独立的实体，将应用程序划分为这样一个实体，会使程序结构简洁，便于阅读维护。个实体，会使程序结构简洁，便于阅读维护。441.1.为什么要编写自定义过程？为什么要编写自定义过程？因为自地那以过程有以下好处：因为自地那以过程有以下好处：1.1.过程规模小，容易调用和维护。过程规模小，容易调用和维护。2.2.过程可以被反复调用，避免了重复编码，加强过程可以被反复调用，避免了重复编码，加强了可重用性。了可重

32、用性。3.3.过程是由处理某一特定功能的代码组成，是一过程是由处理某一特定功能的代码组成，是一个相对独立的实体，将应用程序划分为这样个相对独立的实体，将应用程序划分为这样一个实体，会使程序结构简洁，便于阅读维一个实体，会使程序结构简洁，便于阅读维护。护。451.定义定义一般应在窗体代码编辑器的一般应在窗体代码编辑器的“通用通用”部分定义私部分定义私有的有的SubSub过程，一经定义则可以在窗体的所有过程，一经定义则可以在窗体的所有地方调用它。地方调用它。46如果希望定义整个应用程序均可以使用的公有过如果希望定义整个应用程序均可以使用的公有过程，则最好在标准模块（程，则最好在标准模块（Modul

33、e）进行。进行。47调用过程的方法非常简单，如图所示。调用过程的方法非常简单，如图所示。484.如果要在窗体代码编辑器的如果要在窗体代码编辑器的“通用通用”部部分定义私有分定义私有Sub过程，则正确的语句是过程，则正确的语句是（）。）。A.Public SubB.Public FnctionC.Private SubD.Private Function答案：答案：C49 1.定义定义 Function过程以一个返回值表示执行结果，也有公有过程以一个返回值表示执行结果，也有公有的和私有的两种作用范围。例如，在窗体中定义一个返回的和私有的两种作用范围。例如，在窗体中定义一个返回整型数据的私有整型数

34、据的私有Function函数：函数：Private Function PlusXY（x As Integer,yAs Integer)As Integer PlusXY=x+y End Function 2.调用调用 Function过程的调用方法如下：过程的调用方法如下：Dim I As Integer I=PlusXY（1，2）50 大部分过程都含有参数。将大部分过程都含有参数。将Sub过程过程或或Function过程定义中出现的变量名称过程定义中出现的变量名称为形式参数，而在调用时传递给为形式参数，而在调用时传递给Sub过程过程和和Function过程的常量、变量或表达式过程的常量、变量

35、或表达式称为实际参数。将参数以变量形式传递称为实际参数。将参数以变量形式传递的过程称为参数传递。的过程称为参数传递。VB中参数传递机制有两种：一种是中参数传递机制有两种：一种是引用参数传递（默认），另一种是按值引用参数传递（默认），另一种是按值传递参数。传递参数。51 这种方式将参数变量的内存地址传递这种方式将参数变量的内存地址传递给给Sub或或Function过程，过程通过内存地过程，过程通过内存地址访问实际参数的内容，从而可以方便址访问实际参数的内容，从而可以方便地改变实际参数的值。地改变实际参数的值。52Private Sub Change(x As Integer,y As Integ

36、er)本程序将参数本程序将参数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 As Integer a=3:b=4 Change a,b Print“a=”;a,”b=”;bEnd Sub （演示）演示）运行结果：运行结果：x=4，y=3A=4，b=3我们发现，调用我们发现，调用Change过程后，过程后，实际参数实际参数a，b的的值也发生了变化。值也发生了变化。这就是引用传递这就是引

37、用传递参数的执行结果。参数的执行结果。53按值传递参数是只把参数的数值传递给过程，也称传值方式。按值传递参数是只把参数的数值传递给过程，也称传值方式。即传递给过程的只是实际参数的副本，即使过程调用时改即传递给过程的只是实际参数的副本，即使过程调用时改变了形式参数的值，实际参数也不会改变。变了形式参数的值，实际参数也不会改变。如果按值传递参数，需要在定义过程时在形式参数前面加是如果按值传递参数，需要在定义过程时在形式参数前面加是G关键字关键字ByVal，例如上例中：例如上例中：Private Sub Change(ByVal x As Integer,ByVal y As Integer)Dim

38、 t As Integer t=x x=y y=t 在窗体是输出结果在窗体是输出结果 Print“x=”;x,”y=”;yEnd Sub运行结果：运行结果：x=4，y=3a=3，b=454 驱动驱动VBVB应用程序运行的主要动力是事应用程序运行的主要动力是事件响应。在件响应。在VBVB响应的所有事件中，数目最响应的所有事件中，数目最多也最重要的是对键盘和鼠标的响应事件，多也最重要的是对键盘和鼠标的响应事件，因为键盘和鼠标是用户和应用程序交互的因为键盘和鼠标是用户和应用程序交互的主要工具。下面系统介绍鼠标和键盘常用主要工具。下面系统介绍鼠标和键盘常用事件的使用技巧和原理。事件的使用技巧和原理。5

39、52.简述参数传递机制。简述参数传递机制。答：答：VB中参数传递机制有两种：一种是引用参数传递中参数传递机制有两种：一种是引用参数传递（默认），另一种是按值传递参数。（默认），另一种是按值传递参数。引用参数传递是将参数变量的内存地址传递给引用参数传递是将参数变量的内存地址传递给Sub或或Function过程，过程通过内存地址访问实际参过程，过程通过内存地址访问实际参数的内容，从而可以方便地改变实际参数的值。数的内容，从而可以方便地改变实际参数的值。按值传递参数是只把参数的数值传递给过程，也按值传递参数是只把参数的数值传递给过程，也称传值方式。即传递给过程的只是实际参数的副本，称传值方式。即传递

40、给过程的只是实际参数的副本，即使过程调用时改变了形式参数的值，实际参数也即使过程调用时改变了形式参数的值，实际参数也不会改变。如果按值传递参数，需要在定义过程时不会改变。如果按值传递参数，需要在定义过程时在形式参数前面加是在形式参数前面加是G关键字关键字ByVal。56常用的键盘事件主要有常用的键盘事件主要有KeyPress，KeyUp和和KeyDown。KeyPress事件：用户按下某事件：用户按下某ASCII字符的字符的键，因此它不是对所有的键盘码均响应，键，因此它不是对所有的键盘码均响应，比如键盘上的删除键。比如键盘上的删除键。KeyDown和和KeyUp事件：按下或释放键盘事件：按下或

41、释放键盘上的任意键时均会触发该事件，包括上的任意键时均会触发该事件，包括Delete删除键。删除键。57 窗体或控件（对象）的焦点是对象活动窗体或控件（对象）的焦点是对象活动的标志，在的标志，在Windows应用中，可以同时运行应用中，可以同时运行几个应用程序，但只有具有焦点的应用程序几个应用程序，但只有具有焦点的应用程序才有活动标题栏，才能接受用户输入。在同才有活动标题栏，才能接受用户输入。在同一窗体中，也只有具有焦点的的一窗体中，也只有具有焦点的的TextBox文文本框才能接受键盘输入。总之只有获得焦点本框才能接受键盘输入。总之只有获得焦点的窗体或控件才能接受键盘事件。所以在处的窗体或控件

42、才能接受键盘事件。所以在处理键盘事件嵌，应首先对焦点进行处理。理键盘事件嵌，应首先对焦点进行处理。58（1）SetFocus方法方法 在程序运行时，通过鼠标选择操作或控件在程序运行时，通过鼠标选择操作或控件的的SetFocus方法实现。方法实现。VB所提供的标准控件一般都有一个所提供的标准控件一般都有一个SetFocus方法。通过该方法可以把焦点赋予方法。通过该方法可以把焦点赋予指定的控件，是一种灵活的焦点控制方法。指定的控件，是一种灵活的焦点控制方法。比如希望在程序运行期的某个阶段，使某个比如希望在程序运行期的某个阶段，使某个控件后得焦点被激活，可使用以下代码：控件后得焦点被激活，可使用以下

43、代码：控件名控件名.SeFocus59（2）利用）利用Tab控制键控制键 VB所有可被设置焦点的控件均具有一个所有可被设置焦点的控件均具有一个TabIndex属性。默认情况些，在窗体上创建的第一属性。默认情况些，在窗体上创建的第一个控件的个控件的TabIndex的值为的值为0，第一个控件的，第一个控件的TabIndex的值为的值为1，移此类推。可按预先设计好的，移此类推。可按预先设计好的顺序，改变控件的顺序，改变控件的TabIndex的值。这样就可以在程的值。这样就可以在程序运行期间，通过序运行期间，通过Tab键使焦点按键使焦点按TabIndex的值，的值，从小到大在众多控件中切换。从小到大在

44、众多控件中切换。如果不希望使某些控件获得焦点，就可以把该如果不希望使某些控件获得焦点，就可以把该控件的控件的TabStop属性值设置为属性值设置为False。当然，如果控当然，如果控件不可视（件不可视（Visible=False）或不可用或不可用（Enabled=False），），也不可能获得焦点了。也不可能获得焦点了。603.如果不希望某个控件获得焦点，则可以如果不希望某个控件获得焦点，则可以将它的将它的 属性设置为属性设置为False。答案：答案：TabStop614.什么是焦点，设置控件焦点有哪些方法？什么是焦点，设置控件焦点有哪些方法？答：窗体或控件（对象）的焦点是对象活答：窗体或控件

45、（对象）的焦点是对象活动的标志，只有获得焦点的窗体或控件动的标志，只有获得焦点的窗体或控件才能接受键盘事件。才能接受键盘事件。设置控件焦点的两种方法：设置控件焦点的两种方法：SetFocus方法：方法：控件名控件名.SeFocus按预先设计好的顺序，改变控件的按预先设计好的顺序，改变控件的TabIndex的值。的值。62如果希望无论何时按下某个键，都会同时如果希望无论何时按下某个键，都会同时执行同一操作，而不管此时到底哪个控执行同一操作，而不管此时到底哪个控件具有焦点的话，就可以使用窗体的键件具有焦点的话，就可以使用窗体的键盘事件。具体方法是：首先将窗体的盘事件。具体方法是：首先将窗体的Key

46、PreviewKeyPreview属性设置为属性设置为TrueTrue，然后再编然后再编写相应的键盘事件处理程序。写相应的键盘事件处理程序。63 计算机键盘上的每一个键均有一个键码，计算机键盘上的每一个键均有一个键码，称为键码。称为键码。KeyCodeKeyCode参数返回了键盘的键码值。参数返回了键盘的键码值。通过它判断用户按下哪个键。既可以用数字也可通过它判断用户按下哪个键。既可以用数字也可以利用以利用VBVB提供的键码常数进行判断处理，比如提供的键码常数进行判断处理，比如vbKeyF1vbKeyF1（F1F1键）、键）、vbKeyHomevbKeyHome（HomeHome键）、键）、v

47、bKeyAvbKeyA（A A和和a a键）等。例如：键）等。例如：If If KeyCode KeyCode=vbKeyBack vbKeyBack ThenThen If If KeyCodeKeyCode=vbKeyDelete vbKeyDelete ThenThen64通过该参数判断用户是否按下了通过该参数判断用户是否按下了ShiftShift、CtrlCtrl或或AltAlt键。例如：键。例如：If Shift=If Shift=vbShiftMask vbShiftMask ThenThenIf Shift=If Shift=vbCtrlMaskvbCtrlMask Then T

48、henIf Shift=If Shift=vbAlttMaskvbAlttMask Then ThenIf(Shift=If(Shift=vbAltMaskvbAltMask)And(Key Code=)And(Key Code=VbKeyAVbKeyA)Then)Then65KeyPressKeyPress事件发生于事件发生于KeyDownKeyDown和和KeyUpKeyUp之间，它只有一个之间，它只有一个KeyAsciiKeyAscii参数，反映了用户通过键盘输入的字符的参数，反映了用户通过键盘输入的字符的ASCIIASCII码。码。当需要处理标准当需要处理标准ASCIIASCII字符时

49、可使用这个事件，但要处理字符时可使用这个事件，但要处理扩展字符键、组合键和定位键时，则只能使用扩展字符键、组合键和定位键时，则只能使用KeyDownKeyDown和和KeyUpKeyUp事件。例如：事件。例如：Private Sub Text1_Private Sub Text1_KeyPressKeyPress(Index As(Index As Integer,Integer,KeyAscii KeyAscii As Integer)As Integer)只允许输入数字，其中用到的数字只允许输入数字，其中用到的数字4848和和5757分别表示字分别表示字符符0 0和和9 9的的ASCIIA

50、SCII码码 If(If(KeyAsciiKeyAscii48)Or(57)Then57)Then KeyAsciiKeyAscii=0=0 End If End IfEnd Sub End Sub 66按键按键键码键码常数常数ASCII码码数字是否相等数字是否相等BackSpacevbKeyBack8是是EntervbKeyReturn13是是SpacevbKeySpace33是是TabvbKeyTab9是是EscvbKeyEscape27是是AZvbKeyAvbKeyZ6590是是azvbKeyAvbKeyZ97122否否.vbKeyDecimal46否否09vbKey0vbKey9485