第02章 VB 简单工程的设计(2014下)

第2章VisualBasic简单工程的设计2.1对象与类2.2VisualBasic简单工程的设计步骤2.3窗体、命令按钮、标签、文本框2.1对象与类

在VisualBasic应用程序中，对象是可以作为一个单位来处理的代码和数据的集合。VisualBasic中的每个对象都是用类来定义的，用类创建类的实例，也就是对象。例如，在VisualBasic工具箱中的控件代表“类”，当在窗体上画出这些控件之后，它们就变成了具体的对象，即控件。

在VB中把窗体与控件也统称为对象。Name属性类名对象名称每个对象都有自己的名称，用于在代码中引用该对象。对象的名称由对象的Name属性决定，在VisualBasic6.0中文版中，Name属性在属性窗口的属性名为“(名称)”，对象名:确定Name属性是一个只读属性，只能通过属性窗口给对象命名，并且对于每个对象来说是必有的。控件的Name属性必须以字母开头，最长可达40个字符。它可以包括字母、数字和下划线。不能与已有的关键字重名给对象命名：在VB中每个对象都具有属性、事件和方法，称作对象的三要素。属性：对象的数据（或对象的特征）称为属性，改变对象的属性值就可以改变其特征，不同的对象可以具有某些相同的属性。属性设置的方法：在属性窗口中设置：设置程序一运行就具有的属性值。在代码中设置用代码设置属性的格式：对象名.属性名=属性值

Form1.BackColor=vbRed Text1.Text="欢迎使用VisualBasic6.0"2.1.1对象的属性例：若当前窗体对象的名称为“Form1”，窗体的宽度由窗体的属性Width的值确定，高度由属性Height的值确定，标题由属性Caption的值确定，则用如下代码设置窗体的标题、宽和高：

Form1.Caption=“欢迎使用我们的应用程序"

Form1.Width=5000

Form1.Height=4000如果Form1是当前窗体，可以将Form1省略：

Caption="欢迎使用VB6.0"

Width=5000

Height=4000窗体或控件的高度与宽度的度量单位默认为Twip，1CM=567Twip。对同一对象设置多个属性时，可以使用With...EndWith语句简化书写：

With对象名语句组EndWith使用With...EndWith语句设置属性：例：WithForm1

.Width=5000

.Height=4000

.Caption="欢迎使用我的应用程序"

EndWith2.1.2事件

事件：指可以被对象识别的动作。

VisualBasic为每个对象预先定义好了一系列的事件。例如单击鼠标(Click事件)、双击鼠标(DblClick事件)、按下键盘键(KeyPress事件)、窗体加载(Load事件)等。事件的发生由用户触发（如用户在窗体单击了鼠标，就会触发窗体的

Click事件）由系统触发（如窗体加载）由代码间接触发（用代码调用某事件对应的事件过程，则相

当于触发了该事件）事件过程：为每个用到的事件编写的相关代码，事件与事件过程一一对应。对象上发生某个事件执行该事件对应的事件过程事件过程的一般格式：

PrivateSub对象名_事件名([参数表])

代码

EndSub

打开事件过程的方法：在代码窗口中，从对象下拉列表中选择对象，从过程下拉列表中选择某事件过程,在代码区自动形成该事件过程模版。事件过程名一个对象可以响应一个或多个事件，因此可以根据需要为其编写一个或多个事件过程。VisualBasic的每一种对象都有一个预定义的事件集，用户不能为其添加新的事件。方法定义了在对象上可以进行的操作。每一种对象都有其特定的方法。对象方法的使用格式为：2.1.3方法例：有参数的方法：

Form1.Print"青岛科技大学";"郑州路53号"Print"青岛科技大学";"郑州路53号"'省略当前窗体

Print'没有输出内容例：无参数的方法：

Form2.Show[对象名].方法名[参数表]很多书上写做“表达式表”对语句的说明2.2VisualBasic简单工程的设计步骤建立一个简单的VisualBasic工程的步骤：（1）新建一个工程；（2）设计用户界面；（3）设置对象属性（属性窗口中）；（4）编写代码；（5）保存（6）运行、调试并再次保存工程（反复进行

直至程序符合要求）。

新建一个简单工程通常是从新建一个标准EXE工程开始，可以有以下两种方法：（1）启动VisualBasic后，在系统显示的“新建工程”对话框的“新建”选项卡中选择“标准EXE”，然后单击“打开”按钮。（2）在VB集成开发环境中，使用“文件|新建工程”命令，然后在打开的“新建工程”对话框中选择“标准EXE”，再单击“确定”按钮。2.2.1新建工程1．控件的添加1）添加1个独立的控件，有两种方法：单击工具箱中所需的控件按钮，在窗体上拖动鼠标画出控件。双击工具箱中所需的控件按钮，将控件添加在窗体中央位置。2.2.2设计用户界面2）连续画多个同类件，可采用以下步骤：按下Ctrl键，同时单击工具箱中所需的控件按钮，然后松开Ctrl键。在窗体上连续多次拖动鼠标可以画出多个控件。画完所需的控件后，单击工具箱中的指针按钮或其他按钮。2.控件的选择当画完一个控件或用鼠标单击某控件之后，表明选择了该控件。同时选择多个控件的方法：按住Shift键或Ctrl键不放，再用鼠标依次单击各个控件。在窗体的空白区域按住鼠标左键拖曳鼠标，只要鼠标拖曳出的虚线框接触到的控件都会被选择。选定多个控件当前控件

选择了一个或多个控件之后，在属性窗口显示的是这些控件共有的属性，这时在属性窗口可以为多个控件同时设置属性。3．控件的缩放和移动1）控件缩放选择控件→拖曳控件边框上的黑色控制柄。Shift+“方向箭头”。设置控件的Width和Height属性。2）移动控件将鼠标指针移到控件内→拖曳鼠标到合适的位置。使用Ctrl+“方向箭头”。设置控件的Left、Top属性。TopLeftWidthHeight3）控件的Left、Top、Width、Height属性4．控件的复制与删除1）控件的复制选择控件→“编辑|复制”命令→“编辑|粘贴”：弹出对话框：单击“否”：在窗体的左上角复制出一个控件，VB为其另取一个名称。单击“是”

→复制出一个具有相同名称的控件，这样复制出来的控件构成一个控件数组。2）控件的删除选择控件，按Delete键，或右击控件，从快捷菜单中选择“删除”。5．控件的布局先选择要操作的多个控件，然后通过“格式”菜单来完成：控件的排列、对齐、统一尺寸、调整间距等操作。对齐或统一尺寸时以该控件为准

代码也叫程序，用于实现应用程序的功能，代码的编写在代码窗口中进行。编写代码之前首先要确定代码的编写位置。

编写好程序后，需要通过运行程序才能知道是否正确或符合要求，如果不符合要求需要重新修改设计，如果有错误需要找出错误进行纠正。

编好程序后，用各种手段进行查错和排错的过程就是调试2.2.3设置对象属性（属性窗口中）

2.2.4编写代码

一个工程由多种文件组成，如工程文件、窗体文件、标准模块文件等，因此，保存一个工程需要分多步才能完成。（1）单击“文件|保存工程”，对于从未保存过的工程，系统打开“文件另存为”对话框。（2）在“文件另存为”对话框中，注意保存的类型，对于只含有窗体模块的工程，首先提示保存窗体文件（.frm）。然后提示保存工程文件（.vbp）。

2.2.5保存工程2.2.6运行与调试工程运行工程：选择“运行|启动”命令单击工具栏中的启动按钮按F5键如果运行有错或者不能达到预期的目的，则需要结束运行，修改代码或界面，然后再次保存后运行，反复进行直至程序符合要求。

VB提供了多种手段来帮助编程人员查找代码中的错误。

可以直接关闭编程主窗口，也可以选择“文件|移除工程”命令关闭当前工程，继续设计其他工程。2.2.7工程的关闭与打开1.关闭当前工程方法一：使用“文件|打开工程”命令方法二：如果要在Windows中的“我的电脑”或“资源管理器”中打开工程，应双击工程文件（扩展名为.vbp）2.打开工程2.3窗体、命令按钮、标签、文本框2.3.1窗体

窗体（Form）是用来设计应用程序的窗口,是控件的容器。一个窗体对应一个窗体模块,一个窗体模块存储为一个窗体文件（*.frm）。1．窗体的结构控制菜单标题栏最大化/还原最小化关闭边框标题当建立新的工程时，系统会自动创建一个窗体Form1在打开的VB中执行“工程|添加窗体”命令2．窗体的添加在工程资源管理器窗口中选择要移除的窗体→

执行“工程|移除XXX”命令。在工程资源管理器窗口中右击窗体名→选择快捷菜单中“移除XXX”命令。

3.窗体的移除如移除Form1改变启动窗体：通常，工程中的第一个窗体是工程的默认启动对象。要改变工程的启动对象：执行“工程1|工程1属性”命令打开“工程属性”对话框→从“启动对象”下拉列表中选择一个启动对象。怎样启动工程组中的某个工程？

窗体的大部分属性既可以通过属性窗口设置，也可以在代码中设置，少量属性只能在属性窗口设置，或只能在代码中设置。（1）Name属性：窗体的名称，引用窗体时使用。只能在属性窗口中设置，在代码中只能引用。（2）Caption属性：决定窗体标题栏显示的内容。（3）Font属性：决定要在窗体中输出字符的字体、大小等特性。（4）ForeColor属性：决定窗体的前景色。（5）BackColor属性：决定窗体的背景色。4．窗体的属性（6）Picture属性：决定要在窗体上显示的背景图片。（7）Icon属性：决定窗体运行时最小化图标，也是窗体左上角的控制菜单图标。（8）WindowState属性：决定窗体运行初始时是正常、最小化还是最大化。（9）CurrentX属性、CurrentY属性：返回或设置下一次输出数据或绘图的水平（CurrentX）或垂直（CurrentY）坐标。即用来定位输出的位置。只能在代码中使用。

（10）Width、Height、Left、Top属性（1）Load（装载）事件：当运行程序时，窗体被装入工作区，此时触发该事件。（2）Click（单击）事件：单击窗体中不含任何其他控件的空白区域，产生该事件。（3）DblClick（双击）事件：双击窗体中不含任何其他控件的空白区域，产生该事件。（4）Activate（活动）事件：当窗体变为活动窗口时触发。（5）Deactivate（非活动）事件：当窗体变为非活动窗口时触发。5．窗体的事件（1）窗体上常用的方法有：

Print：在窗体上输出数据

例如，Form1.Print"Hello“Cls

：清除窗体上的字符或绘图 例如，Form1.ClsShow

、Hide：显示、隐藏窗体 例如，Form2.Show Form1.Hide（2）用于窗体的两个语句：

Load语句，用于启动窗体Unload语句，用于卸载窗体 例如，UnloadForm1

对当前窗体可写成，UnloadMe注意：UnLoad的使用与一般的方法使用格式不同。6．窗体的方法或语句【例2-1】新建一个“标准EXE”工程，窗体的名称改为Myform1，窗体的Click事件过程代码如下

：PrivateSubForm_Click()

MyForm1.BackColor=vbYellowMyForm1.ForeColor=vbRedMyForm1.FontName="楷体_GB2312"MyForm1.FontSize=30MyForm1.FontBold=TrueMyForm1.CurrentX=800MyForm1.CurrentY=500MyForm1.Print"北京欢迎您"MyForm1.Caption="2008"EndSubMyForm1.Caption="2008"MyForm1.BackColor=vbYellowMyForm1.ForeColor=vbRedMyForm1.FontName="楷体_GB2312"MyForm1.FontSize=30MyForm1.FontBold=TrueMyForm1.Print"北京欢迎您"MyForm1.CurrentY=500MyForm1.CurrentX=800运行效果：窗体的DblClick事件过程如下：

PrivateSubForm_DblClick()Myform1.ClsEndSub2.3.2命令按钮（CommandButton）命令按钮在工具箱中的位置：CommandButton1．命令按钮的属性（0）名称属性（Name）：默认Command1、Command2、…。按钮的名称可以在属性窗口修改。是只读属性。（1）Caption属性：决定命令按钮的标题，即命令按钮上显示的文本。在某字符前加一个“&”符号，该字符就会带有一个下划线，称为访问键。运行时，同时按下Alt键和带下划线的字符相当于单击该按钮。打开(&O)（2）Font属性：用于在属性窗口设置命令按钮上显示的文字的字体、字形、大小和效果等。（3）Style属性：默认值为0，外观与Windows风格相同；当值为1时允许自定义按钮图片或颜色。（4）Picture属性：当Style属性值为1时，该属性用于指

定命令按钮上显示的图形。（5）Enabled属性：决定命令按钮是否能够对用户触发

的事件作出响应。（6）Visible属性：决定命令按钮是否可见。（7）Default属性：用于确定哪一个命令按钮是窗体的缺省按钮。所谓缺省按钮即在运行时无论该按钮是否得到焦点，按下键盘上的回车键等同于单击了该按钮。通常用于具有“确认”功能的按钮。（8）Cancel属性：用于确定哪一个命令按钮是窗

体的缺省取消按钮。所谓缺省取消按钮即无论该按钮是否得到焦点，按下键盘的“ESC”键等同于单击该命按钮，通常用于具有“取消”功能的按钮。（9）Value属性：该属性只能在运行期使用，在代码中设置命令按钮的Value属性值为True激活该按钮的Click事件。 如：Command1.Value=True（1）Click：在命令按钮上单击鼠标。（2）MouseDown：在命令按钮上按下鼠标。（3）MouseUp：在命令按钮上释放鼠标。（4）MouseMove：在命令按钮上移动鼠标。2．命令按钮的事件（1）焦点的概念（2）SetFocus方法：将焦点定位在指定的命令按钮上。SetFocus方法格式如下：对象名.SetFocus如：PrivateSubCommand1_Click()Text1.SetFocusEndSub

又如：PrivateSubForm_Load()

ShowCommand1.SetFocusEndSub3．命令按钮的方法另一个需要加Show的情况：PrivateSubForm_Load()

Show

Print"青岛科技大学"EndSub【例2-2】新建一个工程，在窗体上添加一个图像框(Image)、两个命令按钮。(见教程P27）各对象的属性设置：见P27表2-1，注意三个控件的名称。显示(&S)隐藏(&H)要求：①程序运行初始效果②单击“隐藏”按钮（或按Alt+H组合键）隐藏图像③单击“显示”按钮（或按Alt+S组合键）重新显示图像“隐藏”按钮cmdHide的Click事件过程：PrivateSubcmdHide_Click()Image1.Visible=False'隐藏图像

cmdHide.Enabled=False'使"隐藏"按钮无效

cmdShow.Enabled=True'使"显示"按钮有效

MyForm2.Caption="单击显示按钮显示图像"EndSub“显示”按钮cmdShow的Click事件过程：PrivateSubcmdShow_Click()Image1.Visible=True'显示图像

cmdHide.Enabled=True'使"隐藏"按钮有效

cmdShow.Enabled=False'使"显示"按钮无效

MyForm2.Caption="单击隐藏按钮隐藏图像"EndSub思考：怎样实现只隐藏图片而不隐藏图像框？2.3.3标签（Label）Label功能：一般用于显示文本或对其它控件起说明作用（0）名称属性（Name）：默认Label1、Label2、…（1）Caption属性：决定标签的标题，即标签上显示的文本。（2）Alignment属性：决定标签标题的对齐方式。0：左对齐；1：右对齐；2：居中对齐。（3）AutoSize属性：决定标签的大小能否随其标题的长度自动调节。True：自动调整；False：尺寸不变。（4）BorderStyle属性：决定标签的边框样式。0：无边框；1：有边框。（5）BackStyle属性：标签的背景样式，0为标签透明，1为不透明，默认为1。（6）WordWrap属性：当WordWrap为True，并且AutoSize属性也为True时，标签中可以显示多行文本。默认值为False。1．标签的属性标签控件可以支持Click、DblClick等事件，但通常不在标签的事件过程中编写代码。2．标签的事件Move方法：3．标签的方法对象名.MoveLeft,Top,Width,Height功能：改变标签在窗体上的位置和大小。Left：移动后标签左边的水平坐标。不可省略Top：移动后标签顶边的垂直坐标。可省略。Width：标签新的宽度。可省略。Height：标签新的高度。可省略。注意：如果某一项存在，那么它前面所有项都必须有。并且Left项任何情况下是不能省略的。默认情况下，Top、Left、Width、Height均以Twip（缇）为单位。1CM=567Twip【例2-3】让一串欢迎词从窗体左上角向右下角侧逐渐移动。Label1的属性设置：

Autosize：TrueCaption：欢迎Timer1的属性设置：

Interval：100（表示100毫秒）

Enabled:True（默认）设计界面：Label1Timer1Timer手动代码：PrivateSubForm_Load()

Label1.Left=0Label1.Top=0EndSubPrivateSubCommand1_Click()

Label1.MoveLabel1.Left+100,Label1.Top+100EndSub在窗体的Load事件过程中编写代码，使运行时标签初始位置在窗体的左上角：

PrivateSubForm_Load()Label1.Left=0Label1.Top=0EndSub在定时器的Timer事件过程中编写代码，实现将标签向右、向下各移动100缇：

PrivateSubTimer1_Timer()Label1.MoveLabel1.Left+100,Label1.Top+100EndSub自动代码：2.3.4文本框文本框用于输入文本或显示文本（0）名称属性（Name）：默认为Text1、Text2、…（1）Text属性：用于设置或返回文本框中显示的内容。（2）MultiLine属性：决定文本框是否能够接受和显示多行文本。True：可以输入或显示多行文本，且

自动换行。False：忽略回车符并将数据限制在一行内。

该属性为只读属性，在运行时不能改变即不能在代码中使用。1．文本框的属性

在设计阶段，要在属性窗口的Text属性中输入文本时按下“Ctrl+Enter”组合键可以强制换行。在运行阶段输入多行文本：(1)首先文本框的MultiLine属性

必须为True。(2)

在文本框中按下回车键可以把光标移动到

下一行。（如果窗体上有缺省按钮，则必须按下Ctrl+Enter）。如何输出多行文本：将文本框的MultiLine属性设置为True，则在文本多于

一行时会自动换行强制换行：设MultiLine为True，然后在所输出文本需要换行的地方加

Chr(13)＋Chr(10)

如：Text1.Text="青岛科技大学"+Chr（13）＋Chr（10）＋"郑州路53号"如何在属性窗口中输入多行文本：（3）ScrollBars属性：决定文本框是否带滚动条。有以下4种选择：

0–None：没有滚动条。

1–Horizontal：只有水平滚动条。

2–Vertical：只有垂直滚动条。

3–Both：同时具有水平和垂直滚动条。注意，只有当MultiLine属性值为True时，用ScrollBars属性设置的滚动条才能显示出来。ScrollBars属性在运行时是只读的，即不能用代码设置该属性的值。（4）PasswordChar属性：指定一个代字符，当在该属性中指定一个字符时，文本框中的内容将全部显示为该字符，常用该属性将文本框设置为一个口令输入框。（5）MaxLength属性：指定输入到文本框的最大字符数，常用于控制口令的最大长度。该属性的默认值为0，表示不限制最大字符数。（6）Locked属性：决定运行时文本框内容是否可以编辑。True：表示不可以编辑文本。False：表示可以编辑。（7）SelLength、SelStart、SelText属性：当用户使用文本框输入数据时，可以使用代码实现文本内容的自动选择，以便用户录入数据或修改数据。选择文本需要指定选择的起始位置和长度。

SelStart属性：返回或设置当前选择文本的起始位置。

0：表示选择文本的起始位置从第一个字符开始。

SelLength属性：返回或设置选择的字符数。要选择所有文本，可使用Len函数获取文本的总字符数。例如，要选择Text1中所有字符。使用语句：

Text1.SelLength=Len(Text1.Text)

SelText：返回或设置当前所选择的字符串。*（8）TabIndex属性：决定文本框的Tab键序。所谓Tab键序是指运行时按Tab键或Shift+Tab键时，焦点从一个控件移到另一个控件的次序。许多控件都有TabIndex属性，在窗体上画控件时VB会自动依次为控件分配一个TabIndex值。*（9）TabStop属性：用于决定运行时按TAB键或SHIFT+TAB键时，是否跳过该控件。

False：即使该控件能接受焦点，焦点也不会移动到该控件上；Tr