USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (Grid/FlexGrid)

Título da Dica:  Digitação em Grid
Postada em 14/8/2000 por Webmaster      Clique aqui para enviar email para o autor  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.
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página