TROCAR TAB POR ENTER VB

USUARIO.EXCLUIDOS 14/09/2005 12:58:01
#104093
Por favor quero ajuda para trocar (TAB por Enter vb)
E como fasso para trablhar com F4 F5 em com todos F1.
Mandar email para mim no rrodrigues@cvh.com.br
FORMIGINHA 14/09/2005 13:08:44
#104097
faça assim para trocar de tab para enter :

Private Sub Form_Load()
FORNECEDOR.KeyPreview = True
End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then
SendKeys ("{tab}")
KeyAscii = 0
End If
End Sub

t+
FORMIGINHA 14/09/2005 13:15:00
#104102
e para saber o codigo da letra veja nesta pagina : http://www.vbmania.com.br/vbmdetail.php?varID=3153&TxtSearch=tecla&CmbSort=ftitulo&varPagina=1
USUARIO.EXCLUIDOS 14/09/2005 13:24:59
#104108
Private Sub Form_Load()
me.KeyPreview = True
End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then
SendKeys ("{tab}")
KeyAscii = 0
End If
End Sub

'trabalhar F1,F2 e demais
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
select case keycode
case 112 ' F1
Código necessário
case 113 ' F2
Código necessário
end select
End Sub
Boa Sorte

Nilson Caires
LIONHEART 14/09/2005 15:28:06
#104148
tem os

if keycode = vbF1 then '.........
if keycode = vbF2 then '.........
if keycode = vbF3 then '.........
...
if keycode = vbF12 then '.........

if keycode = vbEnter then '.........
Tópico encerrado , respostas não são mais permitidas
Voltar