Excel VBA编程列表框.docx

Excel VBA编程 列表框Excel VBA编程 列表框 列表框主要用来显示选项列表，从其中可以选择一项或多项，当选项总数超过可显示的项目数，则在列表框控件上将自动添加垂直方向的滚动条，通过移动滚动条可以使列表框中的内容作上下滚动，以便用户能够找到所需内容。 1列表框常用属性 列表框与文字框做主要的区别在于列表框能够显示多行文字，并且每行文字是一个可以独立处理的项，除了一些常见的如Font、Height和name属性外，还包括以下属性。 l List属性 List属性是用来访问列表的全部选项，它是以数组的方式存在的。在列表中，每一项都是List属性的一个元素。所以，通过List属性，可以实现对列表框中每一选项的单独操作。另外，List属性只能够在程序代码中调用和设置。 例如，在列表框控件中显示“语文”、“数学”和“英语”选项，如图13-2所示。 显示 图13-2 列表框 Dim s(2) s(0) = "语文" s(1) = "数学" s(2) = "英语" Me.ListBox1.List = s l ListIndex属性 ListIndex属性的作用是设置或返回控件中当前选定选项的索引。对于列表框控件来说，ListIndex属性可以与List属性结合起来使用，共同确定选定选项的文本。 l ListCount属性 ListCount属性返回列表框中选项的数目，ListCount属性和List属性、ListIndex一样，只能够在程序代码中调用或设置。 l MultiSelect属性 通过设置MultiSelect属性可以实现在列表中同时选择多个选项。MultiSelect的属性值有三种，如表13-4所示。 表13-4 MultiSelect属性值 常量 fmMultiSelectSingle fmMultiSelectMulti fmMultiSelectExtended 属性值 0 1 2 多项选择 扩展多项选择 说明 缺省值，每次只能选择一个选项。 其中，选择扩展多项选择时，同时强下shift键和方向键，可以选择相连的多个选项，也可以在按下shift键的同时单击选择需要的选项。或者按下CTRL键，用鼠标逐个选择需要的选项。 l Selected属性 它是与List属性中各元素相对应的，用来判断List中每个选项是否被选择。例如，在上例中如果“语文”选项被选择，则Selected的值为True，相反则为False。 l Locked属性 列表框控件中的选项是可以选择的，但可以通过Locked属性，将其变为只读属性，即把Locked属性设置为True即可。 2列表框常用方法 由于列表框主要是用于罗列出可供选择的选项，所以其常用的方法主要是针对列表框中的选项。 l AddItem方法 列表框控件可以通过AddItem方法来添加新的选项。 格式： ListName.AddItem Item,index 其中，ListName是列表框控件的名称。Item是添加到列表中的字符串表达式，(若Item是字符串，则需要引号将它括起来)。Index是指定在列表中插入新选项的位置，例如Index为0表示第一个位置，若省略Index，则将选项插入在末尾。 对列表框中选项的添加是比较灵活的，在程序运行的任何时候使用 AddItem方法 动态地添加项目，通常在Form_Load事件过程中添加选项。 提 示 l RemoveItem方法 如果用户需要删除列表框中的选项，可以使用RemoveItem方法。 格式： ListName. RemoveItem ,index 其中，ListName和index参数与AddItem中的参数相同。