|
INAさん Jカーターさん
回答ありがとうございます!
お返事が遅くなってすみません。
>リストの1件目が、空白でそれが選択されているようなことはありませんか?
>未選択であれば、-1 となるはずです。
それが、リストは空白ナシにしています。
>複数選択で使っているListBoxでしたら
リストボックスは複数選択可にしていました。
ためしにMultiSelectを0にしてListIndexをみたらちゃんと-1になりました!!
複数選択リストボックスはListIndexが普通に使えないのですね・・・・。
>Selectedプロパティを使ってループして調べる必要があるかもしれません。
ためしに作ってみたのですが、こういうことでしょうか?
Dim list_count As Integer
Dim counter As Integer
'1=選択済み 0=未選択
Dim select_flag As Integer
list_count = lst_Bumon.ListCount
counter = 0
select_flag = 0
Do
If lst_Bumon.Selected(counter) = True Then
select_flag = 1
Exit Do
End If
counter = counter + 1
Loop While counter > lst_count
If select_flag = 0 Then
MsgBox ("リストボックスから選択してください")
End If
これでリストボックス未選択の制御ができるつもりなのですが・・・。
まだVBAに不慣れなもので、よろしければまたご教授ください。
お願いします。
|
|