SystemMenuManager Class

Public Class SystemMenuManager
	Inherits NativeWindow
	Implements IDisposable

Dim instance As SystemMenuManager

public ref class SystemMenuManager : public NativeWindow, 
	IDisposable

type SystemMenuManager = 
    class
        inherit NativeWindow
        interface IDisposable
    end

No code example is currently available or this language may not be supported.

Public Class Form1 : Inherits Form

    Friend WithEvents SystemMenu As New Global.SystemMenuManager(Me)

    Private Shadows Sub Shown() Handles MyBase.Shown

        ' Disable the menu
        SystemMenu.MenuEnabled = False

        ' Enable the menu
        SystemMenu.MenuEnabled = True

        ' Gets the total amount of menu items.
        MsgBox(SystemMenu.GetItemCount())

        ' Sets the menu background color.
        SystemMenu.SetMenuBackColor(Color.Teal)

        ' Sets the menu style.
        SystemMenu.SetMenuStyle(MenuStyle.AutoDismis)

        ' Sets the state of the Close button and menu item.
        SystemMenu.SetItemState(MenuItem.Close, MenuItemState.Disabled)

        ' Sets the Bitmap image of the Move menu item.
        'SystemMenu.SetItemBitmap(MenuItem.Move, New Bitmap("C:\File.png"))

        ' Gets the Bitmap image of the Move menu item.
        Dim bmp As Bitmap = SystemMenu.GetItemBitmap(MenuItem.Move)

        ' Removes the Bitmap image of the Move menu item.
        SystemMenu.RemoveItemBitmap(MenuItem.Move)

        ' Gets the ID of an item.
        MsgBox(SystemMenu.GetItemState(MenuItem.Move).ToString())

        ' Gets the text of an item.
        MsgBox(SystemMenu.GetItemText(MenuItem.Move))

        ' Gets the state of an item.
        MsgBox(SystemMenu.GetItemState(MenuItem.Move).ToString())

        ' Sets the text of an item.
        SystemMenu.SetItemText(MenuItem.Move, "Muéveme")

        ' Checks if a handle is a menu handle.
        MsgBox(SystemMenuManager.IsMenu(IntPtr.Zero))

        ' Remove all the menu items.
        'SystemMenu.ClearMenu()

        ' Restore the menu to defaults.
        'SystemMenu.RestoreMenu()

        ' Dispose the SystemMenuManager Object.
        'SystemMenu.Dispose()

    End Sub

    Private Sub SystemMenu_MenuItemClicked(ByVal sender As Object, ByVal e As MenuItemClickedEventArgs) _
    Handles SystemMenu.MenuItemClicked

        Dim sb As New Global.System.Text.StringBuilder
        With sb
            .AppendLine(String.Format("Menu handle: {0}", DirectCast(sender, IntPtr).ToInt32()))
            .AppendLine(String.Format("Item ID    : {0}", CStr(e.Id)))
            .AppendLine(String.Format("Item Text  : {0}", e.Text))
            .AppendLine(String.Format("Item Type  : {0}", e.Type.ToString()))
            .AppendLine(String.Format("Item State : {0}", e.State.ToString()))
        End With

        Console.WriteLine(sb.ToString(), "SystemMenuManager", MessageBoxButtons.OK, MessageBoxIcon.Information)

    End Sub

End Class

No code example is currently available or this language may not be supported.

No code example is currently available or this language may not be supported.

No code example is currently available or this language may not be supported.

No code example is currently available or this language may not be supported.