ACTIVE控件属性的设置.ppt

6.1 控件概述 6.3 框架6.2 单选按钮和复选框6.5 滚动条与滑块6.6 计时器第6章 常用控件6.6 鼠标器和键盘6.4 列表框和组合框结束6.1控件概述1.标准控件¨ 标准控件是由Visua1 Basic本身提供的例 如，文本框、命令按钮和框架等都是标准控 件（或称内部控件）2.ActiveX控件¨ ActiveX控件是扩展名为.ocx的独立文件， 其中包括Visua1 Basic各种版本都提供的控件 （如DataCombo和DataList等）ActiveX控件 必须添加到工具箱中才能使用3.可插入的对象¨ 可插入的对象通常都是OLE对象由 其它应用程序创建的不同格式的数据， 如Microsoft Excel工作表对象和Microsoft Project日历对象等都是可插入对象这 些对象可以被添加到工具箱中并在窗体 中使用使用可插入对象，就可以在 Visua1 Basic中编程控制其它应用程序的 对象6.2 单选按钮和复选框控件名称用 途OptionButton（如果需要 附加的组则 使用 Frame）用户只能选择 一项的小选择 集CheckBox 用户可选择 一个或多个选项 的小选择 集1.单选按钮和复选框的重要属性2.单选按钮和复选框的主要事件6.2.1 单选按钮和复选框的重要属性 （1）Alignment属性0 (缺省值)文本是左对齐的，控件是右对齐的。

1 文本右对齐，控件左对齐 （2）Value属性 单选按钮： Value=True，表示单选按钮被选中；Value=False默认设置, 表示单选按钮不被选中 复选框： Value=0，默认设置，表示复选框不被选中；Value=1，复 选框被选中;Value=2,复选框为灰色,表示禁止用户选择 （3）Style属性 Style=0，标准方式；Style=1，图形方式（参见图6-5）图6-2-1 复选框（左）和单选按钮（右）（a）复选框和单选按钮（未选中状态） （b）复选框和单选按钮（选中状态）图6-2-2 图形方式的单选按钮和复选框6.2.2单选按钮和复选框的主要事件 单选按钮和复选框可以接受的事件主要有click事件但往往 并不需要编写其事件过程因为单击时，它们自动改变状态 例6-2：用复选框和单选按钮控制文本框中输入的字体 （1）界面设计 本程序采用如图6-6所示界面包括两个标准形式的单选按钮，两个图 形方式的复选框，一个文本框（设计时已经输入文字，字体三号），一 个Picture图片框，用于显示文本框中文本的字体），一个Command命 令按钮用于切换字体各控件的属性见表6-2图6-2-3 复选框和单选按钮的应用表6-2 控件属性控件名标题Option1下划线 Option1删除线 Check1粗体 Check1斜体 Text1无 Picture1无 Command 1下一个字体Private Sub Check1_Click()Text1.FontBold = IIf(Check1=1,True,False) ' “粗体”复选框是否按下（选中） End SubPrivate Sub Check2_Click()Text1.FontItalic = IIf(Check2=1,True,False) ' “斜体”复选框是否按下（选中） End Sub Private Sub Option1_Click()Text1.FontUnderline = IIf(Option1,True,False) ' “下划线”单选按钮是否选中 End Sub Private Sub Option2_Click()Text1.FontStrikethru = IIf(Option2,True,False) ' “删除线”单选按钮是否选中 End Sub Private Sub Command1_Click()Static I ' 声明变量Dim OldFontPicture1.ClsOldFont = FontName ' 保留原来的字体。

Text1.FontName = Screen.Fonts(I) ' 改变到新的字体I = I + 1 ' 计数器增一If I = FontCount Then I = 0 ' 重新开始FontName = OldFont ' 恢复原来的字体Text1.FontBold = IIf(Check1=1,True,False) ' “粗体”复选框是否按下（选中）Text1.FontItalic = IIf(Check2=1,True,False) ' “斜体”复选框是否按下（选中）Text1.FontStrikethru = IIf(Option1,True,False) ' “下划线”单选按钮是否选中Text1.FontStrikethru = IIf(Option2,True,False) ' “删除线”单选按钮是否选中Picture1.Print Text1.FontName End Sub6.3 框架框架（Frame）控件可以用来对其他控件进行分组，以便于 用户识别 ¨为了将控件分组，首先需要绘制框架，然后绘制框架里面的 控件。

¨如果需要对窗体上已有的控件进行分组，可以选中需要放入 框架中的控件，然后采用“编辑”菜单的“剪切”命令将控件剪 切到剪贴板中，再选中框架，单击“编辑”菜单的“粘贴”命令 将选中的控件放入框架中如果要将框架内的控件移动到框 架之外，也只能采用“剪切”和“粘贴”的方法 ¨框架的主要属性有Name、Caption 、Enable、Visible等 ¨Caption为框架的可见文字部分，如果省略，则框架形式上如 同一个封闭的矩形框 ¨当框架的Enable属性为False时，框架内的所有控件都将屏蔽 ，用户无法对其操作，此时框架的标题（Caption）为灰色 ¨当框架的Visible属性为False时，框架及其内部的所有控件都 将隐藏起来6.4 列表框和组合框 Ø 列表框（ListBox） 控件显显示项项目列表，用户从其中可以 选择一项或多项列表框的默认名为ListX，组合框的默认 名为ComboX（X=1，2，…列标框和组合框的图标 参见图6-7 Ø 组合框（ComboBox） 控件将文本框（TextBox） 控件和 列表框控件的特性结结合在一起－既可以在控件的文本框部分 输入信息，也可以在控件的列表框部分选择一项。

组合框 有三种风格：下拉式组合框、简单组合框和下拉式列表框用户可以通过单击单击 列表框或组组合框中的某一项项来选择选择 所需选选 项项，也可以在组组合框中输输入自己的选项选项（即使输入的内容并不 包含在列表中），但是只能在列表框中进行选择，这是列表框 和组合框的最大区别6-4-1 列表框组合框图标1. 列表框和组合框的重要属性(1)List属性 List属性用来存放列表框和组合框列表部分的选项列表是 一个字符串数组，数组的每一项都是一列表选项，对列表框 和组合框控件在设计时可以通过属性窗口进行设置，也可以 在运行时进行读写其语法为：[.].List () [=]（2）ListIndex属性ListIndex属性用来存放控件中当前选择项目的索引，在设计时 不可用如果未选定项目，则 ListIndex 属性值是 –1对于 ComboBox 控件，表示用户向文本框部分输入了新文本3）Sorted属性Sorted属性决定控件的元素是否自动按字母表顺序升序排序 Sorted属性值为True，则选项按字母顺序升序排列，否则 按输入的顺序排列4）Text属性 对下拉组合框和简单组合框控件，表示编辑域中的文本，该 文本可以从列表中选择或从键盘输入。

对下拉列表框和列表框控件，表示在列表中选择的选项，返 回值总与表达式List(ListIndex)的返回值相同Text属性只能在程序中设置，为只读属性 2. 列表框特有的重要属性（1）MultiSelect属性 MultiSelect属性用来设置在列表框控件中进行复选以及如何 进行复选在运行时是只读的 MultiSelect 属性值在0、1、2之间选择 MultiSelect 属性值=0：（缺省值）不允许复选MultiSelect 属性值=1：简单复选鼠标单击或按下空格键， 在列表中选中或取消选中项使用箭头键移动焦点MultiSelect 属性值=2：扩展复选按下 SHIFT 并单击鼠标 或按下 SHIFT 以及一个箭头键（上箭头、下箭头、左箭头 、右箭头）将在以前选中项的基础上扩展选择到当前选中项 按下 CTRL 并单击鼠标在列表中选中或取消选中项3）SelCount 属性SelCount 属性返回在列表框控件中被选中项的数量 如果没有选项被选中，那么 SelCount 属性将返回 0 值 （4）Style属性 Style属性控制列表框的外观Style属性值=0：默认值，不带复选框，单击选项即可选中。

Style属性值=1：带复选框，必须在选项左边的复选框（小 方框）中出现小对钩时才可选中列表框名.Selected() [= ]Selected属性值为一个逻辑数组，其中的每个元素对应列表 中的一项，表示列表框控件中的一个项的选择状态当数组 元素值为True时，对应项被选中，否则没有选中在设计时 不可用Selected属性的语法为：（2）Selected属性3. 组合框特有的重要属性¨对于组合框控件， Style 属性值可以为0，1和2¨Style 属性值=0：缺省值，此时组合框称为下拉式组合框 包括一个下拉式列表和一个文本框只有在单击文本框 右边的下拉按钮时才可见下拉式列表框可以从列表选择 或在文本框中输入¨Style 属性值=1：此时组合框称为简单组合框包括一个 文本框（文本框的右边无下拉按钮）和一个不能下拉的列 表框可以从列表中选择或在文本框中输入用户的选择（ 可以是列表中没有的内容）¨Style 属性值=2：此时组合框称为下拉式列表框这种样 式仅允许从下拉式列表中选择4.列表框和组合框的常用方法（1）AddItem方法 AddItem方法用于将项目添加到列表框或组合框控件，其语 法为： .AddItem [，]（2）Clear方法 Clear方法用于清除列表框或组合框或系统剪贴板的内容。

其 语法为： .Clear（3）RemoveItem方法 RemoveItem 方法用以从列表框或组合框中删除一项其语 法为： .RemoveItem 5. 列表框和组合框的常用事件¨列表框和组合框的常用事件有Click事件、DblClick事 件、Dropdown事件等其中只有简单组合框（ Style=1）才能响应Dbllick事件另外，下拉式组合框 和简单组合框具有Change事件（在输入文本时响应事 件）在大多数情况下，都是在用户选择项目后，读 取列表框或组合框的Text属性例6-4-1：建立两个列表框，分别为可购商品列表框和顾客购 物列表框要求程序能够完成商品选购、撤消选购、添加新 商品、删除现有商品、统计全部选购的商品价格等操作 （1）界面设计 如图6-4-2所示，在窗体上添加的2个框架、两个列表框、5个 命令按钮除列表框外其余控件的Caption属性见表6-4表6-4 控件属性Frame 1Frame2 Command 1Command2 Command3 Command 4Command 5 Caption商品列 表购物列 表选购 商品撤消选购添加商品删除商品价格统计图6-4-2 运行界面Private Sub Command1_Click()If List1.ListIndex -1 Then List2.RemoveItem List2.ListIndex ' 选。