リストボックスの選択解除された項目のインデックスを返しますか？

Question

私は選択したアイテムのインデックスを見つけることに気付いていますが、選択解除されたアイテムを見つけるにはどうすればいいですか？私はmutli selectとcheckboxオプションを持つリストボックスを持っています。アイテムの選択を解除すると、そのアイテムのインデックスがわかります。

私のコードは、選択されたインデックスを取得します。

Private Sub ListBox1_Change() 
Dim lItem, indexNum As Long 
For lItem = 0 To Me.ListBox1.ListCount - 1 
    If Me.ListBox1.Selected(lItem) Then 
     indexNum = lItem + 1 
    End If 
Next lItem 
End Sub 

Answer 1

このような何かが働くだろう：

Private Sub ListBox1_Change() 
Dim lItem, indexNum As Long 
For lItem = 0 To Me.ListBox1.ListCount - 1 
    If Me.ListBox1.Selected(lItem) Then 
     indexNum = lItem + 1 
    Else 
     indexNum = lItem + 1 
     deselected = indexNum 
     MsgBox deselected 
    End If 
Next lItem 
End Sub 

、それが選択されている場合、それは合計。それ以外の場合は、新しいものを追加しますが、あなたが望むことを実行します（私のケースではmsgbox）

最初に選択解除された項目が必要な場合は、終了するようにコードを停止してください。私の例では、私は5項目のリストを持っていました。私がそれらのすべてを選択した場合、何も起こりませんでした。私が最初のものを選択した場合、それはmsgboxに2,3,4,5を与えてくれます