第07章VisualBasic的标准控件剖析.docx

第7章 Visual Basic的标准控件7.1 选择控件7.1.1 单选按钮组成选项组打开一个，关闭其余用框架分组1. 属性属 性含 义Name名称Caption标题Alignment0或vbLeftJustify，控件左，标题右1或vbRightJustify，控件右，标题左ValueTrue被选中，False未被选中Style0或vbButtonStandard，标准样式1或vbButtonGraphical，图形样式2．事件常用事件为Click例7.1 控制命令按钮字体大小窗体、1个命令按钮、4个单选按钮（其中两个图形样式）单选按钮Click事件代码：Private Sub Option1_Click() Command1.FontSize = 12End SubPrivate Sub Option2_Click() Command1.FontSize = 16End SubPrivate Sub Option3_Click() Command1.FontSize = 18End SubPrivate Sub Option4_Click() Command1.FontSize = 20End Sub7.1.2 复选框可在一组复选框中选择一个或多个Value属性：0未被选中，1被选中，2被禁用Click事件改变状态例7.2控制文本的显示方式控件及属性设置：控件NameCaptionAlignmentValueStyle文本框Text1无2无无复选框Check1粗体字1True0复选框Check2斜体字0False0复选框Check30False1复选框Check4删除线0False1Text1的MultiLine属性设置为TrueCheck3控件的Picture属性引用“下划线”图片编写如下事件过程：Private Sub Form_Load() Text1.FontName = 宋体 Text1.Text = 离离原上草， + Chr(13) + Chr(10) + 一岁一枯荣。 + _Chr(13) + Chr(10) + 野火烧不尽， + Chr(13) + Chr(10) + 春风吹又生。End SubPrivate Sub Check1_Click() If Check1.Value = 1 Then Text1.FontBold = True Else Text1.FontBold = False End IfEnd SubPrivate Sub Check2_Click() If Check2.Value = 1 Then Text1.FontItalic = True Else Text1.FontItalic = False End IfEnd SubPrivate Sub Check3_Click() If Check3.Value = 1 Then Text1.FontUnderline = True Else Text1.FontUnderline = False End IfEnd SubPrivate Sub Check4_Click() If Check4.Value = 1 Then Text1.FontStrikethru = True Else Text1.FontStrikethru = False End IfEnd Sub7.1.3 列表框提供列表式的数据供用户选择1. 属性属 性含 义Name名称Columns列表框的列数（0单列，1多列）List列表项数组，可通过下标（从0开始）访问ListCount列表项目的数量ListIndex已选中项目在列表框中的索引值（从0开始）MultiSelect用来设置一次可以选择的项目数0只能选择一项1可以选择多项2可以选择指定范围内的表项SelectedBoolean数组元素值为True被选中、False未被选中SelCount列表框中所选项目的数量Sorted列表框中的项目是否排序（True、False）Style0标准形式，1复选框形式Text最后一次选中的项目的文本2. 事件和方法（1）Click事件触发：鼠标单击、列表框的ListIndex属性被改变（2）DblClick事件触发：鼠标双击列表项（3）AddItem方法向列表框加入数据项格式：列表框.AddItem 数据项[，索引值]不指定索引值，加到末尾（4）Clear方法删除列表框的全部数据项（5）RemoveItem方法删除列表框中指定的项目格式：列表框.RemoveItem 索引值3. 应用举例例7.3向列表框中添加数据项在窗体中加1个文本框、1个命令按钮、3个列表框列表框及其属性设