第2章VisualBasic对象及其操作

1、第二章 Visual Basic对象及其操作本章要求：1.理解对象、属性、事件、和方法等基本概念；2.掌握建立简单的应用程序的方法和步骤；3.熟悉一些基本控件和属性的设置；4.掌握工程的管理及环境的设置；2.1 Visual Basic程序设计中的几个基本概念 211对象与类1对象 是基本的运行时的实体，如窗体、各种控件等，它既包括作用于对象的操作（方法）和对象的响应（事件）。 将数据和处理这些数据的过程封装在一起所构成的独立的实体.2对象的分类 在Visual Baisc中对象主要分为两类：预定义对象和自定义对象。3描述对象的三个基本要素属性、事件和方法是描述对象的三个基本要素。212对象的

2、属性（Property） 对象中的数据，所有对象都有自己的属性。它们是用来描述和反映对象特征的参数。例如：控件名称（Name)、标题（Caption)、颜色（Color)、字体（FontName)等属性决定了对象展现给用户的界面具有什么样的外观及功能。213 对象的事件（Event）及事件过程（Event Procedure） 事件可被对象识别的动作。事件过程 是指附在该对象上的程序代码，是事件触发后处理的程序。事件过程的形式如下：Sub 对象名_事件过程名（参数列表）(事件过程代码）End Sub例如：Sub cmdHide_Click()CmdHide.Visible=FalseEnd S

3、ub214对象的方法（Method） 在对象上可操作的过程，是VB系统提供的一种特殊的过程和函数方法。方法是面向对象的，所以对象的方法调用一般要指明对象。对象方法的调用形式：对象.方法参数列表如省略对象，表示在当对象，一般指窗体。例如：Form1.print VB程序设计 21 5 属性、方法和事件之间的关系属性是对象的性质；方法是对象的动作；事件是对象的响应。2.2 创建Visual Basic简单应用程序2.2.1 创建VB简单应用程序的一般步骤分析问题，确定程序要完成什么任务，按下面的步骤创建应用程序。（1）新建工程。创建一个应用程序首先要打开一个新的工程。（2）创建应用程序界面。（3）

4、设置属性值。（4）对象事件过程的编程。（5）保存文件。（6）程序运行与调试。再次保存修改后的程序2.2.2 对象的建立和命名（1）对象的建立方法一：单击工具箱控件对象在窗体上按住左键拖拉到所需要的大小后释放。方法二：双击工具箱控件对象，则立即在窗体出现一个默认大小的对象框。（2）编辑对象先选中对象（单击对象），放大、缩小删除对象复制对象（3）对象的命名每一个对象都有有自己的名字。每个窗体、控件对象在建立时VB系统给出了一个默认名。用户可通过属性窗口设置（名称）来给对象命名。命名的原则：1）必须由字母或汉字开头、随后可以是字母、汉字、数字、下划线（最好不用）串组成。2）长度=255个字符。本教材

5、采用智能化命规则：用前3个小写字母组成前缀（指明对象的类型）和表示该对象作用的缩写字母组成。2.2.3 对象属性的设置对象属性设置的方法：方法一： 在设计模式下，通过属性窗口直接设置对象的属性。方法二： 在程序的代码中通过赋值实现，其格式为：对象.属性=属性值例如：cmdDisp.Caption=“显示2.3 窗体的常用属性、方法和事件2.3.1 窗体的结构窗体属性决定了窗体的外观与操作。窗体外观 如下图 232 窗体的属性基本属性1. Name名称属性（任何对象都具有的）创建的对象名称,有默认的名.在程序中，控件名是作为对象的标识而引用，不会显示在窗体上。2. Height、width、to

6、p和left属性单位为twip：1 twip=1/20点=1/1440英寸=1/567cm 例2-1 利用代码设置窗体的属性Private Sub Form_Load()Me.Height = 1400Me.Width = 2500Me.Top = 1500Me.Left = 1500Me.Caption = 窗体示例Me.BackColor = RGB(255, 255, 255)Me.AutoRedraw = TrueEnd Sub运行结果如下：3Caption 标题属性：决定出现在窗体的标题栏上的文本内容。4. 字体Font属性组 FontName属性是字符型，决定对象上正文的字体（缺省

7、为宋体）。FontSize属性是整型，决定对象上正文的字体大小。FontBold属性是逻辑型，决定对象上正文是否是粗体。FontItalic属性是逻辑型，决定对象上正文是否是斜体。FontStrikeThru属性是逻辑型，决定对象上正文是否加一删除线。FontUnderLine属性是逻辑型，决定对象上正文是否带下划线。5.Enabled属性（逻辑值）决定控件是否可操作。True ：允许用户进行操作，并对操作出响应。False：呈暗淡色，禁止用户进行操作。6.Visible属性（逻辑值）决定控件是否可见True ：运行时控件可见（缺省值）。 False：运行时控件隐藏，用户看不到，但控件本身是存

8、在的。7BackColor属性和ForeColor属性 BackColor属性用于返回或设置对象的背景颜色，ForeColor属性用于返回或设置在对象里显示图片和文本的前景颜色。例如，将窗体Form1的背景色设置为红色，则可使用下面三种情况：Form1.BackColor = RGB(255, 0, 0)Form1.BackColor = &HFF& Form1.BackColor = vbRed 窗体的其它常用属性 1MaxButton最大化按钮和MinButton最小化按钮：当值为 Ture，有最大或最小化按钮，False则无。 2Icon 控制图标属性：返回或设置窗体左上角显示或最小化时

9、显示的图标。（*.ico或*.cur）注意：此属性必须在ControlBox属性设置为Ture才有效 3ControlBox控制菜单框属性：设置Ture为有，如设置为False则无控件菜单，同时窗体也无最大化按钮和最小化按钮，即使MaxButton属性和MinButton属性设置为Ture。4Picture图片属性：设置窗体中要显示的图片。加载图片操作同Icon 控制图标属性。5.BorderStyle：边框风格, 通过改变BorderStyle 属性，可以控制窗体如何调整大小。0-None：无边框；1-Fixed Single：单线边框，不可以改变窗口大小； 2-Sizable：双线边框，可

10、以改变窗口大小；3-Fixed Double：双线框架，不可以改变窗口大小。4-Fixed Tool Window:窗体外观与工具条相似。有关闭按钮 ，不可以改变窗口大小。5-Sizable Tool Window：窗体外观与工具条相似。有关闭按钮 ，可以改变窗口大小。6.WindowsState属性0-Normal：正常窗口状态，有窗口边界；1：最小化状态，以图标方式运行；2：最大化状态，无边框，充满整个屏幕。7. AutoRedraw属性该属性决定窗体被隐藏或被另一窗口覆盖之后重新显示，是否重新还原该窗体被隐藏或覆盖以前的画面。即是否重画如Circle、Line、Pset和Print等方法

11、的输出。当为True时，重新还原该窗体以前的画面。当为False时，则不重画AutoRedraw属性。233窗体的常用事件最常用的事件1Click/DblClick：单击/双击窗体触发。2Load：窗体被装入时触发的事件。该事件通常用来在启动应用程序时对属性和变量进行初始化。3.Unload事件卸载窗体时触发该事件。4.Resize事件无论是因为用户交互，还是通过代码调整窗体的大小，都会触发一个Resize事件。2.3.4 常用方法窗体常用的方法有：打印输出Print移动Move清除Cls显示Show隐藏Hide等方法。方法的使用的形式:对象.方法 参数例2-2 在窗体上显示字符串和画圆，单击

12、鼠标结束。Private Sub Form_Activate()/窗体激活事件BackColor = QBColor(15)FontName = 黑体FontSize = 10ForeColor = QBColor(9)PrintPrint Space(5); 窗体的属性、事件和方法举例Circle (2200, 1800), 1000, QBColor(12)End SubPrivate Sub Form_Click()EndEnd SubPrivate Sub Form_Load()Me.Height = 3400Me.Width = 4500Me.Top = 1500Me.Left =

13、1500Me.Caption = Visual Basic 应用程序示例Me.BackColor = RGB(255, 255, 255)Me.AutoRedraw = TrueEnd Sub运行结果如下：2.4 命令按钮、标签、文本框2.4.1命令按钮CommandButton接受用户输入的命令.输入命令可以有三种方式:（1）鼠标单击；（2）按Tab键焦点跳转到该按钮, 再按回车键；（3） 快捷键（Alt+有下划线的字母）1命令按钮的常用属性 基本属性：Name、Height、Width、Top、Left、Enabled、Visible、Font等与窗体的使用相同。 常用属性 （1）Capt

14、ion: 标题属性命令按钮显示的内容，可在某字母前加 “&“设置快捷键。例如： &Ok , 显示 Ok（2）Default：默认属性（逻辑值），设置为True时，按Enter键相当于用鼠标器单击了该按钮。注意：在一个窗体只能有一个按钮的Default设置为Ture（3）Cancel:取消功能属性（逻辑值），当设置为Ture时，程序运行时按Esc键与单击此命令按钮的效果相同。注意：在一个窗体只能的一个按钮的Cancel属性设置为Ture（4）Value: 检查该按钮是否按下. 该属性在设计时无效.（5）Picture : 按钮可显示图片文件(.bmp和.Ico)，只有当Style属性值设 为1时

15、有效（6）Style : 确定显示的形式. 0 只能显示文字, 1 文字、图形均可 。（7）ToolTipText ：设置工具提示，和Picture结合使用。（8） enabled属性设置按钮是否可用。2命令按钮的常用事件方法（1）、Move（2）、Setfocus 获得焦点（3）最常用的是Click()事件，一般也只对该事件进行编程。242标签 Label用于显示文本(输出)信息，不能作为输入信息的界面。1基本属性Name、Height、Width、Top、Left、Enabled、Visible、Font、ForeColor、BackColor等与窗体的使用相同。2常用属性（1）Capti

16、on属性Caption属性用来改变Label控件中显示的文本。Caption属性允许文本的长度最多为1024字节。缺省情况下，当文本超过控件宽度时，文本会自动换行，而当文本超过控件高度时，超出部分将被裁剪掉。（2） Alignment属性设置Caption属性中文本的对齐方式，共有三种可选值：0左对齐(Left Justify)；1右对齐(Right Justify)；2居中对齐(Center Justify)。（3）BackStyle属性该属性用于确定标签的背景是否透明。有两种情况可选：值为0时，表示背景透明，标签后的背景和图形可见；值为1时，表示不透明，标签后的背景和图形不可见。（4）Au

17、toSize属性AutoSize属性确定标签是否会随标题内容的多少自动变化。如果值为True，则随Caption内容的大小自动调整控件本身的大小，且不换行；如果值为False，表示标签的尺寸不能自动调整，超出尺寸范围的内容不予显示。（5）WordWrap属性 3常用事件和方法标签可响应单击（Click）和双击（ DblClick）事件，但一般情况不对它进行编程例2-3 模拟妙表计时。Dim starttime, endtime, pastimePrivate Sub Command1_Click()starttime = NowLabel4.Caption = Format(starttime

18、, hh:mm:ss)Label5.Caption = Label6.Caption = Command1.Enabled = FalseCommand2.Enabled = TrueEnd SubPrivate Sub Command2_Click()endtime = Nowpastime = endtime - starttimeLabel5.Caption = Format(endtime, hh:mm:ss)Label6.Caption = Format(pastime, hh:mm:ss)Command1.Enabled = TrueCommand2.Enabled = False

19、End Sub243文本框 TextBox是一个文本编辑区域，在该区域输入，编辑和显示文本。1基本属性 Name、Height、Width、Top、Left、Enabled、Visible、Font，ForeColor、BackColor等与标签控件相同。2常用属性（1）Text文本属性在文本框中显示的正文内容存放在Text属性中。当程序运行时，用户通过键盘输入正文内容，保存在Text属性中。文本框没有Caption属性（2）Maxlength： 设置正文的最多字符个数, 0任意长度值。（3） MultiLine： 是否为多行,默认一行. （4）ScrollBars： 当MultiLine为T

20、rue时,该属性才有效,滚动条的形式。 0-None：无滚动条；1-Horizontal：水平滚动条；2-Vertical垂直滚动条；3-Both水平和垂直滚动条。（5）Locked：是否可被编辑属性，False，表示为可编辑。（6）PassWordChar属性设置PasswordChar属性为了掩盖文本框中输入的字符。该属性的设置只有在MultiLine设为 False才有效（7）SelStart、SelLength和SelText属性这三个属性是文本框中对文本的编辑属性。SelStart：确定在文本框选中文本的起始位置。第一字符 的位置为0。若没有选择文本，则用于返回或设置文本的插入点位置

21、，如果SelStart的值大于文本的长度，则SelStart取当前文本的长度：SelLength：设置或返回文本框中选定的文本字符串长度（字符个数）。SelText：设置或返回当前选定文本中的文本字符串。Change事件：当改变文本框的Text属性时会引发该事件。当用输入一个字符，就会触发一次Change事件。例：在文本框Text1的Change事件编写有如下程序代码：Private Sub Text1_Change()Print Text1.textEnd Sub当程序运行后中输入ABCD，则在窗体上在输出结果是？KeyPress事件当用户按下并释放键盘上一个ASCII键时，就会触发一次该事

22、件，并返回一个KeyAscii参数（字符的Ascii值）到该事件过程中。例如：Private Sub Text1_KeyPress(KeyAscii As Integer)Print KeyAscii, Chr(KeyAscii)End Sub当程序运行后中输入ABCD，则在窗体上在输出结果是？ LostFocus ： 当控件失去焦点时发生。GotFocus ： 当控件获得焦点时发生。例2-4 文本框的使用。Private Sub Form_Click()Text1.SelStart = 0Text1.SelLength = 8Text2.Text = Text1.SelTextEnd Sub

23、3常用方法和事件文本框最有用的方法是：SetFocus，使用形式：对象.SetFocus功能： 是把光标移到指定的文本框对象中。常用事件有：change、Keypress、Gotfocus、Lostfocus等。例2-5 英文字母大写。Private Sub Text1_Change()Text1.SelStart = Len(Text)Text1.Text = UCase(Text1.Text)End Sub例2-6 输入三家商店产品信息。Private Sub Command1_Click()Dim A1, b1, c1, a2, b2, c2, x As SingleA1 = Val(T

24、ext1.Text)b1 = Val(Text2.Text)c1 = Val(Text3.Text)a2 = Val(Text4.Text)b2 = Val(Text5.Text)c2 = Val(Text6.Text)x = A1 * a2 + b1 * b2 + c1 * c2Label7.Caption = xEnd SubPrivate Sub Command2_Click()Text1.Text = Text2.Text = Text3.Text = Text4.Text = Text5.Text = Text6.Text = Text1.SetFocusEnd SubPrivate

25、 Sub Command3_Click()Unload MeEnd Sub例2-7 实现文字输入的提示和检查功能。Private Sub Command2_Click()EndEnd SubPrivate Sub Text1_GotFocus()MsgBox (你输入的学号应该是3位！)End SubPrivate Sub Text1_LostFocus()If Len(Text1.Text) 3 And Text1.Text ThenMsgBox (你输入的学号不是3位，请重新输入！)End IfEnd Sub25 焦点251 设置焦点通过Tab和Alt+Tab可以实现焦点的改变，对于程序代

26、码，可以通过setfocus方法设置控件的焦点。当对象获得焦点时，会触发gotfocus事件，当对象失去焦点时，会触发lostfocus事件。只能当对象的Enabled属性为true时，才能获得焦点。252 Tab顺序Tab顺序是程序运行时按Tab键焦点在控件移动的顺序。在设计界面时，可以设置控件的tabindex值来确定之。2.6 Visual Basic应用程序结构一个VB应用程序中各主要文件的结构关系如下图：习题二一、选择题1当将窗体的_属性设置为False时，将不显示窗体的控制菜单、最大化/最小化及关闭按钮。A）MaxButton B) MinButton C)ControlBox D

27、) WindowsState2如果在运行时不允许移动窗体，可以将窗体的_属性设计为False。A）BorderStyle B) ControlBox C)Moveable D) WindowsState3如果要使窗体的最大化按钮变成灰色（不起作用），应该设置窗体的_属性。A）Caption B) Icon C) Maxbutton D) MinButton4要在窗体上显示图片，需要设计窗体的_属性。A）Caption B) Icon C）Picture D) ControlBox5如果希望运行时窗体以最大化方式显示，应该设置窗体的_属性。A）BorderStyle B）ControlBox C

28、）C)Moveable D）WindowsState6当将窗体的_属性设置为False时，运行时窗体上的按钮、文本框等控件就不会对用户的操作做出响应。A）Enabled B) Visible C) ControlBox D) WindowsState7运行时，单出窗体将窗体的前景颜色设置为红色的事件过程是_。A）Private Sub Form_Click()Backcolor=vbRedEnd SubB) Private Sub Form_Click()Form1.forecolor=vbRedEnd SubC) Private Sub Form_Click()Form1.Backcolor

29、=vbRedEnd SubD) Private Sub Form_Load()Forecolor=vbRedEnd Sub8假设某一事件的过程如下，则响应该过程的对象名是_B_，事件名是_C_。Private Sub Mylbl_DblClick()Form1.Caption=”Hello!”End SubA) Mylbl_Dbl、DblClick B) Mylbl C) DblClick D) Mylbl_Click9在设计阶段，双击窗体Form的空白处，打开代码窗口，显示_事件过程模板。A） Form_click B）Form_load C）Load D) Unlosd10在运行时，系统自

30、动启动窗体的_事件过程。A）Click B) GotFocus C) Load D) Unlosd11在属性窗口设置命令按钮的DownPicture属性，指定按下时显示的图形文件，但在运行时按下命令按钮又没有效果，解决的方法是_。A） 命令按钮的Default属性设计为True B) 命令按钮的Style属性设计为2-PictureC) 命令按钮的Style属性设计为0-Standard D) 命令按钮的Style属性设计为1-Graphical12如果在设计时在属性窗口将命令按钮的_属性设置为False，则运行时按钮将在窗体上消失。A) Visible B) Enabled C) Disab

31、ledPicture D) Default 13如果在设计时在属性窗口将命令按钮的_属性设置为False，则运行时按钮将不起作用。A) Visible B) Enabled C) DisabledPicture D) Default 14下列操作不能触发一个命令按钮的Click事件的是_。A）在按钮上单出鼠标左键 B）在按钮上单出鼠标右键 C）把焦点移到按钮上，按回车键 D） 使用该按钮的访问键15将文本框的_属性设置为True时，文本框可以输入或显示多行文本，且会自动换行。A）Multiline B）Sccollbars C）Text D）Enabled 16如果将passwordChar属

32、性设置为一个字符“*”号，在文本框输入的字符仍然显示出来，而不显示*号，则原因可能是_。A）文本框的Multiline属性设置为True B）文本框的Locked属性设置为TrueC）文本框的Multiline属性设置为False D）文本框的Locked属性设置为FalseE）以上都不是17在设计阶段，双击某一文本框，打开代码窗口，显示文本框的_事件过程模板。A） click B）DblClick C）Change D) GotFucos18在运行阶段，要在文本框Text1获得焦点时选中文本框的所有内容，对应如下的事件过程是_。A）Private Sub Text1_Gotfocus()Tt

33、ext1.SelStart=0Text1.Sellength=Len(Text1.Ttext)End SubB）Private Sub Text1_Lostfocus()Ttext1.SelStart=0Text1.Sellength=Len(Text1.Ttext)End SubC）Private Sub Text1_Change()Ttext1.SelStart=0Text1.Sellength=Len(Text1.Ttext)End SubD）Private Sub Text1_Settfocus()Ttext1.SelStart=0Text1.Sellength=Len(Text1.Ttext)End Sub19通过文本框的_事件过程可以获得文本框中输入字符的ASCII码值。A） Change B）Gotfocus C）