Variável

[alexandremanowar]

E ae pessoal

Estou com um problema, estou trabalhando com winform em vb.net e criei um form com um textbox onde defini a propriedade para multiplas linha até aí beleza. Então criei uma variável para armazenar o texto que é digitado nesse textbox então pego a variável e jogo dentro de um código de para imprimir. O texto que está na variável é impresso em uma folha que tem um campo de observação mas quando imprimo o texto não vem em dividido em linha como está no textbox ele vem em uma linha inteira. Como faço para que o meu texto dentro da variável fique divido em linha. Fiz a contagem do espaço o campo observção da folha que vou usar para imprimir cabe até 14 caracteres por linha como quebro o texto da minha variável para a cada 14 caracteres ele jogar o texto para outra linha?

[Graymalkin]

Você pode fazer isso com uma função assim:

	Public Function DivideEmLinhas(ByVal texto As String, ByVal maxchars As Integer) As String
  Dim caracter As Char
  Dim linha As String = ""
  Dim s As New System.Text.StringBuilder()
  
  For Each caracter In texto
  	linha &= caracter
  	If linha.Length = maxchars Then
    s.Append(linha & Microsoft.VisualBasic.Constants.vbCrLf)
    linha = ""
  	End If
  Next caracter
  s.Append(linha)
  
  Return s.ToString()
	End Function

Um exemplo de utilização dela:

  Dim texto As String = "isto é um teste e mais um teste e outro teste"
  Console.WriteLine(DivideEmLinhas(texto, 16))

Abraços,

Graymalkin

[alexandremanowar]

Cara valeu funcionou legal. analisei su código e entendi valeu mesmo

At+