第二章简单的VB程序设计课件

大家好大家好1第二章第二章 简单的简单的VBVB程序设计程序设计2学习目标学习目标 熟悉建立应用程序的基本步骤；掌握常用控件的属性、方法和事件，会编写简单的完整应用程序。学习重点学习重点 1）对象和类的概念；对象三要素的含义；2）窗体、命令按钮、文本框和标签等常用控件的属性、方法和事件。学习难点学习难点 常用控件的事件代码的编写，了解基本的程序结构和语句。32.1 2.1 面向对象中的概念面向对象中的概念一一.什么是类？什么是类？p面向对象思想来源于对现实世界的认知。面向对象思想来源于对现实世界的认知。p现实世界缤纷复杂、种类繁多，难于认识和理解。现实世界缤纷复杂、种类繁多，难于认识和理解。但是聪明的人们学会了把这些错综复杂的事物进行但是聪明的人们学会了把这些错综复杂的事物进行分类分类，从而使世界变得井井有条。，从而使世界变得井井有条。p定义：定义：同种事物的集合就构成类，同种事物的集合就构成类，类用于将这些类用于将这些具有不同状态和行为的各类事物区分开来。具有不同状态和行为的各类事物区分开来。4二、二、对象是类的具体化对象是类的具体化定义：定义：对象是类的具体实例。对象是类的具体实例。在面向对象的程序设计思想中，自然界中所有事物在面向对象的程序设计思想中，自然界中所有事物（包括计算机中的事物）都可以被看作一个个的对（包括计算机中的事物）都可以被看作一个个的对象（象（Object）。）。对象所具有的共同特征：对象所具有的共同特征：有一个名字区别于其他对有一个名字区别于其他对象；有一组自己的特征（属性）；有一定的功能和象；有一组自己的特征（属性）；有一定的功能和行为。行为。5面向对象的编程思想面向对象的编程思想面向对象编程也采用了类的概念，把事物编面向对象编程也采用了类的概念，把事物编写成一个个写成一个个“类类”。在类中，用在类中，用数据数据表示事物的表示事物的状态状态，用，用函数函数实实现事物的现事物的行为行为，这样就使编程方式和人的思，这样就使编程方式和人的思维方式保持一致，极大的降低了思维难度。维方式保持一致，极大的降低了思维难度。6 举例：类和对象举例：类和对象7思考：思考：下图中有几个类？几个对象？下图中有几个类？几个对象？有三个类：人、纸片、桌子有三个类：人、纸片、桌子有有1212个对象：个对象：8认识：认识：vb中的类和对象中的类和对象pVB中的类是中的类是工具箱工具箱中的各个图标，中的各个图标，在窗体当在窗体当中创建出的界面元素就是对象。中创建出的界面元素就是对象。pVB中的对象称为中的对象称为控件对象控件对象，简称为简称为对象对象。9三三.控件对象的建立和编辑控件对象的建立和编辑常用的对象基本操作：常用的对象基本操作：p建立建立p选定选定p删除删除p命名命名10四四.对象的三要素对象的三要素-属性、事件和方法属性、事件和方法1 1.第一要素第一要素属性属性 用来描述和反映对象特征的多个参数（属性名），而各用来描述和反映对象特征的多个参数（属性名），而各个参数值就是该对象的属性值。个参数值就是该对象的属性值。如：命令按钮的属性可以有：如：命令按钮的属性可以有：NameName、CaptionCaption、Font Font 等。等。设置对象属性值的方法：设置对象属性值的方法：（1）在设计阶段利用属性窗口直接设置；）在设计阶段利用属性窗口直接设置；（2）在程序代码中利用赋值语句实现。）在程序代码中利用赋值语句实现。格式为：对象格式为：对象.属性属性=属性值属性值 如：如：Command1.caption=“确定确定”Label1.FontName=“黑体黑体”Label1.FontSize=2411对象的通用属性对象的通用属性对象的位置和尺寸属性（见对象的位置和尺寸属性（见P23图图1.2.8）（1）Left：对象左上角顶点相对于容器的X坐标；（2）Top：对象左上角顶点相对于容器的Y坐标；（3）Width：对象的宽度；（4）Height：对象的高度。注意：能在其中建立其它控件的控件称为容器（控件）。如：窗体控件。名称属性名称属性Name 该属性是所有对象都具有的属性，是唯一的，在创建时，系统会指定一个默认的名称，可根据需要进行修改。参考表：对象的命名习惯12类型名类型名前缀对象名举例CheckBox复选框复选框ChkchkReadOnlyComboBox组合框组合框CbocboHobbycommandButton命令按钮命令按钮CmdcmdExitCommonDialog公共对话框公共对话框DlgdlgFileOpenControl控件控件CtrctrCurrentDagta数据数据DatdatBookDirListBox目录列表框目录列表框DirdirSourceDrvListBox驱动器列表框驱动器列表框DrvdrvTargetFileListBox文件列表框文件列表框FilfilSourceForm窗体窗体FrmfrmPasswordFrame框架框架FrafraLanguageHScrollBar水平滚动条水平滚动条HsbhsbVolumeImage图象图象ImgimgIconLabel标签标签LbllblHelpMessageLine直线直线LinlinVerticalListBox列表框列表框LstlstPolicyCodesMenu菜单菜单MnumnuFileOpenOptionButton单选框单选框(选项钮选项钮)OptoptMalePictureBox图片框图片框PicpicPhotoShape形状形状ShpshpCircleTextBox文本框文本框TxttxtNameTimer定时器定时器TmrtmrAlarmVScrollBar垂直滚动条垂直滚动条vsbvsbAge13对象的对象的颜色颜色和和字体字体属性属性（1）BackColor：设置对象的背景颜色；（2）ForeColor：设置对象里显示图片和文本的前景颜色；（3）Font：设置对象中文字的字体等相关属性。注意：Font属性所包含的常用子属性如下FontName：字体类型。如：黑体、宋体、楷体等FontSize：字体大小（磅）。如：8、12、16等 另外还有：fontBold(粗体)、FontItalic(斜体)、FontStrikethru(删除线)、fontUnderline(下划线)，这些属性值为逻辑型。14方法二：方法二：使用VB内部提供的颜色常量 VB内部可以直接使用的颜色常量有8种：vbBlack、vbRed、vbGreen、vbYellow、vbblue、vbMagenta(紫红色)、vbCyan(青色)、vbWhite如：Form1.BackColor=vbred方法一：方法一：使用RGB函数：如：Form1.BackColor=RGB(255,0,0)设置窗体的背景色为红色 RGB函数的三个参数分别对应红、绿、蓝三种颜色，取值在0-255之间，0为亮度最低，255为亮度最高。在在程序代码中程序代码中设置颜色的方法设置颜色的方法15对象的默认属性对象的默认属性对象的默认属性对象的默认属性 是指在运行时可以是指在运行时可以直接用某个对象的对象名直接用某个对象的对象名来引用对象来引用对象某个属性。一般情况下：某个属性。一般情况下：（1 1）CaptionCaption：FormForm、FrameFrame、LabelLabel、CommandButtonCommandButton等控件使等控件使用。用。（2 2）TextText：TextText、ListBoxListBox、ComboBoxComboBox等控件使用。等控件使用。（3 3）ValueValue：CheckBoxCheckBox、OptionButtonOptionButton、HScrellBarHScrellBar、VScrollBarVScrollBar等控件使用。等控件使用。例如：例如：Text1.text=“Text1.text=“计算机计算机”等价与等价与 Text1=“Text1=“计算机计算机”控件的可见性和可用性控件的可见性和可用性（1）Enabled：设置一个控件是否可以使用。默认值为True。（2）Visible：设置一个控件是否可以看见。默认值为True。162.第二要素第二要素 事件、事件过程和事件驱动事件、事件过程和事件驱动u何为事件？何为事件？事件是作用在对象上的可以被对象识别的动作。在VB中，系统为每种对象预先定义好了一系列事件，这些事件实质上也就是对象可以识别的用户操作。不同对象能够识别的事件也不同，以下是大多对象都能识别的一些通用事件。通用事件。17 pClick事件：事件：当一个控件上按下并放开鼠标时触发该对象的事件。当一个控件上按下并放开鼠标时触发该对象的事件。p DblClick：当鼠标在对象上被迅速按下并放开两次时发生的事当鼠标在对象上被迅速按下并放开两次时发生的事件。件。p KeyPress事件：事件：按下一个对应某按下一个对应某ASCII字符的键时触发对象的字符的键时触发对象的该事件。该事件。p GotFocus事件：事件：当对象获得焦点（光标处于此对象上或该当对象获得焦点（光标处于此对象上或该对象为当前活动状态）时触发该事件。对象为当前活动状态）时触发该事件。p LostFocus事件：事件：当对象失去焦点时触发该事件。当对象失去焦点时触发该事件。p另外，还有另外，还有MouseDown、MouseUp等常用鼠标事件。等常用鼠标事件。对象的通用事件对象的通用事件18u何为事件过程何为事件过程?当用户操作一旦触发了对象的事件后，应用程序就要处理这个事件，而处理的步骤就是事件过程。这也就是VB事件驱动的实质。但是VB只提供了事件名称，并没有提供事件过程，因为事件过程是实现用户要求功能的程序代码，所以要用户自己编写。事件过程的格式（类似于函数或过程）：事件过程的格式（类似于函数或过程）：Private Sub 对象名_事件（参数列表）.事件过程代码End Sub19u单击Command1命令按钮，使该命令按钮的字体大小改变为20磅，怎样编写事件过程代码？思考思考u空事件怎么处理？20u何为事件驱动？何为事件驱动？在传统的在传统的面向过程面向过程的应用程序中，应用程序自身控制了的应用程序中，应用程序自身控制了执行哪一部分代码和按何种顺序执行代码，执行哪一部分代码和按何种顺序执行代码，即代码的执行是即代码的执行是有唯一的入口和唯一的出口。有唯一的入口和唯一的出口。程序执行的先后次序有设计人程序执行的先后次序有设计人员编写的代码决定，用户无法改变程序的执行流程。员编写的代码决定，用户无法改变程序的执行流程。而而vbvb种采用的种采用的事件驱动事件驱动的程序执行方式则完全不同。的程序执行方式则完全不同。21窗体（或窗体上的控件）等待事件的发生；启动应用程序，加载和显示窗体；事件发生时，执行对应的事件过程；重复执行步骤2、3。如此周而复始地执行，直到遇到END结束语句结束程序的运行或单击“结束”按钮强行停止程序的执行。VB程序的执行过程如下：程序的执行过程如下：22 方法是指对象本身所具有的动作行为。方法是指对象本身所具有的动作行为。VB中为程序设计人员提供了一种特殊的过程和函数（此处中为程序设计人员提供了一种特殊的过程和函数（此处称为方法）。这些方法已经写好并封装起来，作为方法供用户称为方法）。这些方法已经写好并封装起来，作为方法供用户直接调用。调用格式为：直接调用。调用格式为：对象对象.方法名方法名 参数名表参数名表 若省略其中的对象，则表示为当前对象，一般指窗体。若省略其中的对象，则表示为当前对象，一般指窗体。如：如：Form1.Print “欢迎您使用欢迎您使用VB6.0”3.第三要素第三要素方法方法23Move方法：移动控件或改变控件的大小 如：Form1.Move 0,0,600,300 注：Move后面的四个参数分别是对象的四个属性Left、Top、Width和HeightSetFocus方法：使控件获取焦点。如：form1.text1.setfocus对象的通用方法对象的通用方法242.2 建立简单的应用程序建立简单的应用程序25例：设计一个程序，窗口中显示欢迎词并提供一个进入按钮和退出按钮，如果选退出则关闭程序，如果选进入则打开另外一个窗口，此窗口中有四个图标。（结果见下页）思考：u如何设置多窗体？u如何打包，生成安装包？26一一.窗体窗体1.主要属性主要属性1）Caption：标题。决定窗体标题栏显标题。决定窗体标题栏显示的内容示的内容2）BorderStyle：边框样式。决定窗体边框样式。决定窗体的外观特征的外观特征,运行时只读。运行时只读。共共6种值。含种值。含义见义见P283）Controlbox、MaxButton和和MinButton：控制菜单框、最大化按钮控制菜单框、最大化按钮和最小化按钮。其值为逻辑型。和最小化按钮。其值为逻辑型。注意：注意：当当ControlBox为为False时，时，MaxButton和和MinButton自动设置为自动设置为False2.3 窗体和基本控件窗体和基本控件274）Moveable：可否移动。缺省为可否移动。缺省为True。5）Picture：背景图片。背景图片。可在可在属性属性窗口中直接设置，也可在窗口中直接设置，也可在程序代码程序代码中设置。如：中设置。如：form1.picture=loadpicture(“c:windowsclouds.bmp”)若图片文件在程序文件所在的路径下，则可使用若图片文件在程序文件所在的路径下，则可使用App.Path代替当前路径：代替当前路径：form1.picture=loadpicture(App.Path+“clouds.bmp”)6）WindowsState：初始大小。初始大小。指定窗口运行时的初始状态。共指定窗口运行时的初始状态。共3种状态。见种状态。见P287）ScaleHeight、Scalewidth：窗体内部尺寸（除去标题栏、菜窗体内部尺寸（除去标题栏、菜单栏、工具栏单栏、工具栏）。）。其值分别表示当前窗体其值分别表示当前窗体内部内部的高度和宽度。的高度和宽度。282.主要事件主要事件u 启动窗体启动窗体自动自动触发的窗体事件触发的窗体事件 窗体从开始显示到最后关闭可以称为一个窗体从开始显示到最后关闭可以称为一个生命周期生命周期，而在，而在这一个周期的每一个阶段都会有一个特征事件来反映窗体当前这一个周期的每一个阶段都会有一个特征事件来反映窗体当前的状态。当我们启动一个窗体时往往会的状态。当我们启动一个窗体时往往会自动触发自动触发这些事件。如这些事件。如图所示。图所示。u 手动手动可触发的窗体事件可触发的窗体事件 另外，窗体也能够响应同其他对象一样的事件，如另外，窗体也能够响应同其他对象一样的事件，如click、dblclick、keypress 等事件。等事件。图示图示29 窗体创建发生窗体创建发生Initialize事件事件加载发生Load事件获得焦点发生Activate和GotFocus事件失去焦点发生Deactivate和LostFocus事件卸载卸载发生发生QueryUnload、UnLoad和和Terminate事件事件 可见可见图：窗体生命周期中图：窗体生命周期中自自动动触发的事件触发的事件30 常用于编程的窗体事件常用于编程的窗体事件u Load事件事件 窗体及所有控件都进入内存时触发此事件，但窗体界面仍窗体及所有控件都进入内存时触发此事件，但窗体界面仍未显示。此阶段经常放置一些未显示。此阶段经常放置一些对象属性初始化代码，对象属性初始化代码，但在这个但在这个事件中事件中不能调用方法。不能调用方法。如果在程序中要加载某窗体，也可使用如果在程序中要加载某窗体，也可使用Load语句。语句。格式为：格式为：Load 窗体名窗体名u Activate事件事件 窗体激活事件。紧接着窗体激活事件。紧接着load事件发生。事件发生。由于此事件自动发生时窗体及所包含对象全部显示到了屏幕，由于此事件自动发生时窗体及所包含对象全部显示到了屏幕，所以在该事件过程中所以在该事件过程中可以设置对象属性，也可以调用对象的方可以设置对象属性，也可以调用对象的方法。法。313.主要方法主要方法1）Print 方法：在窗体中输出表达式的值。方法：在窗体中输出表达式的值。格式：格式：对象对象.print 表达式列表表达式列表表达式列表：可为一个或多个表达式列表：可为一个或多个数值表达式数值表达式或或字符串字符串。注意：末尾标点的含义：注意：末尾标点的含义：分号、逗号和无标点。分号、逗号和无标点。实例实例思考：思考：printprint方法输出的初始位置方法输出的初始位置在哪里？由什么属性决定？在哪里？由什么属性决定？例：闪烁的星星。例：闪烁的星星。32例：设计一窗体，在窗体激活时，在窗体的标题栏及窗体上显例：设计一窗体，在窗体激活时，在窗体的标题栏及窗体上显示示“装入窗体装入窗体”（48号黑体），并给窗体设置一副背景图片。号黑体），并给窗体设置一副背景图片。当单击窗体时，在标题栏上显示当单击窗体时，在标题栏上显示“鼠标单击鼠标单击”，在窗体上显示，在窗体上显示“欢迎使用欢迎使用VB”。当双击窗体时，在标题栏上显示当双击窗体时，在标题栏上显示“鼠标双击鼠标双击”，去除窗体的背景，并显示，去除窗体的背景，并显示“结束使用结束使用VB”。实例实例33程序代码如下：程序代码如下：Private Sub Form_Activate()Me.Caption=装入窗体装入窗体Me.Picture=LoadPicture(c:windowsGreenstone.bmp)Me.FontSize=48Me.FontName=黑体黑体Me.Print 装入窗体装入窗体End SubPrivate Sub Form_Click()form1.Caption=鼠标单击鼠标单击form1.Clsform1.Print 欢迎使用欢迎使用VBEnd SubPrivate Sub Form_DblClick()form1.Caption=鼠标双击鼠标双击form1.Picture=LoadPicture()form1.Print 结束使用结束使用VBEnd Sub342）Cls方法：清除方法：清除运行时（主要是通过运行时（主要是通过printe方法显示出来的方法显示出来的内容）内容）在窗体或图形框中显示的文本或图形。在窗体或图形框中显示的文本或图形。格式：格式：对象对象.cls其中：其中：“对象对象”为窗体或图形框。缺省时为窗体。为窗体或图形框。缺省时为窗体。如：如：form1.cls cls3）Move方法：用于移动窗体或控件，并可改变其大小。方法：用于移动窗体或控件，并可改变其大小。格式：格式：对象对象.Move 左边距离左边距离，上边距离，上边距离，宽度，宽度，高度，高度其中：其中：“对象对象”可以是除时钟、菜单外的所有控件。缺省时为可以是除时钟、菜单外的所有控件。缺省时为窗体。窗体。例：程序在运行时在图像框装入一图象，单击图像框使图像框例：程序在运行时在图像框装入一图象，单击图像框使图像框移动到窗体中心。移动到窗体中心。实例实例35程序代码为：程序代码为：Private Sub Form_Load()Image1.Top=0Image1.Left=0Image1.Picture=LoadPicture(c:windowsred blocks.bmp)End SubPrivate Sub Image1_Click()Image1.Move(Form1.ScaleWidth-Image1.Width)/2,_(Form1.ScaleHeight-Image1.Height)/2,120,600End Sub注意：注意：长度单位默认为长度单位默认为twip。1twip=1/567(cm)364）Show方法方法 该方法用来显示一个窗体，它兼有该方法用来显示一个窗体，它兼有加载加载(Load)和和显示窗体显示窗体两两种功能。即在执行种功能。即在执行Show时，如果窗体不在内存中，则自动装入，时，如果窗体不在内存中，则自动装入，然后显示出来。然后显示出来。格式：格式：窗体名窗体名.Show省略窗体名为当前窗体。如：省略窗体名为当前窗体。如：form2.Show5）Hide方法：用来将窗体暂时方法：用来将窗体暂时隐藏隐藏起来，但没有从内存中删除起来，但没有从内存中删除格式：格式：窗体名窗体名.Hide省略窗体名为当前窗体省略窗体名为当前窗体实例实例37程序如下：程序如下：对于窗体对于窗体form1Private Sub Form_Click()If frmdate.Visible=True Then frmdate.HideElse frmdate.ShowEnd IfEnd Sub对于窗体对于窗体frmdatePrivate Sub Form_Load()Me.left=0Me.top=0Me.height=100Me.Caption=NowEnd Sub例：在窗体中单击鼠标，使另一个能显示日期时间的窗体能显例：在窗体中单击鼠标，使另一个能显示日期时间的窗体能显示和隐藏。示和隐藏。38补充：窗体的特殊性补充：窗体的特殊性窗体是一种窗体是一种容器对象容器对象；窗体既是窗体既是对象对象，又是一种，又是一种类类；窗体在引用时可以用窗体在引用时可以用meme代替窗体名。代替窗体名。39二二.标签（标签（Label）主要属性主要属性uCaption：标签文字。：标签文字。uFont：标签文字的字体相关属性。：标签文字的字体相关属性。uAlignment：设置标签的对齐方式。设置标签的对齐方式。0-左对齐，左对齐，1-居中，居中，2-右右对齐对齐uAutosize：设置标签自动改变大小以显示全部内容。设置标签自动改变大小以显示全部内容。uWordWrap：设置文本内容在设置文本内容在Autosize属性为属性为True时能实现时能实现文字自动卷绕。文字自动卷绕。uBorderStyle：设置标签是否有边框。设置标签是否有边框。0-无，无，1-有。有。uBackStyle：设置背景样式，有两种设置背景样式，有两种 0-Transparent 透明显示透明显示 1-Opaque 不透明显示不透明显示例：做出例：做出P30图图1.2.14的效果的效果实例实例40三三.命令按钮（命令按钮（CommandButton）1.常用属性：常用属性：Caption：设置按钮标题文字。可以为按钮建立快捷键，建：设置按钮标题文字。可以为按钮建立快捷键，建立方式为设置立方式为设置caption属性值中出现属性值中出现“&字母字母”，则运行时操，则运行时操作作“alt+字母字母”就相当于按钮单击操作。就相当于按钮单击操作。Style：设置按钮显示风格。设置文字按钮或图形按钮。属性设置按钮显示风格。设置文字按钮或图形按钮。属性值有值有0-standard（默认标准文字按钮），（默认标准文字按钮），1-graphical（自定（自定义图形按钮）。义图形按钮）。Picture：设置自定义图形按钮的图片。与设置自定义图形按钮的图片。与style属性相关。属性相关。Tooltiptext：设置按钮的功能提示。属性值为字符型数据。：设置按钮的功能提示。属性值为字符型数据。2.常用事件：常用事件：Click：单击事件。：单击事件。实例实例41三三.文本框文本框 文本框是一个文本编辑区，用户可以在该区文本框是一个文本编辑区，用户可以在该区输入、编辑、输入、编辑、修改和显示修改和显示正文内容，正文内容，也是程序中主要的数据来源也是程序中主要的数据来源。文本框是文本框是vb程序中程序中最重要的数据来源！最重要的数据来源！42uText：文本框无文本框无Caption属性，显示的正文内容存放在属性，显示的正文内容存放在Text属性中。当程序执行时用户通过键盘输入的正文存放在此属性属性中。当程序执行时用户通过键盘输入的正文存放在此属性中，也可以通过初始化此属性来指定运行时文本框中内容。中，也可以通过初始化此属性来指定运行时文本框中内容。uMaxlength：指明文本框中能够输入的正文内容的最大长度。指明文本框中能够输入的正文内容的最大长度。0-任意长字符串；非零值任意长字符串；非零值-字符个数的最大值；字符个数的最大值；注意：在注意：在VBVB中字符长度以字为单位，也就是一个西文字符和一个汉字都是中字符长度以字为单位，也就是一个西文字符和一个汉字都是一个字，长度为一个字，长度为1 1，占，占2 2个字节。个字节。uMultiLine：是否多行显示。当其值为是否多行显示。当其值为True时，文本框可输时，文本框可输入或显示多行文字，同时具有文字处理器的自动换行功能。入或显示多行文字，同时具有文字处理器的自动换行功能。1.主要属性主要属性43uScrollBars：当当MultiLine属性为属性为True时，此属性才有效。其值时，此属性才有效。其值为：为：0-None：无滚动条；无滚动条；1-Horezontal：有水平滚动条；有水平滚动条；2-Vertical：有垂直滚动条；有垂直滚动条；3-Both：同时有水平和垂直滚动条同时有水平和垂直滚动条注意：当加了水平滚动条后，文本框内的自动换行功能回自动注意：当加了水平滚动条后，文本框内的自动换行功能回自动消失，只有按消失，只有按EnterEnter键后才能回车换行。键后才能回车换行。44uSelStart、SelLength、SelText：在程序中，对文本内容进行选择操作时，这三个属性用来标在程序中，对文本内容进行选择操作时，这三个属性用来标识用户选中的正文。识用户选中的正文。SelStart：选定的正文的开始位置，第一个字符的位置为选定的正文的开始位置，第一个字符的位置为0，依次，依次 类推。类推。SelLength：选定的正文长度。选定的正文长度。SelText：选定的正文内容。选定的正文内容。45uLocked：指定文本内容是否可被编辑。默认为指定文本内容是否可被编辑。默认为False，表示表示可编辑；当设置为可编辑；当设置为True时，文本内容相当于标签的作用。如：时，文本内容相当于标签的作用。如：Private sub form_click()text1.locked=true text1.text=“abcdefghijklmnopqrst”End subuPasswordChar：指定显示在文本框中的字符。指定显示在文本框中的字符。如：如：text1.passwordchar=“*”实例实例46例：做出如下用户登录窗口例：做出如下用户登录窗口47例：建立一个可以实现剪切、复制、粘贴和新建的简例：建立一个可以实现剪切、复制、粘贴和新建的简单文本编辑器。单文本编辑器。48程序代码如下：程序代码如下：Dim temp As StringPrivate Sub Form_Load()Text1.FontSize=20End SubPrivate Sub CmdNew_Click()Text1.Text=End SubPrivate Sub CmdCut_Click()temp=Text1.SelText Text1.SelText=End SubPrivate Sub CmdCopy_Click()temp=Text1.SelTextEnd SubPrivate Sub CmdPast_Click()Text1.SelText=tempEnd Sub492.主要事件主要事件uChange事件事件 当用户当用户输入新内容输入新内容或当或当程序将程序将Text属性设置新值属性设置新值，从而改，从而改变文本框的变文本框的Text属性时会引发该事件。当用户输入一个字符时，属性时会引发该事件。当用户输入一个字符时，就会引发一次就会引发一次Change事件。如，用户输入事件。如，用户输入“Hello”一词，会一词，会引发引发5次次Change事件。事件。输入过程共触发了触发了5 5次次文本框的change事件！50uKeyPress事件事件 当用户按下并释放键盘上的一个当用户按下并释放键盘上的一个字符键字符键时，就会引发时，就会引发焦点所焦点所在的文本框在的文本框的的KeyPress事件，此事件会返回一个事件，此事件会返回一个KeyAscii参数到参数到该事件过程中。该事件过程中。如：当输入字符如：当输入字符“a”，返回返回KeyAscii的值为的值为97，通过，通过Chr(KeyAscii)可以将可以将ASCII码转换为所对应字符码转换为所对应字符“a”。应用：同应用：同ChangeChange事件一样，每输入一个字符就会引发一次事件一样，每输入一个字符就会引发一次KeyPressKeyPress事件。该事件最常用的是对输入的是否为回车符事件。该事件最常用的是对输入的是否为回车符（KeyAsciiKeyAscii的值为的值为1313）进行判断，表示文本输入结束。）进行判断，表示文本输入结束。51uLostFocus事件事件 当一个对象失去焦点或移动当一个对象失去焦点或移动Tab键或单击另一个对象时都会键或单击另一个对象时都会发生发生LostFocus事件。事件。LostFocus事件过程主要是用来对事件过程主要是用来对数据更新进行验证和确认数据更新进行验证和确认。常用于检查常用于检查Text属性的内容，比在属性的内容，比在Change事件过程中检查有效事件过程中检查有效得多。得多。uGotFocus事件事件 和和LostFocus事件相反，当一个对象获得焦点时发生。事件相反，当一个对象获得焦点时发生。523.常用方法常用方法 文本框最常用的方法是文本框最常用的方法是SetFocus，该方法是把光标移动到该方法是把光标移动到指定的文本框中。通常放在窗体的指定的文本框中。通常放在窗体的activate事件当中，而不放到事件当中，而不放到load事件中。事件中。格式：格式：对象对象.SetFocus实例实例53密码校验正确后才可密码校验正确后才可打开打开form2form2窗体！窗体！例：建立如图的用户登录窗口，两个文本框分别校验用户名和例：建立如图的用户登录窗口，两个文本框分别校验用户名和密码，当密码输入为密码，当密码输入为“123456”时，时，单击单击“登录登录”按钮或按下按钮或按下回车键时回车键时才可以打开窗体才可以打开窗体form2；否则在窗体的左上角输出出；否则在窗体的左上角输出出错信息。错信息。54Private Sub Form_Activate()Text1.SetFocusEnd SubPrivate Sub Text2_KeyPress(KeyAscii As Integer)If KeyAscii=13 Then If text2.text=“123456”Then form2.show Else form1.print “密码错误，请重新输入！密码错误，请重新输入！End If End IfEnd Sub55Private Sub Text2_LostFocus()If Text2.Text=123456 Then Form2.Show Else Form1.Print 密码错误，请重新输入！密码错误，请重新输入！End If End Sub56本章小结本章小结57