DAR UM ESPACO PARAGRAFO NO TEXT COM ENTER

RICARDO.RAPA 13/09/2006 16:45:08
#171252
Como eu faço para dar um espaço paragrafo dentro de um textbox (multiline = true) ao apertar o bt. Enter. Ficar assim:

Ricardo alexandre --> apertar o enter
Nádia Carvalho

Grato!
LIONHEART 13/09/2006 16:52:54
#171256
no evento KeyUp

if keyCode = 13 then
text1.text = text1.text & " " '3 espacos
end if;
GANDA.NICK 13/09/2006 17:02:12
#171258
use tambem o selstart

If KeyCode = 13 Then
  Text1.Text = Text1.Text & "     "  '3 espacos
  Text1.SelStart = Len(Text1)
End If



té +
RICARDO.RAPA 13/09/2006 17:09:29
#171261
Negativo! deu certo não.
LIONHEART 13/09/2006 17:15:13
#171263
o q acontece? os espaços ficam antes do enter??
RICARDO.RAPA 13/09/2006 17:15:26
#171264
Esses apenas dar 3 espaço depois do nome na mesma linha! A idéia é que o 3 espaços apareça na linha abaixo da primeira. como se tivesse finalizando um parágrafo e iniciando o outro com o espaço! que nem no word.
USUARIO.EXCLUIDOS 13/09/2006 17:18:41
#171265
no evento keypress

If KeyAscii = 13 then
   For i = 1 to 3
      SendKeys " "
   Next
end if


ou então

If KeyAscii = 13 then
   For i = 1 to 3
      SendKeys "{TAB}"
   Next
end if
USUARIO.EXCLUIDOS 13/09/2006 17:25:14
#171266
Falta iniciar a nova linha...

If KeyCode = 13 Then
Text1.Text = Text1.Text & vbnewline & " " '3 espacos
Text1.SelStart = Len(Text1)
End If

abraços

Alex
RICARDO.RAPA 13/09/2006 17:28:59
#171267
MAUMAU! Esse seu faz saltar uma linha! é legal. Mais o do MARCELOHF, é exatamente isso!

Beleza mesmo!
RICARDO.RAPA 13/09/2006 17:32:36
#171270
Olha ai o q acabei de ver: Como Escrever um nome de cabeça para baixo esse exemplo que foram dados!

Text1.Text = " " & Text1.Text
If KeyAscii = 13 Then
For i = 1 To 3
SendKeys " "
Next
End If
RICARDO.RAPA 13/09/2006 17:34:36
#171271
Obrigado MARCELOHF era isso que eu queria.

Página 1 de 2 [12 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar