All the text isn't displayed at a label created with code

Question

I am having a problem because when the length of the text is > 10 only 10 letters are displayed. I  use this code to create a label with the text HarryPotter but when I debug it only HarryPotte is displayed 

        Dim label As New Label
        label.Name = ("dadad")
        label.Text = "HarryPotter"
        label.Location = New Point(50, 50)
        Dim fnt As Font
        fnt = label.Font
        label.Font = New Font(fnt.Name, 12, FontStyle.Bold)
        Me.Controls.Add(label)

---

Albania

Answer 1

Try adding this:

label.AutoSize = True

If you don't want auto size then there are other ways.

Answer 2

Hi,

 Try adding the line like in the code below to set the Label`s AutoSize to True. That should fix the problem i believe.  :)

        Dim label As New Label
        label.AutoSize = True 'Add this line
        label.Name = ("dadad")
        label.Text = "HarryPotter"
        label.Location = New Point(50, 50)
        label.Font = New Font(label.Font.Name, 12, FontStyle.Bold)
        Me.Controls.Add(label)

 

 EDIT : @ Tom, You beat me this time.   8)

---

If you say it can`t be done then i`ll try it

Answer 3

You could cut your code down a couple of lines also.

I would recommend that you not try to use the same name as a class name for a control as the code can become confusing at some point. Dim label As New Label maybe use Dim labelx As New Label or something else.

Dim label As New Label
label.Name = ("dadad")
label.Text = "HarryPotter"
label.Location = New Point(50, 50)
label.Font = New Font(label.Font.Name, 12, FontStyle.Bold)
label.AutoSize = True
Me.Controls.Add(label)

---

La vida loca

Answer 4

Hi,

 Try adding the line like in the code below to set the Label`s AutoSize to True. That should fix the problem i believe.  :)

        Dim label As New Label
        label.AutoSize = True 'Add this line
        label.Name = ("dadad")
        label.Text = "HarryPotter"
        label.Location = New Point(50, 50)
        label.Font = New Font(label.Font.Name, 12, FontStyle.Bold)
        Me.Controls.Add(label)

 

 EDIT : @ Tom, You beat me this time.   8)

---

If you say it can`t be done then i`ll try it

I figured you would go for this one:

        Dim g As Graphics = Graphics.FromHwnd(IntPtr.Zero)
        label.Width = 1.09 * g.MeasureString(label.Text, label.Font).Width

Answer 5

Or there is this fancy one:

Answer 6

I figured you would go for this one:

        Dim g As Graphics = Graphics.FromHwnd(IntPtr.Zero)
        label.Width = 1.09 * g.MeasureString(label.Text, label.Font).Width

 You know i am more of a Using kind of guy. I like to use it and then loose it.   8)

        Using g As Graphics = Graphics.FromHwnd(label.Handle)
            label.Width = CInt(1.09 * g.MeasureString(label.Text, label.Font).Width)
        End Using

---

If you say it can`t be done then i`ll try it