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

Question

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

Answer 1

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