[计算机软件及应用]第2章 VB快速入门ppt课件

1、第二章第二章 VBVB快速入门快速入门第第2章章 VB快速入门快速入门2.1 对象的概念对象的概念2.2 窗体的概念窗体的概念2.3 控件的概念控件的概念2.4 如何编写简单的运用程如何编写简单的运用程序序 第二章第二章 VBVB快速入门快速入门2.1 VB对象的概念对象的概念2.1.1 对象和类对象和类2.1.2 对象的属性、事件、方法对象的属性、事件、方法2.1.1 对象的建立和编辑对象的建立和编辑第二章第二章 VBVB快速入门快速入门2.1.1 对象和类对象和类1.对象：对象指现实世界中的实体。对象：对象指现实世界中的实体。 例如：现实生活中的对象例如：现实生活中的对象 一个人，如张三是

2、一个对象一个人，如张三是一个对象 一个桌子是一个对象一个桌子是一个对象 一辆汽车是一个对象一辆汽车是一个对象 例如：例如：VB中的对象中的对象 一个命令按钮一个命令按钮 一个文本框一个文本框 一个下拉列表一个下拉列表 第二章第二章 VBVB快速入门快速入门2.1.1 对象和类对象和类1.对象对象每个对象有本人的特征、才干和发生在该对象上每个对象有本人的特征、才干和发生在该对象上的活动。如张三这个对象，他有属性身高，体的活动。如张三这个对象，他有属性身高，体重，学号，专业重，学号，专业，有才干如唱歌、篮球，有才干如唱歌、篮球，游泳游泳，有活动如教师要求他回答以下问题，有活动如教师要求他回答以下问

3、题，他就站起来回答他就站起来回答。在在VB面向对象程序设计中：每个对象也有它的面向对象程序设计中：每个对象也有它的属性、方法、事件属性、方法、事件对象的三要素对象的三要素对象的特征对象的特征属性属性对象的才干对象的才干方法方法对象的活动对象的活动事件事件第二章第二章 VBVB快速入门快速入门2.类类n日常生活中类和对象的含义日常生活中类和对象的含义n类是对同一种对象的集合与笼统。如人类是一切类是对同一种对象的集合与笼统。如人类是一切“人的共同特征的笼统。人的共同特征的笼统。n类是对象的模板类是对象的模板,对象那么是类的一个实例。如一对象那么是类的一个实例。如一个叫个叫“张三的人，是人这个类的一

4、个实例。张三的人，是人这个类的一个实例。nVB中的类和对象的含义中的类和对象的含义nVB中工具栏中的每个控件，都是一个类。例如命中工具栏中的每个控件，都是一个类。例如命令按钮类，文本框类等。由类可创建对象，类包令按钮类，文本框类等。由类可创建对象，类包含所创建对象的属性数据含所创建对象的属性数据,以及对这些数据进展操以及对这些数据进展操作的方法，和可接受的事件。作的方法，和可接受的事件。 第二章第二章 VBVB快速入门快速入门3.VB中的类和对象中的类和对象qVB工具箱中的可视图标是工具箱中的可视图标是VB系统系统设计好的规范控件类。经过将控件设计好的规范控件类。经过将控件类实例化，得到真正的

5、控件对象。类实例化，得到真正的控件对象。q详细来说，在工具箱中选择一个控详细来说，在工具箱中选择一个控件，在窗体上创建一个对象，本质件，在窗体上创建一个对象，本质上就是将该控件所属的类转换为一上就是将该控件所属的类转换为一个详细的对象。个详细的对象。 T e x t对 象T e x t B o x 类第二章第二章 VBVB快速入门快速入门例如：工具箱内的例如：工具箱内的Commandbutton是类是类窗体上显示的窗体上显示的3个个Commandbutton对象，默许的名对象，默许的名字分别是字分别是Command1，Command2，Command3 Text对象Commandbutton类

6、类Commandbutton对象对象第二章第二章 VBVB快速入门快速入门例如：例如：工具箱内的工具箱内的TextBox是类是类窗体上显示的是两个窗体上显示的是两个TextBox对象对象 Text对象TextBox类第二章第二章 VBVB快速入门快速入门2.1.2 对象的三要素对象的三要素-属性、事件和方法属性、事件和方法 1.属性属性 : 作用是存放对象的数据，如不加设作用是存放对象的数据，如不加设置，自动运用默许值。置，自动运用默许值。对象属性的对象属性的2种设置方法种设置方法(以第一次课的例以第一次课的例子为例：子为例：1 设计阶段在属性窗口直接设置属性设计阶段在属性窗口直接设置属性值，

7、值，如如:直接在直接在text1的属性窗口输入其的属性窗口输入其text的值的值为为“欢迎学习欢迎学习VB!直接在窗体直接在窗体form1的属性窗口输入其的属性窗口输入其caption的值为的值为“第一个第一个VB程序程序(2) 在代码窗口经过语句在程序运转阶段设在代码窗口经过语句在程序运转阶段设置属性值置属性值 .= 如经过单击隐藏按钮，将如经过单击隐藏按钮，将text1的的visibale属性值设置为属性值设置为“falseText1.visibale=false如经过单击显示按钮，将如经过单击显示按钮，将text1的的visibale属性值设置为属性值设置为“trueText1.visi

8、bale=true第二章第二章 VBVB快速入门快速入门2.方法：指对象本身具有的才干，或功方法：指对象本身具有的才干，或功能。能。 例如：文本框对象有方法例如：文本框对象有方法SetFocus，经过该方法可以使文本框在程序运转经过该方法可以使文本框在程序运转时得到焦点，方便操作，如输入操作时得到焦点，方便操作，如输入操作调用执行对象的方法格式为：调用执行对象的方法格式为： 对象对象.方法方法 参数名表参数名表假设省略对象，表示当前对象，普通指假设省略对象，表示当前对象，普通指窗体。窗体。例如：例如：Text1.SetFocus , 此语句使此语句使Text1控件获得焦点，光标在本文框控件获得

9、焦点，光标在本文框内闪烁。内闪烁。留意：对象的方法是固定的留意：对象的方法是固定的 2.1.2 对象的属性、方法对象的属性、方法 、事件、事件第二章第二章 VBVB快速入门快速入门2.方法：例方法：例创建一个工程文件，界面如图：创建一个工程文件，界面如图：程序一运转时，光标自动定位到程序一运转时，光标自动定位到text1中；中；当单击当单击command1,光标定位到光标定位到text2中；中；当单击当单击command2,光标定位到光标定位到text3中；中；Private Sub Command1_Click()Text2.SetFocusEnd SubPrivate Sub Comman

10、d2_Click()Text3.SetFocusEnd Sub2.1.2 对象的属性、方法对象的属性、方法 、事件、事件第二章第二章 VBVB快速入门快速入门3.事件：事件是发生在对象上的事情，事件：事件是发生在对象上的事情，如用鼠标单击命令按钮时发生的事情称如用鼠标单击命令按钮时发生的事情称为该命令按钮的单击事件。类似的，当为该命令按钮的单击事件。类似的，当用鼠标双击某个对象时发生的事情称为用鼠标双击某个对象时发生的事情称为该对象的双击事件，中选中某个对象时该对象的双击事件，中选中某个对象时按下键盘发生的事情称为该对象的按下按下键盘发生的事情称为该对象的按下键盘事件键盘事件(keypress

11、),VB中对象事件的特点：中对象事件的特点：对象的事件是固定的，用户不能建立新对象的事件是固定的，用户不能建立新的事件。的事件。要对事件有所呼应，必需编写事件过程要对事件有所呼应，必需编写事件过程否那么无呼应否那么无呼应同一事件，对不同的对象，会引发不同同一事件，对不同的对象，会引发不同的反响。的反响。2.1.2 对象的属性、方法和对象的属性、方法和 事件事件第二章第二章 VBVB快速入门快速入门u事件过程事件过程 对事件编写的代码，也就是运用程序对事件编写的代码，也就是运用程序处置事件的步骤处置事件的步骤u运用程序设计的主要任务就是为对象编写事件运用程序设计的主要任务就是为对象编写事件过程的

12、代码。过程的代码。u事件过程的方式如下：事件过程的方式如下：uSub 对象名对象名_事件事件(参数参数)u 事件过程代码事件过程代码uEnd Sub编写事件过程代码编写事件过程代码VB程序设计的难点程序设计的难点留意：在代码窗留意：在代码窗口，自动产惹事口，自动产惹事件过程的模板，件过程的模板，不要修正模板的不要修正模板的内容，只需键入内容，只需键入过程的代码。过程的代码。第二章第二章 VBVB快速入门快速入门例例:单击命令按钮对象单击命令按钮对象Command1 ,使使Text1对象隐对象隐藏起来。藏起来。Sub Command1_Click() Text1.visible =falseEn

13、d Sub模板自动产生模板自动产生用户编写输入用户编写输入事件过程事件过程第二章第二章 VBVB快速入门快速入门VB程序的执行步骤如下：程序的执行步骤如下： 启动运用程序，装载和显示窗体；启动运用程序，装载和显示窗体； 窗体窗体(或窗体上的控件或窗体上的控件)等待事件的发生；等待事件的发生； 事件发生时，执行对应的事件过程；事件发生时，执行对应的事件过程； 反复执行步骤和。反复执行步骤和。这种按事件的发生决议程序执行顺序的方式称为这种按事件的发生决议程序执行顺序的方式称为事件驱动方式事件驱动方式VB程序设计中的事件驱动机制程序设计中的事件驱动机制第二章第二章 VBVB快速入门快速入门2.1.3

14、 对象的建立和编辑对象的建立和编辑q对象的建立对象的建立q单击工具箱上的按钮单击工具箱上的按钮q在窗体上拖拽适当大小的矩形框在窗体上拖拽适当大小的矩形框q对象的选定对象的选定q选定多个对象可借助于选定多个对象可借助于Ctrl或或Shiftq对象的复制和删除对象的复制和删除q复制复制“粘贴粘贴(否否)q对象的命名对象的命名qName(称号称号)属性，必需以字母或汉字开属性，必需以字母或汉字开头头第二章第二章 VBVB快速入门快速入门2.1.3 最常用对象的运用最常用对象的运用对象对象属性属性方法方法事件事件窗体窗体caption 标题标题 标签标签caption 标题标题文本框文本框text 文

15、本内容文本内容命令按钮命令按钮caption 标题标题click单击单击第二章第二章 VBVB快速入门快速入门第第2章章 VB快速入门快速入门2.1 对象的概念对象的概念2.2 窗体的概念窗体的概念2.3 控件的概念控件的概念2.4 如何编写简单的运用程序如何编写简单的运用程序第二章第二章 VBVB快速入门快速入门q在在VB中，窗体是最重要的对象，是构成运用程中，窗体是最重要的对象，是构成运用程序的用户界面的根本模块，是一切控件的容器。序的用户界面的根本模块，是一切控件的容器。q我们可以把窗体看做是一块画布，可以根据我们可以把窗体看做是一块画布，可以根据本人的需求利用工具箱上的控件在画布上画界

16、本人的需求利用工具箱上的控件在画布上画界面。面。q窗体也是对象，窗体也是对象， 属于窗体类。有属性、方法和属于窗体类。有属性、方法和事件事件2.2 窗体的概念窗体的概念 第二章第二章 VBVB快速入门快速入门2.2 窗体的概念窗体的概念 标标题题 Caption 图图标标 Icon 最最小小化化 按按钮钮 MinButton 最最大大化化 按按钮钮 MaxButton 边边框框样样 式式 BorderStyle 控控制制菜菜 单单框框ControlBox 第二章第二章 VBVB快速入门快速入门2.2.1 窗体的主要属性：窗体的主要属性：(1) Name 称号属性：所创建的对象称号，在程序中援用

17、。称号属性：所创建的对象称号，在程序中援用。运转时不可改运转时不可改(2) Caption 标题属性标题属性该属性决议了窗体对象上显示的标题内容。该属性决议了窗体对象上显示的标题内容。(3) Height、Width属性属性决议窗体对象的高度、宽度。决议窗体对象的高度、宽度。(4) Picture 属性：用来设置窗体的背景图片：属性：用来设置窗体的背景图片：假设要显示的图片如假设要显示的图片如2.jpg曾经保管在曾经保管在d:下，那么下，那么Form1.Picture = LoadPicture(d:2.jpg)假设要显示的图片如假设要显示的图片如2.jpg曾经保管在与程序一样的文件夹中，曾经

18、保管在与程序一样的文件夹中，那么那么Form1.Picture = LoadPicture(App.Path + 2.jpg)假设要去掉图片，那么：假设要去掉图片，那么：Form1.Picture = LoadPicture() 第二章第二章 VBVB快速入门快速入门2.2.1 窗体的主要属性窗体的主要属性(5)BackColor 属性：用于设置窗体的背景颜色属性：用于设置窗体的背景颜色(6) MaxButton和和MinButton属性：属性：决议窗体的标题栏能否具有最大最小化按钮决议窗体的标题栏能否具有最大最小化按钮值为值为True或或False第二章第二章 VBVB快速入门快速入门2.2

19、.1 窗体的主要属性窗体的主要属性q(8)BorderStyle 属性属性q用于设置窗体边框方式，值为用于设置窗体边框方式，值为05，默许值为，默许值为2q(9)WindowState 属性属性q用于设置窗体启动时的形状，有用于设置窗体启动时的形状，有3种方式：种方式：q0Normal：正常显示：正常显示(默许值默许值)q1Maxmized：最大化显示：最大化显示q2Minimized：最小化显示：最小化显示第二章第二章 VBVB快速入门快速入门2.2.2 窗体的常用事件窗体的常用事件q常用的事件常用的事件qClick：单击；：单击；qDblClick：双击；：双击；qLoad：是在窗体被装入

20、任务区时触发的事件。：是在窗体被装入任务区时触发的事件。当运用程序启动，自动执行该事件，该事件通当运用程序启动，自动执行该事件，该事件通常用来在启动运用程序时对属性和变量进展初常用来在启动运用程序时对属性和变量进展初始化。始化。qUnload：在窗体退出时产生，主要是封锁已翻：在窗体退出时产生，主要是封锁已翻开的文件等。开的文件等。第二章第二章 VBVB快速入门快速入门窗体常用属性运用举例窗体常用属性运用举例q例例:设计一个窗体设计一个窗体,要求要求:q1、窗体的标题为：窗体属性举例、窗体的标题为：窗体属性举例q2、在设计阶段窗体的背景是、在设计阶段窗体的背景是1.jpg,而当而当运转时显示的

21、是运转时显示的是2.jpgq2.当单击窗体时，每单击一次，窗体的高当单击窗体时，每单击一次，窗体的高和宽都在原来的根底上减少和宽都在原来的根底上减少200缇缇q3.窗体没有最大化、最小化按钮窗体没有最大化、最小化按钮第二章第二章 VBVB快速入门快速入门设计思绪：设计思绪：1、在属性窗口设置、在属性窗口设置form1的的caption为窗体属性举例，为窗体属性举例，picture为为1.jpg2、编写窗体的、编写窗体的load事件，使在窗体装载显示时显示事件，使在窗体装载显示时显示2.jpg Private Sub Form_Load() Form1.Picture = LoadPicture

22、(App.Path + 2.jpg) End Sub3、编写窗体的单击事件程序、编写窗体的单击事件程序 Private Sub Form_Click() Form1.Height = Form1.Height - 500 Form1.Width = Form1.Width - 500 End Sub4、在属性窗口设置、在属性窗口设置maxbutton、minbutton为为false第二章第二章 VBVB快速入门快速入门2.2.3 窗体的常用方法窗体的常用方法 q运用方法的语法方式：运用方法的语法方式：q 对象对象.方法方法 参数列表参数列表第二章第二章 VBVB快速入门快速入门2.2.3 窗

23、体的常用方法窗体的常用方法 u Print方法：在窗体上显示文本 u Cls方法：用于去除程序运转时在窗体或图形框中产生的文本或图形, 但留意cls方法不能去除窗体在设计时的文本和图形u 例如：u Private Sub Command1_Click()u Form1.Print 他好！u End Subu Private Sub Command2_Click()u Form1.Clsu End Sub第二章第二章 VBVB快速入门快速入门 窗体的窗体的Print方法方法 nPrint方法运用阐明：n一个Print方法输出一行；因此，假设要输出一个空行，语句为： form1. printn当需

24、求在一行输出多个值时，用 ; 或 ，分开 ：n; 表示紧接着显示；n，表示在同一行的下一个位置显示 n 第二章第二章 VBVB快速入门快速入门Private Sub Command1_Click()Form1.Print 张三丰收苹果张三丰收苹果Form1.PrintForm1.Print 张三张三, 丰收丰收, 苹果苹果Form1.PrintForm1.Print 张三张三; 丰收丰收; 苹果苹果End SubPrivate Sub Command2_Click()Form1.ClsEnd Sub 窗体的窗体的Print方法举例方法举例 第二章第二章 VBVB快速入门快速入门留意问题：留意问

25、题：q当在窗体的当在窗体的load事件中需求调用事件中需求调用Print方法时，必需预方法时，必需预先把窗体的先把窗体的autoredraw属性设置为属性设置为true,否那么，无效。否那么，无效。qPrivate Sub Form_Load()q Form1.AutoRedraw = Trueq Form1.Print 张三丰收苹果张三丰收苹果q Form1.Printq Form1.Print 张三张三, 丰收丰收, 苹果苹果q Form1.Printq Form1.Print 张三张三; 丰收丰收; 苹果苹果qEnd Sub第二章第二章 VBVB快速入门快速入门留意问题：留意问题：q假设

26、需求设置所显示的文字的字体、字号、字的颜色，假设需求设置所显示的文字的字体、字号、字的颜色，可在运用窗体的可在运用窗体的print方法之前进展有关属性的设置。方法之前进展有关属性的设置。例如：例如：qPrivate Sub Form_Load()qForm1.AutoRedraw = TrueqForm1.FontName = 隶书隶书qForm1.FontSize = 20qForm1.ForeColor = vbRedqForm1.Print 张三丰收苹果张三丰收苹果qForm1.PrintqForm1.Print 张三张三, 丰收丰收, 苹果苹果qForm1.PrintqForm1.Pr

27、int 张三张三; 丰收丰收; 苹果苹果qEnd Sub第二章第二章 VBVB快速入门快速入门第第2章章 VB快速入门快速入门2.1 对象的概念对象的概念2.2 窗体的概念窗体的概念2.3 控件的概念控件的概念2.4 如何编写简单的运用程序如何编写简单的运用程序第二章第二章 VBVB快速入门快速入门2.3 控件的概念控件的概念q2.3.1 控件的概念控件的概念q控件是构成窗体的根本元素，控件是构成窗体的根本元素， 用于接纳用于接纳和显示数据信息。和显示数据信息。q控件可分为三类：控件可分为三类：q规范控件规范控件qActiveX控件控件q可插入对象可插入对象第二章第二章 VBVB快速入门快速入

28、门2.3.2控件对象的建立和编辑控件对象的建立和编辑q控件的建立：单击工具箱上的按钮，在窗体上控件的建立：单击工具箱上的按钮，在窗体上拖拽适当大小的矩形框拖拽适当大小的矩形框q控件的选定控件的选定q单击对象选定。单击对象选定。q要选定窗体，在窗体空白处单击要选定窗体，在窗体空白处单击q选定多个对象可借助于选定多个对象可借助于Ctrl或或Shiftq控件的删除控件的删除q单击对象选定。单击对象选定。q按按 del第二章第二章 VBVB快速入门快速入门2.3.3 常用根本控件常用根本控件最重要、最根本的三个控件：最重要、最根本的三个控件：1.标签标签2. 命令按钮命令按钮2. 文本框文本框 第二章

29、第二章 VBVB快速入门快速入门2.3. 4 常用根本控件常用根本控件 1 标签标签功能：用来显示文本，所显示的文本普通用做提示信息。功能：用来显示文本，所显示的文本普通用做提示信息。1.常用属性常用属性(1) Name 编程时援用，默以为编程时援用，默以为Label1，默以为，默以为Label2，默，默以为以为Label3，(2) Caption 设置标签中要显示的文字设置标签中要显示的文字(3) AutoSize 能否自动根据需求决议标签大小，取值为能否自动根据需求决议标签大小，取值为True和和False。(4) FontName 设置标签中文本的字体。如宋体、隶设置标签中文本的字体。如

30、宋体、隶书、书、(5) FontSize 设置标签中文本的字体大小。如设置标签中文本的字体大小。如14磅，磅，20磅，磅，(6) ForeColor 设置标签中文本的颜色设置标签中文本的颜色,颜色可以用颜色可以用rgb函数表示或用函数表示或用vb常量表示，如常量表示，如vbRed。7BackColor 设置标签的背景颜色设置标签的背景颜色第二章第二章 VBVB快速入门快速入门2.3. 4 常用根本控件常用根本控件 1 标签标签功能：用来显示文本，所显示的文本普通用做提示信息。功能：用来显示文本，所显示的文本普通用做提示信息。2. 事件事件 标签也有很多事件，但对标签控件很少运用事件，有时会用到

31、接纳标签也有很多事件，但对标签控件很少运用事件，有时会用到接纳Click和和DblClick事件。事件。第二章第二章 VBVB快速入门快速入门2.3. 4 常用根本控件常用根本控件 1 标签标签q例例:标签常用属性设置方法一：在设计方式下经标签常用属性设置方法一：在设计方式下经过属性窗口直接设置：如：过属性窗口直接设置：如：Label1qCaption：山东工商学院：山东工商学院qForeColor：红色：红色qFont: 字号：字号： 20q 字体：隶书字体：隶书q 字形：粗体字形：粗体 FontBold能否能否粗体粗体q 斜体斜体 FontItalic 能否能否斜体斜体q背风光背风光Bac

32、kColor：黄色：黄色二者等价第二章第二章 VBVB快速入门快速入门2.3. 4 常用根本控件常用根本控件 1 标签标签q例例:标签常用属性设置方法二：经过代码窗口设置，如标签常用属性设置方法二：经过代码窗口设置，如Label2qLabel2.Caption = “山东工商学院山东工商学院qLabel2.ForeColor = vbRedqLabel2.ForeColor = RGB(255, 0, 0)qLabel2.FontSize = 20qLabel2.FontName = 隶书隶书qLabel2.FontBold = True FontBold能否粗体能否粗体qLabel2.Fon

33、tItalic = True FontItalic 能否斜能否斜体体qLabel2.BackColor = vbYellow二者等价留意留意2种设置方法的不同：种设置方法的不同：第二章第二章 VBVB快速入门快速入门关于关于RGB( )函数的运用函数的运用语法：语法： RGB(red, green, blue)参数：参数：red、green、blue的取值范围从的取值范围从0到到255，分别表示红色、绿色和蓝色的成份。分别表示红色、绿色和蓝色的成份。阐明：阐明：RGB函数可以产生函数可以产生256256256种不同种不同的颜色。任何需求得到颜色的属性都可以经过的颜色。任何需求得到颜色的属性都可

34、以经过RGB函数设置。函数设置。下表显示一些常见的规范颜色，以及这些颜色的下表显示一些常见的规范颜色，以及这些颜色的红、绿、蓝三原色的成份。红、绿、蓝三原色的成份。第二章第二章 VBVB快速入门快速入门各种常见色的各种常见色的RGB函数参数值函数参数值颜颜色色红红色色值值绿绿色色值值蓝蓝色色值值黑黑色色000蓝蓝色色00255绿绿色色02550红红色色25500紫紫色色2550255第二章第二章 VBVB快速入门快速入门VB中常用表示颜色的常数常量中常用表示颜色的常数常量qvbBlack 黑色黑色qvbRed 红色红色qvbGreen 绿色绿色qvbYellow 黄色黄色qvbBlue 蓝色蓝

35、色qvbMagenta 紫红色紫红色qvbCyan 青色青色qvbWhite 白色白色引荐运用引荐运用!第二章第二章 VBVB快速入门快速入门例例 标签属性效果实例标签属性效果实例标签的其它属性：直接演示阐明标签的其它属性：直接演示阐明1、Alignment 文本在标签中的对齐方式文本在标签中的对齐方式 0-left justify 左对齐左对齐 1-right justify 右对齐右对齐 2-center 居中对齐居中对齐2、borderstyle 标签有无边境标签有无边境 0-none 默许值默许值 无边境无边境 1-fixed single 有固定边境有固定边境第二章第二章 VBVB快

36、速入门快速入门q本章第本章第2次课次课第二章第二章 VBVB快速入门快速入门2.3.3 常用根本控件常用根本控件 2 命令按钮命令按钮q最重要的属性、事件最重要的属性、事件q1. 属性属性q(1) Name 编程时援用，默以为编程时援用，默以为Command1，Command2，Command3，q(2) Caption 命令按钮上显示的文字命令按钮上显示的文字q2. 事件事件 命令按钮普通接纳命令按钮普通接纳Click事件事件 第二章第二章 VBVB快速入门快速入门2.3.3 常用根本控件常用根本控件2 命令按钮命令按钮q 其它常用属性其它常用属性q (3) Style 按钮款式按钮款式q

37、0 Standard：默许，按钮上不能显示图形：默许，按钮上不能显示图形 q 1 Graphical：按钮上可以显示图形和文字：按钮上可以显示图形和文字 q (4) Picture 在按钮装入图形，当在按钮装入图形，当Style=1时才干用时才干用q Enabled 能否有效能否有效 true false q Visible 能否可见能否可见q 设置命令按钮显示图片的步骤：设置命令按钮显示图片的步骤：q 1、 Style 设置为设置为1q 2、Picture 设置要显示的图片文件设置要显示的图片文件第二章第二章 VBVB快速入门快速入门命令按钮运用举例命令按钮运用举例q设计运转时如下图程序：设

38、计运转时如下图程序：q1.创建对象略创建对象略q2.设置命令按钮显示图片的步骤：设置命令按钮显示图片的步骤：q(1) Style 设置为设置为1q(2)Picture 设置要显示的图片文件设置要显示的图片文件q3.编写各个事件程序编写各个事件程序第二章第二章 VBVB快速入门快速入门程序运转时单击各个按钮的结果图示程序运转时单击各个按钮的结果图示第二章第二章 VBVB快速入门快速入门各事件程序各事件程序Private Sub Command1_Click() Form1.FontSize = 40 Form1.Print 他好！他好！End SubPrivate Sub Command2_Cl

39、ick() Form1.ClsEnd SubPrivate Sub Command3_Click() Command1.Enabled = FalseEnd SubPrivate Sub Command4_Click() Command2.Visible = FalseEnd Sub第二章第二章 VBVB快速入门快速入门2.3.3 常用根本控件常用根本控件2 命令按钮命令按钮q 命令按钮的快捷键设置：在命令按钮的命令按钮的快捷键设置：在命令按钮的caption中设置，中设置，q 例如例如 确定确定(&O)第二章第二章 VBVB快速入门快速入门2.3.5常用根本控件常用根本控件3 文本框

40、文本框q文本框是一个文本编辑区域，可以在该区文本框是一个文本编辑区域，可以在该区域输入、编辑、修正和显示正文内容。域输入、编辑、修正和显示正文内容。q1.重要属性重要属性q最重要的属性：最重要的属性：Text：显示或输入的文本内：显示或输入的文本内容容q例：编写一个简单加法计算器的程序。例：编写一个简单加法计算器的程序。第二章第二章 VBVB快速入门快速入门文本框的根本运用例文本框的根本运用例-text-text属性的运用属性的运用 p 例：编写一个简单加法计算器的程序。例：编写一个简单加法计算器的程序。p p 其中其中,文本框作为一个数据输入控件来运用。文本框作为一个数据输入控件来运用。本章

41、目录本章目录第二章第二章 VBVB快速入门快速入门设计思绪：设计思绪：q1.建立用户界面的对象建立用户界面的对象q 输入，运用文本框输入，运用文本框TextBox;q 提示，运用标签提示，运用标签Label;q 运算，运用按钮运算，运用按钮Command。q2.设置对象的属性设置对象的属性q设置提示文字、字体、大小等设置提示文字、字体、大小等q3.编写编写Command的的Click事件执行处置。事件执行处置。q4.运转并保管程序运转并保管程序第二章第二章 VBVB快速入门快速入门对象对象属性名称属性名称属性值属性值Form1Caption简单计算器简单计算器 Label1 caption 第

42、一个数第一个数Label2Caption第二个数第二个数Label3Caption计算结果计算结果Label4Caption+Label5Caption =Text1Text 空空 Text2 Text 空空 Text3 Text 空空Command3Caption清空清空Command4Caption 计算计算Command5Caption 结束结束2.设置对象的属性设置对象的属性第二章第二章 VBVB快速入门快速入门3.编写各个命令按钮的编写各个命令按钮的Click事件程序事件程序Private Sub Command1_Click()Text1 .text= Text2 .text =

43、Text3 .text = End SubPrivate Sub Command2_Click()Text3 .text = Val(Text1 .text) + Val(Text2 .text)End SubPrivate Sub Command3_Click()EndEnd Sub第二章第二章 VBVB快速入门快速入门2.3.5常用根本控件常用根本控件3 文本框文本框q文本框是一个文本编辑区域，可以在该区域输入、编辑、文本框是一个文本编辑区域，可以在该区域输入、编辑、修正和显示正文内容。修正和显示正文内容。q1.其它重要属性其它重要属性q(2) Maxlength：设置文本框可输入的文字最

44、大长度。默：设置文本框可输入的文字最大长度。默许值为许值为0，表示可以输入恣意长字符串，表示可以输入恣意长字符串q留意：在留意：在VB中字符长度以字为单位，即一个西文字符与中字符长度以字为单位，即一个西文字符与一个汉字都是一个字，长度为一个汉字都是一个字，长度为1。q (3) PassWordChar 设置程序运转时，当用户向文本框设置程序运转时，当用户向文本框中输入文本时显示的符号口令域。中输入文本时显示的符号口令域。q默许取值为空，此时显示正常文本；默许取值为空，此时显示正常文本；q常设置为取值为常设置为取值为“*，此时无论输入什么都显示，此时无论输入什么都显示“*。q也可设置为其它符号，

45、如也可设置为其它符号，如#，意义同，意义同*第二章第二章 VBVB快速入门快速入门(3) MultiLine 设置文本框能否多行显示设置文本框能否多行显示True：文本框可以输入或显示多行正文。：文本框可以输入或显示多行正文。False：默许仅显示一行。：默许仅显示一行。(4) ScrollBars 设置文本框能否具有滚动条设置文本框能否具有滚动条 0 None 默许无滚动条默许无滚动条 1 Horizontal 程度滚动条程度滚动条 2 Vertical 垂直滚动条垂直滚动条 3 Both 同时加程度和垂直滚动条同时加程度和垂直滚动条留意：当留意：当MultiLine为为True时，时，Sc

46、rollBars才有效才有效2.3.5 常用根本控件常用根本控件3 文本框文本框第二章第二章 VBVB快速入门快速入门1KeyPress事件：事件： 按下并且释放键盘上的一个键时，引发焦点所在按下并且释放键盘上的一个键时，引发焦点所在控件的控件的KeyPress事件，所按键的值存放在参事件，所按键的值存放在参数数KeyAscii中中Private Sub Text1_KeyPress(KeyAscii As Integer)End Sub在程序设计中常用于根据按下的键不同，程序要在程序设计中常用于根据按下的键不同，程序要做不同的事。特别是常见于做不同的事。特别是常见于 对回车键的判别，对回车键

47、的判别，回车键的回车键的 KeyAscii=13，根据，根据keyascll的值能的值能否是否是13，决议下一步做什么，决议下一步做什么 xx2.文本框的常用事件：文本框的常用事件：第二章第二章 VBVB快速入门快速入门例：在文本框中输入键盘上的恣意一个键，程序在窗体上例：在文本框中输入键盘上的恣意一个键，程序在窗体上输出输出“他按下的是他按下的是ascll码为码为:xx 的键的键比如：在程序运转时在文本框中依次输入比如：在程序运转时在文本框中依次输入abcd回车键，回车键，结果如图示结果如图示Private Sub Text1_KeyPress(KeyAscii As Integer)For

48、m1.Print 他按下的是他按下的是ascll码为码为:; KeyAscii; 键键End Sub xxKeyPress事件：事件：这里只是阐明一下这个事件程这里只是阐明一下这个事件程序的含义，在以后的学习中，序的含义，在以后的学习中，会引见在适用程序中如何运用会引见在适用程序中如何运用keypress第二章第二章 VBVB快速入门快速入门 (2) Changed事件：事件： 当当Text属性值发生改动时引发该事属性值发生改动时引发该事件件例如：编写程序，当在文本框中输入一个字时在窗体上就例如：编写程序，当在文本框中输入一个字时在窗体上就显示文本框的内容显示文本框的内容Private Sub

49、 Text1_Change()Form1.Print Text1.TextEnd Sub 2.文本框的常用事件：文本框的常用事件：第二章第二章 VBVB快速入门快速入门 (3) LostFocus事件事件 对象失去焦点时发生对象失去焦点时发生LostFocus事件事件 该事件主要是用来对数据进展验证和确认，常用于检查该事件主要是用来对数据进展验证和确认，常用于检查Text属性属性的内容能否符合要求。的内容能否符合要求。(4) GotFocus事件事件 当一个对象获得焦点时发生的事件当一个对象获得焦点时发生的事件 2.文本框的常用事件：文本框的常用事件：第二章第二章 VBVB快速入门快速入门n文

50、本框最有用的方法是文本框最有用的方法是SetFocus，把光标，把光标移到指定的文本框中。其方式如下：移到指定的文本框中。其方式如下：n对象名对象名. SetFocus3.文本框的常用方法：文本框的常用方法：LostFocus事件、事件、 GotFocus事件、事件、 SetFocus方法经常用于对输入数据进展合方法经常用于对输入数据进展合法性检验，过滤不合法的数据法性检验，过滤不合法的数据第二章第二章 VBVB快速入门快速入门LostFocus事件、事件、 GotFocus事件、事件、 SetFocus方法运用举例方法运用举例q例：程序设计时界面如图，要求：例：程序设计时界面如图，要求：q1

51、.当在当在text1中输入数据后，假设数据不在中输入数据后，假设数据不在0-100之间，要求自动去除之间，要求自动去除text1中的数据，并中的数据，并把焦点重新设置在把焦点重新设置在text1中，且在窗体中输中，且在窗体中输出出错信息：出出错信息：数学成果输入错误数学成果输入错误(应在应在0-100之间之间)，重新输入！，重新输入！q2.当在当在text2中输入数据后，假设数据不在中输入数据后，假设数据不在0-100之间，要求自动去除之间，要求自动去除text2中的数据，并中的数据，并把焦点重新设置在把焦点重新设置在text2中，且在窗体中输中，且在窗体中输出出错信息：出出错信息： “语文成

52、果输入错误语文成果输入错误(应在应在0-100之间之间)，重新输入！，重新输入！q3.当当text3获得焦点时，就在获得焦点时，就在text3中显示平中显示平均成果均成果第二章第二章 VBVB快速入门快速入门第二章第二章 VBVB快速入门快速入门当当text1失去焦点时发生的事失去焦点时发生的事Private Sub Text1_LostFocus() Dim a% a = Val(Text1.Text) If a 100 Then Form1.Print 数学成果输入错误数学成果输入错误(应在应在0-100之间之间)，重，重新输入！新输入！ Text1.Text = Text1.SetFoc

53、us End If End Sub第二章第二章 VBVB快速入门快速入门当当text2失去焦点时发生的事失去焦点时发生的事Private Sub Text2_LostFocus() Dim a% a = Val(Text2.Text) If a 100 Then Form1.Cls Form1.Print 语文成果输入错误语文成果输入错误(应在应在0-100之间之间)，重新输入！，重新输入！ Text2.Text = Text2.SetFocus End IfEnd Sub第二章第二章 VBVB快速入门快速入门当当text3获得焦点时发生的事获得焦点时发生的事Private Sub Text3

54、_GotFocus() Dim a%, b%, c! a = Val(Text1.Text) b = Val(Text2.Text) c = (a + b) / 2 Text3.Text = cEnd Sub第二章第二章 VBVB快速入门快速入门4.文本框有关选中复制的属性：文本框有关选中复制的属性：SelText属性：文本框中选中的文本属性：文本框中选中的文本SelStart属性属性设置选中文本开场位置，第设置选中文本开场位置，第1个字符位置是个字符位置是0SelLength属性属性设置选中的文本长度设置选中的文本长度这这3个属性相互关联个属性相互关联,例如设置例如设置SelStart、Se

55、lLength后，后，SelText 自动存放指定的文本。自动存放指定的文本。2.3.5常用根本控件常用根本控件 3 文本框文本框第二章第二章 VBVB快速入门快速入门Private Sub Command1_Click()Form1.Print 选中的文本是：选中的文本是：; Text1.SelTextEnd SubPrivate Sub Command2_Click()Form1.Print 选中的文本开场位置是：选中的文本开场位置是：; Text1.SelStartEnd SubPrivate Sub Command3_Click()Form1.Print 选中的文本的长度是：选中的文本

56、的长度是：; Text1.SelLengthEnd Sub选中的文字选中的文字例：程序运转时如图例：程序运转时如图第二章第二章 VBVB快速入门快速入门n要求如下：要求如下：n窗体界面如下图，左侧文本框内容在窗体界面如下图，左侧文本框内容在设计时输入，而非运转时输入；设计时输入，而非运转时输入；n运转时，当单击运转时，当单击“隶书隶书16磅按钮，左磅按钮，左侧文本框字体格式随之变化；效果如下侧文本框字体格式随之变化；效果如下图；图；n单击单击“复制按钮，会把左侧框内选中复制按钮，会把左侧框内选中的文本复制到右侧文本框中，如图；单的文本复制到右侧文本框中，如图；单击击“剪切按钮，会把左侧框内选中

57、的文剪切按钮，会把左侧框内选中的文本挪动到右侧文本框中，如下图。本挪动到右侧文本框中，如下图。n留意：无论是复制还是剪切，都把新文留意：无论是复制还是剪切，都把新文本粘贴在本粘贴在Text2原有文本的后面。例如本原有文本的后面。例如本例中，在左侧选中例中，在左侧选中“世界后复制到右侧世界后复制到右侧文本框中，然后再选中文本框中，然后再选中“天堂，单击天堂，单击“剪切按钮，右侧文本框中的内容就变剪切按钮，右侧文本框中的内容就变为为“世界天堂。世界天堂。 文本框运用举例：设计一个简单的文本框运用举例：设计一个简单的文本编辑器文本编辑器第二章第二章 VBVB快速入门快速入门文本框举例：设计一个简单的文本文本框举例：设计一个简单的文本编辑器编辑器第二章第二章 VBVB快速入门快速入门Private Sub Command1_Click()Text2.Text = Text1.SelTextEnd SubPrivate Sub Command2_Click()Text2.Text = Text1.SelTextText1.SelText = End SubPr