VB 技巧 - 列表框使用技巧

Rhinoceros

　1、排列列表框中的列表项



　　在设计或运行时，都可以通过将列表框的SORTED属性设置为TRUE（默认为FALSE）来对列表框的各项按字母顺序进行排列。



　　2、怎样返回被选中的列表项的文本



　　可以使用list.text属性 或 list.list(list.listindex)来得到列表项。



　　3、使用多选列表框



　　多选列表框允许用户一次选择多个列表项。通过对MULTISELECT属性的设置，就可以把一个列表框变成多选列表框。用户可以用SHIFT和CTRL键选择多个列表框。下面是设置它时可能用到的值：



　　0--不允许进行多选（默认）



　　1--简单的多选，单击鼠标或空格键可在列表框中选中一项或取消选择



　　2--扩展的多选。按下SHIFT键并单击鼠标或按下SHIFT键和一个箭头键



　　也许你会说，我已经把上面的MULTISELECT属性设置好了，而且也能够在列表框中实现多选，但是怎么才能返回选中的条目呢？是这样的，我们可以使用一个循环来找到被选中的项： 循环中利用了SELECTED属性：



　　　Dim intloopindex as integer 　　　　　　　　　’intloopindex为循环变量

　　　for intloopindex =0 to list.listcount-1 　　　’list.listcount-1是列表框中最大的列表项序号

　　　　　if list.selected(intloopindex) then 　　　’selected属性为列表项的选中状态，为布尔型

　　　　　　　list2.additem list.list(intloopindex) ’将选中的列表项添加到另外一个列表框中

　　　　　end if 　　　　　　　　　　　　　　　　　 ’我们可根据自己需要写这段代码

　　　next intloopindex



　　4、使列表框具有水平滚动条：只须用COLUMNS属性将列表框划分为多列即可，默认情况下属性的值为0，不允许多列；设置为其他值时，列表框就会将他的列表项显示为多列，而我们对每一项的操作方法不变。



　　5、在列表框中使用复选框：可通过设置STYLE属性，将一个列表框变成使用复选框的列表框，下面是设置STYLE属性时所用的值： 0--标准列表框（默认） 1--带有复选框的列表框



　　6、清空列表框 LIST.CLEAR



　　其实上面的这些技巧对于和列表框类似的控件例如：文件列表框(FileListBox)、文件夹列表框(DirListBox)等也是适用的，赶快拿去试一试吧。