Popup Menu

Dim menuS As String*128
t = TrackPopupMenu(Me.hMenu, 256, Me.p.x, Me.p.y, 0, Me.hWnd, Me.r)
call GetMenuString(Me.hMenu, t, menuS, 0, 0)

Call SetForegroundWindow(Me.hWnd)
If Me.p.x < 0 Or Me.p.y < 0 Then Call GetCursorPos(Me.p)
Call TrackPopupMenu(Me.hMenu, &H0, Me.p.x, Me.p.y, 0, me.hwnd, Me.r)
ret = GetMessage(msgdata, me.hwnd, 0, 0)
i = Abs(msgdata.message)
If i <> 273 Then GoTo endh
show = me.MenuArr(msgdata.wParam)

t=TrackPopupMenu (hMenu, 256, x, y, 0, GetFocus(), 0)
 
l=GetMenuString (hMenu, t, menuS, 0, 0)+1   l as long
Call GetMenuString (hMenu, t, menuS, l, 0)
Call PostMessage(hWnd, 0, 0, 0)
For i=1 To l-1
s=Mid(MenuString,i,1)
Show=Show+s название выбранного пункта
Next

Private Function GetAPIError (errorCode As Integer) As String
On Error Goto errHandler
Const FuncName = "iStub. GetAPIError ()"
 
Dim errorString As String * 256
Dim returnErrorString As String
Dim resultStringLength As Long
Dim errorCodeTranslated As Integer
 
errorCodeTranslated = (errorCode And ERR_MASK) Const ERR_MASK = &H3fff
resultStringLength = OSLoadString(0, errorCodeTranslated, errorString, Len(errorString) - 1)
 
If Instr(errorString, Chr(0)) > 0 Then
returnErrorString = Left(errorString, Instr(errorString, Chr(0)) - 1)
Else
returnErrorString = errorString
End If
 
GetAPIError = returnErrorString
 
Goto endH
errHandler:
Error Err, FuncName & ", стр." & Erl & Chr (10) & Error$
endH:
End Function