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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Enter na caixa de texto
Knight
GOIÂNIA
GO - BRASIL
Postada em 28/09/2005 10:44 hs         
Em uma caixa de texto com multiline ativado, como faço pular pra proxima linha depois q bater enter???
 
Agradeço desde já

Emoções Knight Emoções

http://host.csti.eti.br

CSTI WebHosting
Hospedando Idéias Emoções

     
Gboese
SANTO ANDRÉ
SP - BRASIL
Postada em 28/09/2005 10:50 hs            
Provavelmente o seu programa está configurado para ele mudar de campo a cada enter né?
Então faz o seguinte...
No got_focus do campo texto, desativa o keypreview do form...
me.keypreview=false
No lost_focus ative novamente
me.keypreview=true
 
O único problema é que ele só conseguirá sair do campo com um TAB
 
Espero ter ajudado

Gustavo Boese
     
VACA
LIMEIRA
SP - BRASIL
Postada em 28/09/2005 12:18 hs            
no keypress
if keyascii=13 then
caixa_texto.text = caixa_texto.text & chr(10) +chr(13)
end if

"Quando estou fraco, aí então é que sou Poderoso"
     
Knight
GOIÂNIA
GO - BRASIL
Postada em 28/09/2005 12:29 hs         
Gboese, valeu pela resposta cara, mas meu Keypreview ja esta False
 
Vaca, fiz do geito q vc falou, mas ainda ta como o mesmo problema.
Quando eu bato enter ele pega o texto q ta la e joga uma linha pra baixo mantendo o cursor na linha de cima EX:
 
{cursor fica aqui}
Teste||
 
O || é onde o comando enter fica.

Emoções Knight Emoções

http://host.csti.eti.br

CSTI WebHosting
Hospedando Idéias Emoções

     
VACA
LIMEIRA
SP - BRASIL
Postada em 28/09/2005 13:02 hs            
tenta o keyup, se naum der certo tb tira a caixa de texto e coloca no lugar um richttextbox

"Quando estou fraco, aí então é que sou Poderoso"
     
kerplunk
Pontos: 2843 Pontos: 2843 Pontos: 2843
SÃO PAULO
SP - BRASIL
Postada em 28/09/2005 13:27 hs         

no keypress
if keyascii=13 then
   caixa_texto.text = caixa_texto.text & chr(10) +chr(13)

   caixa_texto.selstart = len(caixa_texto.text)

   caixa_texto.sellength = 1
end if

 
Isso deve resolver.
     
Página(s): 1/1    


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
Topo da página