Olá amigos do VBWEB estou trabalhando com a dica

Dicas --> Visual Basic --> (Grid/FlexGrid) 
Título da Dica:  Digitação em Grid  
Postada em 14/8/2000 por Webmaster          
 
Sub Grid1_KeyDown (KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case &H8 'BACKSPACE
If Len(Grid1.Text) > 0 Then
Grid1.Text = Left(Grid1.Text,(Len(Grid1.Text) - 1))
End If
Case &H2E 'DEL
Grid1.Text = ""
End Select
End Sub

Sub Grid1_KeyPress (keyascii As Integer)
Select Case keyascii
Case Is <> 8, 9, 10, 13'não imprimíveis
Grid1.Text = Grid1.Text & Chr(keyascii)
End Select
End Sub

Se &H8 é BACKSPACE e &H2E é DEL

Qual seria o KeyCode das teclas TAB e Enter?

Aliás, como posso descobrir os KeyCodes de todas as teclas?

Um abraço e obrigado antecipadamente.

Sérgio Smir9

 

kRA pra vc descobrir o keycode de cada tecla use uma msgbox no evento keydown

 

Private Sub Grid1_KeyDown (KeyCode As Integer, Shift As Integer)

 

        msgbox keycode

 

End Sub
Qualquer tecla que vc apertar te retorna o keycode,sacou?

ou assim

case vbkeytab     'tab

case vbkeyreturn    'enter

 

Muito facil naum?

Pô véio, Fácil é tomar suco de laranja, o KeyCode é muuuiiitttooo fácil.

Valeu - desamarrou a cobra.

 

1 Abraço e obrigado.

Smir9

Por nada,precisando tamo ai.......