CODIGO

GABYS 27/08/2010 10:17:13
#351451
esse codigo seria pra que??

Private Sub List1_KeyPress(KeyAscii As Integer)
Dim KeyCode As Integer
If KeyCode = vbKeyUp Then
If List1.ListIndex = 0 Then Exit Sub
List1.ListIndex = List1.ListIndex - 1

ElseIf KeyCode = vbKeyDown Then
If List1.ListIndex = List1.ListCount - 1 Then Exit Sub
List1.ListIndex = List1.ListIndex + 1

ElseIf KeyCode = vbEnter Then
List1_DblClick
End If
End Sub
LUIS.HERRERA 27/08/2010 10:35:44
#351454
GABYS provavelmente é um listview que quando pressionar a seta para cima, faz subir a seleção um item, e seta para baixo rolar um item abaixo. Se pressionar entre, aciona o duploclique no item selecionado neste listview.
MARCELO.TREZE 27/08/2010 14:43:29
#351493
correcção é para um listbox, e não um listview

porém este código não serve para nada, a unica coisa que vc aproveita dle é
quando pressionar a tecla enter chamar outra função assim:



Private Sub List1_KeyPress(KeyAscii As Integer)
        ElseIf KeyAscii = vbEnter Then
        List1_DblClick
        End If
End Sub
Tópico encerrado , respostas não são mais permitidas
Voltar