vb第四章.docx

vb第四章.docx

《vb第四章.docx》由会员分享，可在线阅读，更多相关《vb第四章.docx（27页珍藏版）》请在冰豆网上搜索。

vb第四章

第四章窗体和控件

[内容提要]窗体、单选框、复选框和框架、计时器、滚动条及应用。

第一节窗体

窗体（Form）是VB中最常用的对象，在VB的程序设计中几乎所有的控件都要加到窗体上，而且大多数应用程序是由窗体开始执行的，所以本节在介绍VB对象时首先从窗体说起，窗体又分单一窗体、多窗体和多重窗体，下面将分别讨论。

但控件的运用，本章的重点还是放在单一窗体上。

一、增加新窗体

如果已经有一个窗体form1,在此基础上还想增加一个新窗体，可用下面的方法：

执行“工程（P）/添加窗体（F）/新建/窗体/打开（O）”其样式见图4-1。

图4-1增加新窗体

从图4-1可以看出，新增加默认的窗体为Form2，程序运行后默认的窗体状态为隐藏。

如果想删除新增加的窗体Form2，可在“资源管理器（P）”窗口中，用鼠标右键单击Form2并在显示的下拉菜单中选择“删除Form1（R）”，其显示及操作过程见图4-2。

如果增加后的窗体Form2有所调整或变动，则在删除的过程中最后还要敲否（N）按钮确定。

图4-2删除新增加的窗体

二、窗体的显示与隐藏

在程序运行中，根据程序的工作流程，有时侯希望窗体显示而有的时候又希望窗体隐藏。

下面介绍一下窗体的显示与隐藏方法。

（一）窗体显示

窗体加载后直接显示可用下述二种方法来实现。

1、被加载的窗体在“工程（P）/工程1属性（E）/通用/启动对象（S）”中被定义成启动的对想（如选择新增加的窗体Form2），这样在我们运行程序时，窗体Form2作为启动的对象首先被显示。

其定义的过程见图4-3。

图4-3窗体作为启动对象显示

2、用Show属性或方法加载窗体

格式：

窗体名.Show[模式]

功能：

显示以窗体名命名窗体。

说明：

（1）窗体名——要显示的窗体名称。

（2）模式——定义窗体显示的工作模式，有二种工作模式

0——称共存模式，其含义是指每个显示的窗体处于平等地位，都可以接受用户输入的信息，这种方式也称为多窗体方式（为默认状态）。

1——称排父模式，其含义是指“子窗体”出现时，“父窗体”不能接受输入的信息，这种方式也称为多重窗体方式。

例[4.1]设有二个窗体（Form1和Form2）,将Form2设置成“共存模式”

PrivateSubForm_click（）

Form2.show0

EndSub

上述程序运行后，单击窗体Form1使窗体Form2显示（再双击窗体Form1可以转到窗体Form1），同时将窗体Form2设置成共存模式，此时窗体Form1和窗体Form2可以交替的转换接受信息。

（提示：

只有启动事先编好的工程文件（如gc1.vbp）才能打多个窗体）。

例[4.2]设有二个窗体（Form1和Form2）,将Form2设置成“排父模式”

PrivateSubForm_click（）

Form2.show1

EndSub

上述程序运行后，单击窗体Form1使窗体Form2显示，同时将窗体Form2设置成排父模式，此时只有窗体Form2能接受信息，而不能转换到窗体Form1上操作。

（二）窗体隐藏

格式：

窗体名.Hide

功能：

隐藏已经显示的窗体名。

说明：

窗体隐藏后，窗体还占内存，重显窗体速度快。

例[4.3]设有二个窗体（Form1和Form2）,单击窗体Form1使窗体Form2显示，单击窗体Form2使窗体Form2隐藏。

程序代码如下：

‘窗体Form1的程序代码‘窗体Form2的程序代码

PrivateSubForm_click（）PrivateSubForm_click（）

Form2.ShowForm2.Hide

EndSubEndSub

三、窗体的加载与卸载

窗体的加载与卸载，就是将要应用的窗体加载到内存或从内存卸载。

（一）窗体加载

窗体加载的目的，就是将要显示的窗体事先加载到内存，将来显示窗体时可直接从内存显示，速度快。

格式：

Load窗体名

（二）窗体卸载

窗体卸载的目的，就是将不再显示的窗体从内存中卸载，并取消显示。

好处是加大了内存的有效空间。

格式：

UnLoad窗体名

四、窗体的有关属性

设计一个窗体，首先要考虑的是窗体属性，窗体属性决定了窗体的外观、位置、颜色及行为等。

窗体属性可以在程序设计阶段设置，也可在程序运行阶段设置。

本节只介绍程序设计阶段通过属性窗口方法来设置。

由于窗口属性繁多，而且有些属性子选项又多，给初学者很容易造成一种无从下手的感觉，为了避免这种现象出现，充分考虑渐进学习的效果，开始只介绍一些窗体中常用的属性。

VB除了窗体要设置属性外，控件也有相关属性，在后续的章节中还会遇到。

（一）Caption属性

作用：

设置窗体标题栏中显示的文本。

说明：

1、窗体开始默认的标题为“Form1”,见图4-4

图4-4窗体开始默认标题

2、通过属性窗口将窗体标题设置为“这是我的第一个窗体”,见图4-5和图4-6。

图4-5属性窗口改动式样图4-6改动后的窗体式样

（二）Picture属性

作用：

设置窗体背景图。

说明：

1、在窗体属性窗口中（见图4-7），找到Picture并单击此行标识...从中加载一个图片文件（见图4-8），来作为窗体的背景。

加载后的图片后的样式见图4-9。

图4-7加载窗体背景

图4-8加载的窗体背景文件

图4-9加载的窗体背景样式

2、删除已加载的图片，先选择窗体，然后再在属性窗口Picture中，选择已插入的图标，最后按下[Del]键。

3、可以加载文件属性的图片有：

.bmp、.gif、.wmf、.jpg、.ico、.cur等。

（三）Icon属性

作用：

设置窗口图标和运行后窗体最小化时显示的图标。

说明：

1、在窗体属性窗口中找到Icon（见图4-10），并单击此行标识...从中加载一个.ico的图片文件，其操作过程基本同Picture属性。

加载图片后的样式见图4-11和图4-12。

图4-10加载窗口图标

2、VB的图标文件通常存储在C：

\ProgramFiles\MicrosoftVisualStudio\Common\Graphics\Icons目录中。

（四）WindowState属性

作用：

设置一个窗体窗口运行时的可见状态。

说明：

在属性窗口中，WindowState属性有三种状态供选择见图4-13。

图4-13WindowState属性

1、WindowState=0：

正常大小状态（默认值）

2、WindowState=1：

运行后使窗体最小化，并变成图标位于窗口的底端

3、WindowState=2：

运行后使窗体最大化

（五）Visible属性

作用：

设置窗体对象是否显示。

说明：

在属性窗口中，Visible属性有二种状态供选择True（显示）或False（隐藏），见图4-14。

图4-14Visible属性设置

（六）Width和Hight属性

作用：

设置窗体对象宽（Width）和高（Hight）。

（七）Left和Top属性

作用：

设置窗体对象位于屏幕左上角的起始坐标位置。

说明：

Left相当X坐标，Top相当Y坐标。

只有启动运行后才能看到设置的效果。

如：

将属性窗口中Left=1005、Top=1005则程序启动后，窗口在屏幕上的位置如图4-15所示。

图4-15窗体坐标的设置

第二节单选框、复选框和框架

一、单选框（OptionButton）

作用：

从多个单选框组成的选项中，只能选择一项。

或者是多组单选框（每组中包含有若干个单选框选项），每组单选框选项中只能选择一项。

如果是多组单选框，则必须建立一个以上的选项按钮组，并分别设在不同的框架（Frame）或图片框（PictureBox）之中。

说明：

1、通过属性窗口的Value属性来设置单选框处于选择状态或非选择状态

Value设置成True选择状态

Value设置成False非选择状态

2、也可通过程序运行阶段来设置如：

Option1.Value=True

Option1.Value=False

例[4-4]在窗体上设置三个单选框，并将第一个单选框初始值设置成选择状态。

第一步：

通过工具箱OptionButton（单选框），在窗体上设置三个单选框。

第二步：

选择单选框Option1，并将单选框Option1的属性Value设置成True。

设置成后的显示样式见图4-16。

图4-16单组单选框的设置

例[4-5]

在窗体上设置二组单选框，分别为性别组单选框和婚否组单选框，性别组含有二个单选框，婚否组也含有二个单选框，分别设置在不同的框架（Frame）中。

第一步：

通过工具箱Frame（框架），在窗体上设置二个框架，分别为Frame1和Frame2。

第二步：

选择Frame1，并在属性窗口中，将Frame1的Caption属性设置成“性别”，选择Frame2，并在属性窗口中,将Frame2的Caption属性设置成“婚否”。

第三步：

在“性别”（Frame1）框中，通过工具箱OptionButton（单选框）设置二个单选框Option1和Option1。

并将二个单选框的Caption属性分别设置成“男”和“女“。

在“婚否”（Frame2）框中，通过工具箱OptionButton（单选框）设置二个单选框Option3和Option4。

并将二个单选框的Caption属性分别设置成“已婚”和“未婚“。

第四步：

将窗体的Caption标题属性设置成“请添置个人的性别与婚否”。

上述操作的结果见图4-17。

图4-17多组单选框的设置

例[4-6]在窗体上设置三个单选框、一个标签和一个文本框，程序运行后，选择第一个单选框，文本框内显示红色；选择第二个单选框，文本框内显示绿色；选择第三个单选框，文本框内显示蓝色。

其显示的形式如图4-18所示。

图4-18单选框的应用

图4-18有关的控件属性和程序代码

1、控件属性

对象与控件

名称

Caption

备注

窗体（Form）

Form1

单选框的应用

文本框（Text）

Text1

无文本内容

标签（Label）

Label1

显示颜色

单选框（OptionButton）

OptColorRed

红色

单选框（OptionButton）

OptColorGreen

绿色

单选框（OptionButton）

OptColorBlue

蓝色

2、程序代码

PrivateSuboptcolorred_click（）

Text1.BackColor=vbRed'单击"红色"单选框，文本框显示红色

EndSub

PrivateSuboptcolorgreen_click（）

Text1.BackColor=vbGreen'单击"绿色"单选框，文本框显示绿色

EndSub

PrivateSuboptcolorblue_click（）

Text1.BackColor=vbBlue'单击"蓝色"单选框，文本框显示蓝色

EndSub

二、复选框（CheckButton）

作用：

单击复选框，复选框内出现对勾符号（条件：

当前复选框为空白），再单击复选框，则复选框对勾消失。

说明：

1、通过属性窗口的Value属性来设置复选框处于对勾状态、清除对勾状态或失效状态。

Value设置成0清除对勾状态

Value设置成1对勾状态

Value设置成2灰色（失效状态）

2、也可通过程序运行阶段来设置如：

Check1.Value=0

Check2.Value=1

Check2.Value=2

例[4-7]通过复选框来决定图片框的图片显示或不显示，复选框打勾为图像显示，复选框不打勾为图像隐藏。

其显示的形式如图4-19所示。

图4-19复选框的应用

图4-19有关的控件属性和程序代码

1、控件属性

对象与控件

名称

Caption

Value

Visible

窗体（Form）

Form1

复选框的应用

图片框（PictureBox）

Picture1

False（不显）

图片框（PictureBox）

Picture2

True（显示）

图片框（PictureBox）

Picture3

True（显示）

单选框（OptionButton）

Check1

显示或隐藏

0（不打勾）

True（显示）

单选框（OptionButton）

Check2

显示或隐藏

1（打勾）

True（显示）

单选框（OptionButton）

Check3

显示或隐藏

2（有勾灰色）

True（显示）

2、程序代码

PrivateSubcheck1_Click（）

Picture1.Visible=NotPicture1.Visible

StaticxAsInteger

Ifx=0Then

Check1.Caption="隐藏"

Else

Check1.Caption="显示"

EndIf

x=x+1

x=xMod2

EndSub

PrivateSubcheck2_Click（）

Picture2.Visible=NotPicture2.Visible

StaticyAsInteger

Ify=0Then

Check2.Caption="隐藏"

Else

Check2.Caption="显示"

EndIf

y=y+1

y=yMod2

EndSub

PrivateSubcheck3_Click（）

Picture3.Visible=NotPicture3.Visible

StaticzAsInteger

Ifz=0Then

Check3.Caption="隐藏"

Else

Check3.Caption="显示"

EndIf

z=z+1

z=zMod2

EndSub

PrivateSubForm_Load（）

Check1.value=0

Check2.value=1

Check3.value=2

EndSub

3、程序运行后其显示的初始样式如图4-20所示：

图4-20程序运行初始样式

从上图可以看出Picture1是不显示的；而Check1显示不打勾；Check2显示并打勾；Check3显示有勾但处于灰色状态（Check3在本例中只是一种示意图，在实际工作中应该设置成无效），此时当我们单击任意一个复选框时，图像在显示与隐藏之间转换。

三、框架（Frame）

作用：

Frame控件为控件提供可标识的分组。

Frame可以在功能上进一步分割一个窗体。

说明：

为了将控件分组，首先需要绘制Frame控件，然后绘制Frame里面的控件。

这样就可以将框架和框架里面的控件同时移动。

如果在Frame外部绘制了一个控件并试图把它移到框架内部，这样就不能将框架和框架里面的控件同时移动，这时需分别移动Frame框架和框架里的控件。

如果想同时移动，就必须将所有的控件同时选择然后再移动。

例如，将OptionButton控件分成二组，实例见前面“图4-17多组单选框的设置”。

第三节列表框和组合框

ListBox（列表框）和ComboBox（组合框）在有限空间为用户提供大量选项的有效方法。

按照默认规定，选项以垂直单列方式显示，也可以设置成多列方式。

如果项目数量超过ComboBox（组合框）或ListBox（列表框）所能显示的数目，ScrollBar（滚动条）自动出现在控件上。

于是用户可以在列表中上下左右滚动。

图4-21为一个列表框ListBox。

ComboBox（组合框）兼顾TextBox（文本框）和ListBox（列表框）两者的功能。

该控件允许用户通过键入文本或选择列表中的项目来进行选择。

图4-22为一个组合框ComboBox。

（提示：

组合框和列表框中的项目可用List属性来输入，一个项目输入完后，按下“Ctrl”+“Enter”接着输入下一个）。

图4-21列表框ListBox

图4-22组合框ComboBox

一、ComboBox（组合框）Stype属性

组合框ComboBox兼顾TextBox（文本框）和ListBox（列表框）两者的功能。

其外观大致有三种形式，用Style属性来定义。

（一）Style=0

程序运行后，只看到文本框看不到列表，见图4-23。

此时可直接在文本框中输入内容，也可通过展开下拉列表选择。

图4-23Style=0

（二）Style=1

程序运行后，看不到文本框右上角下拉按钮，此时可直接在文本框中输入内容，也可通过按键“↓”和“↑”来选择。

如果在设计阶段已经将列表展开，则程序运行后是展开的见图4-24。

图4-24Style=1

（三）Stype=2

不能直接往文本框中输入内容，其它含义同Style=0。

程序运行后，展开下拉列表并在下拉列表中选择“工程师”的状态见图4-25。

图4-25Style=2

二、增加、删除列表中选项

增加格式：

Control.AddItemitem[,index]

删除格式：

Control.RemoveItemindex

说明：

1、Control----列表框或组合框的名称

2、AddItem和RemoveItem分别代表增加和删除

4、item----要增加的选项名称，并用双引号将名称括起来。

5、index----增加或删除选项名称在列表中的顺序号，顺序号从0数起。

如果在增加过程中此项省掉，则被加的内容自动放到最后。

如果将Sorted属性设为True，则添加的项目会自动根据字母的顺序排列，此时与Index选项无关。

例[4-8]在窗体Form1上建立一个列表框List1，List1的属性Style=0（Style=1列表项目左边显示选择框）、Sorted=false，并在代码窗口输入如下建立列表的程序内容：

PrivateSubform_load（）

List1.AddItem"高级工程师"

List1.AddItem"工程师"

List1.AddItem"助工"

List1.AddItem"工人"

EndSub

实验步骤：

第一步：

运行程序其显示的结果见图4-26。

第二步：

在列表中插入新的项目"技术员"

修改代码窗口程序在“List1.AddItem"工人"”的后边加一条语句“List.AddItem"技术员",运行程序后其显示的结果见图4-27。

利用↑↓键可以观察到插入的内容。

第三步：

在列表中删除项目"工程师"

修改代码窗口程序在“List1.AddItem"技术员"”的后边加一条语句“List.RemoveItem1”,运行程序后其显示的结果见图4-28。

图4-26程序在ListBox列图4-27插入操作图4-28删除操作

表框建立内容

三、列表中选项的运用

程序运行中，ListBox和ComboBox可以利用下列属性来运用列表中的项目。

Text：

当前列表框中所选的字符串

List：

包含所有项目的字符串数组

Listindex：

列表框中当前被选择的字符串所在的索引值

ListCount：

列表项目的总数

例[4-9]利用文本框来增加和删除列表中项目见图4-29

图4-29增加和删除列表中项目

图4-29有关的控件属性和程序代码

（一）控件属性

对象与控件

名称

Caption

Text

List

窗体（Form）

Form1

在列表中增加项目和删除项目

列表框（ListBox）

List1

选择被删的内容

文本框（TextBoxl）

Text1

输入增加的内容

命令按钮（CommandButton）

Cmdadd

增加

命令按钮（CommandButton）

CmdDel

删除

（二）程序代码

PrivateSubcmdAdd_Click（）

List1.AddItemText1.Text'将文本框Text1中输入的内容送入列表框List1

EndSub

PrivateSubcmdDel_Click（）

IfList1.ListCount>0AndList1.ListIndex>=0Then'如果列表框List1列表项目的总数>0并且所选的字符串的索引值>=0

List1.RemoveItemList1.ListIndex'删除列表框List1列表中ListIndex所指项目

EndIf

EndSub

PrivateSubForm_Click（）

PrintList1.Text'将当前列表框中选择的内容打印到窗体上（此行语句也可用PrintList1.List（List1.ListIndex来代替）

EndSub

第四节计时器

计时器是VB提供的系统事件，是由Windows系统内部产生事件。

时钟Timer控件始终附在窗体上，程序运行时隐藏。

其主要属性是Enabled和Interval。

Enabled：

可设置成True和False二个属性。

True表示定时器打开可以工作。

False表示定时器关闭停止工作。

Interval：

设置定时器的时间间隔。

决定系统每隔多少时间发出一个计时事件。

Interval=1000相当1秒钟。

例[4-10]由时钟控制兔子向前跳跃，时钟事件每发生一次兔子向前跳跃一次，当跳跃超过窗体右边时，兔子再重新回到窗体左边开始见图4-30。

图4-30时钟事件控制兔子跳跃

一、控件属性

对象与控件

名称

Caption

Intervel

窗体（Form）

Form1

时钟事件

时钟（Timer）

Timer1

1000

图片框（PictureBox）

Picture1

命令按钮（CommandButton）

CmdBack

后退

二、程序代码

PrivateSubCmdback_Click（）

Picture1.Left=Picture1.Left-400

EndSub

PrivateSubTimer1_Timer（）

Picture1.Left=Picture1.Left+800

IfPicture1.Left>6000Then

Picture1.Left=0

EndIf

EndSub

第五节滚动条

水平滚动条H