Visual-Basic-清华大学vb编程语言基础-第8讲

第九讲常用控件内容提要常用控件•单选按钮和复选框•框架•列表框和组合框单选按钮和复选框都是提供选择项的控件单选按钮通常成组出现在一个单选按钮组中只能有一个单选按钮被选中复选框可以成组出现，也可以单独出现当复选框成组出现时，可以多选，也可以都不选复选框主要用来表示两种不同的状态如On和Off单选按钮和复选框的常用事件是Click事件单选按钮和复选框的常用属性具有Name、Enabled、Visible、Width、Height等通用属性Alignment属性设置控件和标题文本的位置关系•0-LeftJustify：控件按钮在左面（缺省设置）•1-RightJustify：控件按钮在右面单选按钮和复选框的常用属性Value属性确定单选按钮或复选框是否被选中•单选按钮：有两个取值True和False•复选框：有三个取值0，1，2。0-UnChecked：复选框未被选中，缺省设置1-Checked：复选框被选中2-Grayed：复选框变灰色，不可用单选按钮和复选框的常用属性Style属性设置按钮的显示样式，有两种取值：•0-Standard：标准方式，缺省设置•1-Graphical：图形方式Picture属性DownPicture属性单选按钮和复选框-例属性MultilineTextText1True空使用单选按钮和复选框设置文本框中文本的字号和风格。属性Option1Option2Option3Option4Check1Check2Check3Caption12243648加粗倾斜下划线ValueTureFalseFalseFalse000单选按钮和复选框-例PrivateSubCheck1_Click()Text1.FontBold=NotText1.FontBoldEndSubPrivateSubCheck2_Click()Text1.FontItalic=NotText1.FontItalicEndSubPrivateSubCheck3_Click()Text1.FontUnderline=NotText1.FontUnderlineEndSubPrivateSubOption1_Click()Text1.FontSize=12EndSubPrivateSubOption2_Click()Text1.FontSize=24EndSubPrivateSubOption3_Click()Text1.FontSize=36EndSubPrivateSubOption4_Click()Text1.FontSize=48EndSub框架可把窗体中的控件按功能分类可在窗体中创建多组单选按钮，实现程序功能。可提供总体的激活或屏蔽作用框架是一个容器控件，其主要功能是为其它控件分组。框架的属性和方法框架具有Name、Caption、Enabled、Visible、Width、Height等通用属性•Caption设置框架上的标题，如该属性设置为空字符，则框架为闭合的矩形•框架中的控件和框架是一个整体，框架内的控件随框架移动、显示、消失和屏蔽。框架的属性和方法框架的常用事件是Click和DblClick由于其主要功能是为控件分组，没有必要响应事件过程•框架的Enabled属性设置为False时，程序运行时，框架的标题变为灰色，框架中所有控件都被屏蔽。•如果把框架的Visible属性设置为False，程序运行时，框架和其内部的控件都将被隐藏。框架-例属性frame1frame2frame3Caption字号字体风格修改上例程序，使用3个框架用来设置字号、字体和风格属性Option5Option6Option7Option8Caption宋体楷体隶书黑体ValueTureFalseFalseFalse框架-例PrivateSubOption5_Click()Text1.FontName=宋体EndSubPrivateSubOption6_Click()Text1.FontName=楷体_GB2312EndSubPrivateSubOption7_Click()Text1.FontName=隶书EndSubPrivateSubOption8_Click()Text1.FontName=黑体EndSub列表框和组合框列表框和组合框都是提供选项的控件与单选按钮和复选框相比，占据较少的窗体空间，提供更多的选项列表框和组合框的外观有些区别列表框列表框提供多个选项供用户选择如果选项超过列表框的显示范围时，列表框会自动增加垂直滚动条用户只能从列表框中选择选项，而不能自己添加选项列表框常用属性列表框具有Name、Enabled、Visible、Width、Height等通用属性Columns属性设置列表框中的项目的显示方式是单列显示还是多列显示•0：单列显示(缺省值)•1或大于1的数：多列显示列表框常用属性List属性存放列表框中的项目，是一个下界为0的一维字符串数组,数组元素的值对应列表框中的一个项目list1.list(0)=“宋体”list1.list(1)=“楷体_GB2312”……List属性的设置：•设计阶段通过属性窗口设置•运行阶段用AddItem方法添加列表框常用属性ListIndex属性表示程序运行时在列表框中选中项目的索引值。选中第一个项目，该属性值为0，选中第二个项目，该属性值为1，……没有选中任何项目，则该属性的值为-1List1.ListIndex=2该属性只能在程序运行时设置或引用ListCount属性表示列表框中项目的数量List1.ListCount=5ListCount属性只能在运行时设置或引用列表框常用属性Sorted属性设置列表框中的项目是否按排序顺序显示•True：按字母数字的升序排列并显示•False：按加入到列表框中先后顺序排列并显示Sorted属性只能在设计阶段通过属性窗口设置Text属性Text属性的值是列表框中被选定项目的文本内容Text属性在设计和运行阶段都是只读的列表框常用属性MultiSelect属性决定列表框是否支持多选，有三种取值：•0-None：不支持多选，缺省设置•1-Simple：简单多选，单击选定•2-Extended：扩展多项选择，可使用Ctrl和Shift键多选Style属性指定列表框的外观，有两个值：•0-Standard：标准的列表框外观，缺省设置•1-CheckBox：项目前有复选框，此时即使MultiSelect属性值为0，列表框也支持多选。列表框常用属性Selected属性用来表示列表框中各个列表项目是否被选中被选中，返回True，未被选中，返回False。Selected属性实际上是一个逻辑数组，其元素个数是列表框中列表项目数。List1.Selected(2)返回True，其余的全部返回False该属性只能在运行时引用SelCount属性读取列表框中选中项目的数目，只能在程序运行阶段读取NewIndex属性表示最后添加到列表框中项目的下标列表框常用方法AddItem方法把一个选项添加到列表框中•“项目”是要加入到列表框中的项目，必须是字符串表达式•“索引值”是加入的项目在列表框中的索引值，省略索引值时，添加的项目放在已有项目的最后。列表框名称.AddItem项目[,索引值]Clear方法清除列表框中所有内容RemoveItem方法用于删除列表框中指定的项目列表框名称.Clear列表框名称.RemoveItem索引值列表框常用的事件Click当用鼠标单击列表框中的项目时触发Click事件DblClick当用鼠标双击列表框中的项目时触发Click事件GotFocus当列表框接收到焦点时触发GotFocus事件LostFocus当列表框接失去焦点时触发GotFocus事件列表框-例使用列表框编辑字体列表一个命令按钮用来从可用字体列表框中选择字体，分别显示在选择的字体和字体列表列表框中，另一个命令按钮用来从选择的字体列表框中选一种字体删除，并从字体列表中同时删除该字体。列表框-例PrivateSubForm_Load()lstFont.AddItemAriallstFont.AddItemTimesNewRomanlstFont.AddItemCourierNewlstFont.AddItemVerdanalstFont.AddItem宋体lstR.AddItem方正舒体lstR.AddItem方正姚体lstR.AddItem黑体lstR.AddItem华文彩云lstR.AddItem华文仿宋lstR.AddItem华文楷体lstR.AddItem隶书lstR.AddItem幼圆EndSub列表框-例PrivateSubcmdL_Click()lstL.AddItemlstR.List(lstR.ListIndex)lstFont.AddItemlstR.List(lstR.ListIndex)EndSubPrivateSubcmdR_Click()Dimi%Fori=0TolstFont.ListCount-1IflstFont.List(i)=lstL.List(lstL.ListIndex)ThenlstFont.RemoveItemiEndIfNextilstL.RemoveItemlstL.ListIndexEndSub组合框组合框由一个文本框和一个列表框组合而成既可以像文本框那样供用户输入，也可以像列表框一样提供一些选项供用户选择当用户选中列表框中的项目时，该项目自动装入文本框中。组合框常用属性具有Name、Enabled、Visible、Width、Height等通用属性具有文本框的SelStart、SelText、SelLength等属性具有列表框的List、Sorted、ListIndex、ListCount等属性还有Style属性和text属性组合框常用属性Style属性决定组合框的样式，有三个取值：•0-DropDown：下拉组合框，缺省设置•1-SimpleCombo：简单组合框•2-DropDownList：下拉列表框Style属性只能在设计时通过属性窗口设置，在运行时是只读的Text属性表示用户在文本框中输入的文本或从列表框中选择的项目文本组合框的常用事件三种组合框都接收Click事件，只有简单组合框接收DblClick事件，此外还有一些事件：Change事件当组合框中的文本变化时触发Change事件DropDown事件当组合框中的下拉列表显示时触发DropDown事件GotFocus事件LostFocus事件组合框的常用方法AddItem方法把一个选项添加到组合框中Clear方法清除组合框中所有内容RemoveItem方法用于删除组合框中指定的项目组合框名称.AddItem项目[,索引值]组合框名称.Clear组合框名称.RemoveItem索引值组合框-例1创建一个组合框，并可对组合框中的项目进行添加、删除、清空操作，要求程序运行时组合框中已有一些项目。PrivateSubForm_Load()cboName.AddItem王莹cboName.AddItem刘建国cboName.AddItem李春英cboName.AddItem张德江cboName.AddItem孙丽cboName.Text=cboName.List(0)EndSub组合框-例1PrivateSubcmdAdd_Click()cboName.AddItemcboName.TextEndSubPrivateSubcmdDel_Click()cboName.RemoveItemcboName.ListIndexEndSubPrivateSubcmdClear_Click()cboName.ClearEndSubPrivateSubcmdExit_Click()EndEndSub组合框－例２使用组合框设置文本框中文本的字体和字号PrivateSubForm_Load()