SystemMenu mit CheckBox (Haken)

  • VB.NET
  • .NET (FX) 3.0–3.5

Es gibt 10 Antworten in diesem Thema. Der letzte Beitrag () ist von Michael B..

    SystemMenu mit CheckBox (Haken)

    Hallo zusammen,

    ich beschäftige mich mal wieder mit einem kleinen Tool. Die Grundfunktionalität ist soweit schon gegeben. Als Letztes möchte ich noch ein kleines Gimmick einfügen, mir dem ich das Formular 'Always On Top' umschaltbar machen kann. Dies möchte ich über das SystemMenu des Formulars bewerkstellingen.

    Die Menueinträge, die ich benötige habe ich bereits integriert.

    Spoiler anzeigen

    VB.NET-Quellcode

    1. #Region "SystemMenu"
    2. 'Imports System.Runtime.InteropServices
    4. Private Const MF_STRING As Integer = &H0
    5. Private Const MF_ENABLED As Int32 = &H0I
    6. Private Const MF_GRAYED As Int32 = &H1I
    7. Private Const MF_DISABLED As Integer = &H2I
    8. Private Const MF_BITMAP As Integer = &H4&
    9. Private Const MF_SEPARATOR As Integer = &H800&
    10. Private Const MF_BYCOMMAND As Integer = &H0
    11. Private Const MF_BYPOSITION As Integer = &H400
    12. Private Const MF_POPUP As Integer = &H10
    13. Private Const WM_SYSCOMMAND As Integer = &H112
    15. ' The constants we'll use to identify our custom system menu items
    16. Public Const _DynamicLogin As Int32 = 1000
    17. Public Const _AlwaysOnTop As Int32 = 1001
    19. <DllImport("user32.dll", CallingConvention:=CallingConvention.Cdecl)> _
    20. Private Shared Function GetSystemMenu(hWnd As IntPtr, bRevert As Boolean) As IntPtr
    21. End Function
    23. <DllImport("user32.dll", CallingConvention:=CallingConvention.Cdecl)> _
    24. Private Shared Function AppendMenu(hMenu As IntPtr, uFlags As Int32, uIDNewItem As IntPtr, lpNewItem As String) As Boolean
    25. End Function
    27. <DllImport("user32.dll", CallingConvention:=CallingConvention.Cdecl)> _
    28. Private Shared Function InsertMenu(hMenu As IntPtr, uPosition As Integer, uFlags As Integer, uIDNewItem As IntPtr, lpNewItem As String) As Boolean
    29. End Function
    31. <DllImport("user32.dll", CallingConvention:=CallingConvention.Cdecl)> _
    32. Private Shared Function SetMenuItemBitmaps(hMenu As IntPtr, uPosition As Integer, uFlags As Integer, hBitmapUnchecked As IntPtr, hBitmapChecked As IntPtr) As Boolean
    33. End Function
    35. Private Sub AddSysMenuItems()
    36. 'Get the System Menus Handle.
    37. Dim hSysMenu As IntPtr = GetSystemMenu(Me.Handle, False)
    39. 'and a separator at position 5.
    40. InsertMenu(hSysMenu, 5, MF_BYPOSITION Or MF_SEPARATOR, IntPtr.Zero, Nothing)
    42. Dim hImage As IntPtr = My.Resources.Key.GetHbitmap
    43. InsertMenu(hSysMenu, 6, MF_BYPOSITION, _DynamicLogin, "Login...")
    44. SetMenuItemBitmaps(hSysMenu, 6, MF_BYPOSITION, hImage, hImage)
    46. 'Create a glyph for About MenuItem
    47. Dim bmpBitmapUnchecked As New Bitmap(16, 16)
    48. Dim gBitmapUnchecked As Graphics = Graphics.FromImage(bmpBitmapUnchecked)
    49. gBitmapUnchecked.Clear(Color.White)
    50. gBitmapUnchecked.Dispose()
    52. 'Get a gdi bitmap object from our bitmap.
    53. Dim hImageUnchecked As IntPtr = bmpBitmapUnchecked.GetHbitmap
    54. bmpBitmapUnchecked.Dispose()
    56. hImage = My.Resources.check.GetHbitmap()
    57. InsertMenu(hSysMenu, 7, MF_BYPOSITION, _AlwaysOnTop, "Always on top")
    58. SetMenuItemBitmaps(hSysMenu, 7, MF_BITMAP Or MF_BYPOSITION, hImageUnchecked, hImage)
    59. End Sub
    61. Protected Overrides Sub WndProc(ByRef m As Message)
    62. ' Check if a System Command has been executed
    63. If m.Msg = WM_SYSCOMMAND Then
    64. ' Execute the appropriate code for the System Menu item that was clicked
    65. Select Case m.WParam.ToInt32()
    66. Case _DynamicLogin
    67. If fDynamicLogin.ShowDialog() = Windows.Forms.DialogResult.OK Then
    68. mPLCSpyTabsLocked = Not mPLCSpyTabsLocked
    69. CheckStateOfControls()
    70. If mPLCSpyTabsLocked Then
    71. If tcPLCSpy.TabPages.Contains(tpPLCSpyPreSelection) Then tcPLCSpy.TabPages.Remove(tpPLCSpyPreSelection)
    72. Else
    73. If Not tcPLCSpy.TabPages.Contains(tpPLCSpyPreSelection) Then tcPLCSpy.TabPages.Add(tpPLCSpyPreSelection)
    74. End If
    75. HideNotUsedColumns()
    76. End If
    77. Exit Select
    78. Case _AlwaysOnTop
    79. Exit Select
    80. End Select
    81. End If
    83. MyBase.WndProc(m)
    84. End Sub
    86. #End Region



    Wie schaffe ich das nun, dass ein Haken links neben dem Menueintrag 'Always On Top' je nach boolschem Wert angezeigt wird, oder nicht?

    Für Lösungsansätze bin ich wie immer dankbar....

    Gruß Michael

    @Michael B. Kannst Du mal bitte einen kompilierbaren Code posten, ggf. als ZIP?
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Hab ne Lösung gefunden. ;) Dabei wird aber nicht deine Grafik aus den Ressourcen verwendet, sondern der Windows-Standard. Aber das ist denke ich egal. Ich hab dazu die Zeilen auskommetiert, mit welchen du ein Bild in das MenuItem reinlädst.

    VB.NET-Quellcode

    1. 'If mTopMost Then
    2. ' SetMenuItemBitmaps(hSysMenu, 6, MF_BITMAP Or MF_BYPOSITION, hImage, hImage)
    3. 'Else
    4. ' SetMenuItemBitmaps(hSysMenu, 6, MF_BITMAP Or MF_BYPOSITION, hImageUnchecked, hImage)
    5. 'End If


    Außerdem habe ich

    VB.NET-Quellcode

    1. If mTopMost Then
    2. CheckMenuItem(hSysMenu, _AlwaysOnTop, MF_CHECKED Or MF_BYPOSITION)
    3. Else
    4. CheckMenuItem(hSysMenu, _AlwaysOnTop, MF_UNCHECKED Or MF_BYPOSITION)
    5. End If

    zu

    VB.NET-Quellcode

    1. If mTopMost Then
    2. CheckMenuItem(hSysMenu, _AlwaysOnTop, MF_CHECKED)
    3. Else
    4. CheckMenuItem(hSysMenu, _AlwaysOnTop, MF_UNCHECKED)
    5. End If

    geändert.

    Funktionierende Projektmappe im Anhang.

    Viele Grüße
    DiePod
    Dateien

Facebook
Telefonspende