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

Visual Basic Code
Dim varItem As Variant

If Button = 2 Then
   For Each varItem In Metin3.ItemsSelected
     Metin3.Selected(varItem) = False
   Next varItem
End If
"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 
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

Visual Basic Code
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.

Visual Basic Code
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.

Visual Basic Code
CStr(Metin3.ItemsSelected.Count)

Kodu, liste kutusunda seçili satırların sayısını verir.
"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 
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 
Visual Basic Code
Dim GSecili As String
sonrada fare basıldığında olayını
Visual Basic Code
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
Visual Basic Code
    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