1、第2章 Visual Basic简单程序设计 2022-10-192022-10-19第2章 Visual Basic简单程序设计 n本章将简要叙述程序设计的基本原理，详细介绍简单窗体设计和基本控件的使用。2.1程序设计语言概述 2.2Viual Basic 面向对象设计方法 2.3工程管理 2.4Viual Basic程序设计的基本步骤 2.5窗体和基本控件 2022-10-192022-10-192.1程序设计语言概述 n本节将简要介绍程序设计语言的发展和程序设计方法。n本节包括以下内容：2.1.1程序设计语言的发展 2.1.2程序设计方法 2022-10-192022-10-192.1.
2、1程序设计语言的发展 n机器语言 机器语言是指由0、1二进制代码组成的，能被计算机直接识别的机器指令的集合。n汇编语言汇编语言采用一定的助记符来表示机器语言中的指令和数据，所以也称汇编语言为符号语言。n高级语言高级语言采用一组通用的英语单词、数学式及规定的符号，按严格的语法规则和逻辑关系表述各种运算和处理过程。2022-10-192022-10-192.1.2程序设计方法 n模块化程序设计方法 n结构化程序设计方法 n面向对象程序设计方法 2022-10-192022-10-191.模块化程序设计方法n模块化就是把大的程序划分成若干模块，每个模块完成一个子功能，模块间相互协调，共同完成特定的功
3、能，其实质是把复杂问题分解成许多容易解决的小问题。2022-10-192022-10-192结构化程序设计方法 n结构化程序设计是指仅使用三种基本控制结构实现程序的设计方法，它们是顺序结构、选择结构和循环结构。n基本设计原则是：模块化、自顶向下、逐步求精以及限制使用GOTO语句。2022-10-192022-10-19(1)程序流程图-1 n流程图用一些图框、流程线以及文字说明来描述操作过程。2022-10-192022-10-19(1)程序流程图-2加工步骤逻辑条件控制流2022-10-192022-10-19(2)结构化程序的基本结构-1 ABn 顺序结构 2022-10-192022-1
4、0-19(2)结构化程序的基本结构-2n选择结构 PAB真假2022-10-192022-10-19(2)结构化程序的基本结构-3n循环结构包括当型循环结构和直到型循环结构。假真P假真P当型循环结构直到型循环结构2022-10-192022-10-193面向对象程序设计方法 n面向对象（Object Oriented）技术充分体现了分解、抽象、模块化、信息隐蔽等思想，可以有效地提高软件生产率、缩短软件开发时间、提高软件质量，是控制软件复杂性的有效途径。2022-10-192022-10-19(1)对象（Object）n对象是系统中用来描述客观事物的一个实体，它是构成系统的一个基本单位。n一个对
5、象由一组属性和对这些属性进行操作的一组方法组成。2022-10-192022-10-19(2)类（Class）n类是具有相同属性和方法的一组对象的集合，它为属于该类的全部对象提供了统一的抽象描述。2022-10-192022-10-19(3)封装（Encapsulation）n封装就是把对象的属性和方法组合成一个独立的系统单位，并尽可能地隐蔽对象的内部细节。2022-10-192022-10-19(4)继承（Inheritance）n利用继承，子类可以继承父类的属性或方法。2022-10-192022-10-19(5)多态（Polymorphism）n在面向对象技术中，多态指的是使一个实体在不
6、同上下文条件下具有不同意义或用法的能力。2022-10-192022-10-19(6)消息（Message）n消息就是向对象发出的服务请求，它包含了提供服务的对象标识、服务（方法）标识、输入信息和回答信息等。2022-10-192022-10-192.2 Viual Basic 面向对象设计方法 nVB的主要开发方法是使用各种现有控件。n在VB中，对象的所有属性、方法和事件统称为对象的成员。2022-10-192022-10-191属性（Property）-1n属性就是一个对象的特性，不同的对象有不同的属性。n例如人有身高、体重、年龄等属性。nVB中的每个类都有自己的属性集合，如TextBox
7、类具有Name、Text、Top、Left等属性。2022-10-192022-10-191属性（Property）-2n设置属性的方法：选定控件后，在“属性”窗口中进行设置。在代码中设置，格式为：.=例如：Text1.Text=您好，欢迎使用本系统！2022-10-192022-10-192方法（Method）-1n方法是对象的行为，也就是对象的“动作”。通过调用方法，可以让对象完成某项任务。n方法的调用格式为：.方法名称 2022-10-192022-10-192方法（Method）-2n例如：Label1.Move 100,100 将标签Label1移动到（100,100）位置处。For
8、m1.Print hello!在窗体Form1上显示字符串Hello!2022-10-192022-10-193事件（Event）-1nVB采用事件驱动的编程机制。程序员只需编写响应用户动作的程序，而不必考虑按精确次序执行的每个步骤。2022-10-192022-10-193事件（Event）-2n事件是由VB预先设置好的、能够被对象识别的动作。n例如Load（加载）、Click（单击）、DblClick（双击）、MouseMove（移动鼠标）、KeyDown（按下键盘）等。n不同的对象能够识别的事件也不同。事件既可以由用户触发，如Click事件；也可以由系统触发，如Load事件。当事件被触发
9、时，对象就会对该事件做出响应。2022-10-192022-10-193事件（Event）-3n响应某个事件过程后所执行的操作是通过一段程序代码来实现的，一般格式如下：Private Sub 对象名称_事件名称()事件响应程序代码End Sub2022-10-192022-10-192.3工程管理 n2.3.1工程的组成 n2.3.2工程的建立、打开与保存 n2.3.3工程内文件的添加、保存与删除 n2.3.4调试 2022-10-192022-10-192.3.1工程的组成 nVB工程中可以包含以下几种文件：工程中可以包含以下几种文件：工程组文件（工程组文件（.vbg）工程文件（工程文件（.
10、vbp）窗体模块文件（窗体模块文件（.frm）窗体数据文件（窗体数据文件（.frx）标准模块文件（标准模块文件（.bas）类模块文件（类模块文件（.cls）用户控件文件（用户控件文件（.ctl）ActiveX控件文件（控件文件（.ocx）其他文件其他文件 2022-10-192022-10-192.3.2工程的建立、打开与保存 n1.新建工程 n2.打开现有工程 n3.保存工程 n4.设置工程属性 2022-10-192022-10-191.新建工程n启动VB的时候从“新建工程”对话框中选择工程类型并新建工程。nVB启动之后，选择“文件”菜单中的“新建工程”命令，也会出现“新建工程”对话框。2
11、022-10-192022-10-192.打开现有工程n可以通过Windows“资源管理器”或“我的电脑”找到以前保存的VB工程文件（扩展名为.vbp），双击即可打开。n先启动VB，然后选择“文件”菜单中的“打开工程”命令，或者单击工具栏上的按钮。2022-10-192022-10-193.保存工程 n单击工具栏上的 按钮或选择“文件”菜单中的“保存工程”命令即可。2022-10-192022-10-194设置工程属性 n选择“工程”菜单中的“XXX属性”命令可以打开“工程属性”对话框，其中XXX是工程的名字。2022-10-192022-10-192.3.3工程内文件的添加、保存与删除 n1
12、.添加文件 n2.保存文件 n3.删除文件 2022-10-192022-10-191.添加文件n选择“工程”菜单中的“添加窗体”命令。n单击工具栏中的“添加窗体”按钮。n在“工程资源管理器”中单击鼠标右键，并从快捷菜单中选择“添加”菜单项中的“添加窗体”命令。n向工程中添加其他类型的文件，如标准模块等，方法与添加窗体相同，只需选择相应菜单项即可。2022-10-192022-10-192.保存文件n在VB中，选择“文件”菜单中的“保存XXX”命令或“XXX另存为”命令可以将工程中的单个文件保存。n在“工程资源管理器”中单击鼠标右键，从快捷菜单中选择“保存XXX”或“XXX另存为”命令，其中X
13、XX为当前模块的模块名。2022-10-192022-10-193.删除文件n在“工程资源管理器”中单击鼠标右键，从快捷菜单中选择“移除XXX”命令即可将某个文件从工程中移除，其中XXX为当前模块的模块名。2022-10-192022-10-192.3.4调试 n1.设置调试断点 n2.调试时的单步执行 n3.检查变量和表达式 n4.添加“监视窗口”n5.在调试时使用“立即窗口”n6.清除所有的调试断点 2022-10-192022-10-191.设置调试断点n当在程序中设置断点并运行该程序时，程序会一直执行到断点处被中断，使VB进入调试状态。n可以在某行代码窗口左侧边框内单击设置断点；也可以
14、在代码中将文本插入符移到特定行，在“调试”菜单中选择“切换断点”菜单项或按F9，即可在代码中设置断点。2022-10-192022-10-192.调试时的单步执行 n当程序停在设有断点的位置时，可使用“调试”菜单中的菜单项来移动断点的位置：逐语句单步执行代码，如果遇到过程调用就进入相应的过程中。逐过程可以单步跳过一次过程调用。跳出跳出当前过程。2022-10-192022-10-193.检查变量和表达式 n当程序停在断点处时，为了检查代码窗口中变量或表达式的值，可以用鼠标选中一个想要查看的变量或表达式，然后选择“调试”菜单中的“快速监视”菜单项，或者按Shift+F9将打开“快速监视”窗口。2
15、022-10-192022-10-194.添加“监视窗口”n可以在程序调试期间添加一个监视窗口，当单步执行程序时，可以使用该窗口显示在代码窗口中被选中的变量或表达式的当前值。2022-10-192022-10-195.在调试时使用“立即窗口”n在调试程序时，可以使用“立即”窗口来立即查看表达式或变量的当前值，可以在“立即”窗口中输入表达式来进行求值，在输入的表达式前添加一个问号(“?”)，然后按“Enter”键。2022-10-192022-10-196.清除所有的调试断点 n如果在程序中设置了大量断点，可以使用“调试”菜单中的“清除所有断点”菜单项来清除所有断点。该菜单项的快捷键为Ctrl+
16、Shift+F9。2022-10-192022-10-192.4 Viual Basic程序设计的基本步骤n1新建工程n2界面设计n3设置属性n4编写代码n5运行程序 n6保存工程 n7编译工程 2022-10-192022-10-19例2-1（界面）n【例例2-1】“MyProgram”程序包括一个窗体，程序包括一个窗体，窗体上有一个文本框和两个命令按钮。单击窗体上有一个文本框和两个命令按钮。单击“显示显示”按钮在文本框中显示按钮在文本框中显示“VB程序设计程序设计基础基础”，单击，单击“结束结束”按钮则退出应用程序，按钮则退出应用程序，运行界面如图所示。运行界面如图所示。2022-10-1
17、92022-10-19例2-1（语句）n程序代码如下：Private Sub Command1_Click()Text1.Text=VB程序设计基础End SubPrivate Sub Command2_Click()EndEnd Sub2022-10-192022-10-192.5窗体和基本控件 n2.5.1窗体窗体 n2.5.2控件的基本操作控件的基本操作 n2.5.3标签标签 n2.5.4文本框文本框 n2.5.5命令按钮命令按钮 2022-10-192022-10-192.5.1窗体系统菜单标题栏最小化按钮关闭按钮最大化按钮n窗体的结构 2022-10-192022-10-191.常用
18、属性-1nName 属性属性（名称）（名称）用于设置程序调用时的窗体名。默认的用于设置程序调用时的窗体名。默认的Name属性为属性为Form1。nAppearance属性属性用于设置窗体外观。取值为用于设置窗体外观。取值为 0-Flat 表示外观表示外观为平面；取值为为平面；取值为1-3D 表示外观为三维。表示外观为三维。2022-10-192022-10-191.常用属性-2nCaption属性属性 用于设置窗口的标题，默认值为窗体名称。用于设置窗口的标题，默认值为窗体名称。nPicture属性属性 用于设置窗体的背景图案用于设置窗体的背景图案。nBackColor 属性属性用于设置窗体的背
19、景颜色。用于设置窗体的背景颜色。2022-10-192022-10-191.常用属性-3nForeColor属性属性 用来设置文本或图形的前景色。用来设置文本或图形的前景色。nFont属性属性 用来设置输出字符的各种特性。用来设置输出字符的各种特性。nMaxButton 和和MinButton属性属性 用于设置窗体的标题栏是否具有最大化和最用于设置窗体的标题栏是否具有最大化和最小化按钮。小化按钮。2022-10-192022-10-191.常用属性-4nWindowState 属性属性 用于设置窗体启动时的状态，有三种形式可供选用于设置窗体启动时的状态，有三种形式可供选择：择：正常显示：启动程
20、序时窗体的大小以设计阶段正常显示：启动程序时窗体的大小以设计阶段所设计的窗体为基准，此时属性的取值为所设计的窗体为基准，此时属性的取值为 0-Normal。最小化显示：启动时窗体缩小为任务栏里的一最小化显示：启动时窗体缩小为任务栏里的一个图标，其效果相当于单击最小化按钮，此时个图标，其效果相当于单击最小化按钮，此时属性的取值为属性的取值为 1-Minimized。最大化显示：启动时窗体布满整个桌面，其效最大化显示：启动时窗体布满整个桌面，其效果相当于单击最大化按钮，此时属性的取值为果相当于单击最大化按钮，此时属性的取值为2-Maximized。2022-10-192022-10-191.常用属
21、性-5nControlBox属性 用来设置位于窗口左上角的窗口控制框（又称系统菜单）的状态。nIcon属性 用于设置窗体的图标。2022-10-192022-10-191.常用属性-6nVisible属性属性用来设置对象的可见性，当属性值为用来设置对象的可见性，当属性值为True时，时，窗体可见，当属性值为窗体可见，当属性值为False时，将隐藏窗时，将隐藏窗体。体。nEnabled 属性属性 用于设置窗体及内部控件对象是否能响应用用于设置窗体及内部控件对象是否能响应用户的操作。当取值为户的操作。当取值为True 时，响应用户操时，响应用户操作；取值为作；取值为False时，不响应用户操作。时
22、，不响应用户操作。2022-10-192022-10-191.常用属性-7nHeight、Width属性属性 用于指定窗体的高度和宽度。用于指定窗体的高度和宽度。其单位为缇（其单位为缇（twip），），1缇缇=1/1440英寸。英寸。nLeft、top属性属性 用于指定窗体左边和顶边的坐标值来控制窗用于指定窗体左边和顶边的坐标值来控制窗体的位置。体的位置。2022-10-192022-10-191.常用属性-8n AutoRedraw属性AutoRedraw属性用于控制屏幕图像的重画，主要应用在多窗体设计中。格式为：对象.AutoReDraw=Boolean 2022-10-192022-10
23、-192.常用事件-1nClick事件事件单击窗体时触发的事件。单击窗体时触发的事件。nDblClick 事件事件 双击窗体时触发的事件。双击窗体时触发的事件。2022-10-192022-10-192.常用事件-2nLoad 事件事件装载窗体时触发该事件装载窗体时触发该事件。nUnLoad 事件事件卸载窗体时触发该事件。卸载窗体时触发该事件。2022-10-192022-10-192.常用事件-3nActivate和Deactivate事件当窗体变为活动窗口时触发Activate事件，而在另一个窗体变为活动窗口时触发Deactivate事件。2022-10-192022-10-193.常用方
24、法-1 nPrint方法方法用户经常会使用用户经常会使用Print方法在窗体上输出内方法在窗体上输出内容容。nCls方法方法 nMove方法方法nShow方法方法 2022-10-192022-10-19例2-2（界面）n【例例2-2】新建一个工程，单击窗体，在】新建一个工程，单击窗体，在窗体上显示窗体上显示“Hello!”。程序运行界面如。程序运行界面如图所示。图所示。2022-10-192022-10-19例2-2（语句）nPrivate Sub Form_Click()n Print Hello!nEnd Sub2022-10-192022-10-192.5.2控件的基本操作 n1.标准
25、控件（内部控件）n2.添加控件 n3.控件的命名 n4.控件的位置和大小 2022-10-192022-10-191.标准控件（内部控件）n标准控件（也称内部控件），例标准控件（也称内部控件），例如文本框、命令按钮、图片框等。如文本框、命令按钮、图片框等。启动启动VB后，内部控件就出现在工后，内部控件就出现在工具箱中。具箱中。2022-10-192022-10-192.添加控件 n可以通过两种方法在窗体上画一个控件：可以通过两种方法在窗体上画一个控件：双击工具箱中的工具图标，窗体上就会出现双击工具箱中的工具图标，窗体上就会出现一个标准大小的控件。一个标准大小的控件。单击工具图标，用鼠标在窗体上
26、拖拽，可以单击工具图标，用鼠标在窗体上拖拽，可以添加一个自定义大小的控件添加一个自定义大小的控件 2022-10-192022-10-193.控件的命名 n每个窗体和控件都有一个名字，这个名每个窗体和控件都有一个名字，这个名字就是窗体或控件的字就是窗体或控件的Name（名称）属（名称）属性值。性值。n修改控件名的方法与修改窗体名相同：修改控件名的方法与修改窗体名相同：选定控件，然后在选定控件，然后在“属性属性”窗口中修改窗口中修改“名称名称”项即可。项即可。2022-10-192022-10-194.控件的位置和大小 n“位置位置”类属性中的类属性中的Left和和Top决定控件左上决定控件左上
27、角相对于窗体工作区（不包括窗体边框和标角相对于窗体工作区（不包括窗体边框和标题栏）左上角的坐标值；题栏）左上角的坐标值；Height和和Width属属性决定控件的长度和宽度性决定控件的长度和宽度。WidthLeftHeightTop2022-10-192022-10-192.5.3标签 nLabel控件即标签控件，主要用于在窗控件即标签控件，主要用于在窗体上显示各种静态文字，如标题、说明体上显示各种静态文字，如标题、说明等。等。2022-10-192022-10-191标签框的常用属性-1nAlignment属性用于设置标签框上显示文本的对齐方式。取值为0-Left Justify时是左对齐。
28、取值为1-Right Justify时是右对齐。取值为2-Center时是居中。2022-10-192022-10-191标签框的常用属性-2nBorderStyle 属性属性 用于设置标签框有无边框。用于设置标签框有无边框。取值为取值为0时，表示没有边框；时，表示没有边框；取值为取值为1时，有一单线边框，默认值为时，有一单线边框，默认值为0。2022-10-192022-10-191标签框的常用属性-3nBackStyle 属性 用于设置标签框的背景模式。当取值为 0 时，表示透明显示，此时标签不覆盖原来的背景内容；若取值为1，则表示不透明显示。2022-10-192022-10-191标签
29、框的常用属性-4nCaption属性属性 用于设置标签框中要显示的文本内容。用于设置标签框中要显示的文本内容。nEnabled 属性属性 用于设置标签框是否对用户的事件作出反应。用于设置标签框是否对用户的事件作出反应。取值为取值为 True时，表示可以接收用户的事件；时，表示可以接收用户的事件；当取值为当取值为 False 时，标签框中的文字变灰，并且时，标签框中的文字变灰，并且不能接收用户的事件。不能接收用户的事件。2022-10-192022-10-191标签框的常用属性-5nForeColor属性属性用于设置标签框上显示的字体的颜色。用于设置标签框上显示的字体的颜色。nBackColor
30、属性属性用于设置标签框的背景色。用于设置标签框的背景色。nFontName属性属性 用于设置标签框上显示文本的字体。用于设置标签框上显示文本的字体。2022-10-192022-10-191标签框的常用属性-6nFontSize属性属性用于设置标签框上显示文本的字号大小。用于设置标签框上显示文本的字号大小。nHeight、Width、Left、Top 这四个属性用来设置标签框的高度、宽度及这四个属性用来设置标签框的高度、宽度及标签框距窗体左侧和顶部的距离，这些属性标签框距窗体左侧和顶部的距离，这些属性值是用缇来度量的。值是用缇来度量的。2022-10-192022-10-191标签框的常用属性
31、-7nVisible属性属性用来设置控件是否可见。用来设置控件是否可见。取值为取值为 True时，控件可见；时，控件可见；取值为取值为 False 时，控件不可见。时，控件不可见。2022-10-192022-10-191标签框的常用属性-8n Autosize属性属性 用于设置标签框的大小是否按显示内容自动用于设置标签框的大小是否按显示内容自动调整。调整。取值为取值为True时，标签框的大小将随显示文本时，标签框的大小将随显示文本的大小而变化。的大小而变化。当取值为当取值为False时，标签框的大小固定。系时，标签框的大小固定。系统默认值为统默认值为False。2022-10-192022-
32、10-192标签框的常用事件 nClick 事件事件 当用户在标签框上单击鼠标时，响应当用户在标签框上单击鼠标时，响应 Click 事件，同时激活这一事件的处理程序。事件，同时激活这一事件的处理程序。nDblClick 事件事件 当用户在标签框上双击鼠标时，响应当用户在标签框上双击鼠标时，响应DblClick 事件，同时激活这一事件的处理事件，同时激活这一事件的处理程序。程序。2022-10-192022-10-193标签框的常用方法 nMove 方法Move 方法是标签控件的常用方法。格式为：.Move(Left As Single,Top,Width,Height)2022-10-1920
33、22-10-19例2-4（界面）n【例例2-4】编写程序，要求单击命令按】编写程序，要求单击命令按钮钮Command1后，标签框后，标签框Label1被隐被隐藏，单击命令按钮藏，单击命令按钮Command2后，将后，将标签框标签框Label1显示出来。程序运行界显示出来。程序运行界面如图所示。面如图所示。2022-10-192022-10-19例2-4（语句）n程序代码如下：Private Sub Command1_Click()Label1.Visible=FalseEnd SubPrivate Sub Command2_Click()Label1.Visible=TrueEnd Sub 2
34、022-10-192022-10-192.5.4文本框 nTextBox控件即文本框控件，主要用控件即文本框控件，主要用于向程序输入文本，如姓名、账号、于向程序输入文本，如姓名、账号、密码等。密码等。2022-10-192022-10-191文本框的常用属性-1nText 属性属性 用于设置文本框中显示的内容用于设置文本框中显示的内容 nLocked 属性属性 用于指定文本框是否可以被编辑。用于指定文本框是否可以被编辑。当取值为当取值为 False 时，表示可以编辑文本框中时，表示可以编辑文本框中的文本；的文本；当取值为当取值为True 时，可以滚动和选择控件中时，可以滚动和选择控件中的文本，
35、但不能进行编辑。的文本，但不能进行编辑。2022-10-192022-10-191文本框的常用属性-2nMaxLength 属性属性 用来设置文本框中的最大字符数。用来设置文本框中的最大字符数。当取值为当取值为0时，在文本框中输入的字符数时，在文本框中输入的字符数不能超过不能超过32K（多行文本）；（多行文本）；当取值为非当取值为非0值时，此非值时，此非0值即为可输入值即为可输入的最大字符数。的最大字符数。2022-10-192022-10-191文本框的常用属性-3nMultiLine属性属性 用于设置文本框是单行显示还是多行显示用于设置文本框是单行显示还是多行显示文本。文本。当取值为当取值
36、为 False 时，表示不管文本框有多时，表示不管文本框有多大的高度，只能在文本框中输入单行文字；大的高度，只能在文本框中输入单行文字；当取值为当取值为 True 时，则可以输入多行文字。时，则可以输入多行文字。2022-10-192022-10-191文本框的常用属性-4nPassWordChar 属性属性 用于设置文本框是否用于输入口令。用于设置文本框是否用于输入口令。若把该属性值取值为一个字符（例如若把该属性值取值为一个字符（例如“*”），则用户输入的文本用被设置的字），则用户输入的文本用被设置的字符表示，但系统接收的仍为用户输入的文符表示，但系统接收的仍为用户输入的文本内容。本内容。2
37、022-10-192022-10-191文本框的常用属性-5nScrollBars 属性用于设置文本框是否具有滚动条。取值为0时，没有滚动条；取值为1时，只有水平滚动条；取值为2时，只有垂直滚动条；取值为3时，既有水平滚动条又有垂直滚动条。注意：只有当MultiLine属性设为True时，文本框才能有滚动条；否则，即使ScrollBars设置为非0值，也没有滚动条。2022-10-192022-10-191文本框的常用属性-6nSelLength 属性用于设置在当前文本框中选择的字符数。nSelStart 属性 用于定义当前选择的文本起始位置。nSelText 属性 返回或设置当前所选的文本字
38、符串。2022-10-192022-10-192.文本框的常用事件-1nChange 事件事件当用户向文本框中输入新的文本或者用当用户向文本框中输入新的文本或者用户从程序中改变户从程序中改变 Text 属性时触发该事属性时触发该事件，同时激活这一事件的处理程序。件，同时激活这一事件的处理程序。2022-10-192022-10-192.文本框的常用事件-2nKeyPress 事件事件 在键盘上按下某个键时将触发在键盘上按下某个键时将触发 KeyPress 事事件。件。KeyPress 事件返回一个参数事件返回一个参数KeyAscii,表表示所按下键的示所按下键的ASCII码值。码值。2022-
39、10-192022-10-192.文本框的常用事件-3nGotFocus事件事件 称为称为“获得焦点获得焦点”（焦点是接收用户鼠标或（焦点是接收用户鼠标或键盘输入的能力，即输入光标）事件。键盘输入的能力，即输入光标）事件。nLostFocus事件事件称为称为“失去焦点失去焦点”事件。事件。2022-10-192022-10-193文本框的常用方法 nSetFocus 方法方法 将焦点放置到特定的文本框中。将焦点放置到特定的文本框中。SetFocus 方法的使用格式如下：方法的使用格式如下：.SetFocus例如，若要将焦点放到文本框例如，若要将焦点放到文本框Text1中，可中，可以使用以下语句
40、实现：以使用以下语句实现：Text1.SetFocus2022-10-192022-10-19例2-7（界面）n【例例2-7】窗体上有一个文本框、一个命】窗体上有一个文本框、一个命令按钮。程序运行时，可在文本框中输令按钮。程序运行时，可在文本框中输入信息，单击命令按钮将文本框锁定。入信息，单击命令按钮将文本框锁定。程序运行界面如图所示。程序运行界面如图所示。2022-10-192022-10-19例2-7（语句）n程序代码如下：Private Sub Command1_Click()Text1.Locked=TrueEnd Sub 2022-10-192022-10-192.5.5命令按钮命令
41、按钮nCommandButton控件即命令按钮控控件即命令按钮控件，主要用于接收用户的指令，如确件，主要用于接收用户的指令，如确定、取消、返回等。定、取消、返回等。2022-10-192022-10-191命令按钮的常用属性-1nCaption 属性属性用于设定命令按钮的标题。用于设定命令按钮的标题。2022-10-192022-10-191命令按钮的常用属性-2nCancel 属性属性 用于设置按钮是否等同于按用于设置按钮是否等同于按“Esc”键的功键的功能，即当用户按能，即当用户按“Esc”键时，是否激活它键时，是否激活它的的Click事件。事件。当取值为当取值为True时，表示响应时，表
42、示响应“Esc”键，键，当取值为当取值为False时，则不响应时，则不响应“Esc”键。键。2022-10-192022-10-191命令按钮的常用属性-3nDefault 属性属性用于设置按钮是否为默认按钮。即当程序运用于设置按钮是否为默认按钮。即当程序运行时，用户按行时，用户按“Enter”键是否激活该按钮键是否激活该按钮的的 Click事件。事件。当取值为当取值为True时，表示该按钮为默认按钮，时，表示该按钮为默认按钮，若取值为若取值为False，则不是默认按钮。默认值，则不是默认按钮。默认值为为 False。2022-10-192022-10-191命令按钮的常用属性-4nPictu
43、re 属性 用于设定命令按钮上所显示的图形。注意：只有当命令按钮的 Style 属性设置为 1-Graphical 时，才能在命令按钮上显示图形。2022-10-192022-10-191命令按钮的常用属性-5nStyle 属性 用于设置命令按钮的外观类别。当取值为0-Standard时，是标准风格的命令按钮当取值为1-Graphical时，是“图形显示”风格。2022-10-192022-10-191命令按钮的常用属性-6nValue 属性用于在代码中触发命令按钮，使之在程序运行时自动按下。方法是将Value属性设置为 True，则触发命令按钮的Click事件。2022-10-192022-
44、10-192命令按钮的常用事件 nClick事件 用鼠标单击按钮时所触发的事件。2022-10-192022-10-193.命令按钮的常用方法 nSetFocus方法方法可以使用可以使用SetFocus方法将焦点设置到方法将焦点设置到指定的命令按钮上。指定的命令按钮上。2022-10-192022-10-19例2-13（界面）n【例例2-13】窗体上有一个命令按钮，标】窗体上有一个命令按钮，标题为题为“连接连接”，单击该按钮，标题更改，单击该按钮，标题更改为为“断开断开”。运行界面如图所示。运行界面如图所示。2022-10-192022-10-19例2-13（语句）n程序代码如下：Private Sub Command1_Click()Command1.Caption=断开End Sub2022-10-192022-10-19结束2022-10-192022-10-19
