Label Text ändern

  • VB.NET

Es gibt 23 Antworten in diesem Thema. Der letzte Beitrag () ist von RodFromGermany.

    Label Text ändern

    Hallo,
    ich möchte das mein Label den text hat den man unter Einstellungen eingestellt hat, bloß es funktioniert nicht.

    Code:

    VB.NET-Quellcode

    1. Public Class M_Button_1
    2. Inherits Windows.Forms.Control
    3. Dim WithEvents Unten As New PictureBox
    4. Dim WithEvents Intext As New Label
    5. Public WithEvents Text2 As String
    7. Public Sub New()
    8. Me.Controls.Add(Intext)
    9. Intext.Text = Text2
    10. Intext.AutoSize = False
    11. Intext.TextAlign = ContentAlignment.MiddleCenter
    12. Intext.Dock = DockStyle.Fill
    15. Me.Size = New System.Drawing.Point(75, 35)
    16. Me.Controls.Add(Unten)
    17. Unten.BackColor = Color.DarkRed
    18. Unten.Dock = DockStyle.Bottom
    19. Unten.Size = New System.Drawing.Point(5, 4)
    21. Intext.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
    23. End Sub
    25. Private Sub M_Button_1_MouseLeave(sender As Object, e As EventArgs) Handles Me.MouseLeave
    26. Unten.BackColor = Color.Transparent
    27. Intext.ForeColor = Color.Gray
    28. End Sub
    30. Private Sub M_Button_1_MouseMove(sender As Object, e As MouseEventArgs) Handles Me.MouseMove
    31. Unten.BackColor = Color.DarkRed
    32. Intext.ForeColor = Color.Black
    33. End Sub
    35. Private Sub Unten_MouseLeave(sender As Object, e As EventArgs) Handles Unten.MouseLeave
    36. Unten.BackColor = Color.Transparent
    37. Intext.ForeColor = Color.Gray
    38. End Sub
    40. Private Sub Unten_MouseMove(sender As Object, e As MouseEventArgs) Handles Unten.MouseMove
    41. Unten.BackColor = Color.DarkRed
    42. Intext.ForeColor = Color.Black
    43. End Sub
    45. Private Sub Intext_MouseLeave(sender As Object, e As EventArgs) Handles Intext.MouseLeave
    46. Unten.BackColor = Color.Transparent
    47. Intext.ForeColor = Color.Gray
    48. End Sub
    50. Private Sub Intext_MouseMove(sender As Object, e As MouseEventArgs) Handles Intext.MouseMove
    51. Unten.BackColor = Color.DarkRed
    52. Intext.ForeColor = Color.Black
    53. End Sub
    54. End Class

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „GirlOnFire“ ()

    ?!

    VB.NET-Quellcode

    1. Public Class M_Button_1
    2. Inherits Windows.Forms.Control
    3. Dim WithEvents Unten As New PictureBox
    4. Dim WithEvents Intext As New Label
    6. Public Sub New()
    7. Intext.Text = Me.Text
    8. Me.Controls.Add(Intext)
    9. Intext.AutoSize = False
    10. Intext.TextAlign = ContentAlignment.MiddleCenter
    11. Intext.Dock = DockStyle.Fill
    14. Me.Size = New System.Drawing.Point(75, 35)
    15. Me.Controls.Add(Unten)
    16. Unten.Dock = DockStyle.Bottom
    17. Unten.Size = New System.Drawing.Point(5, 4)
    19. Intext.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
    20. End Sub
    22. Private Sub M_Button_1_MouseLeave(sender As Object, e As EventArgs) Handles Me.MouseLeave
    23. Unten.BackColor = Color.Transparent
    24. Intext.ForeColor = Color.Gray
    25. End Sub
    27. Private Sub M_Button_1_MouseMove(sender As Object, e As MouseEventArgs) Handles Me.MouseMove
    28. Unten.BackColor = Color.DarkRed
    29. Intext.ForeColor = Color.Black
    30. End Sub
    32. Private Sub Unten_MouseLeave(sender As Object, e As EventArgs) Handles Unten.MouseLeave
    33. Unten.BackColor = Color.Transparent
    34. Intext.ForeColor = Color.Gray
    35. End Sub
    37. Private Sub Unten_MouseMove(sender As Object, e As MouseEventArgs) Handles Unten.MouseMove
    38. Unten.BackColor = Color.DarkRed
    39. Intext.ForeColor = Color.Black
    40. End Sub
    42. Private Sub Intext_MouseLeave(sender As Object, e As EventArgs) Handles Intext.MouseLeave
    43. Unten.BackColor = Color.Transparent
    44. Intext.ForeColor = Color.Gray
    45. End Sub
    47. Private Sub Intext_MouseMove(sender As Object, e As MouseEventArgs) Handles Intext.MouseMove
    48. Unten.BackColor = Color.DarkRed
    49. Intext.ForeColor = Color.Black
    50. End Sub
    51. End Class

    Also,

    VB.NET-Quellcode

    1. Dim WithEvents Intext As New Label

    soll denn text in den Eigenschaften von dem Control haben.
    Aber es ändert sich nicht zu den Text denn ich eingegeben habe.
    Bilder

    • Bild.png

      4,06 kB, 342×229, 116 mal angesehen

Facebook
Telefonspende