[396.xls]



' [mjSumple] のコード
'■■ リストボックスで複数選択の可否を設定する ■■
'
'

'フォームを表示します
Sub frmSumple_Show()
    
Dim intCnt1 As Integer
Dim intCnt2 As Integer
Dim strListData(10, 2)  As String

    'リストボックスに表示するデータの作成
    For intCnt1 = 0 To 2
        For intCnt2 = 0 To 10
            strListData(intCnt2, intCnt1) = "1000000"
        Next intCnt2
    Next intCnt1
    'データをセット
    frmSumple.lstTest.List() = strListData
    '最初は単一選択状態にする
    frmSumple.lstTest.MultiSelect = 0
    
   'フォームの表示
    frmSumple.Show

End Sub



' [frmSumple] のコード

Private Sub optBtn1_Click()
    frmSumple.lstTest.MultiSelect = fmMultiSelectSingle
End Sub

Private Sub optBtn2_Click()
    frmSumple.lstTest.MultiSelect = fmMultiSelectMulti
End Sub

Private Sub optBtn3_Click()
    frmSumple.lstTest.MultiSelect = fmMultiSelectExtended
End Sub