Listbox ta sağ klick

[heft]

Merhaba
Listbox1 de sağ klick yaptığımda mesaj ekranı çıkmasını istiyorum.
Teknik olarak yapılabilme imkanı var mıdır?

 

[Mehmet Şahin]

Merhaba,

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
MsgBox "Mesaj buraya"
End Sub

şeklinde deneyebilirsiniz. İyi akşamlar.

Not: Önerdiğim çözüm double click için geçerlidir. Murat bey'in kodlarını kullanabilirsiniz.

 

[Murat OSMA]

MouseDown olayını

Private Sub ListBox1_MouseDown(ByVal Button As Integer, _
ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Button = 2 Then
    MsgBox "selam"
    End If
End Sub

ya da MouseMove olayını kullanabilirsiniz...

Private Sub ListBox1_MouseMove(ByVal Button As Integer, _
ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Button = 2 Then
    MsgBox "selam"
    End If
End Sub

if button = 1 then --> Mouse sol tuş
if button = 2 then --> Mouse saş tuş

 

[heft]

Çok teşekkürler sağolun