Повторное нажатие на Listbox

[Calvin]

Всем добрый день. Помогите с вопросом плиз - есть форма, на ней листбокс. Нажимаем на листбокс и выбираем один элемент. Нужно, чтобы при повторном нажатии этого элемента listindex был = -1, т.е. выделениеотсутсвовало, а если нажать на другой элемент, то выбирался уже другой. Спасибо

[Viper]

Так?

Код: Выделить всё

If myListBox.ListIndex <> -1 Then
    myListBox.ListIndex = -1
End If

[Calvin]

Если бы было все так просто, я бы не обращался...

[Viper]

Если бы было все так просто, я бы не обращался...

Тогда код в студию, что не получается, показывай.

[Calvin]

Код: Выделить всё

Sub myListBox_Click()
If myListBox.ListIndex <> -1 Then
    myListBox.ListIndex = -1
End If
end sub

[Viper] :: Пользуемся тегами CODE!

[Viper]

Запоминай предыдущее состояние, типо так:

Код: Выделить всё

Private IndexOld As Long
Private Sub List1_Click()
If List1.ListIndex = IndexOld Then
    List1.ListIndex = -1
    Exit Sub
End If
IndexOld = List1.ListIndex
End Sub

[alibek]

Viper, IndexOld = List1.ListIndex надо перенести выше.