Private Sub Form_KeyPress(KeyAscii As Integer)
    KeyAscii = Asc(Chr(UCase(KeyAscii)))
    If KeyAscii = vbKeyReturn Then       SendKeys "{tab}"
End Sub
alguem sabe me explicar o que esse codigo faz ?

 

e tambem
se tem como tirar aquelas mensagens de erro quando vc sai de uma linha q tem erro q fica vermelha?

 

grato

Boa tarde.

 

Amigo, cadastre-se no site.

 

 

JSFF

pois então
esse código simplesmente considera enter como tab

 

precisava saber o q era ...

 

vbKeyReturn                          =  enter     -  na leitura do teclado no vb

SendKeys "{tab}"                   = tab       -  envio de tabulação para dll do windows

KeyAscii = Asc(Chr(UCase(KeyAscii)))     =      sem necessidade?     -

  pois só vai deixar ucase   TUDO MAIUSCULO ? 

 ou  influencia para virar  o vbKeyReturn ??

 

 

desabilitar as mensagens de erro 

mas será q não existe um jeito de tirar aqueles msgbox do vb de compiler error quando vc esta digitando e mudando de linha !

 

se ta trabalhando e sabendo q a linha ta errada  !  mas vai em outra linha ! ai lá vem a mensagem só pq a linha vai ficar vermelha !

1º

KeyAscii = Asc(Chr(UCase(KeyAscii))) este código não faz nada, pois esta errado o correto seria  KeyAscii = Asc(UCase(Chr(KeyAscii))) mas só serve para deixar tudo MAIUSCULO, não influencia no vbKeyReturn .

 

2º Tem como sim tirar esta mensagem chata, vai em Toos->Options->Auto Syntax Check desmarque esta opção

obrigado

deu certo

valeu

t mais