第四章常用控件

第四章常用控件本章要求：掌握常用控件单选钮、复选框、框架、滚动条、列表框、组合框、时钟等控件的常用属性、重要事件和方法的使用；在VisualBasic中，单选与复选按钮控件主要作为选项提供给用户选择。不同的是，在一组选择按钮中，单选控件只能选择一个，其他单选控件自动变为未被选中状态；而在一组复选按钮中，可以选定任意数量的按钮。4.1清单类控件4.1.1单选钮和复选框4.1清单类控件单选按钮4.1.1单选钮和复选框1单选钮用途单选钮（OptionButton）也称作选择按钮。一组单选钮控件可以提供一组彼此相互排斥的选项，任何时刻用户只能从中选择一个选项，实现一种“单项选择”的功能，被选中项目左侧圆圈中会出现一黑点。4.1清单类控件（4）Style属性0--Standard：标准方式1--Graphical：图形方式说明：在Style属性设置为1时，可使用Picture属性2.单选钮重要属性（1）Caption：文本标题。设置单选钮的文本注释内容。（2）Alignment属性：0：LeftJustify(缺省设置)控件钮在左边，标题显示在右边。1：RightJustify控件钮在右边，标题显示在左边。（3）Value属性True:单选钮被选定False:单选钮未被选定4.1清单类控件3方法SetFocus方法是单选钮控件最常用的方法，可以在代码中通过该方法将Value属性设置为True。与命令按钮相同，使用该方法之前，必须要保证单选钮处于可见和可用状态（即Visible与Enabled属性值均为True）。4事件Click事件是单选钮控件最基本的事件，一般情况用户无需为单选钮编写Click事件过程，因为当用户单击单选钮时，它会自动改变状态。5单选按钮程序举例文本框（Text1）显示预设的字样；单选按钮一（Option1），单击此按钮可以将文本框里显示的字样改变成黑体；单选按钮二（Option2），单击此按钮能将文本框里显示的字样改变成楷体。4.1清单类控件1、单选按钮一：PrivateSubOptionl_Click()Text1.FontName=黑体EndSub2、单选按钮二：PrivateSubOptin2_Click()Text1.FontName=楷体_GB2312EndSub4.1清单类控件4.1清单类控件2复选框1.用途复选框（CheckBox）也称作检查框、选择框。一组复选框控件可以提供多个选项，它们彼此独立工作，所以用户可以同时选择任意多个选项，实现一种“不定项选择”的功能。选择某一选项后，该控件将显示√,而清除此选项后√消失。复选框被选中4.1清单类控件复选框与单选按钮Value属性的比较复选框0--Unchecked：未被选定1--Checked：选定2--Grayed：灰色，禁止选择单选钮True:单选钮被选定False:单选钮未被选定，缺省设置请大家注意，单选控件与复选控件的Value值是不同的，而这是初学者最容易混淆的。2.重要属性Caption、Alignment、Style与单选钮相同4.1清单类控件3.事件Click事件是复选框控件最基本的事件。用户一般无需为复选框编写Click事件过程，但其对Value属性值的改变遵循以下规则：单击未选中的复选框时，Value属性值变为1；单击已选中的复选框时，Value属性值变为0；单击变灰的复选框时，Value属性值变为2。4复选按钮举例：4.1清单类控件文本框（Text1）显示预设的字样；复选按钮一（Check1)可以将文本框里面的字变为粗体；复选按钮二（Check2）可以将文本框里面的字变为斜体；复选按钮三（Check3）可以给文本框里面的文字加上下划线。4复选按钮举例：4.1清单类控件复选按钮一：PrivateSubCheck1_Click()IfCheck1.Value=1ThenText1.FontBold=TrueElseText1.FontBold=FalseEndIfEndSub4.1清单类控件复选按钮二：PrivateSubCheck2_Click()IfCheck1.Value=1ThenText1.FontItalic=TrueElseText1.FontItalic=FalseEndIfEndSub4.1清单类控件复选按钮三：PrivateSubCheck3_Click()IfCheck1.Value=1ThenText1.FontUnderline=TrueElseText1.FontUnderline=FalseEndIfEndSub4.1清单类控件联想：复选按钮是不是非得经过这种选择判断？能不能如单选按钮那样直接使用呢？还是上面这个例子，假设复选按钮一不经过判断，而直接在点击事件中输入代码：PrivateSubCheck1_Click()Text1.FontBold=TrueEndSub那么你会发现，复选按钮一经点击就不能取消字体加粗的效果了；而实际上，复选按钮的功能是，点击一次即选中时，字体加粗；点击第二次即取消选择，字体不再加粗；以此类推。4.1清单类控件5：知识点：1、切记，单选按钮与复选按钮的Value值是不同的。单选按钮：选中时，Value值为True；未被选中时，Value值为False。复选按钮：选中时，Value值为1；未被选中时，Value值为0;禁止选择，Value值为2。你可以试验一下，将复选按钮的Value值分别用True/False代替，看一下会出现什么问题。2、两种选择按钮都针对Click事件做出反应，但单选按钮比较简单，只需直接输入代码即可；复选按钮比较复杂，需经过条件判断后再做出反应。切记！4.1清单类控件4.1清单类控件4.1.2框架(Frame)Frame控件为控件提供可标识的分组。它是一个容器控件。当需要在同一窗体内建立几组互独立的单选钮时，就需要用框架将每一组单选钮框起来，把OptionButton控件分成几组，如下形式。设三个框架设Caption为“字形4.1清单类控件重要属性1.Caption属性：框架标题2Enabled属性：缺省为TrueFalse：标题呈灰色，不允许对框架内的所有对象进行操作3.Visible属性：True：框架及其控件可见。False：框架及其内部的控件被隐藏起来。4.1清单类控件事件：框架可以响应的事件Click、DblClick,一般不需要有关框架的事件过程。为了将控件分组，首先需要绘制Frame控件，然后绘制Frame里面的控件。注意：单选按钮,复选框和框架控件综合举例例：设计个人资料输入窗口，使用选项按钮组输入性别与民族,使用复选框输入个人爱好。4.1清单类控件PrivateSubCommand1_Click()IfText1.Text=Thena=InputBox(您忘了输入姓名！,注意,请在此输入姓名)Ifa=“”Ora=“请在此输入姓名”ThenExitSubText1.Text=aEndIfp1=Text1.Text+，程序如下：4.1清单类控件p2=IIf(Option1,男,女)+“,p3=IIf(Option3,汉族,少数民族)+“,p4=喜欢：IfCheck1.Value=1Thenp4=p4+Check1.Caption+，IfCheck2.Value=1Thenp4=p4+Check2.Caption+，IfCheck3.Value=1Thenp4=p4+Check3.Caption+，IfCheck4.Value=1Thenp4=p4+Check4.Caption+，aa=p1+p2+p3+IIf(p4=喜欢,无爱好,p4)Label4.Caption=Left(aa,Len(aa)-1)+。Text1.SetFocusEndSub4.1清单类控件4.1清单类控件例4.1设计一个简单小型的编辑器，用户可以在文本框中输入一段文字，单击复选框和单选框，可以改变文本的字体，字型和颜色根据程序流程，应该先对“开始”命令按钮（Command1）编写单击事件过程，代码如下所示：PrivateSubCommand1_Click()Image1.Visible=FalseCommand1.Visible=FalseCommand2.Visible=FalseText1.Visible=TrueOption1.Visible=TrueOption2.Visible=TrueCheck1.Visible=TrueCheck2.Visible=TrueEndSub“退出”命令按钮（Command2）用于关闭应用程序，因此使用End方法，其代码如下：PrivateSubCommand2_Click()EndEndSub4.1清单类控件进入图4.3所示的用户界面后，若选中复选框1使文本变成斜体，则Text1的FontItalic属性设为True；若选中复选框2使文本变成红色，则设Text1的前景色为红色。复选框单击事件过程如下：PrivateSubCheck1_Click()Ifcheck1.value=1thenText1.FontItalic=TrueelseText1.FontItalic=falseEndSubPrivateSubCheck2_Click()IfCheck2.value=1thenText1.ForeColor=vbRedelseText1.ForeColor=vbBlackEndSub单选框决定文本的字体是宋体还是隶书，如果选中单选框1，则文本字体为宋体；若选中单选框2，则文本字体为隶书。其代码如下：PrivateSubOption1_Click()Text1.FontName=宋体EndSubPrivateSubOption2_Click()Text1.FontName=隶体EndSub4.1清单类控件4.1清单类控件4.1.3列表框与组合框一、用途列表框控件（ListBox）用于显示项目列表，用户可从中选择一个或多个项目。如果项目总数超过了可显示的项目数，VB会自动加上滚动条。列表框有两种风格：标准和复选列表框。通过它的Style属性来设置。如下图：4.1清单类控件组合框控件（ComboBox）将文本框和列表框的功能结合在一起，用户可以在列表中选择某项（只能选取一项）。或在编辑区域中直接输入文本内容来选定项目。组合框共三种风格：下拉式组合框、简单组合框和下拉式列表框（见下图）。4.1清单类控件二、主要属性1．Style属性该值用来指示控件的显示类型和行为。在运行时是只读的。对于列表框控件或组合框控件都有Style属性，但它们的含义是不同的。例如：在窗体上放置2个列表框，将其Style属性分别设置为0和1；放置3个组合框，将它们Style属性分别设置为0、1和2。4.1清单类控件2．List、ListCount和ListIndex属性List：字符型数组，存放列表框的项目数据，下标是从0开始的。例如：List(0)表示第一项（Listindex=0）的内容列表框项目可在设计模式下一项一项输入。ListIndex：为整型值，选中的项目的序号，如果列表框可多选，则为最后一次选中项目的序号，没有项目选中时为-1。ListCount：为整型值，表示项目的数量，ListCount-1是最后一项的下标。4.1清单类控件3．MultiSelect属性用于指示是否能够在列表框控件中进行复选以及如何进行复选，在运行时是只读的。注意，组合框控件无此属性。MultiSelect属性设置值及含义设置值含义0（缺省值）不允许复选1简单复选。鼠标单击或按下空格键在列表中选中或取消选中项。箭头键移动焦点2扩展复选。按下SHIFT并单击鼠标将在以前选中项的基础上扩展选择到当前选中项。按下CTRL并单击鼠标来在列表中选中或取消选中项4.1清单类控件4．Selected属性该属性返回或设置列表框控件中的一个项目的选择状态。该属性是一个逻辑类型的数组，数组元素个数与列表框中的项目数相同，其下标的变化范围与List属性相同。例如：List1.S