Eigenes TextBoxControl zeichnen

  • VB.NET

Es gibt 9 Antworten in diesem Thema. Der letzte Beitrag () ist von FreakJNS.

    Eigenes TextBoxControl zeichnen

    Hallo.

    Ich würde gerne eine TextBox selbst zeichnen.

    Momentan sieht der Code so aus:


    VB.NET-Quellcode

    1. Public Class OwnTextBox : Inherits TextBox
    3. Private Status As State = State.Normal
    4. Private Texto As String = String.Empty
    5. Private Fonto As Font = New Font("Lucida Grande", 10)
    6. Private Structure TextBoxState
    7. Public ReadOnly left, middle, right As Bitmap
    8. Public Sub New(left As Bitmap, middle As Bitmap, right As Bitmap)
    9. Me.left = left
    10. Me.middle = middle
    11. Me.right = right
    12. End Sub
    13. End Structure
    15. Private textboxStates As TextBoxState() = {New TextBoxState(My.Resources.TextBoxSideUnActivated, My.Resources.TextBoxMiddle, My.Resources.TextBoxSideUnActivated),
    16. New TextBoxState(My.Resources.TextBoxActivatedLinks, My.Resources.TextBoxActivatedMittle, My.Resources.TextBoxActivatedRechts)}
    18. Public Enum State
    19. Normal = 0
    20. Focused = 1
    21. End Enum
    23. Public Sub New()
    24. Me.DoubleBuffered = True
    25. Me.SetStyle(ControlStyles.AllPaintingInWmPaint, True)
    26. Me.SetStyle(ControlStyles.FixedHeight, True)
    27. Me.SetStyle(ControlStyles.OptimizedDoubleBuffer, True)
    28. Me.SetStyle(ControlStyles.ResizeRedraw, True)
    29. Me.SetStyle(ControlStyles.SupportsTransparentBackColor, True)
    30. End Sub
    32. Public Sub Redraw(ausgabe As Graphics)
    33. Dim gr As Graphics = ausgabe
    34. gr.Clear(Me.BackColor)
    36. Dim currtextboxstate As TextBoxState = textboxStates(Status)
    37. gr.DrawImage(currtextboxstate.left, 0, 0, currtextboxstate.left.Width, Me.Height)
    38. For i As Integer = 0 To 5
    39. gr.DrawImage(currtextboxstate.middle, 0, 0, currtextboxstate.middle.Width, Me.Height)
    40. Next
    41. gr.DrawImage(currtextboxstate.right, 0, 0, currtextboxstate.right.Width, Me.Height)
    42. End Sub
    44. <Browsable(True), DesignerSerializationVisibility(DesignerSerializationVisibility.Visible)> _
    45. Public Overrides Property Font() As Font
    46. Get
    47. Return Fonto
    48. End Get
    49. Set(Font As Font)
    50. Fonto = Font
    51. Me.Invalidate()
    52. End Set
    53. End Property
    55. <Browsable(True), DesignerSerializationVisibility(DesignerSerializationVisibility.Visible)> _
    56. Public Overrides Property Text() As String
    57. Get
    58. Return Texto
    59. End Get
    60. Set(value As String)
    61. Texto = value
    62. Me.Invalidate()
    63. End Set
    64. End Property
    66. Protected Overrides Sub OnLostFocus(e As EventArgs)
    67. MyBase.OnLostFocus(e)
    68. Status = State.Normal
    69. Me.Invalidate()
    70. End Sub
    72. Protected Overrides Sub OnGotFocus(e As EventArgs)
    73. MyBase.OnGotFocus(e)
    74. Status = State.Focused
    75. Me.Invalidate()
    76. End Sub
    78. Protected Overrides Sub OnPaint(pevent As System.Windows.Forms.PaintEventArgs)
    79. Redraw(pevent.Graphics)
    80. End Sub
    82. End Class





    Kann mir jemand sagen was da falsch ist?

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Kevin Hombre“ ()

    du zeichnest zuerst auf ein image und zeichnest dieses dann auf das control. warum?
    zeichne direkt auf das control - also auf das graphics-objekt (pevent.graphics), am besten direkt in der OnPaint-Methode.

    Edit: NullReferenceException heißt immer, dass du groben unfug gemacht hast. Welche Zeile ist der Übeltäter?

    Das ist generell Schwachsinn²³ xD
    Bau das aus, vllt funktioniert es dann. Wenn nicht, dann erstell das Control per Code, wenn da was schiefgeht bekommst du normalerweise die entsprechende Zeile angezeigt. Wichtig: Nicht im Form1-Load-Event arbeiten, das catcht die Fehler einfach weg - also in einen Button packen.

    Edit: Eine Textbox scheint auch ein Contol von der Sorte zu sein, die sich nicht so einfach umbauen lassen - zumindest die Zeichenroutine lässt sich durch das bloße überschreiben der OnPaint-Methode nicht beeindrucken. Google mal nach "Textbox Owner Draw" da findest du ein paar verschiedene wege das zu umgehen. Ob es Sinn macht musst du wissen.

    vbarchiv.net/forum/id10_i12601…nes-controls-aendern.html

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

    Also, dass ich direkt auf das Control zeichne ohne ein Bitmap zu erstellen habe ich jetzt ausprobiert.

    Da darf man aber auf pevent.Graphics kein .Dispose anwenden nach dem Zeichnen stimmts?

    Wie sieht das mit

    VB.NET-Quellcode

    1. pevent.Graphics.Clear(Me.BackColor)
    aus? Ist das überhaupt nötig?

    Hm, also ich hab das jetzt mit dem pevent gemacht ohne temporäres Bitmap aber irgendwie ist
    der Fehler immernoch da.

    Am eigentlichen Zeichnen liegt der Fehler allerdings nicht, denn wenn ich das Paint Event leer lasse kommt der Fehler auch.

    Irgendwas stimmt mit dem Konstruktor nicht.. Muss man da irgendwie was instanzieren oder so? Wobei eine TextBox ja auch nur ein Control ist..

    Edit: Code aktualisiert, fehler besteht aber noch. Siehe erster Post.

    Solche Fehler liegen oft daran, dass du auf Variablen zugreifst, die noch keinen Wert beinhalten. Wenn du zum Beispiel das allererste mal zeichnest, kann es sein, dass die Größe des Controls noch nicht vom Designer gesetzt wurde (blödes Beispiel, aber machts Problem deutlich).

    edit: Zu Testzwecken kannst du auch mal ein paar Try-Catchs reinhauen, die dir MessageBoxen anzeigen. Wenn du die siehst, weißt du wenigstens genau, wo der Fehler begraben liegt.

    Skybird schrieb:

    Das sind ja Ubisoftmethoden hier !

    Bitte VB-Tag benutzen - aber richtig

    füge das ding testweise einfach mal zur Laufzeit zu - nicht per Designer, sondern per ButtonClick.
    Da kriegst du vlt. eine Laufzeit-Fehlermeldung.

    Aber meiner Erfahrung nach ists ausserordentlich problematisch, eine Textbox selbst zu zeichnen. Weil zb die Cursor-Positionierung bleibt ja bei der Textbox, und deine Zeichnung muß dem exakt entsprechen.

    Edit: Stimme FreakJNS zu: post#4 nochmal lesen, insbes. den Edit.

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „ErfinderDesRades“ ()

Facebook
Telefonspende