项目五VB常用控件

项目五VB常用控件学习目标掌握框架和单选按钮的使用掌握复选框的的使用掌握下拉列表框和组合框的使用掌握滚动条的使用掌握计时器的使用知识1框架和单选按钮控件功能：框架的主要作用是作为容器以放置其他控件对象。将控件对象分成相互独立的控件组。单选按钮由一个圆圈及其右边的文字组成，是一种表示状态的选项，通常以选项组的形式出现。对于一组单选按钮，只能选择其中之一知识1框架和单选按钮控件属性：控件属性属性值说明名称Option1设置单选按钮的名称，CaptionOption1设置按钮的标题。EnabledTrue设置按钮是否可用FalseValueTrue设置按钮是否为选中状态False控件属性属性值说明名称Frame1设置框架的名称，CaptionFrame1设置框架的标题。【案例5.1】设置字体字号颜色

要求：设计如图窗体，单击不同的单选按钮，改变标签的字号、字体和颜色

【案例5.1】设置字体字号颜色对象对象名称属性属性值标签Label1Caption好好学习天天向上框架Frame1Caption字号Frame2Caption字体Frame3Caption颜色单选按钮Option1Caption12Option2Caption22Option3Caption32Option4Caption宋体Option5Caption黑体Option6Caption隶书Option7Caption红色Option8Caption蓝色Option9Caption绿色【案例5.1】设置字体字号颜色部分程序代码PrivateSubOption1_Click()Label1.FontSize=12EndSubPrivateSubOption4_Click()Label1.FontName=”宋体”EndSubPrivateSubOption7_Click()Label1.ForeColor=VBRedEndSub【案例5.2】建立如图界面，选择不同方式和地点，单击窗体，在标签上显示相应文字。【案例5.2】建立如图界面，选择不同方式和地点，单击窗体，在标签上显示相应文字。对象对象名称属性属性值标签Label1Caption空框架Frame1Caption交通Frame2Caption地点单选按钮Option1Caption飞机Option2Caption火车Option3Caption广州Option4Caption昆明【案例5.2】建立如图界面，选择不同方式和地点，单击窗体，在标签上显示相应文字。代码PrivateSubForm_Click()IfOption1.Value=TrueThena="飞机"Elsea="火车"EndIfIfOption3.Value=TrueThenb="广州"Elseb="昆明"EndIfLabel1.Caption="坐"+a+"去"+bEndSub知识2复选框控件功能：复选框由一个矩形框及其右边的文字组成。当存在多个复选框时，每个复选框都是相互独立的，可以多选、单选，也可以一个都不选。知识2复选框控件属性属性值说明NameCheck1设置复选框的名称CaptionCheck1设置复选框的标题EnabledTrue设置复选框是否可用FalseValue0复选框为未选中状态1复选框为选中状态2复选框处于禁止状态，灰色【案例5.3】建立如图界面，选择不同字形，标签的文字发生相应变化【案例5.3】建立如图界面，选择不同字形，标签的文字发生相应变化对象对象名称属性属性值标签Label1Caption复选框的应用Font三号复选框Check1Caption粗体Check2Caption斜体Check3Caption下划线【案例5.3】建立如图界面，选择不同字形，标签的文字发生相应变化代码：PrivateSubCheck1_Click()IfCheck1.Value=1ThenLabel1.FontBold=TrueElseLabel1.FontBold=FalseEndIfEndSubPrivateSubCheck2_Click()IfCheck2.Value=1ThenLabel1.FontItalic=TrueElseLabel1.FontItalic=FalseEndIfEndSubPrivateSubCheck3_Click()IfCheck3.Value=1ThenLabel1.FontUnderline=TrueElseLabel1.FontUnderline=FalseEndIfEndSub【案例5.4】选择不同爱好，单击确定按钮，在文本框中显示“我喜欢XXXX”；【案例5.4】选择不同爱好，单击确定按钮，在文本框中显示“我喜欢XXXX”；对象对象名称属性属性值文本框Text1Text空复选框Check1Caption上网Check2Caption读书命令按钮Command1Caption确定Command2Caption退出【案例5.4】选择不同爱好，单击确定按钮，在文本框中显示“我喜欢XXXX”；部分程序代码：PrivateSubCommand1_Click()IfCheck1.Value=1Thena="上网"EndIfIfCheck2.Value=1Thenb="读书"EndIfText1.Text="我喜欢"+a+bEndSub知识3列表框控件功能：列表框控件提供一个选项列表，用户可以从中选择一项或多项。知识3列表框控件属性属性值说明名称List1设置列表框的名称。Columns0显示列表项目时的列数。List空设置列表项目内容（设计或运行时都可以设置）。Style00：标准11：复选框形式MultiSelect0列表框不支持多选。1列表框支持简单多选。按住Ctrl键同时逐个选择多个项目。2列表框支持扩展多选；按住Ctrl键同时逐个选择多个项目；按住Shift键同时可以选择多个连续的项目。SortedTrue列表框中的项目是否排序，True排序，False不排序。False知识3列表框控件属性说明ListCount返回列表框中的总项目数。ListIndex返回已选中项目的序号（项目序号从0开始）。Text返回当前选中项目的文本内容。Selected判断列表框中的项目是否被选中，True为选中；False为未选中。Selcount返回选中项目数知识3列表框事件：1.Click：单击列表框时引发该事件。2.DblClick：双击列表框时引发该事件。知识3列表框方法：1.添加项目（AddItem）格式：<列表框名>.AddItem

<项目字符串>功能：向列表框中添加项目，项目内容要用双引号引起来。2．

删除项目（RemoveItem）格式：<列表框名>.RemoveItem

<索引值>功能：从指定列表框中删除指定的项目，索引值为要删除项目的序号即ListIndex的值。3．

删除所有选项（Clear）格式：<列表框名>.Clear功能：删除指定列表框中所有项目【案例5.5】在列表框中选择一项，单击命令按钮，在文本框中显示相应内容。【案例5.5】在列表框中选择一项，单击命令按钮，在文本框中显示相应内容。对象对象名称属性属性值标签Label1Caption项目数Label2Caption选中项目内容Label3Caption选中项目序号文本框Text1—3Text空列表框List1ListA,BB…命令按钮Command1Caption确定【案例5.5】在列表框中选择一项，单击命令按钮，在文本框中显示相应内容。

在列表框中设置List属性时，每输入一项后要按Ctrl+回车后再输入下一项。代码PrivateSubCommand1_Click()Text1.Text=List1.ListCountText2.Text=List1.TextText3.Text=List1.ListIndexEndSub【案例5.6】在文本框中输入文字，单击“添加”按钮，将文本框中文字添加到列表框中【案例5.6】在文本框中输入文字，单击“添加”按钮，将文本框中文字添加到列表框中对象对象名称属性属性值文本框Text1Text空列表框List1ListA,BB…命令按钮Command1Caption添加代码PrivateSubCommand1_Click()List1.AddItemText1.TextEndSub【案例5.7】在列表框中选择一项，单击“删除”按钮，则删除此项。【案例5.7】在列表框中选择一项，单击“删除”按钮，则删除此项。对象对象名称属性属性值列表框List1ListA,BB…命令按钮Command1Caption删除PrivateSubCommand1_DblClick()List1.RemoveItemList1.ListIndexEndSub知识4组合框控件功能：组合框实际就是文本框和列表框的组合控件属性属性值说明名称Combo1设置组合框的名称Style0下拉组合框：用户可在列表中选择也可直接输入项目1简单组合框：用户可在列表中选择也可直接输入项目2下拉列表框：用户只能在列表中选择项目【案例5.8】建立如图三个类型的组合框，并输入相应内容【案例5.8】建立如图三个类型的组合框，并输入相应内容对象对象名称属性属性值组合框Combo1List1,2…Style0Combo2Lista,b…Style1Combo3List甲,乙…Style2【案例5.9】在两个组合框中选择姓名和科目，单击确定按钮，在文本框中显示“XXX选修XXX科目”

【案例5.9】在两个组合框中选择姓名和科目，单击确定按钮，在文本框中显示“XXX选修XXX科目”

对象对象名称属性属性值组合框Combo1List张三，李四，王五Style2Combo2ListVB,3DMAX…Style1文本框Text1Text空命令按钮Command1Caption确定PrivateSubCommand1_Click()Text1.Text=Combo1.Text+”选修”+Combo2.Text+”科目”EndSub知识5 滚动条控件功能：用于辅助浏览显示内容、确定位置，也可作为数据输入工具。控件分类：滚动条分为水平滚动条和垂直滚动条两类。事件：Change事件：当滚动条上的滚动块位置发生变化时触发本事件Scroll事件：当用鼠标直接拖动滚动块时触发本事件知识5 滚动条控件属性属性值说明名称HScroll1设置水平滚动条的名称Vscroll1设置垂直滚动条的名称Min0滚动块位于滚动条左端或顶端时所代表的滚动条数值Max32767滚动块位于滚动条右端或底端时所代表的滚动条数值SmallChange1单击滚动条两端的滚动箭头时，滚动条数值的增减量LargeChange1在滚动条上空白处单击时，滚动条数值的增减量Value0滚动条的当前值【案例5.10]单击或拖动滚动条，改变滚动条的值并显示在文本框中（Max——1000；Min——0；SmallChange——10；LargeChange——100）。【案例5.10]单击或拖动滚动条，改变滚动条的值并显示在文本框中（Max——1000；Min——0；SmallChange——10；LargeChange——100）。对象对象名称属性属性值水平滚动条HScroll1Max1000Min0SmallChange10LargeChange100文本框Text1Text空代码PrivateSubHScroll1_Change()Text1.Text=Str(HScroll1.Value)EndSubPrivateSubHScroll1_Scroll()Text1.Text=Str(HScroll1.Value)EndSub知识6定时器

控件功能：定时器是一种特殊的控件，它能有规律地以一定的时间间隔引发定时器事件而执行相同的程序代码。定时器在运行时并不可见，因而其在窗体上的位置不重要。定时器的事件Timer：间隔Interval属性设置的时间即引发该事件。说明Interval值越小，则Timer事件响应越频繁。定时器的Ena