第2章-VB的界面设计课件

第2章

VB的界面设计

*CSE.CSLG.CN2窗体和控件是创建一个VB应用程序界面的基本构造模块：窗体是一种对象，它是放置其他所有控件的容器，其本身有着自己的属性、方法和事件。控件是放置在窗体中的对象，不同类型的控件有着不同的属性、方法和事件，以适用于不同的目的。

一个VB应用程序至少有一个窗体

*CSE.CSLG.CN32.1窗体标题图标控制菜单框最小化按钮最小化按钮边框样式工作区窗体对象是创建VB应用程序的基础。是用户与应用程序进行交互操作的实际窗口。

*CSE.CSLG.CN42.1.1窗体的属性常用属性1．Name（属性窗口中为“（名称）”）

创建的对象名称,有默认的名。在程序中，控件名是作为对象的标识而引用，不会显示在窗体上。2．Caption：窗体标题

窗体标题是出现在窗体标题栏的文本内容。缺省名使用窗体名。

窗体对象命名规则：窗体名称以字母开头，可包含数字和下划线，但不能含空格和标点符号，长度不得超过40个字符。

*CSE.CSLG.CN53．BackColor与ForeColor

窗体的背景色与前景色。用鼠标单击该属性右侧带有“…”省略号的按钮，可从弹出的调色板上选定颜色。

4．BorderStyle：窗体边框风格

BorderStyle属性决定了窗体的主要特征，即窗体外观。该属性只能通过属性窗口设置。

属性值VB内部常量值风格0vbBSNone窗口无边框1vbFixedSingle窗口有单线边框，运行时窗口大小不可改变2vbSizable（缺省值）窗口有双线边框，运行时可改变窗口大小3vbFixedDouble窗口有双线边框，运行时窗口不包含最大与最小化按钮，窗口大小不可改变4vbFixedToolWindow窗口包含一个关闭按钮，标题栏字体缩小，运行时不可改变窗口大小5vbSizableToolWindow窗口包含一个关闭按钮，标题栏字体缩小，运行时可改变窗口大小*CSE.CSLG.CN65．Enabled：活动属性Enabled属性允许在程序运行时使对象成为有效或无效。取值有两种：True（有效，这是缺省值）和False（无效）。

6．Visible：可视属性

Visible属性决定对象是否可见。True（可见，这是缺省值）和False（不可见）。

7．Font：字体属性

Font属性用于设置或改变窗体上正文的字体、字型、字号等。

*CSE.CSLG.CN78．Left、Top、Height和Width属性：决定窗体位置和大小

单位均为Twip（缇）。Twip是长度单位，1440Twip=1英寸。9．Icon：图标属性

定义运行时窗体处于最小化时显示的图标。所加载的文件必须具有.ico扩展名和格式。

大部分属性既可以通过属性窗口设置，也可以在运行时由代码来设置；但有些属性只能在属性窗口设置或者只能通过程序代码设置。

*CSE.CSLG.CN82.1.2窗体的方法窗体的方法也就是窗体所具有的行动方式。窗体上常用的方法有：方法功能Hide隐藏窗体（不是卸载）Move移动窗体Print在窗体中输出文本PrintForm打印窗体Refresh重新绘制窗体Show显示窗体Cls清除窗体中的图形或文本*CSE.CSLG.CN92.1.3窗体的事件窗体可以响应的常用事件：

1．Activate/Deactivate事件

每当一个窗体被激活时，就会产生一个Activate事件；当另一个窗体或应用程序被激活时，原先处于活动的窗体就会产生Deactivate事件。

2．Load/Unload事件

窗体被装载时发生Load事件；当使用控制菜单中的“关闭”命令或用Unload语句关闭该窗体时，发生从屏幕上卸载窗体的Unload事件。

*CSE.CSLG.CN103．Click/DblClick事件单击窗体的空白区域或无效控件时发生Click事件；双击窗体的空白区域或无效控件时发生DblClick事件。4．Resize事件

当窗体第一次显示或窗口状态发生改变。

*CSE.CSLG.CN112.1.4与窗体相关的操作语句1．Load装载窗体语句

功能：把窗体（或其他对象）载入内存，但并不显示它；语句格式：LoadObject(Object是对象名)注意：该方法将引发窗体的Load事件。2．Unload卸载窗体语句

功能：把窗体（或其他对象）从内存卸载；语句格式：UnloadObject(Object是对象名)注意：该方法将引发窗体的UnLoad事件。*CSE.CSLG.CN123．End语句

功能：终止应用程序的执行，并从内存卸载所有窗体；

语句格式：End

注意：Unload语句与End语句的区别。Unload语句是卸载当前窗体，并引发对象的Unload事件；End语句将终止应用程序的执行，并从内存卸载所有窗体。

*CSE.CSLG.CN13【例2.1】窗体显示与隐藏的示例程序

在窗体1的“代码编辑器”窗口中输入以下程序代码：PrivateSubForm_Click() Form2.Show '显示窗体2 Form1.Hide '隐藏窗体1EndSubPrivateSubForm_Load() Label1.FontName=“幼圆”'将标签对象字体设为幼圆 Label1.FontBold=True '将文字置为粗体EndSub在窗体2的“代码编辑器”窗口中输入以下程序代码：PrivateSubForm_Click() Form2.Hide '隐藏窗体2

Form1.Show ‘显示窗体1EndSubPrivateSubForm_Load() Caption=“窗体示例”'改变窗体2的标题 Label1.FontItalic=True '将标签文字设置为斜体EndSub*CSE.CSLG.CN14【例2.2】Unload与End使用示例

PrivateSubCmdClose_Click（）UnloadMe 'Me是系统保留字，代表当前窗体EndSubPrivateSubForm_Unload（）

'

在此输入程序结束前，需要执行的代码

EndEndSub*CSE.CSLG.CN154．Print方法

功能：可以将文本输出到窗体、图片框或打印机上；语句格式：[对象名.]Print[输出列表]

注意：（1）对象名可以是窗体（Form）、图片框（PictureBox）或打印机（Printer）的名称。省略对象名时，将输出内容输出到当前窗体上。 例如：Print“VB程序设计”'在当前窗体上输出

Picture1.Print“VB程序设计”'在图片框上输出（2）如果省略输出列表，则输出一个空行。例如：PrivateSubForm_Click()Print"VB"Print '输出空行

换行作用Print"程序设计"

EndSub*CSE.CSLG.CN16（3）输出列表的各项之间可以用逗号“，”或分号“；”分隔。当采用逗号作分隔符时，每个输出项宽度为14个字符；当采用分号作分隔符时，每个输出项以紧凑格式输出，即数值输出项的尾部自动加一个符号位（正数为空格）。

例如：PrivateSubForm_Click() a=3:b=4 Printa,b,a+b Printa,,b Print"a=";a,"b=";b'字符串输出用于说明 EndSub（4）若语句行末尾没有分隔符，则输出当前输出项后自动换行。若以分号或逗号结束，则输出当前输出项后不换行，下一个Print语句输出的内容将输出在同一行上。

*CSE.CSLG.CN172.2VB常用控件控件是包括在窗体对象内的对象；每种类型的控件都有自己的一套属性、方法和事件；在VB应用程序的设计阶段，主要任务是建立用户界面；

*CSE.CSLG.CN182.2.1控件的基本操作建立控件方法1：在工具箱中的控件图标上单击，然后在窗体上用鼠标拖放出所需控件的大小。

方法2：在工具箱中的控件图标上双击，在窗体中央就自动出现一个缺省大小的控件，然后根据需要移动控件或更改控件的大小。

*CSE.CSLG.CN19选中控件单击窗体上放置的控件，即选中该控件。如果需要同时选中多个控件，可按住Ctrl或Shift键再单击需选中的多个控件；在窗体上用鼠标拖曳出一个矩形框，则此矩形框所包围的控件全部被选中。

选中多个控件之后，在属性窗口中只显示这些控件共同具有的属性。如果修改属性值，那些被同时选中的所有控件的属性值都会发生相应的改变。

*CSE.CSLG.CN20改变控件大小

选中控件后，将出现8个小方块。将鼠标指针移至控件四周的某个小方块，拖放鼠标即可改变控件大小。在控件的属性窗口中修改Width和Height的属性值。

通过VB工具栏的“格式”中的命令项协调控件的位置。

*CSE.CSLG.CN21删除、移动控件

删除窗体中的控件：先选中要删除的控件，然后按Delete键。移动窗体中的控件：先选中控件，然后将鼠标指针移至控件上，按住左键拖动鼠标即可改变控件位置；如果要精确设置控件位置，可在控件的属性窗口中修改Top和Left的属性值。

*CSE.CSLG.CN22复制控件

选中控件;执行“编辑”菜单中的“复制”命令或者单击工具栏上的“复制”按钮；

执行“编辑”菜单中的“粘贴”命令或者单击工具栏上的“粘贴”按钮。

*CSE.CSLG.CN232.2.2控件的焦点和Tab键序焦点

焦点就是接收用户鼠标或键盘的能力。

一个对象具有焦点时，产生GotFocus事件；对象失去焦点时，产生LostFocus事件。注意：（1）当一个对象的Enabled和Visible属性均为True时，才能接收焦点。设置一个对象焦点时，可以在程序代码中使用SetFocus方法。（2）框架(Frame)、标签(Label)、菜单(Menu)、直线(Line)、形状(Shape)、图像框(Image)和计时器(Timer)等都不能接收焦点。（3）窗体只有先用Show方法显示后，然后才能使用SetFocus方法对该窗体或窗体上的控件设置焦点。*CSE.CSLG.CN24Tab顺序

系统自动按顺序为窗体中的每个控件指定一个Tab键序。Tab键序反映在控件的TabIndex属性中，其属性值为0，1，2，…。

*CSE.CSLG.CN252.2.3控件的公共属性1.

Name——控件对象的名称

2.

Caption——控件的标题

3.

Enabled——决定控件是否对用户产生的事件做出响应

4.

Visible

——决定控件是否可见，默认值为True5.

Height，width，Top和Left——Height和width属性确定控件的高度和宽度。Top表示控件到窗体顶部的距离，Left表示控件到窗体左边框的距离。

Name值不能在应用程序中修改

*CSE.CSLG.CN266.

BackColor和ForeColor——设置控件的背景色和前景色。7.FontName，FontSize，FontBold，FontItalic，FontStrikethru和FontUnderline——件中显示文本所用的字体、字号、是否粗体、是否斜体、是否加删除线和是否带下划线8.

Font

——控件中显示的文本所用字体的样式、大小、字体效果等*CSE.CSLG.CN27常用控件文本框控件(TextBox)标签(Label)命令按钮（CommandButton）

单选按钮（OptionButton)和复选按(CheckButton）

框架（Frame）

列表框(ListBox)组合框(ComboBox)图片框(PictureBox)和图像框(Image)定时器（Timer）

*CSE.CSLG.CN282.2.4文本框控件(TextBox)

文本框（TextBox）是一个文本编辑区域，用户可以在该区域中输入、编辑和显示文本内容。

常用属性

1.Text

——返回／设置控件中包含的文本2.MultiLine

——返回或设置一个值，指示文本框控件是否能够接受和显示多行文本。3.

Alignment

——设置或返回一个值，决定文本在控件中的对齐方式，缺省值为0，文本左对齐；若为1，文本右对齐；若为2，文本居中。4.

MaxLength

——返回或设置一个值，它指出在文本框控件中文本的最大长度。5.

PasswordCha

——确定在文本框中是否显示用户输入的字符*CSE.CSLG.CN29事件（1）Change事件：当文本框的Text属性发生变化，即文本的内容发生变化时，就引发本事件。（2）LostFocus事件：当鼠标指针（插入点）离开文本框时，引发本事件。（3）Gotfacus事件：文本框获得焦点时，引发本事件。（4）Keypress事件：在文本框中输入一个ASCII码字符时，引发本事件。*CSE.CSLG.CN30方法

（1）Refresh方法：刷新文本框。（2）Setfocus方法：设置焦点。通过本方法可使指定的文本框获得焦点，也即成为当前文本框。获得焦点的文本框中具有闪动的光标。*CSE.CSLG.CN312.2.5标签(Label)

标签(Label)主要用来显示比较固定的提示性信息。

常用属性

1.Alignment

——设置标签中文本的对齐方式，共有3个可选项：0（左对齐，默认值），l（右对齐）和2（居中）。2.AutoSize

——确定标签的大小是否根据标签的内容自动调整大小,默认值为False。3.

BorderStyle

——设置标签的边框，可以取两种值，0表示无边框（默认值），l表示有边框。

4.

BackStyle

——设置标签的背景模式，共有两个选项，1表示标签将覆盖背景（默认值），0表示标签是“透明”的。*CSE.CSLG.CN32事件（1）Click（单击）（2）DblClick（双击）

方法（1）Refresh方法：刷新标签框。（2）Move方法：移动标签。*CSE.CSLG.CN332.2.6命令按钮（CommandButton）

命令按钮（CommandButton）用于接收用户的操作信息，并引发应用程序的某个操作。

常用属性

1.Default

——用于设置“默认按钮”。2.Cancel

——用于设置“取消按钮”。3.

Style

——设置命令按钮的外观

。

*CSE.CSLG.CN34事件

命令按钮最常用的事件是Click（单击）事件，但不支持DblClick（双击）事件。方法命令按钮常用的方法是SetFocus方法。*CSE.CSLG.CN35【例2.3】设计程序，实现两个文本框内容的交换

编写程序代码:PrivateSubCommand1_Click（）

'“交换”按钮

t=text1．TextText1．Text=Text2．TextText2．Text=tEndSub*CSE.CSLG.CN36【例2.4】在窗体上建立两个文本框和两个命令按钮

编写程序代码：PrivateSubText1_Change()'文本框1内容改变时，时间发生 Text2．Text=Text1．TextEndSubPrivateSubCommand1_Click()'“重新输入”按钮 Text1．Text="" Text1．SetFocusEndSubPrivateSubCommand2_Click() '“退出程序”按钮 EndEndSub*CSE.CSLG.CN372.2.7单选按钮(OptionButton)和复选按钮(CheckButton)

命令按钮（CommandButton）用于接收用户的操作信息，并引发应用程序的某个操作。

常用属性

1.Value

——用来表示单选按钮或复选按钮的状态

在单选按钮中：·Value=0（False）表示没被选择 ·Value=1（True）表示被选择在复选框中：·Value=0表示没有选择该复选框 ·Value=1表示选中该框

·Value=2表示该复选框被禁用（灰色）*CSE.CSLG.CN382.Alignment

——用来设置指定复选框或单选按 钮的显示方式·Alignment=0（默认）控件居左，标题在控件右侧显示。

·Alignment=1控件居右，标题在控件左侧显示。3.Style——用来设置指定复选框或单选按钮的 显示方式

·Style=0（默认）标准方式，即同时显示控件和标题。

·Style=1图形方式，控件用图形的样式显示。事件单选按钮和复选按钮均可响应单击（Click）事件。

*CSE.CSLG.CN39【例2.5】单选按钮和复选按钮应用示例事件过程如下：PrivateSubChkCxT_Click() PrivateSubChkXHX_Click()‘“粗斜体”复选按钮 '“下划线”复选按钮IfChkCXT.Value=1Then IfChkXHX.Value=1ThenTxt1.FontBold=True Txt1.FontUnderline=TrueTxt1.FontItalic=True ElseElse Txt1.FontUnderline=FalseTxt1.FontBold=False EndIf Txt1.FontItalic=False EndSub

EndIfEndSub

PrivateSubOptHT_Click() PrivateSubOptST_Click()‘“黑体”复选按钮 '“宋体”复选按钮Txt1.FontName=“黑体”

Txt1.FontName="宋体"EndSub EndSub*CSE.CSLG.CN402.2.8框架（Frame）

框架控件可从功能上把在其范围之内的相关控件组织在一起。框架的属性、可响应的事件与窗体基本相同，方法有Move、Refresh等。

将控件置于框架中的两种方法（推荐用第一种）(1)先画出框架，再将其它控件放到框架中。(2)若先画控件后画框架，可“剪切”框架外的控件再“粘贴”到框架中。

*CSE.CSLG.CN412.2.9列表框(ListBox)

列表框(ListBox)用于列出可供用户选择的项目，用户可从中选择一个或多个选项。

常用属性

List——该属性是一个字符型数组，用于存放列表框的表项。2.ListCount——返回列表框中表项的数目

3.

ListIndex

——返回已选定表项的索引*CSE.CSLG.CN424.Text

——存放当前选定表项的文本内容5.Selected

——本属性是一个逻辑值，表示列表框中某一表项是否被选中

6.Sorted——设置列表框中各表项在运行时是否按字母顺序排列

7.Columns——确定列表框是水平滚动还是垂直滚动，以及列表中表项的显示方式8.Style

——确定列表框控件的样式*CSE.CSLG.CN43事件

列表框可接收Click，DblClick等事件。

方法

（1）AddItern：把一个列表项加入到列表框中。语法格式为：[对象．]AddItem列表项[，索引]（2）Clear和RemoveItem：用于删除表项。

语法格式如下：[对象．]Clear'删除全部表项[对象．]RemoveItem索引值'删除由索引指定的表项*CSE.CSLG.CN44【例2.6】

事件过程如下：PrivateSubForm_Load() '将表项添加到列表框中

List1.AddItem"北京"

List1.AddItem"上海"

List1.AddItem"天津"

List1.AddItem"重庆"

List1.AddItem"太原市"

List1.AddItem"石家庄"

List1.AddItem"武汉市"EndSub

*CSE.CSLG.CN45PrivateSubList1_Click()List2.AddItemList1.Text'在列表框2中添加选中的表项

List1.RemoveItemList1.ListIndex'删除列表框1中选中的表项EndSub

PrivateSubCommand1_Click()End

EndSub*CSE.CSLG.CN462.2.10组合框(ComboBox)

组合框实际上是列表框和文本框的组合。用户自己能输入列表中不包括的内容。常用属性

style——该属性取值为0，1或2，分别决定了组合框的3种不同类型，即下拉组合框(默认)、简单组合框和下拉列表框。*CSE.CSLG.CN472.Text

——该属性的值是用户所选定的表项或直接从文本框输入的表项。

事件

1.第①种组合框可响应双击（DblClick）事件；

2.

①和③两种组合框可响应单击（Click）事件，同时在编辑表项时可引发Change事件。

方法

用于列表框的方法，也适用于组合框。

*CSE.CSLG.CN482.2.11图片框(PictureBox)和图像框(Image)

图片框(PictureBox)和图像框(Image)都用于显示图形，它们可以显示.bmp（位图），.ico（图标），.wmf（图元），.gif和.jpg等类型的图形文件。常用属性

1.Picture

——用于设置在图片框中要显示的图像文件