Fehler bei AppBar: Appbar an der Falschen Position

  • VB.NET

Es gibt 7 Antworten in diesem Thema. Der letzte Beitrag () ist von MAAN10.

    Fehler bei AppBar: Appbar an der Falschen Position

    Hallo, ich habe folgenden Code für eine Appbar:

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.Runtime.InteropServices
    3. Public Class AppBar
    5. ''' <sumary>
    6. ''' Beinhaltet Information über die Application Bar.
    7. ''' Eine ausführliche Beschreibung finden Sie in MSDN APPBARDATA Dokumentation.
    8. ''' </sumary>
    9. <StructLayout(LayoutKind.Sequential)> _
    10. Public Structure APPBARDATA
    11. Public cbSize As UInteger
    12. Public hWnd As IntPtr
    13. Public uCallbackMessage As UInteger
    14. Public uEdge As UInteger
    15. Public rc As RECT
    16. Public lParam As Integer
    17. End Structure
    18. ''' <sumary>
    19. ''' Speichert Größe und Position der AppBAr.
    20. ''' </sumary>
    21. <StructLayout(LayoutKind.Sequential)> _
    22. Public Structure RECT
    23. Public left As Integer
    24. Public top As Integer
    25. Public right As Integer
    26. Public bottom As Integer
    27. End Structure
    29. <DllImport("shell32.dll")> _
    30. Private Shared Function SHAppBarMessage(ByVal dwMessage As UInteger, ByRef pData As APPBARDATA) As IntPtr
    31. End Function
    32. <DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> _
    33. Private Shared Function RegisterWindowMessage(ByVal lpString As String) As UInteger
    34. End Function
    36. Const ABM_NEW As Integer = &H0
    37. Const ABM_REMOVE As Integer = &H1
    38. Const ABM_SETPOS As Integer = &H3
    39. Const ABM_QUERYPOS As Integer = &H2
    41. Const ABE_TOP As Integer = 1
    43. Private Sub AppBar_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    44. 'Me.Location = New Point(0, 0)
    46. ' Datenstruktur für AppBar erzeugen und initialisieren.
    47. Dim abd As New APPBARDATA()
    48. abd.cbSize = CUInt(Marshal.SizeOf(GetType(APPBARDATA)))
    49. abd.hWnd = Me.Handle
    50. abd.uCallbackMessage = RegisterWindowMessage(Guid.NewGuid().ToString())
    52. ' AppBar beim System registrieren.
    53. SHAppBarMessage(ABM_NEW, abd)
    55. ' Größe und Position festlegen.
    56. ' In dem Beispiel wird oben am Desktop 100 Pixel Platz reserviert.
    57. abd.rc = New RECT()
    58. abd.uEdge = ABE_TOP
    59. abd.rc.top = 0
    60. abd.rc.left = 0 ' - 100
    61. abd.rc.bottom = 100 'SystemInformation.PrimaryMonitorSize.Height
    62. abd.rc.right = SystemInformation.PrimaryMonitorSize.Width
    64. ' Die Gröse und Position der AppBar prüfen.
    65. ' Wenn diese nicht gültig sind, werden die
    66. ' korrigierte Werte zurückgegeben.
    67. SHAppBarMessage(ABM_QUERYPOS, abd)
    68. ' Größe und Position der AppBarsetzen
    69. SHAppBarMessage(ABM_SETPOS, abd)
    70. ' Größe und Position des Anwendungsfenster im AppBar Bereich positionieren
    71. Location = New Point(abd.rc.left, abd.rc.top)
    72. Size = New Size(abd.rc.right, abd.rc.bottom)
    74. Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None
    75. End Sub
    78. Private Sub AppBar_FormClosed(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles MyBase.FormClosed
    79. Dim abd As New APPBARDATA()
    80. abd.cbSize = CUInt(Marshal.SizeOf(GetType(APPBARDATA)))
    81. abd.hWnd = Me.Handle
    83. SHAppBarMessage(ABM_REMOVE, abd)
    85. MyBase.OnClosed(e)
    86. End Sub
    87. End Class


    aber leider funktioniert es nur mit Formborderstyle = toolwindow richtig wenn ich None verwnde schaut das so aus (das graue ganz oben ist die app bar und die ist an der falschen position. eigentlich sollte alles dort oben über dem Fenster grau sein.) :
    Bilder

    • Unbenannt.jpg

      88,38 kB, 1.280×1.024, 107 mal angesehen

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „MAAN10“ ()

    Ja genau, dass will ich, ich will dass der gesamte reservierte bereich genutzt wird. Villeicht muss ich den FormBorderStyle auch nur an einer anderen Stelle auf None Setzen (der Code ist im 1.Post im Expander Tag)

    EDIT hab es geschafft *freu*

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „MAAN10“ ()

Facebook
Telefonspende