none
Problema con texto creando componente en tiempo de ejecucion RRS feed

  • Pregunta

  • Buenas tengo problema al agregar texto en un componente en tiempo de ejecucion, si el texto entrar en el ancho del componente no hay problema.

    El problema viene cuando el texto es mas grande que el ancho del componente, me hace el salta correspondiente pero me lo desplaza hacia arriba como se ve en la imagen 

    Gracias 

     este es el codigo que uso

     Dim pb As New DevComponents.DotNetBar.Metro.MetroTileItem
                                    pb.Name = "pb" & Receta_Nueva.DGV_Levaduras.Rows(ss).Cells(4).Value 'ss
                                    pb.TileSize = New Size(229, 265)
                                    pb.TileColor = Metro.eMetroTileColor.Gray
                                    pb.TileStyle.Font = New Font("Microsoft Sans Serif", 20, FontStyle.Bold)
                                    pb.TileStyle.TextAlignment = eStyleTextAlignment.Center
                                    'pb.TileStyle.PaddingTop = 10
    
                                    pb.TitleTextFont = New Font("Microsoft Sans Serif", 30, FontStyle.Bold)
                                    pb.TitleTextAlignment = 2
                                    pb.TitleText = vbCrLf & "- " & Receta_Nueva.DGV_Levaduras.Rows(ss).Cells(4).Value & " -" '& vbCrLf & "Ver"
                                    'pb.TitleTextAlignment = ContentAlignment.TopCenter
                                    pb.Text = Receta_Nueva.DGV_Levaduras.Rows(ss).Cells(0).Value
                                    Form_Levaduras.ItemContainer1.SubItems.Add(pb)

    martes, 24 de abril de 2018 16:10

Todas las respuestas

  • lo he solucionado de esta manera 

    Sabesis de alguna manera mas facil?

    Gracias

    'COMPARA LA LONGITUD DEL TEXTO
                                    With Pl
                                        .Text = Receta_Nueva.DGV_Levaduras.Rows(ss).Cells(0).Value
                                        .Parent = Me
                                        .AutoSize = True
                                    End With
                                    Dim TestString As String = Pl.Width
                                    If TestString >= 97 Then
                                        pb.Text = vbCrLf & Receta_Nueva.DGV_Levaduras.Rows(ss).Cells(0).Value
                                    Else
                                        pb.Text = Receta_Nueva.DGV_Levaduras.Rows(ss).Cells(0).Value
                                    End If
    
    
                                    'COMPARA LA LONGITUD DEL TEXTO

    martes, 24 de abril de 2018 18:54