AccessTr.neT

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

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

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

"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.

sağ tıklayınca şu hatayı veriyor

ö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?