北京电大VisualBasic程序设计第4章VB高级语言技巧.ppt

1,Visual Basic程序设计,第 4 章 VB高级语言技巧,2,4.1 多功能计算器任务4.1.1 任务描述在第三章简单计算器的基础，增加以下功能：1.将计算结果转换为十六进制。2.就数字键设置为命令按钮组，使“0”“9”数字按键的Index属性分别为0、1、2、3、4、5、6、7、8、9。3.禁止键盘在文本框中输入数据。4.使计算器总是悬浮在其它窗体上。界面如下页所示。,3,4,4.1.2 界面设计,1.添加“十六进制”和“数字大写”两个文本框，分别命名为txtHex和txtBig。2.删除原来的“0”“9”数字按钮控件，并重新放置一个命令按钮控件，将其Caption属性设置为“0”。3.复制该数字命令按钮。4.在数字区框架控件上，粘贴该数字命令按钮，系统询问是否创建一个控件数组，回答“是”。将它的Caption属性改为“1”，Index属性值设置为1。按照上述方法粘贴数字按钮控件“2”“9”。5、此时得到一 个按钮控件数组“0”“9”，它们的Index书香依次为“0”“9”。6、将TxtBig的ToolTipText属性设置为“大写数字”。,5,4.1.3 代码设计,1.用API函数实现“总在前面”效果（1）程序代码在代码编辑器的“通用”部分声明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 Private Const SWP_NOSIZE=&H1然后在Form的Load事件中加入以下代码：SetWindowPos hwnd,HWND_TOPMOST,0,0,0,0,SWP_NOMOVE Or SWP_NOSIZE,6,（1）API函数调用的一般方法,要在VB中使用API函数，首先要在工程的标准模块（Module）或窗体的代码的“通用”部分中声明它，然后可以按照调用VB其它函数一样来使用它。获得函数声明的一般方法：在安装VB系统后，通常会在VB程序组中看到“API文本浏览器”的应用程序。步骤如下：沿开始-程序-Microsoft Visual Studio 6.0-Microfoft Viaual Stodio 6.0 Tools-API Text Wiewer找到API浏览器。,7,8,第1步：启动“API文本浏览器”,9,10,第2步：选择“文件-加载文本文件”菜单项,11,加载WinAPI.txt文件。,12,第3步：选择API类型：声明,13,第4步：选择立刻用项SetWindowPos，将声明范围设置为“私有”。,14,按添加按钮。,15,第5步：就选定项下的VB代码复制,16,第5步：将复制的VB代码粘贴到窗体代码编辑器中的“通用-声明”部分。,17,习题 P115 一、单项选择题,2.能够实现“窗体总在最前端”界面效果的API函数是（）。A.SetWindowPosB.SetWindowAPIC.SetWindowShapeD.DeclareAPI答案：A,18,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,19,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,20,习题 P116 二、填空题,1.通常可将文本框控件的 属性设置为True，以禁止键盘输入。答案：Locked,21,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.Text的值为-时 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,22,4.修改“计算结果”按钮的Click事件代码,txtResult.Text=MyResult 显示计算结果 将计算结果转换为十六进制数字 txtHex.Text=Hex(MyResult)将计算结果转换为大写数字，（采用函数功能完成）txtBig.Text=ChangeMe(MyResult)End Sub,23,5.编写ChangeMe函数代码,Private 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)=壹:strBig(2)=贰:_ strBig(3)=叁:strBig(4)=肆:strBig(5)=伍:_ strBig(6)=陆:strBig(7)=柒:strBig(8)=捌:strBig(9)=玖,24,5.编写ChangeMe函数代码,将Double型的参数First转换为字符串型 strFirst=Trim(Str(First)strTemp=开始数字转换 For i=1 To Len(strFirst)取出第i位的字符数字，并将它转换为数值型 j=Val(Mid(strFirst,i,1)通过数组完成大写转换 strTemp=strTemp+strBig(j)Next i 将转换结果返回 ChangeMe=strTemp End Function（演示）,25,习题 P116 三、问答题,5.请简述多功能计算器与第3章计算器在功能上的区别。答：区别有以下几点：1）能将计算结果转换为十六进制。2）将数字键设置为命令按钮组，使“0”“9”数字按键的Index属性分别为0、1、2、3、4、5、6、7、8、9。用按键的Index来识别输入的数字。3）禁止键盘在文本框中输入数据。4）使计算器总是悬浮在其它窗体上。,26,4.2 数组的使用,4.2.1 数组1.数组的概念 VB把一组具有同一名字、不同下标的变量称为数组，它实际上是一组具有相同类型的变量的集合。根据下标的个数可分为一维数组、二维数组、多维数组。例如：设置数组变量的值 strBig(0)=零:strBig(1)=壹:strBig(2)=贰:_ strBig(3)=叁:strBig(4)=肆:strBig(5)=伍:_ strBig(6)=陆:strBig(7)=柒:strBig(8)=捌:strBig(9)=玖,27,2.声明静态数组,数组分为静态数组和动态数组。定义静态数组的方法与变量的声明方法基本相同。有两种声明方法：（1）方法1Dim 数组名（上界）As 数据类型这种定义方法，默认情况下数组的下界从0开始，因此数组元素的个数等于上界+1。数组的全部元素都初始化为0（数值型）或空字符串（字符串型）例如定义一维数组：Dim A（5）As Integer数组A包括6个数组元素：A（0）、A（1）、A（5）。,28,（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),A(0,5),，A(5,0),A(5,1),A(5,2),，A(5,5),29,3.动态数组,如果事先不能确定数组元素的个数,可以采用动态数组声明技术,主要方法是:（1）首先声明一个静态数组，只定义其数组名，不指定数组的大小。例如 Dim A As Integer（2）在程序执行过程中，使用ReDim语句修改数组的大小或数组的上界，例如：ReDim A（20）As Integer ReDim A（1 To 20）As Integer,30,习题 P115 一、单项选择题,1.Dim A（1 To 6，1 To 5）定义的数组包含的元素个数是（）。A.30B.25C.42D.动态变化答案：A,31,习题 P116 二、填空题,4.Dim A（1 To 6）定义的数组包含 个元素。答案：6,32,习题 P116 三、问答题,3.什么是数组，如何声明，使用数组有什么好处？答：VB把一组具有同一名字、不同下标的变量称为数组，它实际上是一组具有相同类型的变量的集合。数组分为静态数组和动态数组。定义静态数组的方法与变量的声明方法基本相同。有两种声明方法：方法1：Dim 数组名（上界）As 数据类型 方法2：Dim 数组名（下界 To 上界）As 数据类型。使用数组可以使程序代码更清晰、简洁。，可以方便灵活地组织数据。,33,4.2.2 控件数组,控件数组是一种特殊的数组，与普通数组的主要区别是，它的数据类型为控件类型。每个数组元素都是一个控件对象，这些控件对象共用一个相同的名字，即所有的元素的Name属性值相同，各控件元素用Index属性表示数组下标。,34,数字区命令按钮的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,35,数字区命令按钮的Click事件也可编写如下：,Private Sub Command1_Click(Index As 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,36,Case 9 If txtLabel.Text=Then txtFirst.Text=txtFirst.Text+“9”Else txtSecond.Text=txtSecond.Text+“9”End If End SelectEnd Sub 利用Select或If选择结构，通过对Index属性值的判断，响应不同按钮元素的单击事件。,37,习题 P116 一、单项选择题,3.如果创建了命令按钮数组控件，那么Click事件的参数是（）。A.IndexB.CaptionC.TagD.没有参数答案：A,38,习题 P116 二、填空题,2.在程序运行过程中可以使用 语句修改数组的上下界。答案：ReDim,39,4.2.3 枚举及自定义数据类型,1.枚举当一个变量只可能取几个值时，可将其定义为枚举型，比如一个变量取17之间的整数来表示星期几，则可以把这个变量定义为枚举型。枚举类型只能有一个元素。要定义枚举型变量，须先用关键字Emum定义一个枚举类型。例如：Public Enum enmDay 星期日=1 星期一=2 星期五=6 星期一=7 End Emun,40,4.2.3 枚举及自定义数据类型,该语句定义了一个名为enmDay的枚举变量。注意emnDay本身并不是一个变量，它只是用户自己定义的新的数据类型。一经定义，就可以像VB提供的标准数据类型（如String、Integer）一样使用。例如：Dim Myday As emnDay 声明一个变量Myday，其数 据类型为enmDay Myday=星期日 为变量赋值，即Myday=1使用枚举型时应注意几点：（1）枚举类型中的元素只能表示长整型常数。（2）枚举类型应在模块级别中定义。（3）当定义时没有给枚举成员赋值时，系统自动为第一个成员赋值0，以后的成员值依次加1。,41,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.姓名=“张红”,42,枚举和自定义类型是一种有效的数据组织方式。尽管不使用它们也照样可以开发出功能强大的应用程序，但有效地应用这两种方式，可以使程序代码更清晰、简洁。如果要使用这两种方式，最好能在模块中用Public定义，以便整个应用程序使用。,43,4.3 过程和函数的定义和调用,VB窗体和控件的每一个事件都是一个过程，称为事件过程，它们总是与特定的控件对象相关联，所以被认为是私有（Private）过程。此外，VB还提供了一些内置的由系统预先编好的函数，比如Trim，Str和Val函数等。在VB中，将SubEnd Sub定义的子程序称为Sub过程（子过程），而将FunctionEnd Fuction定义的函数称为Function过程（函数过程）。,44,4.3.1 为什么要编写自定义过程,函数过程是一种代码分块技术，采用这种技术将应用程序划分为多个程序模块，其好处是：1.过程规模小，容易调用和维护。2.过程可以被反复调用，避免了重复编码，加强了可重用性。3.过程是由处理某一特定功能的代码组成，是一个相对独立的实体，将应用程序划分为这样一个实体，会使程序结构简洁，便于阅读维护。,45,习题 P116 三、问答题,1.为什么要编写自定义过程？因为自地那以过程有以下好处：1.过程规模小，容易调用和维护。2.过程可以被反复调用，避免了重复编码，加强了可重用性。3.过程是由处理某一特定功能的代码组成，是一个相对独立的实体，将应用程序划分为这样一个实体，会使程序结构简洁，便于阅读维护。,46,4.3.2 Sub 过程,1.定义一般应在窗体代码编辑器的“通用”部分定义私有的Sub过程，一经定义则可以在窗体的所有地方调用它。,47,如果希望定义整个应用程序均可以使用的公有过程，则最好在标准模块（Module）进行。,48,2.调用,调用过程的方法非常简单，如图所示。,49,习题 P116 一、单项选择题,4.如果要在窗体代码编辑器的“通用”部分定义私有Sub过程，则正确的语句是（）。A.Public SubB.Public FnctionC.Private SubD.Private Function答案：C,50,4.3.3 Fucttion函数,1.定义 Function过程以一个返回值表示执行结果，也有公有的和私有的两种作用范围。例如，在窗体中定义一个返回整型数据的私有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）,51,4.3.4 参数传递机制简介,大部分过程都含有参数。将Sub过程或Function过程定义中出现的变量名称为形式参数，而在调用时传递给Sub过程和Function过程的常量、变量或表达式称为实际参数。将参数以变量形式传递的过程称为参数传递。VB中参数传递机制有两种：一种是引用参数传递（默认），另一种是按值传递参数。,52,1.引用传递参数,这种方式将参数变量的内存地址传递给Sub或Function过程，过程通过内存地址访问实际参数的内容，从而可以方便地改变实际参数的值。,53,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 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的值也发生了变化。这就是引用传递参数的执行结果。,54,2.按值传递参数,按值传递参数是只把参数的数值传递给过程，也称传值方式。即传递给过程的只是实际参数的副本，即使过程调用时改变了形式参数的值，实际参数也不会改变。如果按值传递参数，需要在定义过程时在形式参数前面加是G关键字ByVal，例如上例中：Private Sub Change(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,55,4.4 键盘和鼠标使用技巧,驱动VB应用程序运行的主要动力是事件响应。在VB响应的所有事件中，数目最多也最重要的是对键盘和鼠标的响应事件，因为键盘和鼠标是用户和应用程序交互的主要工具。下面系统介绍鼠标和键盘常用事件的使用技巧和原理。,56,习题 P116 三、问答题,2.简述参数传递机制。答：VB中参数传递机制有两种：一种是引用参数传递（默认），另一种是按值传递参数。引用参数传递是将参数变量的内存地址传递给Sub或Function过程，过程通过内存地址访问实际参数的内容，从而可以方便地改变实际参数的值。按值传递参数是只把参数的数值传递给过程，也称传值方式。即传递给过程的只是实际参数的副本，即使过程调用时改变了形式参数的值，实际参数也不会改变。如果按值传递参数，需要在定义过程时在形式参数前面加是G关键字ByVal。,57,4.4.1 响应键盘事件,常用的键盘事件主要有KeyPress，KeyUp和KeyDown。KeyPress事件：用户按下某ASCII字符的键，因此它不是对所有的键盘码均响应，比如键盘上的删除键。KeyDown和KeyUp事件：按下或释放键盘上的任意键时均会触发该事件，包括Delete删除键。,58,1.焦点处理,窗体或控件（对象）的焦点是对象活动的标志，在Windows应用中，可以同时运行几个应用程序，但只有具有焦点的应用程序才有活动标题栏，才能接受用户输入。在同一窗体中，也只有具有焦点的的TextBox文本框才能接受键盘输入。总之只有获得焦点的窗体或控件才能接受键盘事件。所以在处理键盘事件嵌，应首先对焦点进行处理。,59,实现控件焦点的两种方法,（1）SetFocus方法 在程序运行时，通过鼠标选择操作或控件的SetFocus方法实现。VB所提供的标准控件一般都有一个SetFocus方法。通过该方法可以把焦点赋予指定的控件，是一种灵活的焦点控制方法。比如希望在程序运行期的某个阶段，使某个控件后得焦点被激活，可使用以下代码：控件名.SeFocus,60,实现控件焦点的两种方法,（2）利用Tab控制键 VB所有可被设置焦点的控件均具有一个TabIndex属性。默认情况些，在窗体上创建的第一个控件的TabIndex的值为0，第一个控件的TabIndex的值为1，移此类推。可按预先设计好的顺序，改变控件的TabIndex的值。这样就可以在程序运行期间，通过Tab键使焦点按TabIndex的值，从小到大在众多控件中切换。如果不希望使某些控件获得焦点，就可以把该控件的TabStop属性值设置为False。当然，如果控件不可视（Visible=False）或不可用（Enabled=False），也不可能获得焦点了。,61,习题 P116 二、填空题,3.如果不希望某个控件获得焦点，则可以将它的 属性设置为False。答案：TabStop,62,习题 P116 三、问答题,4.什么是焦点，设置控件焦点有哪些方法？答：窗体或控件（对象）的焦点是对象活动的标志，只有获得焦点的窗体或控件才能接受键盘事件。设置控件焦点的两种方法：SetFocus方法：控件名.SeFocus按预先设计好的顺序，改变控件的TabIndex的值。,63,2.窗体的键盘事件,如果希望无论何时按下某个键，都会同时执行同一操作，而不管此时到底哪个控件具有焦点的话，就可以使用窗体的键盘事件。具体方法是：首先将窗体的KeyPreview属性设置为True，然后再编写相应的键盘事件处理程序。,64,1.KeyDown和KeyUp事件分析,计算机键盘上的每一个键均有一个键码，称为键码。KeyCode参数返回了键盘的键码值。通过它判断用户按下哪个键。既可以用数字也可以利用VB提供的键码常数进行判断处理，比如vbKeyF1（F1键）、vbKeyHome（Home键）、vbKeyA（A和a键）等。例如：If KeyCode=vbKeyBack Then If KeyCode=vbKeyDelete Then,65,（2）Shift参数,通过该参数判断用户是否按下了Shift、Ctrl或Alt键。例如：If Shift=vbShiftMask ThenIf Shift=vbCtrlMask ThenIf Shift=vbAlttMask ThenIf(Shift=vbAltMask)And(Key Code=VbKeyA)Then,66,3.KeyPress事件,KeyPress事件发生于KeyDown和KeyUp之间，它只有一个KeyAscii参数，反映了用户通过键盘输入的字符的ASCII码。当需要处理标准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,67,常用键盘码与ASCII码的对应关系,键码未必都有对应的ASCII码。A和a的ASCII码不同，但它们在键盘上是一个按键，因此键码是一样的。,68,习题 P116 一、单项选择题,5.键盘事件的执行顺序是（）。A.KeyPress，KeyDown，KeyUpB.KeyDown，KeyPress，KeyUpC.KeyUp，KeyDown，KeyPressD.KeyUp，KeyPress，KeyDown答案：B,69,习题 P116 四、程序设计题,2.键盘按键程序。请使用MsgBox过程对窗体的KeyDown和KeyPress事件编程，以显示按下、放开一个键时事件的发生过程。比如，当按下了A键时程序界面如图所示。,70,代码设计：,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的值是：_&KeyAscii,0,键盘按键程序End SubPrivate Sub Text1_KeyUp(KeyCode As Integer,Shift As Integer)MsgBox KeyUp事件发生了，KeyCode的值是：_&KeyCode&Chr(13)&_ Shift参数的值是：&Shift,0,键盘按键程序End Sub（演示）,71,4.SendKeys过程,利用SendKeys可以将一个或多按键消息发送到湖动窗口，就如同在键盘上湿润一样。比如：SendKeys“Tab”SendKeys“A 10”SendKeys“Enter”SendKeys“Left 3”SendKeys“F1”SendKeys“CapsLock”,72,例：在所示界面中，为了加快用户的输入速度，希望每当用户按完回车键后，控制焦点自动移到下一个，就可以在文本框控件数组中加入以下代码：,Private Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii=13 Then SendKeys tab End IfEnd Sub,73,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（演示）,74,习题 P116 四、程序设计题,1.焦点切换程序。在一窗体上创建一文本框控件数组，并设置好它们的TabIndex属性，然后使用SendKeys语句编写文本框事件的KeyPress事件。运行时，当按下回车键后，空间的焦点自动切换。第一步：设计界面第二步：设计代码,75,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 If KeyAscii=13 Then SendKeys tab End If Case 3 If KeyAscii=13 Then SendKeys tab End If End SelectEnd Sub,76,4.4.2 响应鼠标事件,1.改变鼠标的形状每个窗体和控件都具有MousePointer属性，可通过它赋予它015间的不同值改变鼠标形状。既可在设计阶段进行，也可以在程序代码中改变设置。2.使用自定义鼠标形状如果将MousePointer属性的值设置为99，则可以使用自定义鼠标形状。方法是：首先找一些光标（*.cur)或（*.ico)文件，然后通过MouseIcon属性完成设置。,77,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，ScaleLeft和ScaleTop属性所建立的坐标系内。,78,习题 P116 四 程序设计题,4.随机序列排序程序。使用第三章学过的Ren函数生成10个199之间的随机整数，并按从小到大的顺序排序，最后在列标框控件中输出。本程序主要使用数组、自定义过程、引用传递参数等知识。,79,代码设计：,Private Sub MyRnd(B()As Integer)Dim i As Integer Randomize For i=1 To 10 B(i)=Int(Rnd*100)MsgBox“产生的第”&i&“个随机数是”&_ B(i),0,当前产生的随机数 Next iEnd Sub,80,代码设计：,Private Sub Command1_Click()Dim A(1 To 10)As Integer Dim i As Integer MyRnd A For i=1 To 10 For j=i+1 To 10 If A(i)A(j)Then t=A(i)A(i)=A(j)A(j)=t End If Next j Next i List1.Clear For i=1 To 10 List1.AddItem A(i)Next iEnd Sub,81,实验4 鼠标、键盘、API函数调用,一、键盘错位程序1.实验要求通过对文本框控件的鼠标KeyPress事件的编程，使得键盘按键发生错位，比如电脑感按下“A”键时，在文本框中将显示字母“B”，依次类推。2.实验步骤第1步：界面设计,82,实验4 鼠标、键盘、API函数调用,一、键盘错位程序第1步：代码设计,83,实验4 鼠标、键盘、API函数调用,二、实用的键盘使用技巧1.实验要求利用键盘的KeyPress事件进行编程，使控件焦点轮流在三文本框和“确定”按钮之间转换。,84,实验4 鼠标、键盘、API函数调用,二、实用的键盘使用技巧1.实验步骤第1步：进行界面设计,Text1为文本框数组，自上而下索引号(Index)依次为0，1，2。Texe1(0),Text1(1),Text1(2),Command1的TabIndex属性依次设置为0，1，2，3。,85,实验4 鼠标、键盘、API函数调用,一、实用的键盘使用技巧1.实验步骤第1步：进行代码设计编写Form_Load事件代码Private Sub Form_Load()当Form启动时，对Text1控件数组赋初值 For i=0 To Text1.Count-1 Text1(i).Text=NextEnd Sub,86,编写Text1控件数组的KeyPress事件代码Private Sub Text1_KeyPress(Index As Integer,KeyAscii As Integer)当键入户车键时（ASCII码为13），发送Tab键 If KeyAscii=13 Then SendKeys tab End If 如果当前的焦点是Text1(2),则只允许用户输入数字 If Index=2 Then If(Chr(KeyAscii)9)And KeyAscii 8 Then KeyAscii=0 End If End IfEnd Sub,87,编写Command1的Click事件代码Private Sub Command1_Click()显示输出结果，其中vbcr等效于Chr(13)Dim strSQL As String strSQL=根据你的输入值，拼写SQL语句如下：+vbCr strSQL=strSQL+INSERT INTO 学生表(学号,姓名,年龄)+vbCr strSQL=strSQL+VALUES(+Text1(0).Text+,+Text1(1).Text+,+Text1(2).Text+)MsgBox strSQL,vbQuestion+vbOKOnly,信息提示 使得Text1(0)重新获得焦点 Text1(0).SetFocusEnd Sub编写Command2的Click事件代码Private Sub Command2_Click()EndEnd Sub,88,实验4 鼠标、键盘、API函数调用,三、鼠标事件应用1.实验要求利用鼠标的MouseMove事件进行编程，使Label1控件的Caption”欢迎进入Visual Basic世界“跟随鼠标移动，同时字体的颜色页也会不断变化。,89,实验4 鼠标、键盘、API函数调用,三、鼠标事件应用2.实验步骤第1步：界面设计,90,实验4 鼠标、键盘、API函数调用,三、鼠标事件应用2.实验步骤第2步：代码设计Private Sub Form_MouseMove(Button As Integer,Shift As Integer,X As Single,Y As Single)随机改变Label1空间的前景色 Label1.ForeColor=RGB(Rnd*255,Rnd*255,Rnd*255)根据鼠标当前的X，Y坐标设置Label1控件的Top和Left属性 Label1.Top=Y Label1.Left=XEnd Sub,91,实验4 鼠标、键盘、API函数调用,四、窗体窗体总在最前面实验1.实验要求本实验程序由两个窗体组成。Form1窗体为普通窗体，是启动窗体；Form2是ToolWindow窗体，具有“总在前端”属性。每个窗体包含一个Text1控件。当在Form2的Text1输入文字时，form1的Text1显示相应的内容。2.实验步骤第1步：界面设计,92,实验4 鼠标、键盘、API函数调用,四、窗体窗体总在最前面实验第2步：代码设计(1)复制API引用使用VB提供的API文本浏览器得到以下API函数以及相关变量的声明，并将它们复制到Form1代码编辑器的“通用”部分。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 LongPrivate Const HWND_TOPMOST=-1Private Const