VBAのListBoxのClickイベントで同じ場所を連続でクリックしてもイベントを取得したい

Question

vbaで業務システムを軽く作っています。

listboxにいくつか製番をいれており、クリックするとその値取得しています。

1回だけなら問題ないのですが、1度クリックするとカーソルがその位置に残り、連続でクリックしてもなにもおきせん。

例

• 1
• 2
• 3
• 4

があった場合、1→2→1は全部大丈夫ですが、1→1→1は最初の1しか反応しません。
MouseDownを使うと連続のクリックにも対応していますが、ListBox1.ListIndexが使えず、どこをクリックしたのかはX,Yの座標から取得しないとダメで、それは避けたいです。

ListBox1.ListIndexを使える形でいい方法はないでしょうか？

Answer 1

MouseUpイベントはどうでしょうか。

Private Sub ListBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    Debug.Print ListBox1.ListIndex
End Sub

ただ、リストの余白部分をクリックした場合も発生するので、その対策が必要になりますね。
どうしたものか。

Comments

[Yuiti628]

できました！！
ありがとうございます。

[hatena19]

回答にはありますが、リストボックスのアイテム数が少なくて下に余白がある場合、そこをクリックしても、MouseUpが発動しますので、その対策が必要ですが、その辺は大丈夫ですか。
アイテム数は多くて余白がないならいいですが。

[Yuiti628]

そこは大丈夫です！
余白がないようになっていました！！