Listbox Enter olayı

[ocamsul]

Arkadaşlar herkese iyi akşamlar dilerim.

Listbox üzerinde aşağı kaydırma butonu yerine enter tuşu ile atlama olayını nasıl yapabilirim?

 

[Levent Menteşoğlu]

Aşağıdaki linki inceleyin.

http://www.excel.web.tr/showthread.php?t=3763&highlight=Enter

 

[Recep İpek]

Anladığım kadarıyla Listboxdaki verilerinizde Enter ile dolaşmak istiyorsunuz.

Bunu için aşağıdaki kodları kullanabilirsiniz.

Private Sub ListBox2_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
On Error Resume Next
If KeyAscii = 13 Then
   a = ListBox2.ListIndex
   b = ListBox2.ListCount
        If a <= b - 2 Then
              ListBox2.ListIndex = ListBox2.ListIndex + 1
              Else
              ListBox2.ListIndex = 0 
        End If
End If
End Sub

 

[ocamsul]

SN: ripek

Çok Teşekkür ederim. Sağolun. Tam istediğim gibi.