Comment puis-je personnaliser le menu système de Windows Forme?

Windows, il est assez facile d'obtenir un handle vers une copie du formulaire du menu système pour la personnalisation des buts avec GetSystemMenu function. La partie difficile est que vous êtes sur votre propre pour effectuer les modifications appropriées dans le menu il renvoie, à l'aide de fonctions telles que AppendMenu, InsertMenu, et DeleteMenu comme vous le feriez si vous étiez de la programmation directement à l'encontre de l'API Win32.

Cependant, si tout ce que vous voulez faire est d'ajouter un simple élément de menu, il est vraiment pas si difficile. Par exemple, vous n'aurez qu'à utiliser le AppendMenu fonction parce que tout ce que vous voulez faire est d'ajouter un élément ou deux à la fin du menu. Faire quelque chose de plus avancé (comme l'insertion d'un élément dans le milieu du menu, l'affichage d'une image bitmap sur l'élément de menu, affichage des éléments de menu cochée, la fixation d'un élément de menu par défaut, etc.) nécessite un peu plus de travail. Mais une fois que vous savez comment c'est fait, vous pouvez aller sauvages. Le la documentation sur le menu des fonctions liées à l' raconte tout.

Voici le code complet pour un formulaire qui ajoute une ligne de séparation et un "à Propos" élément vers le bas de son menu système (également appelé une fenêtre de menu):

using System;
using System.Windows.Forms;
using System.Runtime.InteropServices;
public class CustomForm : Form
{
//P/Invoke constants
private const int WM_SYSCOMMAND = 0x112;
private const int MF_STRING = 0x0;
private const int MF_SEPARATOR = 0x800;
//P/Invoke declarations
[DllImport("user32.dll", CharSet = CharSet.Auto, SetLastError = true)]
private static extern IntPtr GetSystemMenu(IntPtr hWnd, bool bRevert);
[DllImport("user32.dll", CharSet = CharSet.Auto, SetLastError = true)]
private static extern bool AppendMenu(IntPtr hMenu, int uFlags, int uIDNewItem, string lpNewItem);
[DllImport("user32.dll", CharSet = CharSet.Auto, SetLastError = true)]
private static extern bool InsertMenu(IntPtr hMenu, int uPosition, int uFlags, int uIDNewItem, string lpNewItem);
//ID for the About item on the system menu
private int SYSMENU_ABOUT_ID = 0x1;
public CustomForm()
{
}
protected override void OnHandleCreated(EventArgs e)
{
base.OnHandleCreated(e);
//Get a handle to a copy of this form's system (window) menu
IntPtr hSysMenu = GetSystemMenu(this.Handle, false);
//Add a separator
AppendMenu(hSysMenu, MF_SEPARATOR, 0, string.Empty);
//Add the About menu item
AppendMenu(hSysMenu, MF_STRING, SYSMENU_ABOUT_ID, "&About…");
}
protected override void WndProc(ref Message m)
{
base.WndProc(ref m);
//Test if the About item was selected from the system menu
if ((m.Msg == WM_SYSCOMMAND) && ((int)m.WParam == SYSMENU_ABOUT_ID))
{
MessageBox.Show("Custom About Dialog");
}
}
}

Et voici ce que le produit fini ressemble à:

  

La valeur ajoutée est plutôt petit pour la quantité de pinvoke vous aurez besoin. Mais c'est possible. Utilisation GetSystemMenu() pour récupérer le système de menu de la poignée. Puis InsertMenuItem pour ajouter une entrée. Vous devez faire cela en une substitution de OnHandleCreated() afin de recréer le menu de la fenêtre soit recréé.

Remplacer WndProc() pour reconnaître le message WM_SYSCOMMAND qui est généré lorsque l'utilisateur clique dessus. Visite pinvoke.net pour les déclarations pinvoke vous aurez besoin.

VB.NET version acceptée réponse:

Imports System.Windows.Forms
Imports System.Runtime.InteropServices
Public Class CustomForm
Inherits Form
' P/Invoke constants
Private Const WM_SYSCOMMAND As Integer = &H112
Private Const MF_STRING As Integer = &H0
Private Const MF_SEPARATOR As Integer = &H800
' P/Invoke declarations
<DllImport("user32.dll", CharSet := CharSet.Auto, SetLastError := True)> _
Private Shared Function GetSystemMenu(hWnd As IntPtr, bRevert As Boolean) As IntPtr
End Function
<DllImport("user32.dll", CharSet := CharSet.Auto, SetLastError := True)> _
Private Shared Function AppendMenu(hMenu As IntPtr, uFlags As Integer, uIDNewItem As Integer, lpNewItem As String) As Boolean
End Function
<DllImport("user32.dll", CharSet := CharSet.Auto, SetLastError := True)> _
Private Shared Function InsertMenu(hMenu As IntPtr, uPosition As Integer, uFlags As Integer, uIDNewItem As Integer, lpNewItem As String) As Boolean
End Function
' ID for the About item on the system menu
Private SYSMENU_ABOUT_ID As Integer = &H1
Public Sub New()
End Sub
Protected Overrides Sub OnHandleCreated(e As EventArgs)
MyBase.OnHandleCreated(e)
' Get a handle to a copy of this form's system (window) menu
Dim hSysMenu As IntPtr = GetSystemMenu(Me.Handle, False)
' Add a separator
AppendMenu(hSysMenu, MF_SEPARATOR, 0, String.Empty)
' Add the About menu item
AppendMenu(hSysMenu, MF_STRING, SYSMENU_ABOUT_ID, "&About…")
End Sub
Protected Overrides Sub WndProc(ByRef m As Message)
MyBase.WndProc(m)
' Test if the About item was selected from the system menu
If (m.Msg = WM_SYSCOMMAND) AndAlso (CInt(m.WParam) = SYSMENU_ABOUT_ID) Then
MessageBox.Show("Custom About Dialog")
End If
End Sub
End Class