《VB常用标准控件(共16页).doc》由会员分享，可在线阅读，更多相关《VB常用标准控件(共16页).doc（16页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、精选优质文档-倾情为你奉上第5章 VB常用标准控件5.1 基本要求本文由【】 搜集整理。免费提供海量教学资料、行业资料、范文模板、应用文书、考试学习和社会经济等word文档1. 掌握VB标准控件的常用属性和方法；2. 掌握单选按钮、复选框、框架、列表框、组合框的常用属性、事件和方法；3. 掌握滚动条、计时器的常用属性、事件；4. 掌握图形控件的使用方法。5.2 知识点1. 控件及其常用属性控件是包括在窗体对象内的对象，控件分为三类：内部控件（标准控件）、ActiveX控件（动态控件）、可插入对象。控件的常用属性：（1）Name属性VB每一个控件都有Name（名称）属性。Name属性在代码中用于
2、标识窗体、控件或数据访问对象的名称。（2）Caption属性用于确定对象的标题。对于窗体，该属性表示要显示在标题栏中的文本。当创建一个新的对象时，其Caption属性与Name属性值相同，但它们是两个完全不同的属性（3）BackColor属性和ForeColor属性BackColor属性用来返回或设置控件的背景颜色。ForeColor属性用来返回或设置在控件里显示文本时的前景颜色。（4）Left、Top、Height和Width属性Left和Top属性用于设置或返回控件的位置。Height和Width属性用于设置或返回控件的大小。（5）Enabled属性该属性用来确定一个窗体或控件在工程被运行
3、之后是否能够使用。如果某控件的该属性值设置为True，则该控件有效，若为False则表示无效。（6）Visible属性该属性用来确定一个窗体或控件在工程被运行之后是否可见。如果某控件的该属性值设置为True，则该控件是可见，若为False则表示该控件在工程运行时不可见。（7）Font类属性Name（字体名）：决定在控件中显示的文本所用的字体。Size（字号）：决定在控件中显示的文本所用的字号大小。Bold（粗体）：决定在控件中显示的文本是否为粗体样式。Italic（斜体）：决定在控件中显示的文本是否为斜体样式Strikethrough（删除线）：决定在控件中显示的文本是否带有删除线。Under
4、line（下划线）：决定在控件中显示的文本是否带有下划线。2. 单选按钮(OptionButton)单选按钮用于建立一系列的选项供用户选择，一般情况是成组出现。单选选项中一次只能并且必须选择其中的一个选项。为了将单选按钮编成一个组，可以采用将单选按钮放入同一个框架中、将单选按钮放入同一个图片框中或将单选按钮放在同一个窗体上。常用属性及事件：（1）Caption属性设置单选按钮边上的的文本标题。可以在按钮的右边显示，也可显示在按钮的左边，由Alignment属性决定其显示位置。 （2）Alignment属性设置单选按钮标题的显示位置：0Left Justify：为默认值，其显示方式为单选按钮在左
5、边，按钮的标题文字在右边；1Right Justify：非默认值，显示方式为单选按钮在右边，其标题文字在左边。 （3）Style属性设置单选按钮的样式是标准的还是图形的：0Standard：单选按钮为标准形式，其标题上只能显示文字，不能显示图形。 1Graphical：此时单选按钮为非标准形式，在其表面即可以显示文字，也可显示图形。 （4）Value属性设置或返回单选按钮是否被选中：当取值为True时，单选按钮的中间有一个黑色的实心点或显凹陷状，表示被选中；当取值为False时，单选按钮的中央为一个空心的圆或显凸起形状，表示未被选中。 （5）常用事件有Click事件、DblClick事件等。当
6、单击单选按钮时发生Click事件，通常不需要编写Click事件过程，因为当用户单击单选按钮时，会自动改变按钮的状态。 3. 复选框（CheckBox）复选框用来建立一系列供用户选择的选项，一般为成组出现。一次可以选择一个选项、多个选项或一个也不选。常用属性、事件和方法：（1）复选框与单选按钮一样也有Caption、Alignment、Style、Value等重要属性，功能与单选按钮类似，只有Value属性有所区别。复选框的Value属性决定复选框是否被选定，有三个值：0Unchecked为默认值，表示未选定，此时复选框按钮方框内为空或为凸起状。1Checked表示选定，此时复选框按钮方框内出现
7、一个或为凹陷状。2Grayed表示复选框不可使用，此时复选框为灰色。 （2）复选框的事件：Click和KeyPress事件。（3）复选框的主要方法：SetFocus方法，将焦点移到指定的控件或窗体。4. 框架（Frame）框架是一种容器控件，用框架可将一个窗体上的控件分成若干组。在框架容器内的控件可以和框架一起显示、隐藏、移动和删除。在框架内建立新的控件对象的方法是，单击工具箱上的控件对象，再在框架里面创建控件。若用双击工具箱控件对象的方法在框架上生成的控件不属于框架内控件。框架常用属性、事件：（1）Caption属性：设置框架的标题名称。如果Caption属性为空字符，则框架为封闭的矩形框。
8、（2）Enabled属性：默认值为True。若将框架的Enabled属性设为False，则程序运行时该框架在窗体中的标题为灰色，并表示框架内所有控件均被屏蔽，不允许用户对其进行操作。（3）Visible属性：默认值为True。若将框架的Visible属性设为False，则在程序运行时该框架及其内部的控件全部被隐藏，用户不可见。（4）常用事件：Click和DblClick事件。5. 列表框（List Box）列表框用于从其列表项中选择一个或多个选项，但不能直接在列表框中修改列表项的内容。列表框常用属性、事件和方法：（1）List属性：它是一个字符串数组，用来设置列表框中列表项的内容。List数组
9、的下标是从0开始的，也就是说第一个列表项为List(0)、第二个列表项为List(1)依次类推，最后一项为List(Listcount-1)（2）Listcount属性：用于记录列表框中列表项的数目，即记录List数组已有的元素数目，Listcount-1表示List数组的最大下标。该属性不允许用户直接进行修改，它是由系统根据列表项的增减自动修改的。（3）Listindex属性：用于记录当前选择的列表项的下标（索引值）。列表框中第一项的下标为0，第二项的下标为1，随后的项依此类推，如果没有选中任何列表项，则此属性值为-1。该属性不能在属性窗口中设置。（4）Selected属性：该属性也是一个数
10、组，它的各个元素分别与列表中的列表项相对应，其功能为记录列表项是否被选择。当它的某个元素的值为True时，表示与此元素相对应的列表项已经被选择；而它的某个元素的值为False时，表示与此元素相对应的列表项没有被选择。该属性不能在属性窗口中设置。 （5）Sorted属性：该属性决定在程序运行期间列表框的列表项是否按顺序排列显示。如果Sorted为True，则列表项按字母顺序排列显示；如果Sorted为False，则列表项按加入的先后顺序排列。该属性只能在属性窗口中设置。（6）Text属性：用于得到当前被选中的列表项的正文。程序设计时在属性窗口中不能设置此属性。 （7）MultiSelect属性：
11、用于确定是否能在列表框中进行复选以及如何进行复选。0None：不允许复选。1Simple：简单复选。鼠标单击或按下空格键，在列表中选中或取消选中项。2Extended：扩展复选。按下 Shift 并单击鼠标或按下 Shift 以及一个箭头键，将在以前选中项的基础上扩展选择到当前选中项。按下 Ctrl 并单击鼠标，在列表中选中或取消选中项。（8）Style属性：用于设置控件外观。0标准形式 1复选框形式（9）列表框的常用事件包括Click、DblClick、GotFocus、LostFocus等事件。列表框方法（10）Additem方法：用于在列表框中加入新的项目格式：对象.AddItem it
12、em ,index其中：对象为列表框的名字，Item为所要添加到列表框中的表达式，如果为字符常量，则要括在双引号中；index规定新项目要插入到什么地方，若省略则添加到列表框的未尾。 （11）Clear方法：用于清除列表框中列表项的全部内容，格式：对象.Clear（12）RemoveItem方法：用于在列表框中删除项目。格式：对象.RemoveItem Index其中：Index为我们要删除项目的序号，从0开始，但必须小于ListCount1。6. 组合框组合框是组合了文本框和列表框的特性而形成的一种控件，其大部分的属性与列表框同。组合框在列表框中列出可供用户选择的选项，当用户选定某项后，该项
13、内容自动装入文本框中。组合框有三种不同的风格，即下拉式组合框、简单组合框和下拉式列表框，使用那种形式的组合框由Style属性决定。 组合框的常用属性、事件及方法：（1）Style属性：用于确定组合框的类型和显示方式： 0：为下拉组合框 1：为简单组合框 2：为下拉列表框（2）Text属性：用来记录用户选中的列表框项目或者从文本框输入的文本。（3）组合框的常用事件及方法 当Style为0时，能接受Click和Change事件 当Style为1时，能接受DblClick、Click和Change事件 当Style为2时，只能接受Click事件7. 计时器（Timer）计时器控件通过Timer 事件
14、，可以有规律地隔一段时间执行一次事件过程代码。计时器的常用属性、事件：（1）Interval属性：这个属性可以设定Timer 事件触发的时间间隔，其时间间隔以毫秒为单位，取值范围为065535毫秒。一般设为1000毫秒，这样可以每秒种触发一次Timer 事件。 （2）Enabled 属性：计时器的Enabled 属性也是较常用的属性，该属性决定计时器控件是否能对时间的推移做出响应。若将Enabled 设置为False，此时计时器控件无效，即Timer事件不会触发；当Enabled设置为True时，计时器控件有效。（3）Timer事件：Timer事件的触发时间是从Interval 属性的设置值开
15、始，以后每隔这样一个时间段，就触发一次Timer事件。需要说明的是当Interval 属性值为0时，计时器无效。 8. 滚动条滚动条用于提供简便的定位，模拟当前所在的位置，作为输入设备，或者速度、数量的指示器来使用。VB中的滚动条可分为水平滚动条（HScrollBox）和垂直滚动条（VScrollBox）两种。滚动条两端各有一个滚动箭头，中间拥有一个可滑动的滑块。 常用属性、事件：（1）Value属性：记录滑块在滚动条内当前位置的值。（2）Max和Min属性：用来设置滚动条Value值的最大值和最小值。水平滚动条的滑块在最左端表示最小值Min，由左往右移动时，Value值随之递增，到最右端是最
16、大值Max。垂直滚动条的滑块在最上端表示最小值Min，由上向下移动Value值随之递增，到最下端为最大值Max。（3）LargeChange属性：设置每当鼠标在滚动条内单击时，滑块增（减）的Value属性值。（4）SmallChange属性：设置每当鼠标单击滚动条两端的箭头时，滑块增（减）的Value属性值。 （5）Change事件：该事件在滑块进行滚动或通过代码改变 Value 属性值时发生。（6）Scroll事件：当在滚动条内拖动滑块时触发该事件。9. 图片框（PictureBox）图片框用于显示图片，它可以从文件中装入并显示Bmp（位图文件）、Icon（图标文件）、JPEG和GIF几种格
17、式的文件。图片框也可作为其它控件的容器。图片框的常用属性：（1）Picture属性：用于设置在图片框中要显示图像的文件名。（2）AutoSize属性：用于设置图片框的大小是否可以随图像的大小而自动调整。当取值为False时，图片框保持原始尺寸，不能自动改变大小来适应其中的图形，当图形比图片框大，超出的部分将被截去。当取值为True时，图片框将根据图形大小自动调整尺寸与显示的图片匹配。 （3）Align属性：用于设置图片框在窗体中的显示方式，共有5个选择值：0None(默认值)，表示无特殊显示。1Align Top，表示图片框停靠在窗体上端并与窗体一样宽。2Align Bottom，表示图片框停
18、靠在窗体底部并与窗体一样宽。3Align Left，表示图片框停靠在窗体左端并与窗体一样高。4Align Right，表示图片框停靠在窗体右端并与窗体一样高。（4）LoadPicture函数在图片中显示的图像不仅可以由图片框的Picture属性决定，还可以在代码中通过LoadPicture函数进行设置，其格式为：对象名. Picture= LoadPicture(“图形文件名”) 10. 图像框（Image）图像框控件也用于显示图像，它支持的文件格式和图片框相同。图像框和图片框的区别在于：图像框比图片框占用较少的内存，所以显示速度更快；图像框不能作为“容器”控件；图片框可以通过Print方法接
19、收文本，而图像框不支持这一功能。图像框的常用属性：（1）Picture属性：用于设置在图像框中要显示图像的文件名。（2）Stretch属性：用于拉伸位图和图标，使其适应图像框的大小。当取值为False时，可以自动调整图像框大小以适应图像。当取值为True时，可以缩放图像来适应图像框的大小。11. 画线工具（Line）画线工具是图形控件，它可以画水平线、垂直线或者对角线。在设计时，可以使用画线工具在窗体或图形框上绘制所需的线。画线的操作步骤如下： 单击工具箱中的画线工具； 移动鼠标到要画线的起始位置； 按下鼠标左键并拖曳鼠标到要画线的结束处，放开鼠标左键。 12. 形状工具（Shape）形状工具
20、可以用来画矩形、正方形、椭圆、圆形、圆角矩形或者圆角正方形。这些图形的几何特性取决于形状工具的Shape属性值：0Rectangle 矩形1Square正方形2Oval椭圆3Circle圆4Rounded Rectangle 圆角矩形5Rounded Square 圆角正方形 5.3 疑难解析1. 遗漏对象名称在VB程序设计时，初学者常犯的一个错误是遗漏对象的名称，特别是在使用列表框时。例如，如果要引用列表框（List1）中当前选定的项目，List1.List(ListIndex)是错误的。即使当前焦点在List1上，VB也不是认为ListIndex是List1的属性，而是一个变量。所以正确的
21、引用方式是：List1.List(list1.ListIndex)。2. 列表框的Columns属性列表框的Columns属性决定列表框是水平还是垂直滚动以及如何显示列中的项目。如果水平滚动，则Columns属性决定显示多少列，下表是一个水平滚动两列显示的列表框。列数属性0（默认值）项目安排在一列中，且列表框竖直滚动1n项目安排在多个列中，先填第一列，再填第二列，列表框水平滚动并显示指定数目的列在程序运行期间，该属性是只读的，也就是说，在程序运行时不能将多列列表框变为单列列表框或将单列列表框变为多列列表框。3. Animation控件播放动画Animation控件用于播放动画的方法是Play。
22、要重复播放指定次数的动画，正确的语句格式应为：对象. Play n，常见错误是使用For语句循环。下面的程序代码不能重复播放n次，用户感觉到似乎只播放1次。 For i = 1 To n Animation1.Play i Next i4. MouseDown、MouseUp和Click事件发生的次序当用户在窗体或控件上按下鼠标按钮时MouseDown事件被触发，MouseDown事件肯定发生在MouseUp和Click事件之前。但是，MouseUp和Click事件发生的次序与单击的对象有关。当用户在标签、文本框或窗体上做单击时，其事件顺序为：MouseDown事件，MouseUp事件，Cli
23、ck事件。当用户在命令按钮上做单击时，其事件顺序为：MouseDown事件，Click事件，MouseUp事件。当用户在标签或文本框做双击时，其事件顺序为：MouseDown事件，MouseUp事件，Click事件，DblClick事件。5. Form_Load事件内无法用绘图方法在窗体或PictureBox控件上输出图形VB忽略在不可见对象上使用的图形方法。在Form_Load事件过程中窗体是不可见的，当窗体为AutoRedraw属性设置为False时，Form_Load事件中图形方法在窗体上不产生输出。同样，在Form_Load事件过程中PictureBox控件也不可见，如果用图形方法向P
24、ictureBox控件输出也将被忽略。有两种方法可解决此问题。方法一，将绘图程序代码放在其他事件内。通常在Paint事件中完成绘图，当对象在显示、位移、改变大小和使用Refresh方法时，都会发生Paint事件。方法二，将对象的AutoRedraw属性设置为True时，在该对象上任何以图形方法绘制的图形都将在内存中建立一个备份，在改变对象大小或重新显示的情况下，将自动从备份中调出图形产生重画过程。例如，要在Form_Load事件中使用绘图方法在PictureBox控件上输出图形，则应设置PictureBox. AutoRedraw为True，而不是窗体的AutoRedraw为True。当窗体的
25、Form_Load事件完成后，PictureBox将产生重画过程，从备份中调出图形。AutoRedraw属性设置为True时，Paint事件将不起作用。与方法一相比，方法二将使用更多的内存。6. VB坐标系中旋转正向在VB坐标系中，逆时针方面为正，各绘图方法都参照此坐标系。计算对象的坐标点时务必注意这一点。7. 如何清除已绘制的线条Line控件在窗体上移动时，原位置上不会留下图形痕迹。如果用Line方法来代替Line控件，则每次在新位置上画直线前，需要清除原来位置上的线条。清除原来位置上的线条，可将DrawMode属性设置为Xor模式，在原位置上重画一次直线，即可清除原来的线条。8. 如何判定
26、对象是否越出窗体的边界当对象在窗体上移动时，对象是否越出窗体的上边界或左边界，不能用对象的Top0或对象的Left0来判断，对象的Top0（Left“F”，“a”-“f”，“B”-“G”.Y-D,Z-E。程序运行结果参见下图5-3。图5-3例5-3程序界面解答：（1）新建工程，在窗体上添加2个标签框，2个文本框，1个命令按钮，并参照上图设置相关属性。（2）为“加密”按钮的单击事件编写代码，实现对文本框1中的字符加密功能，并在文本框2中显示出来。Private Sub Command1_Click() Dim strInput As String * 70 输入字符串 Dim Code As S
27、tring * 70 加密结果 Dim strTemp As String * 1 当前处理的字符 Dim i As Integer Dim Length As Integer 字符串长度 Dim iAsc As Integer 第i个字Ascii码 strInput = txtInput.Text 取字符串 i = 1 Code = Length = Len(RTrim(strInput) 去掉字符串右边的空格，求真正的长度 Do While (i = A And strTemp Asc(Z) Then iAsc = iAsc - 26 Code = Left$(Code, i - 1) +
28、 Chr$(iAsc) ElseIf (strTemp = a And strTemp Asc(z) Then iAsc = iAsc - 26 Code = Left$(Code, i - 1) + Chr$(iAsc) Else Code = Left$(Code, i - 1) + strTemp End If i = i + 1 Loop txtCode.Text = Code 显示加密结果End Sub例5-4 编写程序，实现的功能是，用户在组合框中输入的某一值，单击命令按钮Command1，将当前输入与组合框其他项进行比较，如有相同，则将相同表项删除。要求组合框中初始化在窗体装载事
29、件实现，参见图5-4。图5-4例5-4程序界面解答：（1）新建工程，在窗体上添加1个组合框，1个命令按钮。（2）为窗体的装载事件，编写事件过程，实现组合框中初始化。Private Sub Form_Load() Combo1.AddItem 离散数学 Combo1.AddItem 数字逻辑 Combo1.AddItem 大学英语 Combo1.AddItem 线性代数 Combo1.AddItem 操作系统End Sub（3）为Command1按钮的单击事件编写代码，实现题目要求的功能。Private Sub Command1_Click() Dim a As String, I As Int
30、eger a$ = Trim(Combo1.Text) If a Then For I = 0 To Combo1.ListCount - 1 If Combo1.List(I) = a Then Combo1.RemoveItem I Next I End If Combo1.SetFocusEnd Sub5.5 练习与思考习题5-1 编程说明：利用一个计时器、一个标签框和二个命令按钮制作一个动态秒表，程序界面如下图5-5所示。单击“开始“命令按钮，秒表开始计时，单击“结束“命令按钮，秒表结束计时，并在标签框显示运行时间，如“运行了小时分秒“。要求对象的属性都在程序代码中设定。程序如下，请在
31、横线上填入必要的内容，使其完整。图5-5习题5-1程序界面习题5-2 编程说明：在窗体上生成一个名称为Label1、标题为“添加新颜色：”的标签；一个名称为Text1的文本框，没有初始内容；一个名称为Combo1的下拉式组合框，并通过属性窗口输入项目（内容为“红”、“黄”、“兰”）；两个命令按钮，标题分别为“增加”、“计数”。当单击“增加”按钮，实现将文本框中的内容作为一个列表项被添加到组合框的列表中；当单击“计数”按钮，则在窗体左上角显示组合框中列表项的个数，如下图所示。图5-6习题5-2程序界面习题5-3 新建工程，在窗体上添加两个列表框，名称分别为List1、List2，在List1中预
32、设一些内容；再添加两个命令按钮，标题分别为“添加”、“清除”，如下图所示。编写程序实现：在运行时，如果选中右边列表框中的一个列表项，单击“添加”按钮，则把该项移到左边的列表框中；如果选中左边列表框中的一个列表项，单击“清除”按钮，则把该项移回右边的列表框中。图5-7习题5-3程序界面习题5-4新建工程，在窗体上添加2个框架，标题分别为“字体”、“修饰”，在“字体”框架内添加2个单选按钮，标题分别为“黑体”、“隶书”；在“修饰”框架内添加2个复选框，标题分别为“下划线”、“斜体”。再添加一个命令按钮，标题为“确定”，一个文本框，预设内容“程序设计”，如下图所示。编写程序实现：在运行时，如果选中一
33、个单选按钮和一个或两个复选框，则对文本框中的文字做相应的设置。 图5-8习题5-4程序界面习题5-5 改错题：本题程序段是一个比赛评分程序。运行时在文本框数组中输入7个分数，单击“计算得分”命令按钮，则最后得分显示在Text2文本框中。计算规则是去掉一个最高分和一个最低分后的平均分即为最后得分，如下图所示。程序中有四处错误，请改正过来。 图5-9习题5-5程序界面Private Sub Command1_Click() Dim k As Integer Dim sum As Single, max As Single, min As Single sum = Val(Text1(0).Text
34、) max = Val(Text1(0).Text) min = 0 -错误1 For k = 1 To 6 If max Val(Text1(k).Text) Then -错误2 max = Val(Text1(k).Text) End If If min Val(Text1(k).Text) Then -错误3 min = Val(Text1(k).Text) End If sum = sum + Val(Text1(k).Text) Next k Text2 = Str(sum / 5) -错误4End Sub习题5-6 改错题：本题程序段的功能是实现学号的查找。在列表框List1中已经
35、有若干人的简单信息，运行时在Text1（即“查找对象”右边的文本框）输入一个姓或姓名，单击“查找”按钮，则在列表框中进行查找，若找到，则把该人的信息显示在Text2文本框中，如下图所示。若有多个匹配的列表项，则只显示第1个匹配项；若未找到，则在Text2（即“查找结果”右边的文本框）中显示“查无此人”。程序中有三处错误，请改正过来。 图5-10习题5-6程序界面Private Sub Command1_Click() Dim k As Integer, n As Integer, found As Boolean found = False n = Len(Text1.Text) k = 1 -错误1 While k = List1.ListCount And Not found -错误2 If Text1.Text = Left$(List1.List(k), n) Then Text2