|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Grid/FlexGrid)
|
|
 |
Título da Dica: Digitação em Grid
|
 |
|
|
|
Postada em 14/8/2000 por Webmaster
webmaster@vbweb.com.br
O controle Grid é uma tabela de exibição de dados, que não permite a digitação direta de valores em suas células (não estou falando do DBGrid). É possível "simular" a aceitação de teclas através de código. Basta um clique de mouse na célula e digitar. O programador deve ter incluído as rotinas abaixo nos eventos KeyDown e KeyPress.
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
No evento KeyPress todos os caracteres imprimíveis são acrescentados ao texto da célula ativa do Grid. O evento KeyDown apaga o último caracter com BACKSPACE ou o texto inteiro com a tecla DEL.
|
|
|
|
|
