VB.Chap06常用控件(一)摘要.pptVIP

　作用：拥有文本框和列表框的功能，在列表框中列出可供用户选择的选项，当用户选定某项后，该项内容自动装入文本框中。 　特征：可以像文本框一样接受用户的输入，也能像列表框一样列举多个项目供用户选择。 组合框的功能与列表框非常相近，但它一次只能选取或输入一个选项，而不能设定为多重选取模式，其主要特点是具有带向下箭头的方框。 在程序运行时，按下此按钮就会下拉出一个列表框供用户选择项目。另外，还可以在组合框上方的框中输入数据，如右图所示。 2.组合框 （1）主要属性——Style 类型 属性值 输入 下拉式组合框 0 能 简单组合框 1 能 下拉式列表框 2 不能 （2）主要属性——Text 作用：存放用户所选项目内容或直接输入的文本 是只读属性 （2）主要事件 Style=0 时，可响应Click、Change和Dropdown事件。 Style=1时，可响应Click、 DblClick和Change事件。 Style=2时，可响应Click和Dropdown事件。 （3）主要方法 AddItem 对象.AddItem item [, index] 　　index: 0～ListCount-1.每插入一项ListCount自动加1 RemoveItem 对象.RemoveItem index 　　该方法将指定位置的项目删除，同时ListCount自动减1 Clear 对象.Clear 　　清除所有项目，ListCount置0 Combo控件 出现下拉菜单时 触发的事件 例[6-7] 组合框示例 程序代码如下： Private Sub Cb1_Click() Label3.FontSize ＝ Cb1.Text　　　　　　　 End Sub Private Sub Cb2_Click() Label3.FontName ＝ Cb2.Text End Sub P131例6-7  课堂演示 下面通过一个模仿Windows中的字体设置对话框的应用程序，来说明组合框的基本应用方法。 例6- 6：利用组合框等控件设计字体、颜色、大小和字形，并在一个标签框中显示相关的设置效果。窗体的界面设计如图所示。 在窗体上放置4个组合框，并把它的名称和Text属性依次改为：cboFont、cboColor、cboFontSize和cboFontStyle。 在窗体下方添加1个框架，并在框架中添加1个标签框，把它的名称改为lblExample，并把它的背景修改成白色、修改边框样式BorderStyle = 0。 另外，添加若干标签框对各控件及属性进行相应的说明。 组合框等控件示例 P131例6-7  课堂练习 04-组合框 在窗体的Load()事件中设置各个组合框的列表项及初值。 Private Sub Form_Load() For i = 2 To 26 Step 2 添加字体大小列表 cboFontSize.AddItem i Next i For i = 28 To 72 Step 4 cboFontSize.AddItem i Next i cboFont.AddItem 宋体 添加字体列表 cboFont.AddItem 隶书 cboFont.AddItem 楷体_GB2312 cboFont.AddItem 黑体 cboFont.AddItem 幼圆 cboFontStyle.AddItem 标准 添加字形列表 cboFontStyle.AddItem 粗体 cboFontStyle.AddItem 斜体 cboFontStyle.AddItem 粗体斜体 cboFont.Text = 宋体 设置4个组合框的初始值 cboColor.Text = 黑色 cboFontStyle.Text = 标准 cboFontSize.Text = 12 cboColor.AddItem 黑色 添加颜色列表,注意颜色的排列顺序, cboColor.AddItem 蓝色 使它的ListIndex 值与QBColor的函数值一致 cboColor.AddItem 绿色 cboColor.AddItem 青色 cboColor.AddItem 红色 cboColor.AddItem 洋红色 cboColor.AddItem 黄色 cboColor.AddItem 白色 cboColor.AddItem