Start New Discussion within our Software Development Community

the text of dynamic label is not complete , why???
I create graphics variablt to measure size of text , than, I set the width and heigh , ??

Public Class Form1
    Dim counter As Integer=3 'suppose counter=number of columns in 2-dimention 
    Dim g As Graphics
    Dim d As Integer
    Dim s As SizeF
    Dim l1 As Label
    Dim array1() = {"c1", "c2", "c3"}
    Dim frag_des(,) As String = {{"c1", "c2", "c3"}, {"ddddddddddd ", "ffffffffff ", "ggggggggggggggg"}}

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        For j As Integer = 0 To array1.Length - 1
            d = 0
            l1 = New Label()
            
            
            While Not (array1(j) = frag_des(0, d)) And d < counter
                'frag_des.GetUpperBound(0)
                d += 1
            End While

            If Not (array1(j) = frag_des(0, d)) Then
                g = l1.CreateGraphics
                s = g.MeasureString(array1(j), l1.Font)
                l1.Height = s.Height
                l1.Width = s.Width
                l1.Text = array1(j)
            Else
                g = l1.CreateGraphics
                s = g.MeasureString(array1(j) & ": " & frag_des(1, d), l1.Font)
                l1.Height = s.Height
                l1.Width = s.Width
                l1.Text = array1(j) & ": " & frag_des(1, d)
                MsgBox(array1(j) & ": " & frag_des(1, d))
            End If

            l1.Location = New Point(5, (j * 25) + 3)



            Me.Controls.Add(l1)
        Next
    End Sub
End Class
This question has already been answered. Start a new discussion instead.