《VB程序设计第四章》PPT课件.ppt

《《VB程序设计第四章》PPT课件.ppt》由会员分享，可在线阅读，更多相关《《VB程序设计第四章》PPT课件.ppt（25页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、第4讲 VB高级语言技巧教学要求1掌握数组的使用方法；2、掌握键盘、鼠标的使用技巧；3、掌握过程和函数的定义和调用方法；4、掌握API函数的调用方法；5、了解枚举及自定义数据类型；6、了解多功能计算器程序设计过程。4.1 多功能计算器程序任务4.1.1 任务概述1、对程序功能进行扩展，将计算结果转换成十六进制。2、在编写数字区按钮事件时，工作量过于重复，10个按钮要编写10个Click事件处理程序。可采用合并同类项的方法，以减少代码设计的工作量。3、文本框禁止用户输入文本。4.2 数组的使用4.2.1 数组1、概念一组具有同一名字、不同下标的变量称为数组，实际上是一组相同类型的变量的集合。数组

2、可分为一维数组、二维数组、三维数组。2、声明静态数组（1）方法1 Dim 数组名(上界)As 数据类型默认情况下数组的下界从0开始，因此数组元素的个数等于上界加1。全部元素初始化为0或空。例：Dim A(5)As Integer4.2 数组的使用4.2.1 数组2、声明静态数组（1）方法2 Dim 数组名(下界 to 上界)As 数据类型可根据需要设置下标的起始值和结束值。Dim A(1 to 5,1 to 5)As IntegerDim A(5,5)As Integer4.2 数组的使用4.2.1 数组3、动态数组事先不能确定元素个数，可采用动态数组声明。（1）首先声明一个静态数组，不指定大

3、小Dim A()As Integer（2）在程序执行过程中，使用ReDim语句修改数组大小或上下界ReDim A(20)As IntegerReDim A(1 To 20)As Integer4.2 数组的使用4.2.2 控件数组特殊数组，数据类型为控件类型，每个数组元素都是一个空间对象，共用一个相同的控件名字，所有元素的Name属性均相同，各控件的Index属性表示数组下标。一般情况下，当一个应用程序中存在多个相同的控件，并且它们对某种事件的处理方法类似时，可采用控件数组，达到共享代码的目的。4.2 数组的使用4.2.3 枚举及自定义数据类型1、枚举当某个变量只可能取几个固定的值时，就可将其

4、定义为枚举类型。定义枚举类型需要用Enum关键字声明。Public Enum enmDay星期日=1 星期一=2 星期二=3 星期三=4星期四=5 星期五=6 星期六=7End Enum4.2 数组的使用4.2.3 枚举及自定义数据类型1、枚举enmDay本身并不是变量，只是一种用户定义的新的数据类型。定义后就可以像VB提供的标准数据类型一样使用。Dim MyDay As enmDayMyDay=星期日（1）枚举类型中的元素只能表示长整型常数（2）枚举类型应在模块级别中定义（3）没有赋值时，系统自动为第一个赋值0，后面的成员值依次加1。4.2 数组的使用4.2.3 枚举及自定义数据类型2、自定

5、义类型一种构造型数据，常称为记录类型。（1）定义Public Type Student学号 As String*10 姓名 As String*10 年龄 As Integer 籍贯 As StringEnd Type（2）声明变量 Dim x As Student（3）使用x.学号=“200101”x.姓名=“张红”4.3 过程和函数的定义和调用在VB中，将SubEnd Sub定义的子程序称为Sub过程（子过程），将FunctionEnd Function定义的函数称为Function过程（函数过程）。4.3.1 编写自定义过程的必要性函数过程是一种代码分块技术，可将程序划分为模块：（1）过

6、程规模小，容易调用和维护（2）过程可被反复调用，避免重复代码，加强可重用性。（3）程序结构简洁，便于阅读和维护4.3 过程和函数的定义和调用4.3.2 Sub过程1、定义一般在窗体代码编辑器的通用部分定义私有的Sub过程，定义后可在窗体的所有地方调用。如果希望定义整个应用程序均可使用的公用过程，则最好在标准模块定义。4.3 过程和函数的定义和调用4.3.3 参数传递过程1、引用传递参数将参数变量的内存地址传递给Sub或Function过程，过程通过内存地址访问实际参数的内容。Private Sub Change(x As Integer,y As Integer)Dim t as Intege

7、rt=x x=y y=tPrint“x=”;x,“y=”;yEnd Sub4.3 过程和函数的定义和调用4.3.3 参数传递过程Private Sub Form_Click()Dim a As IntegerDim b As Integera=3b=4change a,bPrint“a=”;a,“b=”;bEnd Sub4.3 过程和函数的定义和调用4.3.3 参数传递过程2、按值传递只把实际参数的数值传递给过程，传递的只是参数的副本。Private Sub Change(ByVal x As Integer,ByVal y As Integer)4.4 鼠标和键盘使用技巧4.4.1 响应键盘

8、事件常用的键盘事件主要有KeyPress、KeyUp、KeyDown事件，触发的原因为：KeyPress：用户按下了某ASCII字符的键KeyUp和KeyDown：按下或释放键盘上的任意键均会触发。1、焦点处理窗体或控件的焦点是对象活动的标志，一个窗体中只有具有焦点的控件才能接受键盘事件。4.4 鼠标和键盘使用技巧4.4.1 响应键盘事件设置焦点的方法有：一是在程序运行阶段通过鼠标选择或控件的SetFocus方法实现。另一种是在程序设计阶段预先设置控件的TabIndex属性，在运行时通过按Tab键实现焦点的移动。（1）SetFocus方法标准控件一般有一个SetFocus方法。程序设计时设置焦

9、点可使用以下代码：控件名.SetFocus4.4 鼠标和键盘使用技巧4.4.1 响应键盘事件（2）利用Tab键控制所有可被设置焦点的控件均有一个TabIndex属性。默认在窗体上创建的第一个控件的TabIndex值为0，第二个控件的TabIndex值为1，依次类推。（3）窗体的键盘事件如果希望按下任何键窗体都会执行同一操作，可使用窗体的键盘事件。4.4 鼠标和键盘使用技巧4.4.1 响应键盘事件2、KeyDown和KeyUp事件分析（1）KeyCode参数计算机键盘上每个键均有一个编码称为键码。可使用数字也可使用VB的键码常数进行判断处理。If KeyCode=vbKeyBack then 是

10、否按下BackSpaceIf KeyCode=vbKeyDelete then 是否按下Delete（2）Shift参数判断是否按下了Shift、Ctrl、Alt键4.4 鼠标和键盘使用技巧4.4.1 响应键盘事件If Shift=vbShiftMask then 是否按下ShiftIf Shift=vbCtrlMask then 是否按下CtrlIf Shift=vbAltMask then 是否按下AltIf(Shift=vbCtrlMask)And (KeyCode=vbKeyA)then是否按下了Ctrl+A组合键3、KeyPress事件发生于KeyDown和KeyUp之间，只有一个K

11、eyAscii参数，返回用户通过键盘输入的字符的ASCII码。当需要处理标准ASCII字符时可使用，但要处理扩展字符键、组合键和定位键时，只能使用KeyDown和KeyUp事件。常用键盘码与ASCII码的对用关系见P113表4.14.4 鼠标和键盘使用技巧4、SendKeys过程利用SendKeys可将一个或多个按键消息发送到活动窗口。例：为加快输入速度，用户每按下回车键后，控件焦点自动移动到下一个，可在文本框控件中加入以下代码：Private Sub Text_KeyPress(Index as Integer,KeyAscii As Integer)If KeyAscii=13 thens

12、endKeys“Tab”End If End Sub4.4 鼠标和键盘使用技巧4.4.2 响应鼠标事件1、改变鼠标形状VB提供15种鼠标形状，同时支持用户自定义功能。通过设置窗体的MousePointer属性可以设置。2、使用自定义鼠标形状将MousePointer属性设置为99，就可以使用自定义鼠标形状。通过设置MouseIcon属性可实现对鼠标属性的设置。4.4.2 响应鼠标事件3、MouseDown和MouseUp事件（1）Button参数分别表示左、中、右键，用0、2、1表示。（2）Shift参数用来区别鼠标与键盘的组合。1、2、3分别表示Shift、Ctrl和Alt被按下。（3）x、y参数返回当前指针的位置，计量单位由窗体的ScaleMode属性决定。实验使用数组制作简易计算器。