Listview'de SendKeys Komutunu kullanmak

[Ergün Güler]

Selam Arkadaşlar,
bir Listview'de mouse ile satır seçerken SHIFT tuşunu "SendKeys" komutu ile kullanmak istiyorum. Ancak yapamıyorum.
Aşağıdaki gibi denedim yapamadım. Yardımcı olur musunuz?

Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
VBA.SendKeys "+"
End Sub

 

[Ergün Güler]

Yardımcı olabilecek kimse var mı?

 

[Ergün Güler]

yardımcı olabilecek kimse var mı?

 

[halit3]

Tam bilmemekle beraber kodları KeyDown prosedürün içine yazmanız gerekiyor.

Aşağıdaki kod ListView1 nesnesi aktif olduğunda Shift düğmesine tıkladığınızda mesaj verecektir
kod:

Private Sub ListView1_KeyDown(KeyCode As Integer, ByVal Shift As Integer)
If KeyCode = vbKeyShift Then
MsgBox "SHIFT düğmesine bastınız."
End If
End Sub

 

[Ergün Güler]

Tam bilmemekle beraber kodları KeyDown prosedürün içine yazmanız gerekiyor.

Aşağıdaki kod ListView1 nesnesi aktif olduğunda Shift düğmesine tıkladığınızda mesaj verecektir
kod:

Private Sub ListView1_KeyDown(KeyCode As Integer, ByVal Shift As Integer)
If KeyCode = vbKeyShift Then
MsgBox "SHIFT düğmesine bastınız."
End If
End Sub

Hocam teşekkür ederim. Ancak istediğim bu değildi. Ben "shift" tuşuna basıldığında ...şu...şu olsun değil, Listview'e mouse ile tıkladığımda shift tuşuna basmadan "basılsın" istiyorum.