如何從託管的vb.net代碼調用TrackPopupMenu函數

我試圖調用TrackPopupMenu函數在運行時從託管的VB.NET代碼顯示菜單。下面是我得到的錯誤：如何從託管的vb.net代碼調用TrackPopupMenu函數

PInvokeStackImbalance檢測消息： '！UeWIPopupX UeWIPopupX.mDeclares :: TrackPopupMenu' A調用的PInvoke功能具有不平衡堆棧。這很可能是因爲託管的PInvoke簽名與非託管目標籤名不匹配。檢查呼叫約定和PInvoke簽名的參數是否與目標非託管簽名相匹配。

下面是我使用TrackPopupMenu函數聲明：

<DllImport("user32.dll", CharSet:=CharSet.Auto, SetLastError:=True, CallingConvention:=CallingConvention.StdCall)> _ 
Friend Function TrackPopupMenu(ByVal hMenu As Long, ByVal wFlags As Integer, ByVal x As Integer, ByVal y As Integer, ByVal nReserved As Integer, ByVal hWnd As IntPtr, ByVal lprc As RECT) As Integer 

End Function

下面是調用TrackPopupMenu函數的代碼：

dim lpRc as RECT 
Dim tP As POINTAPI 
Dim lR as Integer 
Dim lUn as Integer 

lUn = TPM_RIGHTBUTTON Or TPM_TOPALIGN Or TPM_LEFTALIGN Or TPM_RETURNCMD 
    tP.x = 50 
    tP.y = 100 
'Here I am getting the error 
lR = TrackPopupMenu(m_ppMenu.Tools(1).hMenu, lUn, tP.x, tP.y, 0, m_hWndOwner, lpRC)

下面是矩形RECT聲明：

<StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Auto)> _ 
Structure RECT 
    Dim Left As Integer 
    Dim Top As Integer 
    Dim Right As Integer 
    Dim Bottom As Integer 
End Structure

TrackPopupMenu調用期間的所有參數都有一些值。我嘗試了不同的callingConvention，但仍然出現錯誤。

我無法解決這個問題。有誰知道如何解決這個問題？

來源

2013-07-01 ashish_pal

您的聲明是錯誤的。第一個參數是菜單的句柄，因此它必須是IntPtr。最後一個參數是指向RECT的指針。 ByRef在VB.NET中。由於它並未實際使用，因此最好將其聲明爲ByVal IntPtr，因此不需要RECT聲明。在您的通話中傳遞IntPtr.Zero。返回值是布爾值，而不是整數。如果獲得False返回，則拋出一個Win32Exception。修復：

<DllImport("user32.dll", CharSet:=CharSet.Auto, SetLastError:=True)> _ 
Friend Function TrackPopupMenu(ByVal hMenu As IntPtr, ByVal wFlags As Integer, _ 
    ByVal x As Integer, ByVal y As Integer, ByVal nReserved As Integer, _ 
    ByVal hWnd As IntPtr, ByVal ignored As IntPtr) As Boolean 
End Function

有一些提示，你沒有得到右鍵菜單，你很難想象如何想出龍作爲參數類型。請注意，這個函數已經在.NET中巧妙地包裝了，不得不捏造它，這應該是非常罕見的。 TrackPopupMenu已由.NET ContextMenu類調用。 ContextMenuStrip類通過更好的渲染選項提供了更現代的版本。

來源

2013-07-01 09:52:47

如何從託管的vb.net代碼調用TrackPopupMenu函數

回答

相關問題