如何实现listbox的多选、取值？

[pruple]

我要实现一个listbox控件的多选，并且把所以选中的文本取出来，设置ListArea.MultiSelect = 2时说不能给只读文件设置。请高手在指点。
谢谢！

[Sandrer]

是我错觉还是什么？怎么现在问一些基本问题的人特别多？？

[Tiger_Zhao]

该属性只能在设计时指定，不能通过代码修改。

[pruple]

谢谢VB老鸟！
多选的问题我解决了，但是，取值问题还是没有解决。我想把选中的全部取出，但是，每次取出的只是最后点击的选项。

[东方之珠]

ListArea的MultiSelect属性只能在开发阶段设置。
取值的问题(取出来的添加到列表框List1中，不重复)：

dim i as long,j as long
for i=0 to ListArea.ListCount-1
if ListArea.Selected(i)=true then

for j=0 to List1.ListCount-1
if trim(List1.List(j))<>trim(ListArea.List(i)) then
List1.AddItem ListArea.List(i)
List1.refresh
endif
next
endif
next

[meiZiNick]

我也想了解，谢谢LZ.

[guguniu]

[Quote=引用 4 楼 sandrer 的回复:]
是我错觉还是什么？怎么现在问一些基本问题的人特别多？？
[/Quote]
那你就回答啊？！