VB程序设计第二版第二章

1、1在Visual Basic编程环境中，无论是设计界面还是编写代码，都需要与一组对象打交道。因此，准确地理解对象的有关概念，是设计Visual Basic应用程序的重要基础。本章将介绍对象的基本概念，Visual Basic 的几个常用对象，以及设计一个简单Visual Basic应用程序的主要步骤。2引言引言2.1.1 对象与类对象：现实中很常见，比如人、桌子、板凳、教室等实物。对象的特征：有一个名字以区别其他对象；有一组状态用来描述它的特性；有一组操作决定对象的一种行为或能力。类：是一组对象的抽象，将该组对象所具有的共同特征和共同行为集中起来，以说明对象的能力和性质。3用类建立一个具体对象

2、的过程称作实例化，这个具体的对象就称作实例。类的特征：封装性；继承性；多态性。Visual Basic 中的对象和类的概念：工具箱中的各种控件代表各个不同的类，当把控件拖放到窗体上，就创建了该类的一个对象。对象的命名：必须以字母或者汉字开头，随后可以是字母、汉字、数字、下划线（尽量不使用）等字符，但不能是空格和标点符号；长度不超过255个字符。456Name属性属性类类对象名称对象名称每个对象都有自己的名称，用于在代码每个对象都有自己的名称，用于在代码中引用该对象。对象的名称由对象的中引用该对象。对象的名称由对象的Name属属性决定，在性决定，在Visual Basic 6.0中文版中，中文版

3、中，Name属性在属性窗口的属性名为属性在属性窗口的属性名为“(名称名称)”，Visual Basic 的窗体和控件是具有自己的属性、方法和事件的对象。可以把属性看作一个对象的性质，把方法看作对象的动作，把事件看作对象的响应。属性(Properties)：对象中封装的数据或状态.方法(Method)：对象的操作或行为，用对象的代码来实现.事件(Event)：对象可识别的动作，来自外部的刺激.78当前窗体对象的名称是Form1，窗体的标题属性为Caption，宽度属性为Width，高度属性为Height，背景颜色属性为BackColor。要将标题栏文字设置为“欢迎使用Visual Basic”、

4、将宽度设置为6000缇、将高度设置为3000缇、将背景颜色设置为绿色，代码如下：Form1.Caption = 欢迎使用Visual BasicForm1.Width = 6000Form1.Height = 3000Form1.BackColor = vbGreen备注：VB 缺省情况下就是使用缇作为它的单位，20 缇等于 1 磅，1 缇就是 1/1440 英寸，一厘米有 567 缇。91）使用颜色常量vbBlack, vbBlue, vbGreen等. form1.BackColor = vbBlue2）使用RGB(0,255,255)，红、绿、蓝，取值在0255.1011 With Fo

5、rm1 .Caption = 欢迎使用Visual Basic 等价于Form1.Caption = “欢迎使用 Visual Basic .Width = 6000等价于Form1.Width = 6000 .Height = 3000等价于Form1.Height = 3000 .BackColor = vbGreen 等价于Form1.BackColor = vbGreenEnd With1213【例2-3】 有一个名称为Form1的窗体，在其Load事件过程编写如下语句。Private Sub Form_Load() Form1.ShowShow方法没有参数 Print 你好，Visu

6、al Basic 省略对象名Form1，等价于Form1.Print 你好， Visual Basic”End Sub141516 17【例2-4】 有一个名称为Form1的窗体，其Load事件过程如下。Private Sub Form_Load() Show With Form1 .CurrentX = 1000 .CurrentY = 500 .Font.Size = 20 End With Print Visual BasicEnd Sub18192021222324 选择了一个或多个控件之后，在属性窗口选择了一个或多个控件之后，在属性窗口显示的是这些控件共有的属性，这时在属性窗显示的是

7、这些控件共有的属性，这时在属性窗口可以为多个控件同时设置属性。口可以为多个控件同时设置属性。2526272829对齐或统对齐或统一尺寸时一尺寸时以该控件以该控件为准为准l8.控件的焦点l焦点是接收用户鼠标或键盘输入的能力。当一个空间具有焦点时，可以接受用户的输入信息。l可以用下面方法设置对象的焦点：l1.在运行时单击该对象；2.运行时用热键选择该对象；3.在程序代码中用setfocus方法；4.利用tab键将焦点移动到该对象上。l接收焦点的条件：对象的Enabled和visible属性均为true。l某些控件不能接收焦点，比如Label、Line、timer等，对于窗体来讲，只有当窗体上的所有

8、控件都不能接收焦点时，窗体才可以。30l9.控件的TAB顺序l所谓TAB顺序，就是指按TAB键时，焦点在各个控件之间移动的顺序。l正常情况下，TAB顺序是 由控件的创建顺序决定，Tabindex属性值从0开始编号。l设计模式下，可以修改属性窗口中的Tabindex属性来改变TAB顺序。l相关属性：Tabstop，可以控制焦点的移动，默认值为true，若修改成False，那么利用TAB键移动焦点时会跳过去。但是这些控件仍然会保持在实际的tab顺序中的位置，只是这个属性为false时会被跳过。31 利用属性窗口分别给每个对象设置相应的属性值。如课本2-2表。32333435窗体另存之后，必须再次保

9、存工程。窗体另存之后，必须再次保存工程。36如果要同时另存窗体文件和工程文件，则必如果要同时另存窗体文件和工程文件，则必须先另存窗体文件，再另存工程文件。须先另存窗体文件，再另存工程文件。不要直接在不要直接在“我的电脑我的电脑”或或“资源管理器资源管理器”下直接修改工程文件或窗体文件的文件名，下直接修改工程文件或窗体文件的文件名，更不要修改其扩展名。更不要修改其扩展名。37383940控制菜单控制菜单标题栏标题栏最大化最大化/还原还原最小化最小化关闭关闭边框边框4142 43444546 RGB函数QBColor函数十六进制颜色值VB颜色常量VB系统颜色常数基础知识：十六进制数47RGB函数R

10、GB是Red，Green，Blue的缩写，RGB函数通过三原色的值混合产生一种颜色。函数格式： RGB(红色值，绿色值，蓝色值)说明：红、绿、蓝色值均为 0255 间的整数。下表是一些常见颜色的RGB值。48颜色颜色红色值红色值绿色值绿色值蓝色值蓝色值黑000蓝00255绿02550青0255255红25500洋红2550255黄2552550白25525525549QBColor函数QBColor 函数是从 Quick Basic 中“继承”下来的，用一个整数值对应RGB的常用颜色值。函数格式： QBColor（颜色值）说明：颜色值为 015 。50QBColorQBColor值值颜色颜色对

11、应对应RGB颜色值颜色值0黑RGB(0,0,0)1蓝RGB(0,0,191)2绿RGB(0,191,0)3青RGB(0,191,191)4红RGB(191,0,0)5洋红RGB(191,0,191)6黄RGB(191,191,0)7白RGB(191,191,191)8灰RGB(64,64,64)9亮蓝RGB(0,0,255)10亮绿RGB(0,255,0)11亮青RGB(0,255,255)12亮红RGB(255,0,0)13亮洋红RGB(255,0,255)14亮黄RGB(255,255,0)15亮白RGB(255,255,255)51十六进制颜色值这是VB中表达颜色最直接的方法。格式： &

12、amp;HBBGGRR&说明：BB、GG、RR分别为两位十六进制数，表示蓝、绿、红色的亮度，其值为 00 FF,中间值为80。例如：&HFF0000&为亮蓝色，&H00FFFF&（也可写为&HFFFF&）为黄色。52VB颜色常量53文字常量文字常量十六进制值十六进制值颜色颜色vbBlack&H0黑vbRed&HFF红vbGreen&HFF00绿vbYellow&HFFFF黄vbBlue&HFF0000蓝vbMagenta&HFF00FF洋红vbCyan&HFFFF00青vbWhite

13、&HFFFFFF白VB系统颜色常数VB定义了一些颜色符号常数，包括8种常用颜色和Windows控制面板使用的系统颜色。使用系统常量，可以使应用程序风格更具专业化。例如：常数vbDesktop对应颜色值&H80000001，代表桌面颜色。当我们直接在属性窗口中设置BackColor之类属性值时，就可以看到这些系统颜色值。使用 MSDN 帮助系统中的“索引”，输入关键“颜色常数”查看，可查看VB系统颜色的说明。545556【例2-6】 使用Move方法移动一个窗体。单击窗体，窗体移动到屏幕的中央。Private Sub Form_Click() Form1.Move (Screen

14、.Width -Form1.Width) / 2, (Screen.Height -Form1.Height) / 2End Sub57【例2-7】 在窗体Form1的Load事件过程编写如下语句，运行时的输出结果如图2-21所示。Private Sub Form_Load() Dim x%, y%声明x、y两个单精度变量 Show也可使用：Form1.Show x = 10给变量x赋值 y = 20给变量y赋值58 Print 1; 2; 3; 4; 5以紧凑格式输出 Print 1, 2, 3, 4, 5以分区格式输出 Print Tab(2); x; Tab(10); y; Tab; 1

15、00 使用Tab函数定位输出 Print X=; x, Y=, y Print x + y;先计算x+y的值，然后输出 Print x y先计算xy的值，然后输出59 Print输出空行 CurrentX = 500坐标以缇为单位表示 CurrentY = 1000 Print bye-bye在(500,1000)位置上输出End Sub60【例2-8】 启动Visual Basic 6.0，新建一个“标准EXE”工程，在属性窗口中将窗体的Name属性修改为myForm。运行时，单击窗体，窗体上显示“Visual Basic”；双击窗体，清除窗体上显示的文本。在代码窗口选择窗体的Click事件

16、过程，输入以下语句：61Private Sub Form_Click()单击窗体要执行的事件代码 myForm.Height = 2000 myForm.Width = 4000 myForm.BackColor = vbRed myForm.ForeColor = vbBlue myForm.Font.Name = 黑体 myForm.Font.Size = 20 myForm.Font.Bold = True62 myForm.CurrentX = 600 myForm.CurrentY = 500 myForm.Print Visual Basic使用Print方法在窗体上显示文本 my

17、Form.Caption = 窗体示例End Sub63在代码窗口选择窗体的DblClick事件过程，输入以下语句：Private Sub Form_DblClick()双击窗体要执行的事件代码 myForm.Cls使用Cls方法清除窗体上显示的文本End Sub64命令按钮在工具箱中的位置：65CommandButton（1）Caption属性：决定命令按钮的标题，即命令按钮上显示的文本。在某字符前加一个“&”符号，该字符就会带有一个下划线，称为访问键。运行时，同时按下Alt键和带下划线的字符相当于单击该按钮。（2）Font属性：决定命令按钮上显示的文字的字体、字形、大小和效果等。（

18、3）Style属性：决定命令按钮的显示类型和行为。6667（4）Picture属性：当属性：当Style属性值为属性值为1时，该时，该属性用于指定命令按钮上显示的图形。属性用于指定命令按钮上显示的图形。68n如果指定命令按钮为窗体的缺省按钮，那如果指定命令按钮为窗体的缺省按钮，那么即使焦点移到其他控件（非命令按钮）么即使焦点移到其他控件（非命令按钮）上，也能通过按回车键单击该命令按钮。上，也能通过按回车键单击该命令按钮。n如果指定命令按钮为窗体的缺省取消按钮，如果指定命令按钮为窗体的缺省取消按钮，那么即使焦点移到其他控件上，也能通过那么即使焦点移到其他控件上，也能通过按按Esc键单击该命令按钮。键单击该命令按钮。697071【例2-9】 启动Visual Basic 6.0，新建一个“标准EXE”工程，选取工具箱中“标签控件”按钮 (Label)，在窗体上画一个标签，再画三个命令按钮对象。运行时，单击“显示”按钮显示“你好”，如图2-23(b)所示；单击“隐藏”按钮，“你好”隐去，如图2-23(c)所示；单击“关闭”按钮，关闭窗体。设计界面如图2-23(a)所示。72对照图2-23(a)的设计界面，按表2-6设置各对象的属性。“显示”按钮Command1的Click事件过程如下：Private Sub Com