Listbox' ta seçili olma durumunu iptal etme

[tamer42]

Merhabalar;

Listbox üzereinde listelenen bir değerin üzerine tıkladığımda seçili hale geliyor (üzeri boyanıyor).

Benim istediğim; Bu Seçili olan değerin üzerine bir kez daha tıkladığımda seçili olma durumu kalksın, yani listbox üzerinde seçili alan kalmasın.


bunun yapmak için bir yol varmıdır?

Herkese iyi çalışmalar.

Kolay gelsin.

 

[bedersu]

Sorunuzu anladım desem yalan olur.Tamam,seçince mavi oluyor ama değerin üstüne tıklayınca zaten o mavilik ortadan kalkar ki.Siz başka birşeyden mi bahsediyorsunuz?Seçili olmamasından kastınız nedir?

 

[danersin]

@tamer42 böyle orjinal ihtiyaçları nerden buluyosunuz, hiç bir yerde bulamayacağınız bir kod size

[vb:1:da3dbbfc15]Private Sub ListBox2_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Static ackapa 'bu değişken ismini projenizin hiçbir yerinde kullanmayın
If ackapa = 1 Then
Me.ListBox2.ListIndex = -1
ackapa = 0
Else
ackapa = 1
End If
End Sub[/vb:1:da3dbbfc15]

 

[tamer42]

Sn danersin,

ilginiz için teşekkürler,

verdiğiniz kod işimi görüyor fakat benim düşündüğümden bir farkla;

Þöyleki, listbox üzerinde listenen değerlerden sadece ve sadece seçili olana tıkladığımda seçili olma durumunun ortadan kalkması,

seçili olan değerin dışında bir yere tıkladığımda ise normal olarak
önceki seçili olan değerin yerine hemen son tıklanan değerin seçilmesi,

şeklinde düşünmüştüm,



Selamlar, İyi Çalışmalar.

 

[danersin]

Bu durumda sn.bedersu ile aynı cevabı vereceğim. Multiselect bir listboxta bu zaten kendiliğinden olan birşey. :?

 

[tamer42]

Selamlar;

burada bahsi geçen listbox'ta

Multiselect özelliği: fmMultiselectSingle ,

çünkü listeden seçilen değeri aynı anda textbox' a da yazdırıyor.

İyi Çalışmalar....

 

[danersin]

İstediğiniz değişikliği yaptım kodda. Ama bunun daha klişe bir cevabı olması gerekir gibi bir his var içimde. Bilen varsa eklerse bende öğrenmiş olurum.



[vb:1:610760f2cd]Private Sub ListBox2_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Static ackapa
Static secili
If secili <> ListBox2.ListIndex Then
secili = ListBox2.ListIndex
ackapa = 1
Exit Sub
End If
If ackapa = 1 Then
Me.ListBox2.ListIndex = -1
ackapa = 0
Else
ackapa = 1
End If
End Sub[/vb:1:610760f2cd]

 

[tamer42]

Þimdi, Tam istediğim gibi oldu.

Sabrınız ve emeğiniz için çok teşekkürler....


Kolay gelsin.