USUÁRIO:
SENHA:
SALVAR LOGIN ?
Fórum
Visual Basic
Responder
Voltar
Autor
Assunto:
FlxGrid x Enter
ED - Claret
SÃO JOSE DO RIO PRETO
SP - BRASIL
ENUNCIADA !
Postada em 14/10/2010 09:29 hs
Bom dia amigos....
Como faço para manipular a tecla Enter em um FlexGrid?
Grande abraço....
Treze
não registrado
ENUNCIADA !
Postada em 14/10/2010 10:14 hs
Private Sub Grid_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn or KeyAscii = vbKeyTab then
'move para a proxima celula.
With Grid
If .Col + 1 <= .Cols - 1 Then
.Col = .Col + 1
Else
If .Row + 1 <= .Rows - 1 Then
.Row = .Row + 1
.Col = 0
Else
.Row = 1
.Col = 0
End If
End If
End With
End If
End Sub
ED - Claret
SÃO JOSE DO RIO PRETO
SP - BRASIL
ENUNCIADA !
Postada em 14/10/2010 10:41 hs
O exemplo é bom, no entanto necessito que o avanço seja em apenas uma coluna.
Tenho duas colunas, uma fixa outra não. A navegação não pode acontecer na coluna fixa.
Outra coisa; no seu exemplo quando clicado Enter, fica registrado na célila o simbolo dele "|".
Grande abraço
Treze
SÃO VICENTE
SP - BRASIL
ENUNCIADA !
Postada em 14/10/2010 10:50 hs
pronto veja
Private Sub MSFlexGrid1_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Or KeyAscii = vbKeyTab Then
'move para a proxima celula.
With MSFlexGrid1
If .Row + 1 <= .Rows - 1 Then
.Row = .Row + 1
.Col = 1
Else
.Row = 1
.Col = 1
End If
End With
End If
End Sub
quanto ao simbolo estar aparecendo, isso não acontece comigo, deve ser por algum outro evento do grid que vc possua ai, que edita o flexgrid
Juan Carlos R.A
MACEIO
AL - BRASIL
ENUNCIADA !
Postada em 14/10/2010 11:05 hs
If KeyAscii = 9 Or KeyAscii = 13 Then
If MSHFlexGrid1.Row + 1 <= MSHFlexGrid1.Rows - 1 Then
MSHFlexGrid1.Row = MSHFlexGrid1.Row + 1
MSHFlexGrid1.Col = 1
Endif
Treze
SÃO VICENTE
SP - BRASIL
ENUNCIADA !
Postada em 14/10/2010 11:44 hs
Juan qual a diferença do seu código para o meu????
só uma, com meu código ao chegar na ultima célula retorna para a primeira.
num tendi????
Página(s): 1/2
PRÓXIMA »
Seu Nome:
Seu eMail:
ALTERAR PARA MODO HTML
Mensagem:
[:)] =
[:P] =
[:(] =
[;)] =
HTML DESLIGADO
VOLTAR
CyberWEB Network Ltda. © Copyright 2000-2025 - Todos os direitos reservados.
Powered by
HostingZone -
A melhor hospedagem para seu site