リストボックス 何も洗濯されてない場合はNullではなく""？

VB2008です。
フォームにリストボックスを設置し、何も選択せずに
コマンドボタンを押すと下記のコードのとおり動くようにしているのですが

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If IsNothing(ListBox1.Text) = True Then
MessageBox.Show("選択してください（Null）")
ElseIf (ListBox1.Text) = "" Then
MessageBox.Show("選択してください（空白）")
Else
MessageBox.Show(ListBox1.Text)
End If
End Sub

「選択してください（空白）」が返ってきます。
ということは何も選択していないときはNULLではなく""なのでしょうか？

No.1 ベストアンサー 回答者： redfox63 回答日時： 2009/06/28 01:59

Textプロパティ参照するのであれば ""の空文字列が返ると思いますよ

選択された項目があるかどうかをチェックするのであれば
if ListBox1.SelectedItems.Count = 0 then
または
if ListBox1.SelectedIndex = -1 then
などを使って判断したほうがいいかもしれません

この回答へのお礼

こちらの方法も使えるのですね。ありがとうございます。

お礼日時：2009/06/28 17:06

No.2 回答者： imogasi 回答日時： 2009/06/28 11:11

リストボックスはコマンドボタンと組み合わせて、リストボックスの選択された値を取る、タイミングを決めなくても（決めなくて）、リストボックスのクリックイベントなどで、クリックしたタイミングの、選択された値を取れるから、それの方が良いと思うが。

またリストボックスは、表示されているアイテム以外を選択することは出来ないようだ。パスするような仕組みなら値を取らなければ良い。
私には判ってない、高等なニーズが有るなら、説明しておいてくれれば、ありがたい。
ーーー
TextBoxの場合は質問のようなことをやる。
FormでテキストボックスなどとListBoxの組み合わせのなか（画面）にリストボックスも有る場合なら、質問の必要性もあろうかとおもう。
以下VBAでテストしたので、あくまで参考にしてVB2008で応用できればしてください。
fmMultiSelectSingleの場合
どれも選択しない状態は操作では実現が難しかった。選択をクリアするプログラム行を入れて置かないと。
Sub test02()
ListBox1.Value = ""
End Sub
を実行し
Private Sub CommandButton1_Click()
If ListBox1.Text = "" Then
MsgBox "選択なし"
Else
MsgBox ListBox1.Text
End If
End Sub
を実行すると「選択なし」のメッセージになったが。
ーーー
Multiselectの場合
Sub test01()
Dim lItem As Long

For lItem = 0 To ListBox1.ListCount - 1

If ListBox1.Selected(lItem) = True Then
MsgBox ListBox1.List(lItem)

ListBox1.Selected(lItem) = False

End If

Next
End Sub
のように１つずつアイテムが選択されているか聞いていかないとダメで、選択されたItem数が直接捉えられるプロパティはないようだ（？）。

この回答へのお礼

ありがとうございます。ちょっと難しいので勉強します。

お礼日時：2009/06/28 19:42