控件的分类

控件的分类；标准控件（工具箱自带的控件，不可删）、active控件、可插入对象（可添加到工具箱再使用，可删）

1、active控件：Animation控件和SSTab控件的应用

添加方法；a、工程------部件----（找到其文件名）b、单击右键------部件-----（找到其文件名）

Active控件；

1、animation控件；Microsoft Windows Common Control-26.0文件名；MSCOMCT2.OCX

2、SSTab控件；Microsoft Tabbed Dialog Control 6.0文件名；TABCTL32.OCX

二、单选按钮（optionbutton）实现多选一

具有排他性；当其中一个被选中时其他的自行关闭，

例；钮分别有两个按为男和女，当选男时就不能同时选女

相应的属性设置；

Coption显示按钮名称

Value；false（单选按钮未被选中状态），ture（单选按钮被选中状态）

Enable；false（不可用，呈灰色），ture（单选按钮可用）

Style(显示按钮风格，用于其外观的设置)；0，为标准形式（即原始形态），1，为图形方式（单选按钮被选中状态图片装载在downpicture，单选按钮未被选中状态图片装载在picture，控件不可用装载在disablepicture）

If Index = 0 Then

Text1.FontName = "黑体"

ElseIf Index = 1 Then

Text1.FontName = "楷体"

ElseIf Index = 2 Then

Text1.FontName = "隶书"

ElseIf Index = 3 Then

Text1.FontName = "宋体" 总结；fontname=，fontsize=

其他的都加“”

If Check1(0).Value = 1 Then对象

Text1.Font = ture

ElseIfCheck1(1).Value = 1 Then

Text1.FontItalic = ture

ElseIfCheck1(2).Value = 1 Then

Text1.FontBold = True

ElseIfCheck1(3).Value = 1 Then

Text1.FontUnderline = ture

End If

常用方法：setfocus，move

例；option2.setfocus

Command.move width/2，height/6，left/6，top/7

复选框（checkbox）；钮分别有两个按为男和女，当选男时同时也可选女

属性以上相同（注；value用于设置或返回复选框的状态值，为0时未被选中，1时选中符号为黑色，2选中符号位灰色）

方法：SetFocus、Refresh和Move方法

框架（frame）；框架可以响应Click和DblClick等几类事件。但是大多数情况下只将他作为其他控件分类组合的一个容器。

相关属性：

Caption；用于设置名称

Enabled；false（运行时框架显示灰色，包括该框架内的控件均不可以），ture（可用状态）Visible；false（运行时该框架的控件不可见），ture（可见）

列表框（listbox）；作用，为用户提供选项列表，用户可以选择一个或多个项目，

例，当选择某一项时，会弹出相关的解释信息

属性；

列表框中只能在代码中设置不能在属性中添加的有；listindexlistcount text（获取被选取的内容，例，list2.additem list1.text结果会显示点击list1的内容

Columns;设置列表显示的列数，当为0时，则单列显示，不为0时多列显示（当列表容不下时会自动产生滚动条）

List；设置时向列表框中增加项目，当换行时ctrl+enter键

Listindex；第一项为0，依次类推

Listcount；第一项为1，依次类推在属性框内不能设置

Text；获取被选中列表项的内容

Multiselect；是否应许多项选择只能在属性窗中设置

0 为单选，1只用鼠标就可以单击多选，2时支持，shift连续选，ctril不连续选

Sorted；是否按字母排序，ture（字母升序），false（原来的排序）

Style；是否将复选框显示在列表中，0不用，1需要

AddItem方法

用于在程序运行时向列表框增加一个列表项。其用法是：对象. AddItem "列表项字符串" [,列表项序号]

例，List1.AddItem "发动机声"

List1.AddItem "调查哈哈"还可以list1.list(1)= "调查哈哈"

其中，对象可以是列表框或组合框，列表项序号是可选项，用于指定新插入的项在列表框中的位置，若没有列表项序号，则新增加的列表项在列表项的末尾。该方法一次只能增加一个列表项。

Select Case List1.ListIndex指明对象只有load发生后才发生

Case 0

Label1.Caption = "好东西"

Label1.Caption = "鲱精蛋白"

Case 1

Label1.Caption = "成本价"

Case 2

Label1.Caption = "干脆丢"

Case 3

Label1.Caption = "看得出"

End Select

ReMoveItem用于在程序运行时删除列表框指定的一个列表项。其用法是：对象. ReMoveItem 列表项序号

List1.RemoveItem 1（默认值为listindex的默认值）

Clear

用于在程序运行时清除列表框中所有的列表项。其用法是：对象. Clear

Refresh

用于在程序运行时刷新列表框。其用法是：对象. Refresh

Move

用于在程序运行时移动列表框的位置与变化其大小。其用法是：对象. Move 左坐标[,顶坐标,宽度,高度]

SetFocus

用于在程序运行时将焦点移动到列表框中。其用法是：对象. SetFocus

组合框（combobox）；

使用过程中根据需要添加项目到列表框

将文本框和列表框组合在一起

Combo1.AddItem "信息材料技术学院"

Combo1.AddItem "理工学院"

Combo1.AddItem "经济管理学院"

Combo1.AddItem "法学院"

Combo1.ListIndex = 0该项的作用第一项在文本框中显示

属性与列表框相似，

style属性；

0时，“下拉式组合框”由文本框和按钮、组合框组成相当于（列表框）

1时，“简单式组合框”由文本框、组合框组成

2时，“下拉式组合框”由文本框和按钮、组合框组成相当于（列表框）“

Text属性为文字

获得组合框被选中的吧项目值（相当于caption属性）

可以利用keypress事件在列表框添加相应的选项

方法；和列表框添加项目一样

Combo2.Clear

Select Case Combo1.Text

Case "信息材料技术学院"

Combo2.AddItem "计算机科学与技术"

Combo2.AddItem "电子信息工程"