ＶＢＡリストボックスの質問です。

質問

こんばんわ！

ＶＢＡのリストボックスの質問です。

リストボックスのプロパティでMultiSelectをオン（複数選択可）にした状態で、二つ以上選択できないようにしたいです。

三つ選択できない状態にしたいのですが、可能でしょうか？

アドバイスのほどよろしくお願いいたします。

回答No.1

keithin · ベストアンサー

どうしても「二つ以上選択」になっちゃうんですね。

＞三つ選択できない状態にしたい

どのようにそうしたいのかはノーアイデアということなので。
・数を数える
・３つ目は選択させない

＃簡易版：
ListBox1のMultiSelectは「必ず」fmmultiselectMultiにしておくこと

private sub ListBox1_Change()
　dim i
　dim res

　for i = 0 to me.listbox1.listCount - 1
　if me.listbox1.selected(i) then
　　res = res + 1
　end if
　next i

　if res = 3 Then
　　me.listbox1.selected(me.listbox1.listindex) = false
　end if
end sub

お礼

なるほどｗｗ

me.listbox1.selected(me.listbox1.listindex) = false
と、すればよかったのですねｗ

こんな単純なことに気づかず＾＾；
ありがとうございました＾＾ｂ