vb.net como limitar label multilinea por caracteres

[tazzwt]

vb2008

Como puedo limitar la cantidad del contenido de un label en multilineas.

Por ejemplo

El siguiente texto:

La colección de esta no es tan grande como las anteriores pero también tiene variedad

---------------------

Como lo puedo corta para que quede de esta forma:

La colección de esta no es tan grande
como las anteriores pero también tiene
variedad

---------------------

El problema que el texto es dinamico ya que lo extraigo de una bd, puede ser mas largo o mas corto.

Estaba probando con esto, pero solo funciona con texto estatico

Código vb:

label1.Text = "La colección de esta no es tan grande " & vbCrLf  & "como las anteriores pero también tiene " & vbCrLf  & "variedad"
 

eso porfavor.

[Aquaventus]

pero podrias primero almacenar la cadena que extraigas de tu consulta a un string y saber la longitud que posee esa cadena(.Length()), y lo recorres char por char sabiendo la longitud , hasta que tu escojas un limite en la primera linea por ejemplo de 25 caracteres y una vez que cuando recorres tu cadena y llegas a la letra 25 le colocas el "& vbCrLf &" y le adjuntas las siguientes letras que vienen de tu recorrido y actualizas un contador inicializandolo a 0 y hasta que llegue otra vez a 25 le das "& vbCrLf &" y así... Espero haber sido claro

[Aquaventus]

Haber te simplifico la vida un poco... :
En este ejemplo asume que la variable cadena es el resultado que obtienes de tu consulta de tu bd :

Código vb:

'Se asume que se recibe una cadena de tu consulta
    Dim cadena As String = "Hola que tal como estas? Veo que no andas bien con los recorridos de cadenas.... Pero bueno aqui en Forosdelweb estamos para ayudarte :).Cualquier duda nos la preguntas!"
    'Creamos un contador
    Dim contador As Integer = 0
    'Creamos una variable que define la cantidad de caracteres por linea
    Dim longitud_maxima As Integer = 25
    'La nueva cadena a imprimir en el textbox multiline
    Dim nueva_cadena As String = String.Empty
 
    Private Sub Form7_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Recorremos toda la cadena
        For Each x As Char In cadena.ToCharArray
            'Incrementamos el contador
            contador += 1
            'si el contador es igual a la longitus maxima asignada
            If contador = longitud_maxima Then
                'Adjunto el caracter y le doy un salto de linea
                nueva_cadena = nueva_cadena & x & vbCrLf
                'Inicializo el contador a 0
                contador = 0
                'Sino...
            Else
                'Sigo adjuntando los caracteres a la nueva cadena
                nueva_cadena = nueva_cadena & x
            End If
        Next
        'Una vez finalizado el recorrido adjunto la nueva
        'cadena al textbox multiline
        TextBox1.Text = nueva_cadena
    End Sub
 

Estudialo!!!!!!!!!!!!!. Saludos!.

[HaverRamirez]

Un comentario, el codigo anterior, cuenta letras, pero solo las letras entonces el texto te querdaria cortado

Este te
xto deb
eria ir c
ortado
por pal
abra

para ello mira esto...

Código vb:

Public Function WrapText(ByVal Text As String, ByVal 
LineLength As Integer) As List(Of String)
 
Dim ReturnValue As New List(Of String)
' Remove leading and trailing spaces
Text = Trim(Text)
 
 
Dim Words As String() = Text.Split(" ")
 
If Words.Length = 1 And Words(0).Length > LineLength 
Then
' Text is just one big word that is longer than one line
' Split it mercilessly
Dim lines As Integer = (Int(Text.Length / LineLength) 
+ 1)
Text = Text.PadRight(lines * LineLength)
For i = 0 To lines - 1
Dim SliceStart As Integer = i * LineLength
ReturnValue.Add(Text.Substring(SliceStart, 
LineLength))
Next
Else
Dim CurrentLine As New System.Text.StringBuilder
For Each Word As String In Words
' will this word fit on the current line?
If CurrentLine.Length + Word.Length < 
LineLength Then
CurrentLine.Append(Word & " ")
Else
' is the word too long for one line
If Word.Length > LineLength Then
' hack off the first piece, fill out the 
current line and start a new line
Dim Slice As String = 
Word.Substring(0, LineLength - CurrentLine.Length)
CurrentLine.Append(Slice)
ReturnValue.Add(CurrentLine.ToString)
CurrentLine = New 
System.Text.StringBuilder
 
' Remove the first slice from the word
Word = Word.Substring(Slice.Length, 
Word.Length - Slice.Length)
 
' How many more lines do we need for 
this word?
Dim RemainingSlices As Integer = 
Int(Word.Length / LineLength) + 1
For LineNumber = 1 To 
RemainingSlices
If LineNumber = RemainingSlices 
Then
'this is the last slice
CurrentLine.Append(Word & " 
")
Else
' this is not the last slice
' hack off a slice that is one 
line long, add that slice
' to the output as a line and 
start a new line
Slice = Word.Substring(0, 
LineLength)
CurrentLine.Append(Slice)
 
ReturnValue.Add(CurrentLine.ToString)
CurrentLine = New 
System.Text.StringBuilder
 
' Remove the slice from the 
word
Word = 
Word.Substring(Slice.Length, Word.Length - Slice.Length)
End If
Next
Else
' finish the current line and start a new 
one with the wrapped word
ReturnValue.Add(CurrentLine.ToString)
CurrentLine = New 
System.Text.StringBuilder(Word & " ")
End If
End If
Next
 
' Write the last line to the output
If CurrentLine.Length > 0 Then
ReturnValue.Add(CurrentLine.ToString)
End If
End If
Return ReturnValue
End Function
 

[Aquaventus]

ah claro de hecho HaverRamirez, pero no dije que "fuera la solucion", si quiere hacerlo por palabras no le voy a dar de comer, tiene que aprender a pescar para que coma para ello ya que busque.

[HaverRamirez]

Generalmente yo soy de la misma opinion, yo soy del que das respuestas cortas, pero hoy toy generoso, ña jajaja,

[Aquaventus]

jajaja, todos tenemos nuestros momentos de generosidad , pero a veces abusan de ello y es ahi donde se le corta respondiendole solo con palabras para que lo interprete y averigue para que pueda desarrollarlo .

[HaverRamirez]

Perate, Perate, nos estamos haciendo pedazos por algo simple, el textbox tiene un a propiedad que se llama WordWarp, ponla en true, changos...incluso creo que hay un objeto en si que hace esto, si no estoy mal es el richtextbox... y ponle la propieda de autosize en true....a caray...

[Aquaventus]

Exacto pero él lo hace en un Label... motivo por el cual él ya debe tener idea de como desarrollarlo ya que tiene codigo incrustado en nuestras respuestas

[HaverRamirez]

Si, cierto, fue un lapsus brutus...

[pepe_ch30]

Si el texto es dinámico podrías cambiar las propiedades del label.

lbl_nombreLabel.Width = 800
lbl_nombreLabel.Height = 80
lbl_nombreLabel.AutoSize = False

El único problema que puedes tener es que se quede corta la altura (De este parametro depende el número de filas). Pero es fácil de solucionar porque si por cada columna hay por ejemplo 30 caracteres (depende de la propiedad Width y el tamaño de la letra), Pues divides el numero total de caracteres en 30 y así se optiene el numero de lineas que necesitas. En funcion de este valor especificas la propiedad Height