Über Textbox Zeichnen oder in Textbox, nur wie?

  • VB.NET
  • .NET (FX) 4.5–4.8

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

    Über Textbox Zeichnen oder in Textbox, nur wie?

    Moin, ich hab ein Control erstellt in dem eine Textbox drinnen ist, jetzt möchte ich gerne über die
    Textbox Zeichnen oder innen drin, jetzt meine frage ob da jemand eine Lösung zu hat bzw ob es überhaupt
    möglich ist, ich hab schon diverse Themen durchsucht aber nichts hilfreiches
    gefunden, über ein Beispiel würde ich mich sehr freuen.

    Hier die Textbox:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class XTextBox
    2. Inherits Control
    3. Dim WithEvents TxtBox As New TextBox
    4. Dim G As Graphics
    6. Sub New()
    7. MyBase.New()
    8. SetStyle(ControlStyles.AllPaintingInWmPaint Or ControlStyles.UserPaint, True)
    9. SetStyle(ControlStyles.OptimizedDoubleBuffer, True)
    10. BackColor = Color.FromArgb(50, 50, 50)
    11. ForeColor = Color.FromArgb(100, 100, 100)
    12. Size = New Size(150, 30)
    13. Font = New Font("Arial", 9, FontStyle.Regular)
    14. NewTextBox() : Controls.Add(TxtBox)
    15. End Sub
    17. Sub NewTextBox()
    18. With TxtBox
    19. .Multiline = False
    20. .ForeColor = Color.FromArgb(100, 100, 100)
    21. .BackColor = Color.FromArgb(50, 50, 50)
    22. .Text = String.Empty
    23. .TextAlign = HorizontalAlignment.Left
    24. .BorderStyle = BorderStyle.None
    25. .Font = Font
    26. .Size = New Size(Width - 16, TxtBox.Height)
    27. .Location = New Point(8, 8)
    28. .UseSystemPasswordChar = UseSystemPasswordChar
    29. End With
    31. End Sub
    33. <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> Public Shadows Property Multiline() As Boolean
    34. Get
    35. Return False
    36. End Get
    37. Set(ByVal value As Boolean)
    38. End Set
    39. End Property
    41. Private _FocusColor As Color = Color.FromArgb(70, 70, 70)
    42. Public Property FocusColor() As Color
    43. Get
    44. Return _FocusColor
    45. End Get
    46. Set(ByVal value As Color)
    47. _FocusColor = value
    48. End Set
    49. End Property
    51. Private _FocusHighLight As Boolean = True
    52. Public Property FocusHighLight() As Boolean
    53. Get
    54. Return _FocusHighLight
    55. End Get
    56. Set(ByVal value As Boolean)
    57. _FocusHighLight = value
    58. End Set
    59. End Property
    61. Private _TextAlignment As HorizontalAlignment
    62. Public Shadows Property TextAlignment() As HorizontalAlignment
    63. Get
    64. Return _TextAlignment
    65. End Get
    66. Set(ByVal value As HorizontalAlignment)
    67. _TextAlignment = value
    68. TxtBox.TextAlign = value
    69. Invalidate()
    70. End Set
    71. End Property
    73. Private _UseSystemPasswordChar As Boolean = False
    74. Public Shadows Property UseSystemPasswordChar() As Boolean
    75. Get
    76. Return _UseSystemPasswordChar
    77. End Get
    78. Set(ByVal value As Boolean)
    79. _UseSystemPasswordChar = value
    80. TxtBox.UseSystemPasswordChar = UseSystemPasswordChar
    81. Invalidate()
    82. End Set
    83. End Property
    85. Private _MaxLength As Integer = 1000
    86. Public Shadows Property MaxLength() As Integer
    87. Get
    88. Return _MaxLength
    89. End Get
    90. Set(ByVal value As Integer)
    91. _MaxLength = value
    92. TxtBox.MaxLength = MaxLength
    93. Invalidate()
    94. End Set
    95. End Property
    97. Private Sub KeyHandel(sender As Object, e As KeyEventArgs) Handles TxtBox.KeyDown
    98. MyBase.OnKeyDown(e)
    99. End Sub
    101. Protected Overrides Sub OnReSize(ByVal e As System.EventArgs)
    102. TxtBox.Size = New Size(Width - 16, TxtBox.Height)
    103. TxtBox.Location = New Point(8, CInt(Height / 2 - (TxtBox.Size.Height / 2)))
    104. Invalidate()
    105. End Sub
    107. Protected Overrides Sub OnForeColorChanged(ByVal e As System.EventArgs)
    108. TxtBox.ForeColor = ForeColor
    109. Invalidate()
    110. End Sub
    112. Protected Overrides Sub OnFontChanged(ByVal e As System.EventArgs)
    113. TxtBox.Font = Font
    114. TxtBox.Location = New Point(8, CInt(Height / 2 - (TxtBox.Size.Height / 2)))
    115. Invalidate()
    116. End Sub
    118. Protected Overrides Sub OnMouseClick(ByVal e As MouseEventArgs)
    119. TxtBox.Focus()
    120. End Sub
    122. Protected Overrides Sub OnGotFocus(ByVal e As System.EventArgs)
    123. MyBase.OnGotFocus(e)
    124. TxtBox.Focus()
    125. End Sub
    127. Sub TextChangeTxtBox() Handles TxtBox.TextChanged
    128. Text = TxtBox.Text
    129. End Sub
    131. Sub TextChange() Handles MyBase.TextChanged
    132. TxtBox.Text = Text
    133. End Sub
    135. Dim IsEnter As Boolean = False
    137. Protected Overrides Sub OnEnter(ByVal e As System.EventArgs)
    138. If _FocusHighLight = True Then
    139. IsEnter = True
    140. Invalidate()
    141. End If
    142. MyBase.OnEnter(e)
    143. End Sub
    145. Protected Overrides Sub OnLeave(ByVal e As System.EventArgs)
    146. If _FocusHighLight = True Then
    147. IsEnter = False
    148. Invalidate()
    149. End If
    150. MyBase.OnLeave(e)
    151. End Sub
    153. Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
    154. G = e.Graphics : G.SmoothingMode = SmoothingMode.AntiAlias
    155. G.Clear(BackColor)
    157. G.FillRectangle(New SolidBrush(Color.FromArgb(200, 80, 80, 80)), New Rectangle(0, 0, Width, CInt(Height / 2))) 'Schatten hinten
    158. G.FillRectangle(New SolidBrush(Color.FromArgb(50, 50, 50)), New Rectangle(3, 3, Width - 7, Height - 7)) 'Fläche Innen
    160. G.DrawRectangle(New Pen(Color.FromArgb(0, 0, 0)), New Rectangle(0, 0, Width - 1, Height - 1)) 'Umrandung außen
    161. G.DrawRectangle(New Pen(Color.FromArgb(0, 0, 0)), New Rectangle(3, 3, Width - 7, Height - 7)) 'Innen umrandung
    163. If IsEnter = True Then
    164. G.DrawRectangle(New Pen(_FocusColor), New Rectangle(0, 0, Width - 1, Height - 1))
    165. End If
    166. End Sub
    167. End Class


    Lg Steve

    @Steven Meinst Du vielleicht so was - Stichwort WatermarkTextBox:
    Hintergrundtext in TextBox
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!