允許多項(xiàng)選擇的列表框

1、技巧1 允許多項(xiàng)選擇的列表框一般情況下在顯示的列表框中用戶只能選擇一個(gè)列表項(xiàng)，而經(jīng)過簡(jiǎn)單的設(shè)置，列表框條目前可以顯示選項(xiàng)按鈕，允許進(jìn)行多項(xiàng)選擇，如下面的代碼所示。#001 Private Sub UserForm_Initialize()#002 Dim arr As Variant#003 arr = Array("經(jīng)理室", "辦公室", "生技科", "財(cái)務(wù)科", "營業(yè)部", "制水車間", "污水廠", "安裝公司", &qu

2、ot;其他")#004 With Me.ListBox1#005 .List = arr#006 .ListStyle = 1#007 .MultiSelect = 1#008 End With#009 End Sub代碼解析：窗體的Initialize事件過程，在窗體初始化時(shí)對(duì)列表框進(jìn)行設(shè)置。其中第5行代碼使用List屬性為列表框添加列表項(xiàng)，請(qǐng)參閱技巧Error! Reference source not found.。第6行代碼將列表框的ListStyle屬性設(shè)置為1fmListStyleOption，顯示用于多重選擇列表的復(fù)選框，ListStyle屬性規(guī)定列表框或組合框中的列表

3、的外觀，語法如下：object.ListStyle = fmListStyle參數(shù)object是必需的，一個(gè)有效的對(duì)象。參數(shù)fmListStyle是可選的，列表的可視風(fēng)格，設(shè)置值如表格 1121所示。常量值說明fmListStylePlain0外觀與常規(guī)的列表框相似，條目的背景為高亮fmListStyleOption1顯示選項(xiàng)按鈕，或顯示用于多重選擇列表的復(fù)選框默認(rèn)。當(dāng)用戶選定組中的條目時(shí)，與該條目相關(guān)的選項(xiàng)按鈕即被選中，而該組其他條目的選項(xiàng)按鈕則被取消選擇表格 11fmListStyle設(shè)置值ListStyle 屬性可用來改變列表框或組合框的可視外觀。通過一種不同于 fmListStyleP

4、lain 的設(shè)置，可以將任意控件的內(nèi)容作為一組單獨(dú)項(xiàng)目演示，每個(gè)項(xiàng)目都包含一個(gè)可視記號(hào)用以表示它是否被選中。如果控件支持單一選擇MultiSelect屬性被設(shè)置為mMultiSelectSingle，則可按下組中的一個(gè)按鈕。如果控件支持多重選擇，則可以按下組中兩個(gè)或更多的按鈕。第7行代碼將MultiSelect屬性設(shè)置為1fmMultiSelectMulti，允許列表框進(jìn)行多項(xiàng)選擇，MultiSelect屬性表示對(duì)象是否允許多項(xiàng)選擇，語法如下：object.MultiSelect = fmMultiSelect參數(shù)object是必需的，一個(gè)有效的對(duì)象。參數(shù)fmMultiSelect是可選的，控

5、件所用的選擇方式，設(shè)置值如表格 1122所示。常量值說明fmMultiSelectSingle0只可選擇一個(gè)條目默認(rèn)fmMultiSelectMulti1按空格鍵或單擊鼠標(biāo)以選定列表中一個(gè)條目或取消選定fmMultiSelectExtended2按 Shift 并單擊鼠標(biāo)，或按 Shift 的同時(shí)按一個(gè)方向鍵，將所選條目由前一項(xiàng)擴(kuò)展到當(dāng)前項(xiàng)。按 Ctrl 的同時(shí)單擊鼠標(biāo)可選定或取消選定表格 12fmMultiSelect設(shè)置值經(jīng)過以上設(shè)置，列表框顯示時(shí)可以進(jìn)行多項(xiàng)選擇并且條目前都有一個(gè)選項(xiàng)按鈕用以表示它是否被選中，如圖 1121所示。圖 11允許多項(xiàng)選擇的列表框如果將列表框的ListStyle

6、屬性設(shè)置為0則與常規(guī)的列表框相似。如果將列表框的MultiSelect屬性設(shè)置0則列表框只能進(jìn)行單項(xiàng)選擇，如圖 1122所示。圖 12允許單項(xiàng)選擇的列表框通過列表框的Selected屬性值可以判斷列表框中條目的選定狀態(tài)，如下面的代碼所示。#001 Private Sub CommandButton1_Click()#002 Dim i As Integer#003 Dim s As String#004 For i = 0 To ListBox1.ListCount - 1#005 If ListBox1.Selected(i) = True Then#006 s = s & List

7、Box1.List(i) & Chr(13)#007 End If#008 Next#009 If s <> "" Then#010 MsgBox "你選擇了：" & Chr(13) & s#011 Else#012 MsgBox "請(qǐng)最少選擇一個(gè)部門!"#013 End If#014 End Sub代碼解析：按鈕的單擊過程，將列表框中選中的條目使用消息框顯示出來。第4行到第8行代碼使用For.Next 語句循環(huán)遍歷列表框所有條目，通過返回的Selected屬性值判斷列表框中條目的選定狀態(tài)，如果處于選中狀態(tài)，第6行代碼將列表框選中條目的值賦給字符串變量s。Selected屬性判斷列表框中條目的選定狀態(tài)，語法如下：object.Selected( index ) = Boolean參數(shù)object是必需的，一個(gè)有效的對(duì)象。參數(shù)index是必需的，