GDI+ Rechtseck im Control zeichnen

  • Allgemein

Es gibt 6 Antworten in diesem Thema. Der letzte Beitrag () ist von Gather.

    GDI+ Rechtseck im Control zeichnen

    Hallo liebe Community,

    Grundsätzlich kenne ich mich sehr gut mit GDI+ aus, jedoch weiß ich nun nicht weiter.
    Ich will das wenn ich die Tabs mit einem Rechtseck übermale sich dann noch eine UMRANDUNG um das Leere TabControl zieht.
    Code zum Übermalen

    VB.NET-Quellcode

    1. Public Overrides ReadOnly Property DisplayRectangle() As System.Drawing.Rectangle
    3. Get
    4. If Me.HideTabs Then
    5. Return New Rectangle(0, 0, Width, Height)
    6. Else
    7. Dim tabStripHeight As Integer, itemHeight As Integer
    9. If Me.Alignment <= TabAlignment.Bottom Then
    10. itemHeight = Me.ItemSize.Height
    11. Else
    12. itemHeight = Me.ItemSize.Width
    13. End If
    15. If Me.Appearance = TabAppearance.Normal Then
    16. tabStripHeight = 5 + (itemHeight * Me.RowCount)
    17. Else
    18. tabStripHeight = (3 + itemHeight) * Me.RowCount
    19. End If
    21. Select Case Me.Alignment
    22. Case TabAlignment.Bottom
    23. Return New Rectangle(4, 4, Width - 8, Height - tabStripHeight - 4)
    24. Case TabAlignment.Left
    25. Return New Rectangle(tabStripHeight, 4, Width - tabStripHeight - 4, Height - 8)
    26. Case TabAlignment.Right
    27. Return New Rectangle(4, 4, Width - tabStripHeight - 4, Height - 8)
    28. Case Else
    29. Return New Rectangle(4, tabStripHeight, Width - 8, Height - tabStripHeight - 4)
    30. End Select
    33. End If
    34. End Get
    35. End Property


    Das Ganze Funktioniert ja wenn ich es extra in Form1 mache. Also im On-Paint event.
    Und die Grenze würde ich mit diesem Code malen:

    VB.NET-Quellcode

    1. Dim r As New Rectangle(Me.Location.X - 1, Me.Location.Y - 1, Me.Width + 2, Me.Height + 2)
    2. With e.Graphics
    3. .DrawRectangle(Pens.Black, r)
    4. End With


    Jetzt ist die Frage, in welchem Event soll ich das ganze ausführen damit es funktioniert.
    Im OnPaint passiert nichts.

    VB.NET-Quellcode

    1. Protected Overrides Sub OnPaint(e As System.Windows.Forms.PaintEventArgs)
    3. Dim r As New Rectangle(Me.Location.X - 1, Me.Location.Y - 1, Me.Width + 2, Me.Height + 2)
    4. With e.Graphics
    5. .DrawRectangle(Pens.Black, r)
    6. End With
    7. MyBase.OnPaint(e)
    8. End Sub


    Alles was ich probiere führt zu nichts. Selbst wenn ich einfach folgendes mache:

    VB.NET-Quellcode

    1. Sub DrawBorder()
    2. Dim g As Graphics
    3. Dim p As Pen
    4. Dim r As Rectangle
    5. g = Me.CreateGraphics
    6. p = New Pen(System.Drawing.Color.Black, 1)
    7. r = New Rectangle(Me.Location.X - 1, Me.Location.Y - 1, Me.Width + 2, Me.Height + 2)
    8. g.DrawRectangle(p, r)
    9. End Sub

    Und dies einfach aufrufe. Was mach ich falsch? Wie mache ich es am besten?

    Bitte um Hilfe
    Danke im Vorraus.
    Mfg: Gather
    Private Nachrichten bezüglich VB-Fragen werden Ignoriert!

    Gather schrieb:

    Ich will das wenn ich die Tabs mit einem Rechtseck übermale sich dann noch eine UMRANDUNG um das Leere TabControl zieht.

    Moin,

    eine Umrandung zog sich bei mir bei folgendem Versuch:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Option Strict On
    3. Public Class TabEx
    4. Inherits TabControl
    6. Public Sub New()
    7. ' style settings
    8. Me.SetStyle(ControlStyles.UserPaint, True)
    9. Me.SetStyle(ControlStyles.AllPaintingInWmPaint, True)
    10. Me.SetStyle(ControlStyles.OptimizedDoubleBuffer, True)
    11. Me.UpdateStyles()
    12. End Sub
    14. Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
    15. MyBase.OnPaint(e)
    17. Dim graphics As Graphics = e.Graphics
    18. graphics.DrawRectangle(New Pen(Color.Black, 1), 0, 0, Me.Size.Width - 1, Me.Size.Height - 1)
    19. End Sub
    20. End Class


    Aber warscheinlicher ist, dass ich Dich nicht ganz verstanden habe nach einem Gläschen lecker Wein ;) ..

    Bis denn dann, LG,
    Bruno

    Nein, das meine ich nicht. Bei meinem TabControl gibts es die funktion dass die reiter ausgeblendet werden.
    Siehe:
    Mit Reiter

    Ohne Reiter.

    Jedoch möchte ich, dass bei dem Bild ohne Reiter noch eine Umrandung dazu kommt. (eig. diese umrandung wie beim TabControl mit dem Reiter.)
    Deines Funktioniert leider auch nicht so wie ich es will.

    Bitte um Hilfe.
    Mfg: Gather
    Private Nachrichten bezüglich VB-Fragen werden Ignoriert!

    Und gerade das will ich vermeide, da sonst das ganze design im ar*** ist.
    (Standard Design)
    Für ein anderes Design kommt eh Version 2.
    Mfg: Gather
    Private Nachrichten bezüglich VB-Fragen werden Ignoriert!

    Weiß aber ebenfalls nicht wie ich das hier(in diesem fall) sinnvoll einsetze.

    VB.NET-Quellcode

    1. Sub DrawBorder()
    2. Dim g As Graphics = Me.CreateGraphics()
    3. Dim r As New Rectangle(Me.Location.X - 1, Me.Location.Y - 1, Me.Width + 2, Me.Height + 2)
    4. g.DrawRectangle(Pens.Black, r)
    5. End Sub

    funkt nämlich nicht. passiert nichts.
    Mfg: Gather
    Private Nachrichten bezüglich VB-Fragen werden Ignoriert!

Facebook
Telefonspende