PULAR LINHA EM TEXTBOX
como posso fazer para que, quando eu digitar por exemplo 20 letras, o textbox pula de linha altomaticamente?
valeu
valeu
Dim PulouLinha As Boolean
[c]Private Sub Text1_Change()
If Len(Replace(Text1.Text, vbCrLf, "")) Mod 20 = 0 And Len(Text1.Text) > 0 And Not PulouLinha Then
PulouLinha = True
Text1.Text = Text1.Text & vbCrLf
Text1.SelStart = Len(Text1.Text)
Else
PulouLinha = False
End If
End SubNão esquecer de colocar a propriedade MultLine da caixa texto = true.
[/c]
nao deu certo, esta dando erro.
Tenta este exemplo:
Private Sub Text1_KeyPress(KeyAscii As Integer)
If Len(Text1.Text) > 20 Then
KeyAscii = 0
SendKeys "{TAB}"
End If
End Sub
Amigo, que erro deu na rotina que eu lhe passei ??
Testei aqui e funcionou, ao menos informe qual o erro e em qual linha.
Testei aqui e funcionou, ao menos informe qual o erro e em qual linha.
MARCELOHF, agora deu certo
o erro acontece se eu coloco a declaracao da variavel booleana PULOULINHA dentro da função
o erro é "error 28: out of stack space".
mas declarando ela como global, como vc colocou, funcionou.
valeu []ÂÂ's
o erro acontece se eu coloco a declaracao da variavel booleana PULOULINHA dentro da função
o erro é "error 28: out of stack space".
mas declarando ela como global, como vc colocou, funcionou.
valeu []ÂÂ's
FRAU, o exemplo que vc me passou trava.
mas mesmo assim valeu.
mas mesmo assim valeu.
Então cara... Se funcionou tudo certinho, só não esquece de encerrar o tópico.
Tópico encerrado , respostas não são mais permitidas