Vb常用控件

nullnull第3章 用户界面设计教学目的要求： 掌握VB标准控件的常用属性、方法和事件教学重点： 标准控件的常用属性、方法和事件3.1 选项按钮(OptionButton)、复选框(CheckBox)与框架(Frame)3.1 选项按钮(OptionButton)、复选框(CheckBox)与框架(Frame) 框架在工具箱中的名称为Frame，主要用做控件的容器，也用于修饰界面。 容器的作用是对控件进行分组，放在容器中的控件跟随其容器移动，删除容器将同时删除其中的所有控件。 要将控件放在容器中，可以先选中容器，然后在容器中直接画控件。也可以将事先画好的控件复制到剪贴板，再选中容器，然后粘贴控件。 框架具有以上介绍的控件的公共属性，其中要特别注意的是Enabled属性，当框架的Enabled属性设置为False时，框架的标题变成暗灰色，而框架中的所有对象将同时无效。 框架不响应鼠标事件，不能在其中显示文本和图形。 1. 框架(Frame)null 选项按钮在上具箱中的名称为OptionButton，用于提供一个可以打开或关闭的选项。在使用时，—般将几个选项按钮组成一组，在同一组中，用户只能选择其中的一项。 在Frame控件、PictureBox控件或者窗体这样的容器中绘制选项按钮控件，就可以把这些控件分组。同一容器中的选项按钮控件为一个组。运行时，在选择一个选项按钮时，同组中的其他选项按钮控件会自动取消选样。2.选项按钮(OptionButton)null 1. 属性 ．Value属性：表示选项按钮的状态。Value属性为True时，表示选择了该按钮；Value属性为False时，表示没有选择该按钮。Value属性的缺省值为False。 ．Alignment属性：决定选项按钮中的文本的对齐方式。Alignment属性为0-Left Justify时表示左对齐;1—Right Justify的表示右对齐。 ．Style属性：用于控制选项按钮的外观。可以将Style属性设置为1—Graphical使其显示成与命令按钮相同的形状，运行时按钮可以在按下和抬起两种状态间切换，这时还可以为其设置颜色或添加图形。null2. 事件 选项按钮常用的事件为Click事件．当运行时单击选项按钮，使选项按钮从未选择状态变成选择状态时，或在代码中将一个选项按钮的Value属性从False改为True时，产生Click事件。可以在该事件过程中编写代码，表示选择该选项按钮时要执行的操作。也经常不直接在选项按钮的事件过程中编写代码，只是使用选项按钮进行选择，而在其他事件过程(如命令按钮的单击事件)中根据选项按钮的Value值进行判断，以执行相应的操作。null3.例3-3框架框架3. 复选框(CheckBox) 复选框在工具箱中的名称为CheckBox。与选项按钮类似，该控件一般用于提供一个可以打开或者关闭的选项。选择复选框控件后，该控件将显示符号∨，而取消选择后，符号∨ 消失。也可以设置复选框使其处于第三种状态，即灰度状态。同样可以按功能对复选框进行分组，但同—组中的复选框可以有多个同时被选中。 复选框和选项按钮功能相似，但二者之间也存在着重要差别：在一个窗体中可以同时选择任意数量的复选框控件；但是在一个组中，在任何时侯只能选择一个选项按钮。3. 复选框(CheckBox)null 1．属性 ．Value属性：复选框的Value属性用来确定其状态．即选择、取消选择或灰度状态。Value值为0表示取消选择状态；Value值为1表示选择状态；而Value值为2使复选框处于灰度状态，常利用这种状态来表示部分选中或不确定状态。 ．Alignment属性：设置或返回一个值，决定复选框中的文本的对齐方式。Alignment属性为0-LeftJustify时表示左对齐，Alignment属性为l-RightJustify时表示右对齐。 ．Style属性：与选项按钮相同，可以将复选框的Style属性设置为1-Graphical使其显示成按钮的形状，同时还可以为其设置颜色或添加图形。null 2. 事件 复选框常用的事件为Click事件，运行时单击复选框时，或在代码中改变复选框的Value属性值时，产生Click事件。可以在该事件过程中编写代码，表示选择或取消选择该复选框时要执行的操作。也经常不直接在复选框的事件过程中编写代码，只是使用复选框进行选择，而在其他事件过程(如命令按钮的单击事件)中根据复选框的Value值进行判断，以执行相应的 操作。3. 例8-3 null教学方法： 大屏幕投影演示时间安排： 6学时教学难点： 事件的响应 控件的公共属性 控件有很多共同的属性。 1．Name属性 Name属性在代码中用于标识窗体、控件或数据访问对象的名称，在运行时是只读的。 每当建立一个新控件时，VB为其建立一个缺省名称，该名称由一个表示控件类型的标识符加上一个唯一的整数组成。例如，第一个新的命令按钮名称是Commandl，第二个 新的命令按钮名称是Command2，第一个新的标签名称是Label1，而在窗体上创建的第三个文本框的名称是Text3。 控件的Name属性必须以一个字母开始，并且最长可达40个字符。它可以包括字母、数字和下划线，但不能包括标点符号或空格。为同类型的控件取相同的Name属性，可以创建控件数组。控件的公共属性null2．Caption属性 Caption属性用于确定对象的标题。对于窗体，该属性表示要显示在标题栏中的文本。当窗体最小化时，该文本被显示在窗体图标中。当创建一个新的对象时，缺省标题与缺省的Name属性值相同，该缺省标题包括对象名和一个整数，如Commandl或Forml。一般要对缺省的Caption属性进行修改，以产生一个描述得更清楚的标题。 可以在Caption属性中为控件指定一个访问键。在设置Caption属性时，可在要指定为访问键的字符前加一个“&”符号。运行时，同时按下Alt键和带下划线的字符相当于单击相应的控件。 Label控件标题的大小没有限制。对于窗体和所有别的有标题的控件，标题大小的限制是255个字符。null3．Enabled属性 该属性用来确定一个窗体或控件是否能够对用户产生的事件作出响应。若将控件的Enabled属性设置为True(缺省值)，则控件有效，允许控件对事件作出响应；若控件的Enabled属性设置为False，则控件无效，阻止控件对事件作出响应。 运行时，可以根据应用程序的当前状态，决定使某些控件无效或有效。将可视控件Enabled属性设置为False使控件呈暗灰色显示。null 4．Visible属性 该属性用来确定一个窗体或控件是否可见。若将控件的Visible属性设置为True(缺值)，则控件在运行时可见；若将控件的Visible属性设置为False，则控件在运行时不可见。 对窗体用Show或Hide方法，分别和在代码中将窗体的Visible属性设置为True或False的果是一样的。 null5．Left、Top、Height、Width属性 Left、Top、Height和Width属性用于设置或返回控件的位置或尺寸。其中Left属性表示控件内部的左边与它的容器的左边之间的距离。Top属性表示控件的内顶部和它的容器的顶边之间的距离： 对于窗体，Left、Top，Height和Width属性总以缇为单位来表示的；对于控件，它们的度量单位取决于它的容器的坐标系统。 null BackColor属性用来返回或设置控件的背景颜色。ForeColor属性用来返回或设置在控件里显示图片和文本时的前景颜色。 颜色的设置方法： 1)直接输入一个颜色值。 2)使用标准RGB颜色：使用调色板或在代码中使用RGB或QBColor函数指定的颜色。 3)使用系统缺省颜色：使用对象浏览器中的对象库所列的系统颜色常量指定的颜色。 对于所有的窗体和控件，BackColor属性的缺省设置值为由常量vbWindowBackground定义的系统缺省颜色，而ForeColor属性的缺省设置值为由常量vbWindowText定义的系统缺省颜色。 在Label和Shape控件中，如果BackStyle属性的设置值为0(透明)，则忽略BackColor属性。 若在Form对象或PictureBox控件中设置BackColor属性，则所有已经打印的文本或用绘图方法绘制的图形都将被擦除掉。设置ForeColor属性值不会影响已经打印的文本或绘制的图形。6. BackColor、ForeColor属性nullFontName： 决定在控件中显示的文本所用的字体。 FontSize： 决定在控件中显示的文本所用的字体大小。 FontBold： 决定在控件中显示的文本是否为粗体样式。 Fontltalic： 决定在控件中显示的文本是否为斜体样式。 FontStrikethru：决定在控件中显示的文本是否带有删除线。 FontUndedine：决定在控件中显示的文本是否带有下划线。 对于PictureBox控件及Form和Printer对象，设置这些属性不会影响在控件或对象上已经打印的文本。对于其他控件，这些属性的改变会在屏幕上立刻生效。7. FontName、FontSize、FontBold、FontItalic、FontStrikethru、FontUnderline属性null8．Font对象属性 Font对象在设计时不能直接使用。取而代之的是，在“属性”窗口中通过选择控件的Font属性并单击属性按钮“…”，在打开的对话框中直接设置其属性。在代码中，可以使用以 下格式引用该对象的属性： <控件名>．Font<属性名> 属性名，可以是：Name，返回或设置Font对象的字体名称；Size，返回或设置Font对象使用的字体大小；Bold，返回或设置Font对象的字形是粗体或非粗体；Italic，返回或设置Font对象的字形为斜体或非斜体；Underlinc，返回或设置Font对象的字形为带下划线或不带下划线；Strikethrough，返回或设置Font对象的字形为有删除线或无删除线。 null3.3 定时器Timer主要属性Enabled 是否可用 为False不发生Timer事件 Interval 定时间隔 单位为ms ，取值范围为0~65535事 件Timer 到达Interval指定的时间时就触发一次该事件Private Sub Timer1_Timer() If Image1.Visible Then Image1.Visible = False Image2.Visible = True Else Image1.Visible = True Image2.Visible = False End If End Sub3.4 滚动条VB提供两种滚动条控件： 水平滚动条HScrollBar 垂直滚动条VScrollBar。 两种滚动条除方向不同外，结构和操作方法完全一样。3.4 滚动条HScrollBarVScrollBarnull1. 属性 ．Max属性：滚动条所能表示的最大值。当滚动块移动到滚动条的最右端或底部时，滚动条的Value属性值等于Max值。 ．Min属性：滚动条所能表示的最小值。当滚动块移动到滚动条的最左端或顶部时，滚动条的Value属性值等于Min值。 ．LargeChange属性：当用户单击滚动块和滚动箭头之间的区域时，滚动条Value属性值的改变量。 ．SmallChange属性：当用户单击滚动箭头时，滚动条的Value属性值的改变量。 ．Value属性：滚动条的当前位置值，该值始终介于Max和Min属性值之间(包括这两个值)。null 2．事件 ．Change事件：当滚动块移动后或在代码中对Value属性进行赋值后产生该事件。 ．Scroll事件：当在滚动条内拖动滚动块时产生该事件。 3 ．例8-2Private Sub HScroll1_Change(Index As Integer) Labelrgb(Index).Caption = HScroll1(Index).Value Picture1.BackColor = RGB(HScroll1(0).Value, _ HScroll1(1).Value, HScroll1(2).Value) End Sub Private Sub HScroll1_Scroll(Index As Integer) HScroll1_Change (Index) End Sub控件数组HScroll1控件数组Labelrgb8.6 列表框(1istBOX)和 组合框(ComboBox) 列表框在工具箱中的名称为ListBox。该控件用于显示项目列表，从列表中可以选择一项或多项。如果项目总数超过了可显示的项目数，VB会自动给列表框加上滚动条。 8.6 列表框(1istBOX)和 组合框(ComboBox)一、列表框(1istBOX)null1．属性 ．List属性：返回或设置列表框的列衷部分的项目。在设计时可以在属性窗口中直接输入列表项目，输入每一列表项后使用Ctrl+Enter键换行。运行时，引用列表框中的第一项为List(0)、第二项为List[(1)…… ．Style属性：返回或设置列表框的显示样式。如果该属性设置为0(缺省值)，则列表框按传统的列表样式显示列表项；如果该属性设置为1，则在列表框中的每一个文本项的旁边都有一个复选框，这时在列表框中可以同时选择多项。 ．Columns属性：返回或设置列表框是按单列显示(垂直滚动)还是按多列显示(水平滚动)。当Columns值为0时，列表框为垂直滚动的单列形式；当Columns值大于0时，列表 框为水平滚动形式，显示的列数由Columns值决定。 null ．Text属性：返回列表框中被选择的项目。如果列表框的名称为Listl，则Listl.Text的值总是与List1.List(Listl.ListIndex)的值相同。Text属性为只读属性。 ．ListIndex属性：返回或设置列表框中当前选择项目的索引，在设计时不可用。列表框的索引从0开始，即第一项的索引为0，第二项的索引为1……, 若没有在列表框中选择项目，则Listlndex的值为-1。对于可以做多重选择的列表框，若同时选择了多个项目，ListIndex返回所选项目的最后一项的索引。 注：List,ListIndex,Text之间存在如下等价关系： List1.Text=List1.List(List1.ListIndex) ．ListCount属性：返回列表框中列表部分项目的总个数。ListCount属性值总是比最大的ListIndex值大1。 ．Sorted属性：指定列表项目是否自动按字母表顺序排序。将Sorted设置为True表示列表 项目按字母表顺序排序，设置为False(缺省值)表示列表项目不按字母表顺序排序。 null ．Selected属性：返回或设置在列表中的一个项的选择状态。该属性在设计时不可用。 ．MultiSelecl属性：返回或设置一个值，该值指示是否能够同时选择列表框中的多个项 (复选)，以及如何进行复选，在运行时是只读的。有以下几种取值： 0-None为缺省值，表示不允许复选。 1-Simple表示单击鼠标或按空格键可在列表中选择或取消选择列表项。 2-Extended表示按下Shift键井单击鼠标，或按下Shift健以及一个箭头键将在以前选择项的基础上扩展选择到当前选择项。按下Ctrl键并单击鼠标可在列表中选择或取消选择列表项。null 2．事件 列表框接受Click、DblClick、GotFocus、LostFocus等大多数控件的通用事件，但通常不编写Click事件过程，而是当单击某个命令按钮或双击列去框时读取列表框的Text属性值。null3．方法 ．AddItem方法：向列表框中添加新的项目，使用格式为： <对象名>.AddItem <项目>[，<索引>] 格式中的<索引>表示要添加的位置。当<索引>省略时，若Sorted属性设置为True，<项目>将添加到恰当的排序位置；若Sorted属性设置为False，<项目>将添加到列表的末尾。 ．RemoveItem方法：从列表框中移除项目，使用格式为： <对象名>. RemoveItem <索引> 格式中的<索引>用于指定要删除的项目的索引。 ．Clear方法：清除列表框中的所有项目，使用格式为： <对象名>.Clearnull４．举例二、 组合框(ComboBox) 组合框在工具箱中的名称为ComboBox。 组合框的作用与列表框类似，只是组合框控件将文本框和列表框的特性结合在一起，既可以在控件的文本框(编辑域)部分输入信息，也可以在控件的列表框部分选择一项。 另外，组合框可以将列表项折叠起来，使用时再通过下拉列表进行选择，所以使用组合框比使用列表框更节省界面空间。二、 组合框(ComboBox)null1．属性 ．List属性：返回或设置组合框的列表部分的项目。在设计时可以在属性窗口中直接输入列表项目，输入每一列表项后使用Ctrl+Enter键换行。 ．Style属性：用于指定组合框的显示形式，有以下几种取值： 0为缺省值，组合框显示形式为下拉组合框，包括一个文本框和一个下拉式列表。可以从列表中选择项目或在文本框中输人文本。该样式将选项折叠起来，当需要选择时，单击组合框旁边的下拉箭头，弹出选项列表，再用鼠标单击进行选择，选择后列表会重新折叠起来，只显示被选择的项目。 1表示组合框显示形式为简单组合框。该形式同样包括一个文本框和一个列表框，与下拉组合框不同的是，该形式不能将列表折叠起来。 2表示组合框显示形式为下拉列表框。这种样式仅允许从下拉列表中选择，不能在文本框中输入文本，列表可以折叠起来。 null．Text属性：当ComboBox控件的Style属性设置为0(下拉组合框)或为1(简单组合框)时, 该属性用于返回或设置编辑域中的文本。而当Style属性设置为2(下拉列表框)时，该属性为只读，运行时返回在列表中选择的项目。若列表框的名称为Combo1，且运行时选择了某列表项，则Combo1.Text的值总是与Combo1.List(Combo1.ListIndex)的值相同。 ．ListIndex属性：返回或设置在组合框下拉列表中当前选择项目的索引，在设计时不可用。若没有选择项目，或者向文本框部分输入了新的文本，则ListIndex值为-1。 ．ListCount属性：返回组合框的列表部分项目的总个数。ListCount属性值总是比最大的Listlndex值大1。 ．Sorted属性：指定列表项目是否自动按字母表顺序排序。将Sorted设置为True表示列表项目按字母表顺序排序，设置为False(缺省值)表示列表项目不按字母表顺序排序。null2．事件 组合框的事件与Style属性有关， 当Style为0时，响应Click、Change、DropDown事件。 当Style为1时，响应Click、DblClick、Change事件。 当Style为2时，响应Click、DropDown事件。 当用户单击组合框的下拉箭头时，触发DropDown事件；而组合框可以接受文本编辑时，则可以触发Change事件。通常是在其他事件过程(如命令按钮的单击事件)中读取组合框的Text属性。null3．方法 ．AddItem方法：向组合框中添加新的项目，使用格式为： <对象名>.AddItem <项目>[,<索引>] 格式中的<索引>表示要添加的位置。当<索引>省略时，若属性设置为True，<项目>将添加到恰当的排序位置；若属性设置为False，<项目>将添加到列表的末尾。 ．RemoveItem方法：从组合框的列表中移除项目，使用格式为： <对象名>. RemoveItem <索引> 格式中的<索引>用于指定要删除的项目的索引。 ．Clear方法：清除列表框中的所有项目, 使用格式为： <对象名>.Clearnull4．举例 在窗体Form1上建立一列表框、两个选项按钮、一个组合框和一个文本框，当在列表框、选项按钮和组合框选中某些内容时，用文本框将其显示出来。运行界面如图所示。 8.7 驱动器列表、目录列表和文件列表框8.7 驱动器列表、目录列表和文件列表框8.8 图片框(PictureBox)和图像框(Image) 图片框在工具箱中的名称为PictureBox，该控件可以用来显示图像，包括位图文件(.bmp)、图标文件(.ico)、光标文件(.cur)、元文件(wmf)、增强的元文件(．emf)、JPEG文件(.jpg)或GIF文件(.gif)。 8.8 图片框(PictureBox)和图像框(Image)一、图片框(PictureBox) PictureBox控件也可以作为控件的容器，还可用于显示用Print方法产生的文本和用图形方法绘制的图形。要清除用Print方法在图片框中产生的文本和用图形方法绘制的图形，使用Cls方法： <对象名>. Cls 若使用LoadPicture函数清除图像，将同时清除文本和用图形方法绘制的图形。 null1. 属性 ．Picture 属性：设置图片框中显示的图片，可以在属性窗口中设置其Picture属性, 也可以在代码中使用LoadPicture函数进行设置，格式如下： <对象名>.Picture = LoadPicture(“<图形文件名>”) 要清除图片框中的图像，可以在属性窗口中直接删除其Picture属性的内容，也可以在代码中使用LoadPicture函数进行清除，格式如 下： <对象名>.Picture = LoadPicture（） 或 <对象名>.Picture = LoadPicture(“ ”) ．Autosize 属性：若在图片框中加载.wmf文件，图像会自动调整大小，以适应控件的大小; 对于其他类型的文件，若控件大小不足以显示整幅图像，则VB会自动裁剪图像．以适应控件的大小；但不能调整图形以适应控件的大小。 将其设置为True, 可以自动调整大小以显示整幅图像。 null．AutoRedraw 属性：是否自动重新绘制图形 2.事件 常用事件有Resize、Paint、Click等 3.方法 常用方法有Refresh、Move、Print及一组绘图方法等 对象名.Pset [step](x,y)[,color] 画点 对象名.Point(x,y) 返回指定点的颜色 对象名.line [step](x1,y1)-[step](x2,y2)[,color],[b][f] 画线矩形填充矩形 对象名.Circle [step](x,y),radius [,color] 画圆 Step：可选项，带此参数时，点(x,y)是相对于当前位置(由CurrentX和CurrentY属性决定)的坐标点，否则为绝对坐标。null4.举例 例1:画圆Private Sub Form_click() Dim i, x, y, x0, y0, r, pi, pace As Single r = ScaleHeight / 4 x0 = ScaleWidth / 2 y0 = ScaleHeight / 2 pi = 3.1415926 pace = pi / 15 For i = 0 To pi * 2 Step pace x = x0 + r * Cos(i) y = y0 - r * Sin(i) Circle (x, y), r * 0.8 Next i End SubnullPrivate Sub Form_Click() Dim i, j, x, y, r, c Form1.Cls For i = 1 To 10000 x = (Form9.ScaleWidth * Rnd) y = Form9.ScaleHeight * Rnd r = 1000 * Rnd c = RGB(256 * Rnd, 256 * Rnd, 256 * Rnd) Circle (x, y), r, c For j = 1 To 5000 Next j Next i End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single) Dim c c = Int(Rnd * 16) Circle (x, y), 100, QBColor(c) End Sub二、 图像框(Image) 图像框在工具箱中的名称为Image, Image控件也用于显示图像，包括位图文件(.bmp)、图标文件(.ico)、光标文件(.cur)、元文件(.wmf)、增强的元文件(.emf)、JPEG文件 (.jpg)或GIF文件(gif)。 和PictareBox控件一样, 可以在属性窗口通过设置Image控件的Picture属性来添加一幅图像，也可以在代码中使用LoadPicture函数进行图像的添加或清除。 因为Image控件比PictureBox控件使用较少的系统资源，所以重画起来比PictureBox控件要快，但是它只支持PictureBox控件的一部分属性、事件和方法。 若将Image控件的Stretch属性设置为True，则可以缩放图像来适应控件大小；若将Image控件的Stretch属性设置为False，则可以自动调整控件大小以适应图像。二、 图像框(Image)null例8-6Private Sub Command1_Click() If Command1.Caption = "开始" Then Timer1.Enabled = True Command1.Caption = "停止" Else Timer1.Enabled = False Command1.Caption = "开始" End If End Sub Private Sub Command2_Click() Timer1.Enabled = False End End SubPrivate Sub Timer1_Timer() If Image3.Left > Form1.ScaleWidth Then Image3.Left = Form1.ScaleLeft - 200 End If Image3.Move Image3.Left + 200 If Image3.Picture = Image1.Picture Then Image3.Picture = Image2.Picture Else Image3.Picture = Image1.Picture End If End Sub null