---

3.1 控件的属��

在编写控件的程序之前，你必须为控件设定某些属性，以确定它如何显示及将如何操作与其活动相关的程序。您可以在属性页中或在运行时设定属性��

��3.1是一个典型的属性窗口，展示的是表单一（Form1��的所有属性。在标题（Caption��栏中，你可以把Form1这个名字删除掉并打上新的名字。在属性窗口最顶端所展示的项目是目前选定的对象，��3.1 选定对像的是Form1。在属性窗口中，列在左栏是该项目各种属性的名字，右边一栏是目前所设置的属性。要设置属性，����择某个在右栏��的项目，然后键入其属性或选择可供选择的属性。举例来说，为了改变Form1的标题，只需��Form1标题项目右栏中键入新的标题。你也可以试着改变对象外观的形式设置，比如你可以选择立体或平靀��你也可以改变它的前景与背景的颜色，改变字体和字体的大小，开启或关闭�� 最小化和最大化按钮等��

您还可以设定运行时的属性，以加强特别的效果，如：改变颜色，形状，动画效果等。例如下面的代码把表单一的背景颜色设定为红色�� VB中使用十六进制系统的颜色代码。您可以检查属性窗口的颜色代码��

Private Sub Form_Load()
Form1.Show
Form1.BackColor = &H000000FF&
End Sub

另一个例子是，以代码改变控件在运行时的形状。本程序将把控件改变成一个圆圈。稍后您将学习以RND函数改变控件的形状��

Private Sub Form_Load()
Shape1.Shape = 3
End Sub

我想强调一点，懂得如何及何时设定对象的属性是非常重要的，因为它可以决定你编写一个好或坏的程序。所以，我建议你花多点时间去研究如何设定各种对象的属性。我们暂时不讨论如何设置属性的细节，但是，我想强调两个个关于属性的要点��

• 应该为控件设置明确的标题，让用户知道要怎样依照指令去执行某些任务。例如，在计算器界面上，所有命令按钮应该设计得和一个常用的计算器一样，用户在操纵按钮时就不会碰到问题，��

• 应该用有意义的名字作为属性的名称以便更容易编写或修改程序��
  　

��3.1

3.2 处理一些常见的控件

��3.2:工具箱中的控��

3.2.1 文本��

文本框是是用来接收用户输入的控件，以及作为显示器输出。它可以处理字符串（纯文字）和数字数据，但不能处理图象或图片。一个文本框中的文字����用Val 函数��转换为数字和数据 。下面的例子说明如何处理用户输入的数据��

　

��3.1

在这一程序中，我们把两个文本框并连同数个标签插入到表单中。这两个文本框是用来接受用户的输入，其中的一个标签将被用来展示总和。此外，我们也需要编写一个使命令按钮进行计算两个号码总和的程序��

Private Sub Command1_Click()

��把文本框1和文本框2的值加起来

Sum = Val(Text1.Text) + Val(Text2.Text)

��中标签上显示答案

Label1.Caption = Sum

End Sub 

��3.3

　

3.2.2   标签

标签是一个非常有用处的控件，因为它不仅是用来提供指示和指导，它也可以被用来显示输出。它的一个最重要的特性是标题。利用语��Label.Caption ，它可以显示文字和数字数据。你可以在属性窗口或在运行时改变它的标题。详情请参阅例字3.1和图3.1��

3.2.3 命令按钮

命令按钮是一个很重要的控件，因为它被户点击它时可以执行命令去运作一个程序。其语法的程序是

Private Sub Command1_Click ()

Statements

End Sub

3.2.4 图片��

图片��可用来处理图彀��你可以下载一个图片，在设计阶段就在属性窗口从选定的文件夹选择图片。您也可以在程序运行时加载图片，其指令是LoadPicture��

Picture1.Picture=LoadPicture ("C:\VB program\Images\grape.gif")

3.2.5 图像方框

图像方框 是另一个处理图象和照片的控件。它和图片框的功能几乎是相同的。不过，其中有一个重大的区别，它可以调整大小。这个功能在图片框是没有的。类似图片方块中，它也可以用LoadPicture 方法来加载图片��

3.2.6 列表��

列表框的功能是陈列一个项目清单以便用户可以通过点击来选择项目。如果要增加项目，我们可以利��additem方法。例如，如果你想在列表框中增加一些项�� ，你可用下面的例��

　

例子3.2

Private Sub Form_Load ( )

List1.AddItem “第一课��

List1.AddItem “第二课��

List1.AddItem “第三课��

List1.AddItem “第四课��

End Sub

3.2.7 组合��(ComboBox)

组合框展现一个下拉式项目清单。用户可以通过点击来选择项目，从名单上。为了增添项目名单，我们可以利用 AddItem     `这方法。例如，如果�� 想在列表��1增添一些项�� ，可以键入以下个程序��

例子 3.3

Private Sub Form_Load ( )

Combo1.AddItem “Item1��

Combo1.AddItem “Item2��

Combo1.AddItem “Item3��

Combo1.AddItem “Item4��

End Sub

3.2.8 复选框(CheckBox)

复选框让用户可以选择或取消选择一个选项。当复选框被选中时，其值是设定��1。如不被选中，其值设定为0 。你可以用程序来设定复选框的属性，如键��check1.value = 1 ，就表示它被选中��check1.value = 0 就表示它不被选中，并用它来执行某些动作。举例来说，该程序将改变背景颜色的形式，当复选框被设定为红色时，该复选框的值等��0。复选框的值等��1 时，复选框颜色是蓝色。在以后的课程，你将学到有条件声�� If�� �� ，Then�� �� Elesif。�� vbred �� vbblue 是彩色常量和 backcolor 是背景颜色��

�� 3.4

Private Sub Check1_Click ()

If Check1.Value = 0 Then

Form1.BackColor = vbRed

ElseIf Check1.Value = 1 Then

Form1.BackColor = vbBlue

End If

End Sub

3.2.9 选项��(Option Button)

选项框也可以让用户自由选择一个项目。但是，在同一时间中只有一个选项框可被选择。当一个选项框被选定时，其价值被设定��"True"时，反之则其价值被设定��"False"。在下面的例子中，一个板形控件并连同六个选项框被安置��Form1中。当用户点击不同的选项框，不同的形状就会出现。板形控制的价值被设定�� 0 �� 1 ��2, 3, 4, 5��它将显示一个长方形，正方形，椭圆形，圆焦正方形和正方形��

��3.5

Private Sub Option1_Click ( )

Shape1.Shape = 0

End Sub

Private Sub Option2_Click()

Shape1.Shape = 1

End Sub

Private Sub Option3_Click()

Shape1.Shape = 2

End Sub

Private Sub Option4_Click()

Shape1.Shape = 3

End Sub

Private Sub Option5_Click()

Shape1.Shape = 4

End Sub

Private Sub Option6_Click()

Shape1.Shape = 5

End Sub

3.2.9 驱动器列表框

驱动器列表框，是用来显示在您的计算机上所有的驱动器。当你把这个控件纳入表格然后去运行程序，你将能够选择不同的驱动器，如��3.4 所示��

�� 3.4 驱动器列表框

3.2.10 目录列表��

目录列表框是用来显示清单目录或文件夹中选择一个驱动器。当你把这个控件纳入表格然后去运行程序，你将能够从所选驱动器中选择不同的目录，如图3.5 所示��

�� 3.5 目录列表��

 

3.2.11 文件列表��

文件列表框是用来显示文件列表在选定的目录或文件夹。当你把这个控件纳入表格然后去运行程序，你将能够从文件的列表中选择一个目录，，如��3.5 所示��
除此以外�� 你也需要协调驱动器列表框，目录列表框和文件列表框以便搜索文件��