Form an Desktop andocken (wie z.B. eine Sidebar)

  • VB.NET

Es gibt 35 Antworten in diesem Thema. Der letzte Beitrag () ist von Pry.

    von Cronoxyd:
    Und den einzigen Sourcecode, den ich verwendet habe ist der am Threadanfang.
    von Cronoxyd
    Ich habe mir jetzt alle eure Beispiele (Thx dafür schon mal) angesehen und Code-Snippes ausprobiert, habe aber nichts brauchbares rausbekommen.

    Hat noch irendjemand eine andere Idee?
    ....siehe post von Dodo....stichwort SystemParametersInfo
    ...in netz findest jede menge vb6 code....umschreiben, anpassen......by ! ;)

    Dieser Beitrag wurde bereits 4 mal editiert, zuletzt von „SystemUnknow“ ()

    Hey Cronoxyd,

    schreib mir doch bitte eine PM, wenn du den Code noch brauchst. Der ist zwar nicht das Nonplusultra, aber er funktioniert - ggf. kann noch jemand anderes den Code verbessern. Bin dabei damals auch an meine Grenzen gestoßen :)
    Würde dir dann entsprechend eine Antwort hier im Thread geben. Wird dann aber erst wieder morgen was, da ich die Code nur auf Arbeit habe :)

    Grüße,
    Pry
    Dateien umbenennen und nummerieren - nichts leichter als das!

    Basic File Renamer: 100%

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

    Pry´s Appbar Example

    Wie funktioniert denn das Beispiel vom Pry in groben Zügen?

    Ich hab es mal eben ausprobiert und danach andere Anwendungen gestartet und maximiert...

    Das macht genau das, was ich beabsichtige. Pry? Verrätst Du mir das Geheimnis?

    Klar, mache ich.

    Hier der Code:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.Runtime.InteropServices
    2. Public Class Form1
    4. Public AppDeskData As New AppDeskBar
    5. Public fBarRegistered As Boolean = False
    6. Public ret, i, uCallBack As Integer
    8. Structure RECT
    9. Public left As Integer
    10. Public top As Integer
    11. Public right As Integer
    12. Public bottom As Integer
    13. End Structure
    15. Structure AppDeskBar
    16. Public cbSize As Integer
    17. Public hWnd As IntPtr
    18. Public uCallbackMessage As Integer
    19. Public uEdge As Integer
    20. Public rc As RECT
    21. Public lParam As IntPtr
    22. End Structure
    24. Enum ABMsg
    25. ABM_NEW = 0
    26. ABM_REMOVE = 1
    27. ABM_QUERYPOS = 2
    28. ABM_SETPOS = 3
    29. ABM_GETSTATE = 4
    30. ABM_GETTASKBARPOS = 5
    31. ABM_ACTIVATE = 6
    32. ABM_GETAUTOHIDEBAR = 7
    33. ABM_SETAUTOHIDEBAR = 8
    34. ABM_WINDOWPOSCHANGED = 9
    35. ABM_SETSTATE = 10
    36. End Enum
    38. Enum ABEdge
    39. ABE_LEFT = 0
    40. ABE_TOP = 1
    41. ABE_RIGHT = 2
    42. ABE_BOTTOM = 3
    43. End Enum
    45. <DllImport("SHELL32", CallingConvention:=CallingConvention.StdCall)> _
    46. Public Shared Function SHAppBarMessage(ByVal dwMessage As Integer, ByRef BarrData As AppDeskBar) As Integer
    47. End Function
    49. <DllImport("User32.dll", CharSet:=CharSet.Auto)> _
    50. Public Shared Function RegisterWindowMessage(ByVal msg As String) As Integer
    51. End Function
    53. Public Sub RegisterBar(ByVal frm As Form, Optional ByVal dockEdge As ABEdge = ABEdge.ABE_TOP)
    54. AppDeskData.cbSize = Marshal.SizeOf(AppDeskData)
    55. AppDeskData.hWnd = Me.Handle
    56. If Not fBarRegistered Then
    57. uCallBack = RegisterWindowMessage("AppBarMessage")
    58. AppDeskData.uCallbackMessage = uCallBack
    60. ret = SHAppBarMessage(ABMsg.ABM_NEW, AppDeskData)
    61. fBarRegistered = True
    63. ABSetPos()
    64. End If
    65. End Sub
    67. Private Sub ABSetPos()
    68. Dim abd As New AppDeskBar
    69. abd.cbSize = Marshal.SizeOf(abd)
    70. abd.hWnd = Me.Handle
    71. abd.uEdge = ABEdge.ABE_TOP
    72. abd.rc.top = 0
    73. abd.rc.bottom = Size.Height
    75. SHAppBarMessage(ABMsg.ABM_QUERYPOS, abd)
    76. SHAppBarMessage(ABMsg.ABM_SETPOS, abd)
    77. End Sub
    79. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    80. If fBarRegistered Then
    81. fBarRegistered = False
    82. Me.FormBorderStyle = Windows.Forms.FormBorderStyle.Sizable
    83. Me.Width = 305
    84. Me.Height = 85
    85. Me.ShowInTaskbar = True
    86. ret = SHAppBarMessage(ABMsg.ABM_REMOVE, AppDeskData)
    87. End If
    88. End Sub
    90. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    91. Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None
    92. RegisterBar(Me, ABEdge.ABE_TOP)
    93. Threading.Thread.Sleep(500)
    94. Timer1.Enabled = True
    95. End Sub
    97. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    98. Me.Location = New Point(0, 0)
    99. Me.Width = Windows.Forms.SystemInformation.WorkingArea.Width
    100. Timer1.Enabled = False
    101. End Sub
    102. End Class

    Bitte beachte aber, dass der Code wahrscheinlich nicht das Nonplusultra ist :) Er ist schon etwas älter.
    Außerdem solltest du 2 Buttons und einen Timer auf deiner Form platzieren.

    Viele Grüße,
    Pry
    Dateien umbenennen und nummerieren - nichts leichter als das!

    Basic File Renamer: 100%

    Cronoxyd schrieb:

    Danke Pry, dein Code funktioniert toll, aber ich habe noch eine Frage: Wie bewirkt man, dass die Form rechts wie die Windows-Sidebar angedockt wird?

    VB.NET-Quellcode

    1. RegisterBar(Me, ABEdge.ABE_RIGHT)
    Es sollte aber klar sein, dass du deine Form dann entsprechend anpassen musst.

    Viele Grüße,
    Pry
    Dateien umbenennen und nummerieren - nichts leichter als das!

    Basic File Renamer: 100%

    Cronoxyd schrieb:

    Habe ich auch schon...

    Mal im Ernst: Kannst du nicht allein gucken? Ein bisschen Eigeninitiative wäre echt angebracht. Wenn du das alles hier nicht wenigstens annähernd verstehst, dann solltest du dir echt ein anderes Projekt suchen...

    VB.NET-Quellcode

    1. Public Sub RegisterBar(ByVal frm As Form, Optional ByVal dockEdge As ABEdge = ABEdge.ABE_TOP)
    Dateien umbenennen und nummerieren - nichts leichter als das!

    Basic File Renamer: 100%

    So, füge noch folgendes in deinen Code ein:

    VB.NET-Quellcode

    1. abd.rc.left = Windows.Forms.SystemInformation.WorkingArea.Width - 100

    Damit hast du auf der rechten Seite einen reservierten Bereich von 100px. Dann sollte aber endlich alles funktionieren :)

    Grüße,
    Pry
    Dateien umbenennen und nummerieren - nichts leichter als das!

    Basic File Renamer: 100%

Facebook