Rechteck Halbtransparent

  • VB.NET

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

    Rechteck Halbtransparent

    Hallo,
    ich möchte in meiner Form ein halbtransparentes Rechteck einfügen. Ich habe dazu auch schon eine Code im Internet gefunden. Allerdings weiss ich nicht wie und wo ich den Code einfügen soll.
    Hier die Anleitung/Code: janelo.net/index.php?nav=1021

    Der Code besteht aus 4 Teile

    1. Teil

    VB.NET-Quellcode

    1. Public Class OverlayPanel
    2. Inherits Windows.Forms.Panel
    4. Public Property Opacity as Double
    5. Private imageCache As Drawing.Image = Nothing
    6. End Class


    2. Teil

    VB.NET-Quellcode

    1. Protected Overrides Sub OnPaint(e As PaintEventArgs)
    2. Me.PaintParentBackground(e)
    3. MyBase.OnPaint(e)
    4. End Sub


    3.Teil

    VB.NET-Quellcode

    1. Private Sub PaintParentBackground(ByVal e As PaintEventArgs)
    2. If Me.Width > 0 And Me.Height > 0 Then
    3. If IsNothing(imageCache) Then
    4. Me.Visible = False
    5. Me.imageCache = New Bitmap(Me.Parent.Width, Me.Parent.Height)
    6. Me.Parent.DrawToBitmap(Me.imageCache, New Rectangle(New Point(0, 0), Me.Parent.Size))
    7. Me.Visible = True
    8. End If
    10. Dim offsetX As Int32 = (Me.Parent.Width - Me.Parent.ClientSize.Width) / 2
    11. Dim offsetY As Int32 = Me.Parent.Height - Me.Parent.ClientSize.Height - offsetX
    12. Dim alpha As Byte = 255
    13. If Me._Opacity < 1 Then alpha = Me._Opacity * 255
    15. e.Graphics.DrawImage(Me.imageCache,
    16. New Rectangle(New Point(0, 0), Me.Size),
    17. New Rectangle(Me.Location + New Point(offsetX, offsetY), Me.Size),
    18. GraphicsUnit.Pixel)
    20. e.Graphics.FillRectangle(New SolidBrush(Color.FromArgb(alpha, Me.BackColor)),
    21. New Rectangle(New Point(0, 0), Me.Size))
    22. End If
    23. End Sub


    4. Teil

    VB.NET-Quellcode

    1. Sub New()
    2. Me.SetStyle(ControlStyles.AllPaintingInWmPaint + ControlStyles.DoubleBuffer, True)
    3. End Sub


    Bin in vorallem in Sachen Grafiken in Visual Basic blutiger Anfänger :)
    Meine Frage ist jetzt wo ich die jeweiligen Programmteile in mein Projekt einfügen soll?! Also extra neue Klasse einfügen oder in Form1 einfügen?

    @gitarre94
    1. machst Du Option Strict On
    2. Was soll wie passieren?
    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!

    @fichz
    Nachdem ich die 4 Schnipsel in meine Klasse OverlayPanel gepackt habe, flog mir so einiges um die Ohren, was ich bereinigt habe.
    Dann habe ich mir ein solch Objekt auf mein Form gezogen und mit der Property Opacity rumgespielt und sehe die Hintergrundfarbe entsprechend "verblassen".
    ======
    OK.
    Ein andersfarbenes Panel brachte die Lösung:

    @gitarre94 mit Strict On und Invalidate:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class OverlayPanel
    2. Inherits Windows.Forms.Panel
    3. Implements IDisposable
    5. Public Property Opacity As Double
    6. Get
    7. Return _Opacity
    8. End Get
    9. Set(value As Double)
    10. If _Opacity <> value Then
    11. _Opacity = value
    12. Me.Invalidate()
    13. End If
    14. End Set
    15. End Property
    17. Private _Opacity As Double
    18. Private imageCache As Bitmap = Nothing
    20. Sub New()
    21. Me.SetStyle(ControlStyles.AllPaintingInWmPaint Or ControlStyles.DoubleBuffer, True)
    22. End Sub
    23. Protected Overrides Sub OnPaint(e As PaintEventArgs)
    24. Me.PaintParentBackground(e)
    25. MyBase.OnPaint(e)
    26. End Sub
    28. Private Sub PaintParentBackground(ByVal e As PaintEventArgs)
    29. If Me.Width > 0 And Me.Height > 0 Then
    30. If imageCache Is Nothing Then
    31. Me.Visible = False
    32. Me.imageCache = New Bitmap(Me.Parent.Width, Me.Parent.Height)
    33. Me.Parent.DrawToBitmap(Me.imageCache, New Rectangle(New Point(0, 0), Me.Parent.Size))
    34. Me.Visible = True
    35. End If
    37. Dim offsetX As Int32 = (Me.Parent.Width - Me.Parent.ClientSize.Width) \ 2
    38. Dim offsetY As Int32 = Me.Parent.Height - Me.Parent.ClientSize.Height - offsetX
    39. Dim alpha As Byte = 255
    40. If Me._Opacity <= 1 Then alpha = CByte(Me._Opacity * 255)
    42. e.Graphics.DrawImage(Me.imageCache,
    43. New Rectangle(New Point(0, 0), Me.Size),
    44. New Rectangle(Me.Location + New Size(offsetX, offsetY), Me.Size),
    45. GraphicsUnit.Pixel)
    47. e.Graphics.FillRectangle(New SolidBrush(Color.FromArgb(alpha, Me.BackColor)),
    48. New Rectangle(New Point(0, 0), Me.Size))
    49. End If
    50. End Sub
    52. Protected Overrides Sub Finalize()
    53. If imageCache IsNot Nothing Then
    54. imageCache.Dispose()
    55. End If
    57. MyBase.Finalize()
    58. End Sub
    59. End Class

    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!

    ok vielen Dank dank!
    @RodFromGermany
    Ich hab deinen Code jetzt übernommen und das Objekt eingefügt. Allerdings verblasst das Rechteck nicht. Es bleibt auf der Farbe, die ich in .BackColer eingestellt habe. Den Wert von Opacity habe ich auch geändert allerdings verblasst das Objekt nicht. Was mache ich falsch?

    gitarre94 schrieb:

    allerdings verblasst das Objekt nicht
    Probier dies:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class Form1
    2. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    3. Me.OverlayPanel1.Opacity = 0
    4. End Sub
    6. Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    7. Me.OverlayPanel1.Opacity = 0.2
    8. End Sub
    10. Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
    11. Me.OverlayPanel1.Opacity = 0.4
    13. End Sub
    15. Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
    16. Me.OverlayPanel1.Opacity = 0.6
    18. End Sub
    20. Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
    21. Me.OverlayPanel1.Opacity = 0.8
    23. End Sub
    25. Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
    26. Me.OverlayPanel1.Opacity = 1
    27. End Sub
    28. End Class
    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!