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

質問

こんばんわ！

ＶＢＡのリストボックスでMultiSelectを使用してみたのですが、いまいち理解できません。
最終的には複数選択で２つ以上を同時に選択できないようにしたいです。

最終的なサンプルとMultiSelectについて分かりやすく解説しているサイトのご紹介をお願いします。

アドバイスの程よろしくお願いいたします＞＜

回答No.1

keithin · ベストアンサー

はて？

＞最終的には複数選択で２つ以上を同時に選択できないようにしたいです。

それは結局MultiSelectをsingleにしておく事ではないかな？と思いますが，まぁそれはさておき。

作成例：
・幾つ選択されたか調べる
・複数選択されていたら１つにする

private sub commandbutton1_click()
　dim i as long
　dim res as long
　for i = 0 to me.listbox1.listcount - 1
　　if me.listbox1.selected(i) then
　　　res = res + 1
　　end if
　next i

　select case res
　case 0
　　msgbox "no selection"
　case 1
　　msgbox "1 item selected"
　case else
　　msgbox "multi item selected"

　　for i = 0 to me.listbox1.listcount - 1
　　　me.listbox1.selected(i) = (i = me.listbox1.listindex)
　　next i
　end select
end sub

＞サイト

VBAのヘルプが先です。

お礼

失礼しました＾＾；
３つ以上ですねｗ
でも、出していただいたソースが分かりやすいので、理解できました＾＾
ありがとうございました＾＾