VB程序设计常用标准控件一.docx

1、VB程序设计常用标准控件一VB程序设计常用标准控件（一） 5.1 标签控件标签控件(Label)和文本控件(TextBox)是用于显示和输入文本的。应用程序在窗体中显示文本时使用标签控件(Label)，允许用户输入文本时用文本控件(TextBox)。5.1.1 标签控件(Label)标签控件常用于输出文本信息，但输出的信息不能进行编辑修改。 (1) Alignment属性，(2) Appearance属性， (3) Autosize属性， (4) BackColor属性， (5) BackStyle属性， (6) Enabled属性， (7) Index属性， (8) ToolTipText属

2、性， 标签可触发Click和DblClickg事件。5.1.2文本框(TextBox)文本框控件称为编辑字段或者编辑控件，用于文本编辑，用户可以在该控件区域内输入、编辑、修改和显示文本内容。5.2图形控件Visual Basic 60包含四个图形控件：PictureBox控件、Image控件、Shape控件和Line控件。5.2.1图片框（PictureBox）、图像框（Image）的属性、事件和方法图片框和图像框可以显示的图像文件格式有位图文件、图标文件、图元文件、JPEG格式文件和GIF格式文件。1 图片框的常用属性、事件与方法 (1)PictureBox控件属性Picture属性 Aut

3、oSize属性ScaleLeft，ScaleTop，ScaleWidth，ScaleHeight和ScaleMode属性 PictureBox控件作为容器 (2)图片框的常用事件 图片框的常用事件有Click，DBClick，Change，鼠标事件和键盘事件等，使用方法与TextBox控件相似。 其中Chage事件当改变图片框的Picture属性时发生。 (3) PictureBox控件的常用方法 Line方法 在对象上画直线和矩形。语法： Object.LineStep(x1,y1)Step(x2,y2),color,BF其中，object为PictureBox控件对象；(x1，y1)为线段

4、的起点坐标或矩形的左上角坐标；(x2，y2)为线段的终点坐标或矩形的右下角坐标；Step指定相对于线的起点的终点坐标；B表示画矩形；F表示用画矩形的颜色来填充矩形，F必须与B一起使用。若只用B而不用F，则矩形的填充由FillColor和FillStyle属性决定。 Circle方法 在对象上画圆、椭圆或弧。语法：Object.CircleStep(x，y)，radius，color,start，end，aspect其中，object为PictureBox控件对象；(x，y)为Single类型，是圆、椭圆或弧的中心坐标；step表示采取当前作图位置的相对值；start、end分别表示起始角度、终

5、止角度，取值为02时，画圆弧，取值为负值时，画扇形，负号表示画圆心到圆弧的径向线；aspect指定长短轴比率，默认值为1，画圆，大于或小于1时，画椭圆。Cls方法 清除运行时PictureBox所生成的图形和文本。语法： Object.Cls Point与PSet方法 Point方法用于返回图形框上指定点的RGB颜色，若指定点在对象外面，则返回值为-1，该方法对图像上控件无效。PSet方法用于在图形框指定位置上画点。其语法如下： object.Point(x，y)object.PSetStep(x，y)，color 其中，(x，y)为所画点的坐标，Step表示当前作图的相对值。 PSet方法采

6、用背景颜色可清除某个位置上的点。 Print方法利用PictureBox控件的Print方法，可以在控件中打印文本、图像、动画。 2图像框的常用属性、事件与方法(1)Image控件属性 Image控件也使用Picture属性来确定控件显示的内容。 Image控件没有AutoSize属性，它使用Stretch属性来指定一个图形是否要调整大小，当Stretch值为True时，图形调整大小以与控件相适合；当值为False时，控件调整大小以与图形相适应。Image控件也不能设置对象的坐标系统，它没有ScaleLeft、ScaleTop、ScaleWidth、ScaleHeight和ScaleMode属

7、性。(2)Image控件事件Image控件具有Click事件、DbClick事件、鼠标事件、键盘事件，但没有Change事件。(3)Image控件方法 Image控件只具有Move、Refresh、ZOrder等方法，不支持PietureBox控件的图形方法。5.2.2 图形文件的装入将图形载入到PictureBox控件或Image控件，可利用函数LoadPicture设置控件的Picture属性。语法为：LoadPicture(filename，size，colordepth，x，y)其中，filename指定图片文件名。如果filename是光标或图标文件，size指定图像大小，color

8、depth指定颜色深度，(x，y)指定光标或图标的宽度与高度。运行时，若要从PictureBox或Image控件中删除一个图形，可使用不指定文件名的 LoadPicture函数。例如：Imagel.Picture=LoadPicture 5.3选择控件复选框与单选按钮复选框也称检查框。单击检查框可以使“选”和“不选”交替起作用。可同时选择一项或多项；其默认名称分别为CheckX（其中X为1，2，3 ）。1复选框的属性（1）Caption属性（2）Alignment属性（3）Value属性该属性表示检查框的状态。 选0-UnClick（默认）值，表示检查框没有被选中； 选1-UnClick值，表

9、示检查框被选中； 选2-Grayed值，表示检查框被禁止选择，此时检查框变成灰色（4）Style属性2复选框的事件复选框控件最基本的事件也是Click事件。同样，用户无须为检查框编写Click事件过程，因为当用户单击检查框时，它会自动改变状态。3复选框的方法复选框也可使用SetFocus方法来改变其Value属性值，其用法与要求同单选按钮一样。每调用一次SetFocus方法就触发一次Click事件。【例5.2】CheckBox控件示例。设计一个窗体，如图5-3所示，用检查框控制文本输入是否加“下划线”和“斜体显示”。操作步骤如下。（1）设计窗体外观本例需要在窗体上添加3个控件，即一个文本框，两

10、个检查框。在文本框中显示文本，由两个检查框决定显示的文本是否加下划线或用斜体显示。（2）编写事件代码“Form1”窗体控件的“Load”事件过程代码如下：Private Sub Form_Load() TextDisplay.FontSize = 15End Sub“TextDisplay”文本框控件的“Change”事件过程代码如下：Private Sub TextDisplay_Change() If CheckUnderLine.Value=1 Then TextDisplay.FontUnderline=True End if If CheckItalic.Value=1 then T

11、extDisplay. FontItalic =True End IfEnd Sub“CheckUnderLine”检查框控件的“Click”事件过程代码如下：Private Sub CheckUnderLine_Click() If CheckUnderLine.Value=1 Then TextDisplay.FontUnderline=True Else TextDisplay.FontUnderline=False End IfEnd Sub“CheckItalic”检查框控件的“Click”事件过程代码如下：Private Sub CheckItalic_Click() If Che

12、ckItalic.Value=1 Then TextDisplay.FontItalic=True Else TextDisplay.FontItalic=False End IfEnd Sub（3）执行程序5.3.2 单选按钮（OptionButton）单选按钮主要用于在多种功能中选择一种功能的情况。单选按钮必须成组出现，在一组单选按钮中必须选择一项，且只能选择一项；其默认名称分别为OptionX（其中X为1，2，3）。1 单选按钮的属性 （1）Caption属性（2）Alignment属性（3）Value属性 该属性表示单选按钮的状态，它是一个逻辑值。 取True值，表示它被选中，按钮的中

13、心有一个圆点。 取False（默认）值，表示单选按钮没被选中，按钮的中心是一个圆圈。（4）Style属性 2单选按钮的事件单选按钮最基本的事件是Click事件，但一般不须要编写Click事件过程。因为当用户单击单选按钮时，它会自动改变状态。3单选按钮的方法SetFocus方法是单选按钮控件最常用的方法，可以在代码中通过该方法将Value属性设置为True。使用该方法之前，必须要保证单选按钮当前处于可见和可用状态（即Visible与Enabled属性值均为True）。【例5.3】OptionButton控件示例。设计一个如图5-3所示的窗体程序，实现用单选按钮在文本框中显示不同的字体。操作步骤如

14、下。（1）外观设计在窗体上添加4个控件，即一个文本框，3个单选按钮，进行其主要属性设置。（2）事件过程代码编写3个单选按钮编写事件过程代码分别如下：Private Sub courier_Click() TextDisplay.FontSize=18 TextDisplay.FontName=courierEnd Sub Private Sub modern_Click() TextDisplay.FontSize=20 TextDisplay.FontName=modernEnd Sub Private Sub roman_Click() TextDisplay.FontSize=24 Te

15、xtDisplay.FontName=times new romanEnd Sub5.4选择控件列表框与组合框列表框（ListBox）主要是用于显示列表性的数据，用户可以从此列表框内选择适当的列表数据。组合框（ComboBox）是一种把文本框（TextBox）和列表框（ListBox）特性组合为单个控制窗口。利用组合框可以在文本框部分输入字符串，或者在列表框直接选取某项目。5.4.1 列表框（ListBox）列表框用来以选项列表形式显示一系列选项，用户可从中选择一项或多项。列表框最主要的特点是只能从中选择，不能直接写入或修改其内容。其默认名称分别为ListBox X（其中X为1，2，3）。1列

16、表框的常用属性列表框所支持的标准属性包括：Enabled，FontBold，FontName，FontUnderline，Height，Left，Name，Top，Visible，Width。此外，列表框还具有以下特殊属性。（1）Columns属性该属性用来确定列表框的列数。（2）List属性该属性是一个字符型数组，每一个列表项都是这个数组中的一个元素，通过下标访问数组中的值，List数组的下标是从0开始的。其格式为列表框名.List(下标)（3）ListCount属性它表示列表框中列表项的数量，其值为整数。第一个列表项序号为0，最后一个列表项序号为ListCount-1值。该属性只能在程序中

17、设置或引用（4）ListIndex属性它表示执行时选中的列表项序号，其值为整数。（5）Style（6）NewIndex属性（7）Selected属性该属性实际上是一个数组，各个元素的值为True或False，每个元素与列表框中的一项相对应。当元素的值为True时，表明选择了该项；如为False，则表示未选择。列表框名.Selected（索引值）“索引值”从0开始，它实际上是数组的下标。上面的语句返回一个逻辑值（True或False）。用下面的语句可以选择指定的表项或取消已选择的表项：列表框名.Selected（索引值）=True | False（8）Stored属性（9）Text属性它的值是被

18、选中列表项的文本内容。List（ListIndex）等于Text。（10）MultiSelect属性2列表框事件（1）Click事件（2）DblClick事件3列表框方法（1）AddItem方法格式：列表框名.AddItem 项目字符串，索引值（2）Clear方法格式：列表框名.Clear（3）RemoveItem方法格式：列表框名.RemoveItem 索引值【例5.4】ListBox控件示例。设计一个如图5-8所示的窗体应用程序。在文本框中输入数据，按“增加(A)”按钮，所输入的数据将增加到列表框中。选中列表框中的某项，按删除“按钮(D)”，将该项从列表框中删除；按“清除(C)”按钮，将清

19、除列表框中所有项目；按“退出(X)”按钮，将结束程序运行。操作步骤如下。（1）窗体外观设计（2）事件过程代码设计“Form1”窗体控件的“Load”事件过程代码如下：Private Sub Form_Load() Text1.Text = List1.ClearEnd Sub“cmdAdd”命令按钮控件的“Click”事件过程代码如下：Private Sub Command1_Click() List1.AddItem Text1.Text Label2.Caption = 列表项目总数为： & List1.ListCount Text1.Text = Text1.SetFocusEn

20、d Sub“cmdDel”命令按钮控件的“Click”事件过程代码如下：Private Sub Command2_Click() Dim intSelected As Integer intSelected = List1.ListIndex If intSelected >= 0 Then List1.RemoveItem intSelected Label2.Caption = 列表项目总数为： & List1.ListCount Else MsgBox 请先在列表框中选择要删除的项目。 Beep End IfEnd Sub“cmdClear”命令按钮控件的“Click”事件

21、过程代码如下：Private Sub Command3_Click() List1.Clear Label2.Caption = 列表项目总数为： & List1.ListCountEnd Sub“cmdExit”命令按钮控件的“Click”事件过程代码如下：Private Sub Command4_Click() EndEnd Sub（3）运行调式程序5.4.2 组合框（ComboBox）组合框是组合了文本框和列表框的特性而形成的一种控件。组合框在列表框中列出可供用户选择的选项，另外还有一个文本框。组合框有三种不同的风格：下拉式组合框、简单组合框和下拉式列表框，由Style属性值来确

22、定。1组合框属性 （1）Style属性 当Style属性被设置为0时，组合框称为“下拉式组合框” Style属性值为1的组合框称为“简单组合框”（Simple Combo），它由可输入文本的编辑区和一个标准列表框组成。 Style属性值2的组合框称为“下拉式列表框”（Dropdown List Box）。（2）Text属性该属性值是用户所选择的项目的文本或直接从编辑区输入的文本。2组合框事件（1）Click事件（2）DblClick事件（3）Change事件3组合框方法（1）AddItem方法 格式：组合框名.AddItem String,number功能：它把String选项加入到指定的组合

23、框中。（2）Clear方法 格式：组合框名.Clear功能：删除组合框中的所有内容。（3）RemoveItem方法 格式：组合框名.RemoveItem(index)=number功能：从组合框中删除一个指定的选项。小结：控件是isual Basic中预先定义好的、程序中能够直接使用的对象。每种控件都有自己的属性、事件和方法，每种控件都可以完成一种特定的任务。这些控件对象都以形象的图标形式出现在工具箱中，以便于编程时使用。本讲系统和深入地介绍了标签、文本框、复选框、单选按钮、列表框和组合框这些常用标准控件的属性、方法及事件及其在程序设计中的具体应用。作业：1、 单选按钮和复选框在使用上有什么区别？2、 列表框和组合框在使用上有什么区别？3、 熟悉各种控件的属性、事件和方法。