Effekt wie Windows Explorer - Titelleiste leeren

  • VB.NET

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von WoAlK.

    Effekt wie Windows Explorer - Titelleiste leeren

    Hallo,

    gibt es eine Möglichkeit, den Inhalt der Titelleiste zu leeren (außer Schließen/Minimieren/Maximieren), aber in der Taskleiste dennoch eine Beschriftung anzuzeigen?

    Das macht ja auch z.B. der Windows Explorer (siehe Anhang) oder verschiedene "Aero-Wizards" (siehe Anhang).

    Ich habe bereits diesen Artikel im MSDN gefunden:
    blogs.msdn.com/b/wpfsdk/archiv…window-chrome-in-wpf.aspx

    Der Code in C# wäre nicht das Problem, aber irgendwie komme ich damit trotzdem nicht klar.
    ?(
    Was ist mit den "NativeMethods" gemeint?
    Und was sind diese ganzen Konstanten (die großgeschriebenen)?

    Ich würde mich freuen, wenn jemand weiß, wie man das in VB hinbekommt!


    PS.: Ja, mein Programm ist ein WPF-Programm ;) !
    Bilder

    • aerowizard_link_taskmanager.png

      69,54 kB, 824×157, 183 mal angesehen

    • explorer_taskbar.png

      104,28 kB, 511×188, 184 mal angesehen

    Um dies zu realisieren werden deiner Beschreibung nach WinAPI Aufrufe verwendet. Da diese in dlls sind welche keine .net dlls sind sondern "native"-dlls sind nennt man diese Methoden in dem Blog auch NativeMethods. Die Konstanten kommen daher, dass es in C noch nicht diese ganzen wunderbaren Enumerationen gibt. Da diese dlls jedoch auf C basieren werden eben Konstanten verwendet um anzugeben wie etwas zu geschehen hat.
    Als Beispiel gibt es die WinAPI Funktion ShowWindow(HWND, eine zahl). Die Zahl sagt hier aus ob das Fenster anzeigt/versteckt,... werden soll. Damit sich der Programmierer nicht die ganzen Zahlen merken muss wurden in den Headerdateien Konstanten wie SW_HIDE, SW_SHOW... angelegt. Wenn man nun diese Funktionen in C#/VB.NET verwendet erstellen manche noch immer identische Konstanten und verzichten weiterhin auf Enumerationen. Daher kommen die ganzen Konstanten. Damit du die aufrufe verstehst was sie machen und eine anständige Beschreibung bekommst solltest du mal auf msdn nach den Funktionen suchen und dort nachlesen. Dort sind auch die ganzen Konstanten aufgelistet.


    Opensource Audio-Bibliothek auf github: KLICK, im Showroom oder auf NuGet.

    Die Lösung des Problems!

    Nach "langer Zeit" habe ich nun doch eine Lösung gefunden (falls es noch jemanden interessiert):

    VB.NET-Quellcode

    1. Imports System.Windows.Interop
    2. Imports System.Runtime.InteropServices
    4. Public Class Glass
    6. <DllImport("dwmapi.dll", PreserveSig:=False)>
    7. Public Shared Function DwmIsCompositionEnabled() As Boolean
    8. End Function
    10. <DllImport("uxtheme.dll", PreserveSig:=False)> _
    11. Public Shared Sub SetWindowThemeAttribute(<[In]()> hwnd As IntPtr, <[In]()> eAttribute As WINDOWTHEMEATTRIBUTETYPE, <[In]()> ByRef pvAttribute As WTA_OPTIONS, <[In]()> cbAttribute As UInteger)
    12. End Sub
    14. Public Shared Sub WindowThemeAttribute(window As Window, showCaption As Boolean, showIcon As Boolean)
    15. Dim isGlassEnabled As Boolean = DwmIsCompositionEnabled()
    17. Dim hwnd As IntPtr = New WindowInteropHelper(window).Handle
    19. Dim options = New WTA_OPTIONS() With {.dwMask = WTNCA.NODRAWCAPTION Or WTNCA.NODRAWICON}
    20. If isGlassEnabled Then
    21. If Not showCaption Then
    22. options.dwFlags += WTNCA.NODRAWCAPTION
    23. End If
    24. If Not showIcon Then
    25. options.dwFlags += WTNCA.NODRAWICON
    26. End If
    27. End If
    29. Dim size As UInteger = Marshal.SizeOf(options)
    30. SetWindowThemeAttribute(hwnd, WINDOWTHEMEATTRIBUTETYPE.WTA_NONCLIENT, options, size)
    31. End Sub
    33. End Class
    35. Public Class WTNCA
    36. Public Const NODRAWCAPTION As Integer = &H1
    37. Public Const NODRAWICON As Integer = &H2
    38. Public Const NOSYSMENU As Integer = &H4
    39. Public Const NOMIRRORHELP As Integer = &H8
    40. Public Const VALIDBITS As Integer = &H11
    41. End Class
    43. Public Structure WTA_OPTIONS
    44. Public dwFlags As UInteger
    45. Public dwMask As UInteger
    46. End Structure
    48. Public Enum WINDOWTHEMEATTRIBUTETYPE
    49. WTA_NONCLIENT = 1
    50. End Enum


    Es funktioniert perfekt, wenn man es folgendermaßen aufruft:

    VB.NET-Quellcode

    1. Public Class MainWindow
    3. Protected Overrides Sub OnSourceInitialized(e As System.EventArgs)
    4. Glass.WindowThemeAttribute(Me, False, False)
    5. End Sub
    7. ' ...

Facebook