Visual Basic程序设计教程第08章.pptVIP

（3）Text属性：当ComboBox控件的Style属性设置为0或为1时，该属性用于返回或设置编辑域中的文本。而当Style属性设置为2时，该属性为只读属性， Style属性为0 下拉组合框 Style属性为1 简单组合框 Style属性为2 下拉列表框 * （4）ListIndex属性：返回或设置在组合框下拉列表中当前选择项目的索引，在设计时不可用。 （5）ListCount属性：返回组合框的列表部分项目的总个数。 （6）Sorted属性：指定列表项目是否自动按字母表顺序排序。 True——按字母表顺序排序； False（缺省值）——不按字母表顺序排序 * 2．事件 Style属性值为0——响应Click、Change、DropDown事件。 Style属性值为1——响应Click、DblClick、Change事件。 Style属性值为2——响应Click、DropDown事件。 3．方法 AddItem：向组合框中添加新的项目， RemoveItem：从组合框的列表中删除项目 Clear：清除列表框中的所有项目 * 【例8-4】　用组合框设置文本框的背景颜色、文字颜色、字体、字号。 Combo1和Combo2：红、绿、蓝、黑、白色； Combo3：宋体、黑体、隶书、楷体_GB2312； Combo4：10、12、14、16、18。 * Private Sub Form_Load() ‘设置运行初始时各组合框的文本部分和文本框的初始状态一致 Combo1.Text = 黑色 Combo2.Text = 白色 Combo3.Text = 宋体 Combo4.Text = 10 End Sub Private Sub Combo1_Click() ‘Combo1中选择某种颜色 Select Case Combo1.Text Case 黑色 Text1.ForeColor = vbBlack Case 白色 Text1.ForeColor = vbWhite Case 红色 Text1.ForeColor = vbRed Case 绿色 Text1.ForeColor = vbGreen Case 蓝色 Text1.ForeColor = vbBlue End Select End Sub * Private Sub Combo2_Click() ‘Combo2中选择某种颜色 Select Case Combo2.Text Case 黑色 Text1.BackColor = vbBlack Case 白色 Text1.BackColor = vbWhite Case 红色 Text1.BackColor = vbRed Case 绿色 Text1.BackColor = vbGreen Case 蓝色 Text1.BackColor = vbBlue End Select End Sub * Private Sub Combo3_Click() ‘Combo3中选择某种字体 Text1.Font = Combo3.Text End Sub Private Sub Combo4_Click() ‘运行时既可以从下拉列表中选择字号，也可以直接在其文本编辑域输入字号 Text1.FontSize = Val(Combo4.Text) End Sub * 如果在Combo4中直接输入字号并按下Enter键，也可以改变字号，则需要编写如下代码： Private Sub Combo4_KeyUp(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then 如果在Combo4中按下了Enter键 If Val(Combo4.Text) 0 Then 如果输入的值为正数 Text1.FontSize = Val(Combo4.Text) End If End If End Sub * 如果在Combo4中直接输入字号并将焦点移开，也可以改变字号，则需要编写如下代码： Private Sub Combo4_LostFocus() If Val(Combo4.Text) 0 Then 如果输入的值为正数