Usuário com melhor resposta
linhas na textbox

Pergunta
-
Boa tarde:
Tenho um textbox com o nome de "txtresultado" que recebe o valor de outras 10 textbox.
Gostaria que a textbox"txtresultado" aceitasse somente 10 letras em cada linha, ou seja quando preencher 10 letras pular pra linha de baixo,
e assim por diante.
Desde ja agradeço a todos...
W&L
Respostas
-
Tenta fazer assim
If len(txtresultado.text) > 10 then
'teu código que preenche o txtresultado.text
else
Environment.NewLine
'teu código que preenche o txtresultado.text
end if
Aqui é só vc ir adaptando confor vc deseja
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Len(TextBox1.Text) > 10 Then
TextBox1.Text = TextBox1.Text + Environment.NewLine + TextBox2.Text + TextBox3.Text + TextBox4.Text
Else
TextBox1.Text = TextBox1.Text + TextBox2.Text + TextBox3.Text + TextBox4.Text
End If
End SubEspero ter ajudado
- Marcado como Resposta Dim wagner as New W-L quarta-feira, 23 de janeiro de 2013 23:26
Todas as Respostas
-
É um projeto Web ou Winforms?
Att
William John Adam Trindade
Analyste-programmeur
----------------------------------------------------------
Sogi informatique ltée -
-
-
Eu quero que ao preencher o textbox quando totalizar 10 letras passa para linha de baixo.
Exemplo:
"nome:wagner" contem 11 caracteres, o que eu quero e no caso o caracter r passaria para linha de baixo tipo assim
"nome:wagne
r" ai ele contaria nesta linha ate 10 e passaria pra linha de baixo de novo
W&L
-
Tenta fazer assim
If len(txtresultado.text) > 10 then
'teu código que preenche o txtresultado.text
else
Environment.NewLine
'teu código que preenche o txtresultado.text
end if
Aqui é só vc ir adaptando confor vc deseja
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Len(TextBox1.Text) > 10 Then
TextBox1.Text = TextBox1.Text + Environment.NewLine + TextBox2.Text + TextBox3.Text + TextBox4.Text
Else
TextBox1.Text = TextBox1.Text + TextBox2.Text + TextBox3.Text + TextBox4.Text
End If
End SubEspero ter ajudado
- Marcado como Resposta Dim wagner as New W-L quarta-feira, 23 de janeiro de 2013 23:26