[已解决]请问，如何获得“窗体”ListBox的多选结果？

mansohu

控件工具箱中的Listbox可以用ListCount,selected(i)还获得多选的结果，那么窗体控件的多选结果如果获得呢？

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-2-25 21:40

跳转到最佳答案楼层

hwc2ycy

1. Private Sub CommandButton1_Click()
   
2.     Dim strSelect$
   
3.     Dim i As Integer
   
4.     Dim iSelectCount
   
5.     With Me.ListBox1
   
6.         For i = 0 To .ListCount - 1
   
7.             If .Selected(i) Then
   
8.                 iSelectCount = iSelectCount + 1
   
9.             End If
   
10.         Next
    
11.     End With
    
12.     If iSelectCount < 2 Then MsgBox "请选择2个及2个以上的工作表合并"
    
13. 
    
14. End Sub

复制代码

hwc2ycy

hwc2ycy

正好我在做题，用到了这个。
图是设置LISTBOX的，代码是判断是否多选了。

mansohu

hwc2ycy 发表于 2013-2-25 21:40
正好我在做题，用到了这个。
图是设置LISTBOX的，代码是判断是否多选了。

什么都没有，没看见图啊？

hwc2ycy

设置listbox的liststyle属性为1
multiselect属性为1