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

1掌握数组的使用方法；2、掌握键盘、鼠标的使用技巧；3、掌握过程和函数的定义和调用方法；4、掌握API函数的调用方法；5、了解枚举及自定义数据类型；6、了解多功能计算器程序设计过程。4.1.1 任务概述1、对程序功能进行扩展，将计算结果转换成十六进制。2、在编写数字区按钮事件时，工作量过于重复，10个按钮要编写10个Click事件处理程序。可采用合并同类项的方法，以减少代码设计的工作量。3、文本框禁止用户输入文本。4.2.1 数组1、概念一组具有同一名字、不同下标的变量称为数组，实际上是一组相同类型的变量的集合。数组可分为一维数组、二维数组、三维数组。2、声明静态数组（1）方法1 Dim 数组名(上界) As 数据类型默认情况下数组的下界从0开始，因此数组元素的个数等于上界加1。全部元素初始化为0或空。例：Dim A( 5) As Integer4.2.1 数组2、声明静态数组（1）方法2 Dim 数组名(下界 to 上界) As 数据类型可根据需要设置下标的起始值和结束值。Dim A(1 to 5,1 to 5) As IntegerDim A(5, 5) As Integer4.2.1 数组3、动态数组事先不能确定元素个数，可采用动态数组声明。（1）首先声明一个静态数组，不指定大小Dim A() As Integer（2）在程序执行过程中，使用ReDim语句修改数组大小或上下界ReDim A(20) As IntegerReDim A(1 To 20) As Integer4.2.2 控件数组特殊数组，数据类型为控件类型，每个数组元素都是一个空间对象，共用一个相同的控件名字，所有元素的Name属性均相同，各控件的Index属性表示数组下标。一般情况下，当一个应用程序中存在多个相同的控件，并且它们对某种事件的处理方法类似时，可采用控件数组，达到共享代码的目的。4.2.3 枚举及自定义数据类型1、枚举当某个变量只可能取几个固定的值时，就可将其定义为枚举类型。定义枚举类型需要用Enum关键字声明。Public Enum enmDay星期日=1 星期一=2 星期二=3 星期三=4星期四=5 星期五=6 星期六=7End Enum4.2.3 枚举及自定义数据类型1、枚举enmDay本身并不是变量，只是一种用户定义的新的数据类型。定义后就可以像VB提供的标准数据类型一样使用。Dim MyDay As enmDayMyDay=星期日（1）枚举类型中的元素只能表示长整型常数（2）枚举类型应在模块级别中定义（3）没有赋值时，系统自动为第一个赋值0，后面的成员值依次加1。4.2.3 枚举及自定义数据类型2、自定义类型一种构造型数据，常称为记录类型。（1）定义Public Type Student学号 As String*10 姓名 As String*10 年龄 As Integer 籍贯 As StringEnd Type（2）声明变量 Dim x As Student（3）使用x.学号=“200101” x.姓名=“张红”在VB中，将SubEnd Sub定义的子程序称为Sub过程（子过程），将FunctionEnd Function定义的函数称为Function过程（函数过程）。4.3.1 编写自定义过程的必要性函数过程是一种代码分块技术，可将程序划分为模块：（1）过程规模小，容易调用和维护（2）过程可被反复调用，避免重复代码，加强可重用性。（3）程序结构简洁，便于阅读和维护4.3.2 Sub过程1、定义一般在窗体代码编辑器的通用部分定义私有的Sub过程，定义后可在窗体的所有地方调用。如果希望定义整个应用程序均可使用的公用过程， 则最好在标准模块定义。4.3.3 参数传递过程1、引用传递参数将参数变量的内存地址传递给Sub或Function过程，过程通过内存地址访问实际参数的内容。Private Sub Change(x As Integer,y As Integer)Dim t as Integert=x x=y y=tPrint “x=”;x,“y=”;yEnd Sub4.3.3 参数传递过程Private Sub Form_Click()Dim a As IntegerDim b As Integera=3b=4change a,bPrint “a=”;a,“b=”;bEnd Sub4.3.3 参数传递过程2、按值传递只把实际参数的数值传递给过程，传递的只是参数的副本。Private Sub Change(ByVal x As Integer, ByVal y As Integer)4.4.1 响应键盘事件常用的键盘事件主要有KeyPress、KeyUp、KeyDown事件，触发的原因为：KeyPress：用户按下了某ASCII字符的键KeyUp和KeyDown：按下或释放键盘上的任意键均会触发。1、焦点处理窗体或控件的焦点是对象活动的标志，一个窗体中只有具有焦点的控件才能接受键盘事件。4.4.1 响应键盘事件设置焦点的方法有：一是在程序运行阶段通过鼠标选择或控件的SetFocus方法实现。另一种是在程序设计阶段预先设置控件的TabIndex属性，在运行时通过按Tab键实现焦点的移动。（1）SetFocus方法标准控件一般有一个SetFocus方法。程序设计时设置焦点可使用以下代码：控件名.SetFocus4.4.1 响应键盘事件（2）利用Tab键控制所有可被设置焦点的控件均有一个TabIndex属性。默认在窗体上创建的第一个控件的TabIndex值为0，第二个控件的TabIndex值为1，依次类推。（3）窗体的键盘事件如果希望按下任何键窗体都会执行同一操作，可使用窗体的键盘事件。4.4.1 响应键盘事件2、KeyDown和KeyUp事件分析（1）KeyCode参数计算机键盘上每个键均有一个编码称为键码。可使用数字也可使用VB的键码常数进行判断处理。If KeyCode=vbKeyBack then 是否按下BackSpaceIf KeyCode=vbKeyDelete then 是否按下Delete（2）Shift参数判断是否按下了Shift、Ctrl、Alt键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之间，只有一个KeyAscii参数，返回用户通过键盘输入的字符的ASCII码。当需要处理标准ASCII字符时可使用，但要处理扩展字符键、组合键和定位键时，只能使用KeyDown和KeyUp事件。常用键盘码与ASCII码的对用关系见P113表4.14、SendKeys过程利用SendKeys可将一个或多个按键消息发送到活动窗口。例：为加快输入速度，用户每按下回车键后，控件焦点自动移动到下一个，可在文本框控件中加入以下代码：Private Sub Text_KeyPress(Index as Integer,KeyAscii As Integer)If KeyAscii=13 thensendKeys “Tab” End If End Sub1、改变鼠标形状VB提供15种鼠标形状，同时支持用户自定义功能。通过设置窗体的MousePointer属性可以设置。2、使用自定义鼠标形状将MousePointer属性设置为99，就可以使用自定义鼠标形状。通过设置MouseIcon属性可实现对鼠标属性的设置。3、MouseDown和MouseUp事件（1）Button参数分别表示左、中、右键，用0、2、1表示。（2）Shift参数用来区别鼠标与键盘的组合。1、2、3分别表示Shift、Ctrl和Alt被按下。（3）x、y参数返回当前指针的位置，计量单位由窗体的ScaleMode属性决定。使用数组制作简易计算器。