Problem mit GetMonitorInfo/MonitorFromWindow

  • WPF

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von ErfinderDesRades.

    Problem mit GetMonitorInfo/MonitorFromWindow

    Moin,
    ich möchte mein WPF-Programm mit eigener Titelleiste maximieren können.
    Da cih WindowsStyle=none habe, ist das maximierte Fenster über der Taskleiste.
    Ich habe jetzt diese Lösung gefunden
    blogs.msdn.com/b/llobo/archive…-considering-taskbar.aspx
    Da das C# ist, ich aber VB.Net verwende, habe ich mir das ganze übersetzt:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private Declare Function MonitorFromWindow Lib "user32.dll" (ByVal hwnd As IntPtr, ByVal dwFlags As Integer) As IntPtr
    2. Friend Declare Function GetMonitorInfo Lib "user32.dll" (ByVal hMonitor As IntPtr, ByRef lpmi As MonitorInfo) As Boolean
    3. Public Const MONITOR_DEFAULTTONEAREST As Integer = &H2
    5. Private Sub MainWindow_SourceInitialized(sender As Object, e As EventArgs) Handles Me.SourceInitialized
    6. Dim handle As IntPtr = (New WindowInteropHelper(Me)).Handle
    7. HwndSource.FromHwnd(handle).AddHook(New HwndSourceHook(AddressOf WindowProc))
    8. End Sub
    9. Private Function WindowProc(ByVal hwnd As IntPtr, msg As Integer, ByVal wParam As IntPtr, ByVal lParam As IntPtr, ByRef handled As Boolean) As IntPtr
    10. Select Case msg
    11. Case Is = &H24
    12. wmGetMinMaxInfo(hwnd, lParam)
    13. handled = True
    14. End Select
    15. Return New IntPtr(0)
    16. End Function
    17. Private Sub wmGetMinMaxInfo(hwnd As IntPtr, lParam As IntPtr)
    18. Dim mmi As MinMaxInfo = DirectCast(Marshal.PtrToStructure(lParam, GetType(MinMaxInfo)), MinMaxInfo)
    19. Dim monitor As IntPtr = MonitorFromWindow(hwnd, MONITOR_DEFAULTTONEAREST)
    20. If Not monitor = IntPtr.Zero Then
    21. Dim monitorInfo As MonitorInfo = New MonitorInfo
    22. GetMonitorInfo(monitor, monitorInfo)
    23. Dim rcWorkArea As Rect = monitorInfo.rcWork
    24. Dim rcMonitorArea As Rect = monitorInfo.rcMonitor
    25. mmi.ptMaxPosition.X = Math.Abs(rcWorkArea.Left - rcMonitorArea.Left)
    26. mmi.ptMaxPosition.Y = Math.Abs(rcWorkArea.Top - rcMonitorArea.Top)
    27. mmi.ptMaxSize.X = Math.Abs(rcWorkArea.Right - rcWorkArea.Left)
    28. mmi.ptMaxSize.Y = Math.Abs(rcWorkArea.Bottom - rcWorkArea.Top)
    29. End If
    30. Marshal.StructureToPtr(mmi, lParam, True)
    31. End Sub
    32. <StructLayout(LayoutKind.Sequential)>
    33. Public Structure MinMaxInfo
    34. Public ptReserved As Point
    35. Public ptMaxSize As Point
    36. Public ptMaxPosition As Point
    37. Public ptMinTrackSize As Point
    38. Public ptMaxTrackSize As Point
    39. End Structure
    41. <StructLayout(LayoutKind.Sequential)>
    42. Public Structure Rect
    43. Public Left As Integer
    44. Public Right As Integer
    45. Public Top As Integer
    46. Public Bottom As Integer
    47. End Structure
    48. <StructLayout(LayoutKind.Sequential)>
    49. Public Class MonitorInfo
    50. Public cbSize As Integer = Marshal.SizeOf(GetType(MinMaxInfo))
    51. Public rcMonitor As New Rect()
    52. Public rcWork As New Rect()
    53. Public dwFlags As Integer = 0
    54. End Class

    Nach dem Übersetzten funktioniert das ganze aber nicht mehr. D.h. das Window bekommt eine Größe von 0x0 und eine Position von 0;0. Außerdem bekomme ich den Fehler, dass die Funktion "GetMonitorInfo" nicht in User32.dll gefunden werden konnte, die Meldung verschwindet, wenn ich einen Alias "GetMonitorInfoA" verwende.

    Ich hoffe ihr könnt mir helfen.

    Gruß
    HamburgerJungeJr

    Screen.FromHandle(IntPtr) gibt dir den Bildschirm zurück, auf dem sich das Fenster mit dem angegebenen Handle zum größten Teil befindet. Screen.FromControl kannst du leider nicht verwenden, da ein WPF-Window kein gültiges Control ist, du musst also den Umweg über das Fensterhandle gehen (ist aber auch in einer Zeile erledigt).

Facebook
Telefonspende