listbox click olayı içinde listbox.enabled

[mnz]

Merhaba,
Listbox ta bir satırı tıkladığımda listbox ın enabled olmasını ve seçili satırın da aktif olmamasını istiyorum. Ancak kendi kodu içinde olduğu için yapmıyor.

Bağlantı trafiğini önlemek için listbox a tıkladığımda

Application.Wait Now + TimeValue("00:00:02")

iki saniye bekleyip tekrar listbox enable i kaldırmak istiyorum.

 

[mnz]

Mümkün değil mi?

 

[Levent Menteşoğlu]

Sorunuz anlaşılmıyor, enabled ne olacaktır (false veya true), biraz daha açarsanız iyi olur.

 

[yildirimm]

Application.Wait Now + TimeValue("00:00:00") yapın ve özellikler kısmından falseyi seçin anladığım kadarı ile

 

[xxcell]

Listbox'da; seçtiğiniz satırı pasif yapmayı listbox_click olayının içinde yapamazsınız.

Aşağıdaki kod işinizi görebelir.
Ekli dosyayı incelerseniz konu hakkında daha fazla fikir sahibi olabilirsiniz.

Private Sub ListBox1_MouseUp(ByVal Button As Integer,_
                ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If ListBox1.ListIndex >= 0 Then _
                       ListBox1.Selected(ListBox1.ListIndex) = False
End Sub

 

[mnz]

Listbox'da; seçtiğiniz satırı pasif yapmayı listbox_click olayının içinde yapamazsınız.

Aşağıdaki kod işinizi görebelir.
Ekli dosyayı incelerseniz konu hakkında daha fazla fikir sahibi olabilirsiniz.

Private Sub ListBox1_MouseUp(ByVal Button As Integer,_
                ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If ListBox1.ListIndex >= 0 Then _
                       ListBox1.Selected(ListBox1.ListIndex) = False
End Sub

Teşekkürler xxcell