Skip to main content

AccessTr.neT


Liste Kutusu Sadece Sol Tık İle Çoklu Seçim Yapılsın

Liste Kutusu Sadece Sol Tık İle Çoklu Seçim Yapılsın

Çözüldü #1
liste kutusunu sol tık ile seçim yapılmasını sağ tık ile menü gösterilmesini nasıl sağlayabilirim
sağ tıkladığımda listeden eleman seçilmesin
.rar GordonCBar.rar (Dosya Boyutu: 39,56 KB | İndirme Sayısı: 5)
@benbendedeilem
Cevapla
#2
Metin3'ün fare tuşu bırakılırken özelliğine

Dim varItem As Variant

If Button = 2 Then
For Each varItem In Metin3.ItemsSelected
Metin3.Selected(varItem) = False
Next varItem
End If
Cevapla
#3
sn@ozanakkaya sağ tıklayınca seçimleri iptal ediyor oysa ben sağ tıklayınca kaç tane seçili ise seçili olanlarla sağ tık kullanarak işlem yapmak istiyorum
sağ tıklayınca seçilenleri iptal etmeden menüyü nasıl kullanabilirm
Son Düzenleme: 16/03/2020, 16:11, Düzenleyen: accessman.
Cevapla
#4
"Fare tuşuna basılırken" kodlarına

Dim i As Long
Dim GSecili As String

    If Button = 2 Then
        GSecili = ""
        For i = 0 To Metin3.ListCount - 1
            GSecili = GSecili & "," & Metin3.Selected(i)
        Next i
        GSecili = Mid(GSecili, 2)
    End If

kodu ekle,

fare tuşu bırakılırken kodlarındaki eski kodu aşağıdaki ile değiştir.

Dim GSecili As String
Dim i As Long
Dim SplitGSecili As Variant
    If Button = 2 Then
        SplitGSecili = Split(GSecili, ",")
        For i = 0 To Metin3.ListCount - 1
            Metin3.Selected(i) = SplitGSecili(i)
        Next i
    End If

Sağ tıkla yapılacak işlemi bilmiyorum.

CStr(Metin3.ItemsSelected.Count)

Kodu, liste kutusunda seçili satırların sayısını verir.
Cevapla
#5
sağ tıklayınca şu hatayı veriyor

[Resim: do.php?img=9872]
.rar GordonCBar.rar (Dosya Boyutu: 39,81 KB | İndirme Sayısı: 6)
@benbendedeilem
Cevapla
#6
öncelikle aşağıdaki kodu Option Explicit altına ekleyin 
Dim GSecili As String
sonrada fare basıldığında olayını
Dim varItm As Variant
    Dim i As Long

    If Button = 2 Then
        GSecili = ""
        For Each varItm In Metin3.ItemsSelected
            GSecili = GSecili & "|" & varItm
        Next varItm
        GSecili = Mid(GSecili, 2)
    End If
   
    If Button = acRightButton Then
        CreateContextMenu CStr(Metin3.ItemsSelected.Count)
    End If
şeklinde fare bırakıldığında olayını da
    Dim i As Long
    Dim SplitGSecili As Variant
    If Button = 2 Then
        SplitGSecili = Split(GSecili, "|")
        For i = 0 To Metin3.ListCount - 1
            Metin3.Selected(i) = False
        Next i
        For i = LBound(SplitGSecili) To UBound(SplitGSecili)
            Metin3.Selected(SplitGSecili(i)) = True
        Next i
    End If
şeklinde düzenleyip dener misiniz?
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da