第8章常用控件设计.pptVIP

进入图8.3所示的用户界面后， 若选中复选框1使文本变成斜体，则Text1的FontItalic属性设为True； 若选中复选框2使文本变成红色，则设 Text1的前景色为红色。 复选框单击事件过程如下： Private Sub Check1_Click() Text1.FontItalic = True End Sub ? Private Sub Check2_Click() Text1.ForeColor = vbRed End Sub 单选框决定文本的字体是宋体还是隶书，*如果选中单选框1，则文本字体为宋体； *若选中单选框2，则文本字体为隶书。 其代码如下： Private Sub Option1_Click() Text1.FontName = ?宋体? End Sub Private Sub Option2_Click() Text1.FontName = ?隶体? End Sub 8.4 列表框与组合框 一、用途 列表框控件（ListBox）用于显示项目列表，用户可从中选择一个或多个项目。 如果项目总数超过了可显示的项目数， VB会自动加上滚动条。 列表框有两种风格：标准和复选列表框。通过它的Style属性来设置。如下图： 8.4.1 组合框 一、概念 组合框控件（ComboBox）将文本框和列表框的功能结合在一起，用户可以在列表中选择某项（只能选取一项）。或在编辑区域中直接输入文本内容来选定项目。 组合框共三种风格：下拉式组合框、简单组合框和下拉式列表框（见下图）。 二、主要属性 1．Style属性 该值用来指示控件的显示类型和行为。在运行时是只读的。对于列表框控件或组合框控件都有Style属性，但它们的含义是不同的。 例如：在窗体上放置2个列表框，将其Style属性分别设置为0和1；放置3个组合框，将它们Style属性分别设置为0、1和2。 2．List、ListCount和ListIndex属性 List： 字符型数组，存放列表框的项目数据，下标是从0开始的。 例如： List(0)表示第一项（Listindex=0）的内容 列表框项目可在设计模式下一项一项输入。 ListIndex：为整型值，选中的项目的序号，如果列表框可多选，则为最后一次选中项目的序号， 没有项目选中时为-1。 ListCount：为整型值，表示项目的数量，ListCount-1是最后一项的下标。 3．MultiSelect属性 用于指示是否能够在列表框控件中进行复选以及如何进行复选，在运行时是只读的。注意：组合框控件无此属性。 MultiSelect 属性设置值及含义 设置值 含 义 0 （缺省值）不允许复选 1 简单复选。鼠标单击或按下空格键在列表中选中或取消选中项。箭头键移动焦点 2 扩展复选。按下 SHIFT 并单击鼠标将在以前选中项的基础上扩展选择到当前选中项。按下 CTRL 并单击鼠标来在列表中选中或取消选中项 4．Selected属性 该属性返回或设置列表框控件中的一个项目的选择状态。该属性是一个逻辑类型的数组，数组元素个数与列表框中的项目数相同，其下标的变化范围与List属性相同。 例如：List1.Selected（0）=True表示列表框List1的第一个项目被选中，此时ListIndex的值设置为0。Selected属性在设计时是不可用的，即无法在属性窗口中设置属性值。 5．Sorted属性 返回一个逻辑值，当Sorted属性为True时列表框控件或组合框控件的项目自动按字母表顺序（升序）排序，为False时项目按加入的先后顺序排列显示。该属性只能在设计时设置，不能在程序代码中设置。 6．Text属性 对于组合框：（Combo1） 下拉式组合框与简单组合框（Style=0和1）： Text属性返回编辑区域中的文本。 下拉列表框，Text属性的返回当前被选中的项，值总与combo1.List（combo1.ListIndex）的值相同。 对于列表框：（List1） Text属性选中的文本，如果列表框可多选，则为最后一次选中项目。Text属性值总与List1.List（List1.ListIndex）的值相同。 列表框、组合框各主要属性的值： List1.List(List1.ListIndex)=“abc” ListCount = 6 ListIndex = 3 (下标从0开始的)