Vollständig transparentes Control

  • VB.NET

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

    Vollständig transparentes Control

    Hallo Leute, ich bins wieder :D
    Ich hab wieder einmal ein Problem mit den Controls.
    Ich möchte eine Art "Widget" für den Desktop programmieren, an sich scheint das bis jetzt garnichtmal so kompliziert zu sein doch mein Problem:
    Ich kriegs nicht hin, dass das Control semi Transparent ist, also nicht zur Form transparent sondern dass der Desktop sozusagen durchschimmert, so ähnlich wie
    die Aero Taskleiste etc.. Transparency Key macht zwar die Form transparent, veränder jedoch das Control worin ich ein Semi transparentes Bild habe nicht, da sich die Farbe der Form mit dem Bild addieren und somit
    eine andere Farbe entsteht.
    Wie ist es also möglich, Forms komplett transparent zum desktop zu machen ?

    Danke schonmal im voraus :D

    MfG Trunk

    vll stell ich mich dumm, jedoch ich verstehe dein Problem nicht wirklich.
    Du willst die Form ganz transparent machen, jedoch was funktioniert da nicht?
    Mfg: Gather
    Private Nachrichten bezüglich VB-Fragen werden Ignoriert!

    Also, stell dir vor, ich habe eine Form und darauf eine Picturebox. Innerhalb dieser Picturebox hab ich ein semitransparentes Bild, was halt nen bisschen durchschimmert.
    Wenn ich jetzt den Hintergrund der Picturebox transparent mache, schimmert sozusagen die Farbe meiner Form etwas durch.
    Jetzt könnte man ja noch die Farbe der Form als Transparency Key setzen damit ich die nur noch die Picturebox sehen kann.
    Das Problem: Mein semi transparentes Bild lässt nichts durchschimmer, man kann also nicht "durchgucken" und z.B. den Desktop erkennen.
    Stattdessen erkennt man die Hintergrundfarbe der Form und darüber dann mein Semi transparentes Bild.
    Mein Ziel ist es jedoch, dass man durch das Bild halbwegs durchschauen kann und somit z.B. den Desktop erkennt.
    Genauso wie z.B. die Windows Taskbar beim Aero design. Hoffe, dass ich mich besser ausgedrückt habe.

    Danke

    Hier nochmal ein Beispiel:

    Hier:

    VB.NET-Quellcode

    1. Imports System.Runtime.InteropServices
    3. Public Class AeroForm
    5. ‹StructLayout(LayoutKind.Sequential)›_
    6. Private Structure MARGINS
    7. Public LeftWidth As Integer
    8. Public RightWidth As Integer
    9. Public TopWidth As Integer
    10. Public BottomWidth As Integer
    11. End Structure
    12. ‹DllImport("dwmapi.dll")›_
    13. Private Shared Function DwmExtendFrameIntoClientArea(ByVal hwnd As IntPtr, ByRef margin As MARGINS)
    14. End Function
    16. Public Function SetAero(ByVal frm As Form) As Boolean
    17. Dim flag As Boolean = False
    18. Dim mg As New MARGINS
    19. mg.LeftWidth = -1
    20. mg.RightWidth = -1
    21. mg.TopWidth = -1
    22. mg.BottomWidth = -1
    23. Try
    24. 'WICHTIG!!!:
    25. frm.BackColor = Color.Black
    26. DwmExtendFrameIntoClientArea(frm.Handle, mg)
    27. flag = True
    28. Catch ex As Exception
    29. flag = False
    30. End Try
    31. End Function
    33. 'Aufruf:
    34. 'If SetAero(Me) = True Then
    35. 'Wenn erfolgreich, dann...
    36. 'Else
    37. 'Wenn nicht erfolgreich, dann
    38. 'End If
    39. End Class

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „ChipPRO Österreich“ ()

    Das was under herr "Pro" hier erklären versuchen will ist der Glass-Effekt glaub ich.
    Dies beantwortet deine Frage jedoch nicht. Auf seine Art erhältst du nur den simplen Glass-Effekt.

    Siehe hier:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.Runtime.InteropServices
    3. Public Class Form1
    4. <StructLayout(LayoutKind.Sequential)> _
    5. Public Structure MARGINS
    6. Public cxLeftWidth As Integer
    7. Public cxRightWidth As Integer
    8. Public cyTopHeight As Integer
    9. Public cyButtomheight As Integer
    10. End Structure
    11. <DllImport("dwmapi.dll")> _
    12. Private Shared Function DwmExtendFrameIntoClientArea(ByVal hwnd As IntPtr, ByRef margin As MARGINS) As Integer
    13. End Function
    15. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    16. Dim mg As MARGINS = New MARGINS
    17. mg.cxLeftWidth = -1
    18. mg.cxRightWidth = -1
    19. mg.cyTopHeight = -1
    20. mg.cyButtomheight = -1
    21. 'set all value -1 to apply glass effect to the all of visible window
    22. Try
    23. DwmExtendFrameIntoClientArea(Me.Handle, mg)
    24. Catch ex As Exception
    25. End Try
    26. End Sub
    27. End Class


    Vorschau:



    bzw. eine bessere Version, die ich dir umbedingt empfehlen würde (da sie unter anderem auch Open-Source, und so somit keine externe dll benötigst):
    codeproject.com/Articles/38780…rary-for-your-Application

    Diese Methode könnte dein Problem beheben.
    bzw. teste einmal ob somit Bilder mit Alpha-Kanal halb transparent gemacht werden.

    Gutes gelingen!
    Mfg: Gather
    Private Nachrichten bezüglich VB-Fragen werden Ignoriert!

Facebook
Telefonspende