DISPPARAMS problem

[jcmatt]

I put an OCX and a DLL in a project and finally got both working but the part below I just can't get.  I could sure use some help.


This is the Click code from the events file for the menu DLL:

FUNCTION MyMenuEvents1_Click(BYVAL dwCookie AS DWORD, BYREF pdispparams AS DISPPARAMS) AS DWORD
     Local pv As Variant Ptr, pvapi As VARIANTAPITYPE Ptr
      pv = pdispparams.VariantArgs : pvapi = pv
'  ==============================================================================
'  Parameters in DISPPARAMS are zero based and in reverse order
'  ==============================================================================
   STATIC Item AS LONG
      Item = VARIANT#(@pv[3])
   ...etc
END FUNCTION


I have 3 submenu items.  After clicking each:
The 1st returns: Item = 10501896
The 2nd returns: Item = 10502048
The 3rd returns: Item = 10493920

In VB6 I can get the caption by using the Item property of the Menu Click Sub with Item.Caption

How do I get the caption in PB from the Item variable shown above?


This is the setup code I'm using for the menu DLL, if it helps any:

   Object Call dispatch_form1_ocxcontrol1.MenuItems.Add(sTitle)
   Object Call dispatch_form1_ocxcontrol1.MenuItems(sTitle).subitems.Add(SubItem1)
   Object Call dispatch_form1_ocxcontrol1.MenuItems(sTitle).subitems.Add(SubItem2)
   Object Call dispatch_form1_ocxcontrol1.MenuItems(sTitle).subitems.Add(SubItem3)
   Object Let dispatch_form1_ocxcontrol1.Enabled = %True

[TechSupport]

Hi Jim,

I just got back from a business trip since Monday... Can you let me know what OCX you are using so I can work up an example to test?

[jcmatt]

Hi Paul,

You were missed.  Down the dll here:
http://www.jcmatt.com/Temp/Menudll.zip

Jim

[Jose Roca]

Code Select Expand


LOCAL pMenuItem AS DWORD
LOCAL vMenuItem AS VARIANT
LOCAL oMenuItem AS DISPATCH
LOCAL vCaption AS VARIANT

pMenuItem = VARIANT#(@pv[3])
TB_MakeDispatchVariant pMenuItem, vMenuItem
SET oMenuItem = vMenuItem
IF ISOBJECT(oMenuItem) THEN
   OBJECT GET oMenuItem.Caption TO vCaption
   MSGBOX VARIANT$(vCaption)
END IF
vMenuItem = EMPTY
oMenuItem = NOTHING


[Jose Roca]

With the new support for direct interface calls in PBWIN 9.0+, this will be much simpler:

Code Select Expand


' ########################################################################################
' Class CIwodShellMenuEvents
' Interface name = _IwodShellMenuEvents
' IID = {7E7145CE-73BE-403B-B84B-3A9413CE3647}
' _IwodShellMenuEvents Interface
' Attributes = 4096 [&H1000] [Dispatchable]
' Code generated by the TypeLib Browser 4.0.13 (c) 2008 by Jose Roca
' Date: 19 mar 2009   Time: 21:32:17
' ########################################################################################

CLASS CIwodShellMenuEvents GUID$("{036D7837-40FB-4B9D-97A6-3EF2F14E48A8}") AS EVENT

INTERFACE IwodShellMenuEventsImpl GUID$("{7E7145CE-73BE-403B-B84B-3A9413CE3647}") AS EVENT

  INHERIT IDispatch

   ' =====================================================================================
   METHOD Click <1> ( _
     BYVAL pItem AS IMenuItem _                         ' *Item IMenuItem <dispinterface>
   , BYVAL bstrName AS STRING _                         ' Name VT_BSTR
   , BYVAL Directory AS STRING _                        ' Directory VT_BSTR
   , BYVAL Targets AS STRING _                          ' Targets VT_BSTR
   )                                                    ' VOID

     ' *** Insert your code here ***
     LOCAL bstrCaption AS STRING
     bstrCaption = pItem.Caption
     MSGBOX ACODE$(strCaption)

   END METHOD
   ' =====================================================================================

   ' =====================================================================================
   METHOD BeforePopup <2> ( _
     BYVAL bstrName AS STRING _                         ' Name VT_BSTR
   , BYVAL Targets AS STRING _                          ' Targets VT_BSTR
   )                                                    ' VOID

     ' *** Insert your code here ***

   END METHOD
   ' =====================================================================================

   ' =====================================================================================
   METHOD AfterPopup <3>

     ' *** Insert your code here ***

   END METHOD
   ' =====================================================================================

END INTERFACE

END CLASS


[TechSupport]

Thanks Jose !!!

[jcmatt]

Jose,

Once again, works right out of the box.  As soon as I get a couple free years, I'm going to really get into the whole Interface thing.

Thanks much, Jim