リストボックス内の選択数を制限するには？？

解決

とも 2002-11-21 23:07:48 No: 105487

マルチセレクトモードでリストボックス内の情報を複数選択する場合に、
その選択数を制限させることは出来るのでしょう？
たとえば、10個以上は選択出来ないにするとか・・・

よろしくお願いします。

かげうら 2002-11-22 00:07:22 No: 105488

Private Sub List1_Click()
If List1.SelCount > 10 Then
List1.Selected(List1.ListIndex) = False
End If
End Sub
こんな感じ？？

とも 2002-11-22 00:48:43 No: 105489

ありがとうございます。
試してみたのですが、うまく出来ません。
SelCountというプロパティが無いのですが？

ExcelVBAで作業しております。

かげうら 2002-11-22 01:01:47 No: 105490

うーーー。
EXCELVBAですか。
VB6.0（SP5）です、、、、、

残念ながら。。守備範囲外です。

とも 2002-11-22 01:10:53 No: 105491

かげうらさん、すいません。説明不足でお手数掛けてしまって・・・

oku URL 2002-11-22 07:13:27 No: 105492

EXCEL VBAに無いのはしょうがないので、
リストボックスをなめ回せばよいだけです。

Private Sub CommandButton1_Click()
Dim intIndex As Integer
Dim intSel As Integer

    For intIndex = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(intIndex) = True Then
            intSel = intSel + 1
            If intSel > 10 Then
                ListBox1.Selected(intIndex) = False
            End If
        End If
    Next intIndex
End Sub
こんな感じで良いですか？

とも 2002-11-23 00:51:40 No: 105493

なるほど！！
ありがとうございます。

ここには2回目の質問なのですが、2回ともokuさんに助けて頂きました。
実は1回目のHMは違うのですが・・・

本当にありがとうございました。
もしまた行き詰った時はよろしくお願い致します。