如何添加更多項目到窗口上下文菜單

Question

我正在爲我工​​作的公司製作應用程序，我想知道如何自定義窗口的上下文菜單，如PuTTY's（又名，它有「新會話...」等等。）。我已經遍佈谷歌，找不到我正在尋找的答案。

Answer 1

使一個新的模塊，並在上面

添加Imports System.Runtime.InteropServices然後宣佈這

<Flags()> _ 
Public Enum MenuFlags As Integer 
    MF_BYPOSITION = 1024 
    MF_REMOVE = 4096 
    MF_SEPARATOR = 2048 
    MF_STRING = 0 
End Enum 

<DllImport("user32.dll", CallingConvention:=CallingConvention.Cdecl)> _ 
Public Function GetSystemMenu(ByVal hWnd As IntPtr, Optional ByVal bRevert As Boolean = False) As IntPtr 
End Function 

<DllImport("user32.dll", CharSet:=CharSet.Auto)> _ 
Public Function AppendMenu(ByVal hMenu As IntPtr, ByVal uFlags As MenuFlags, ByVal uIDNewItem As Int32, ByVal lpNewItem As String) As Boolean 
End Function 

然後在你的窗體加載處理程序添加以下代碼

Dim sysmenu As IntPtr = GetSystemMenu(Me.Handle) 
AppendMenu(sysmenu, MenuFlags.MF_STRING, &H1FFF, "Hello") 

然後，爲了能夠要捕獲用戶點擊您的新菜單項，您必須實現此功能，該功能將捕獲所有消息，只需將其添加到您的表單代碼

Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message) 
     If m.Msg = WM_SYSCOMMAND Then 
      If m.WParam.ToInt32 = &H1FFF Then 
       ' your menu item is clicked, call a function here 
      End If 
     End If 
     MyBase.WndProc(m) 
    End Sub