excontextmenu - sample code

How can I display a context menu?

VBA (MS Access, Excell...)

1234567	Set contextMenu = CreateObject("Exontrol.ContextMenu")
	With contextMenu
		.Items.ToString = "Item A,Item B,Item 3,[sep],Popup(Sub Item A,Sub Item B,Sub Item C,[sep],Popup(Sub Sub Item A,Su" & _
"b Sub Item B,Sub Sub Item C))"
		iSelect = .Select()
		Debug.Print( .Items.item(iSelect).Caption )
	End With

VB6

1234567	Set contextMenu = CreateObject("Exontrol.ContextMenu")
	With contextMenu
		.Items.ToString = "Item A,Item B,Item 3,[sep],Popup(Sub Item A,Sub Item B,Sub Item C,[sep],Popup(Sub Sub Item A,Su" & _
"b Sub Item B,Sub Sub Item C))"
		iSelect = .Select()
		Debug.Print( .Items.item(iSelect).Caption )
	End With

VB.NET

123456789Dim contextMenu,iSelect
	' Add 'exontrol.excontextmenu.dll' reference to your project.
	contextMenu = New exontrol.EXCONTEXTMENULib.excontextmenu()
	With contextMenu
		.Items.ToString = "Item A,Item B,Item 3,[sep],Popup(Sub Item A,Sub Item B,Sub Item C,[sep],Popup(Sub Sub Item A,Su" & _
"b Sub Item B,Sub Sub Item C))"
		iSelect = .Select()
		Debug.Print( .Items.get_item(iSelect).Caption )
	End With

VB.NET for /COM

12345678Dim contextMenu,iSelect
	contextMenu = CreateObject("Exontrol.ContextMenu")
	With contextMenu
		.Items.ToString = "Item A,Item B,Item 3,[sep],Popup(Sub Item A,Sub Item B,Sub Item C,[sep],Popup(Sub Sub Item A,Su" & _
"b Sub Item B,Sub Sub Item C))"
		iSelect = .Select()
		Debug.Print( .Items.item(iSelect).Caption )
	End With

C++

123456789101112131415161718192021222324/*
	Includes the definition for CreateObject function like follows:

	#include <comdef.h>
	IUnknownPtr CreateObject( BSTR Object )
	{
		IUnknownPtr spResult;
		spResult.CreateInstance( Object );
		return spResult;
	};

*/
/*
	Copy and paste the following directives to your header file as
	it defines the namespace 'EXCONTEXTMENULib' for the library: 'ExContextMenu 1.0 Type Library'

	#import <ExContextMenu.dll>
	using namespace EXCONTEXTMENULib;
*/
EXCONTEXTMENULib::IExContextMenuPtr contextMenu = ::CreateObject(L"Exontrol.ContextMenu");
	contextMenu->GetItems()->PutToString(_bstr_t("Item A,Item B,Item 3,[sep],Popup(Sub Item A,Sub Item B,Sub Item C,[sep],Popup(Sub Sub Item A,Su") +
"b Sub Item B,Sub Sub Item C))");
	long iSelect = contextMenu->Select(vtMissing,vtMissing,vtMissing);
	OutputDebugStringW( contextMenu->GetItems()->Getitem(iSelect)->GetCaption() );

C++ Builder

12345678910111213141516/*
	Select the Component\Import Component...\Import a Type Library,
	to import the following Type Library:

		ExContextMenu 1.0 Type Library

	TypeLib: C:\Windows\system32\ExContextMenu.dll

	to define the namespace: Excontextmenulib_tlb
*/
//#include "EXCONTEXTMENULIB_TLB.h"
Excontextmenulib_tlb::IExContextMenuPtr contextMenu = Variant::CreateObject(L"Exontrol.ContextMenu");
	contextMenu->Items->ToString = TVariant(String("Item A,Item B,Item 3,[sep],Popup(Sub Item A,Sub Item B,Sub Item C,[sep],Popup(Sub Sub Item A,Su") +
"b Sub Item B,Sub Sub Item C))");
	long iSelect = contextMenu->Select(TNoParam(),TNoParam(),TNoParam());
	OutputDebugString( contextMenu->Items->get_item(TVariant(iSelect))->Caption );

C#

1234567// Add 'exontrol.excontextmenu.dll' reference to your project.
// Add 'ExContextMenu 1.0 Type Library' reference to your project.
exontrol.EXCONTEXTMENULib.excontextmenu contextMenu = new exontrol.EXCONTEXTMENULib.excontextmenu();
	contextMenu.Items.ToString = "Item A,Item B,Item 3,[sep],Popup(Sub Item A,Sub Item B,Sub Item C,[sep],Popup(Sub Sub Item A,Su" +
"b Sub Item B,Sub Sub Item C))";
	int iSelect = contextMenu.Select(null,null,null);
	System.Diagnostics.Debug.Print( contextMenu.Items[iSelect].Caption );

JavaScript

1234567<SCRIPT LANGUAGE="JScript">
	var contextMenu = new ActiveXObject("Exontrol.ContextMenu");
		contextMenu.Items.ToString = "Item A,Item B,Item 3,[sep],Popup(Sub Item A,Sub Item B,Sub Item C,[sep],Popup(Sub Sub Item A,Su" +
	"b Sub Item B,Sub Sub Item C))";
		var iSelect = contextMenu.Select(null,null,null);
		alert( contextMenu.Items.item(iSelect).Caption );
</SCRIPT>

C# for /COM

123456// Add 'ExContextMenu 1.0 Type Library' reference to your project.
EXCONTEXTMENULib.ExContextMenu contextMenu = new EXCONTEXTMENULib.ExContextMenu();
	contextMenu.Items.ToString = "Item A,Item B,Item 3,[sep],Popup(Sub Item A,Sub Item B,Sub Item C,[sep],Popup(Sub Sub Item A,Su" +
"b Sub Item B,Sub Sub Item C))";
	int iSelect = contextMenu.Select(null,null,null);
	System.Diagnostics.Debug.Print( contextMenu.Items[iSelect].Caption );

X++ (Dynamics Ax 2009)

1234567891011121314151617181920public void init()
{
	COM com_Items;
	anytype contextMenu,var_Items;
	int iSelect;
	str var_s;
	;

	super();

	// Add 'excontextmenu.dll' reference to your project.
	// Add 'ExContextMenu 1.0 Type Library' reference to your project.
	contextMenu = COM::createFromObject(new EXCONTEXTMENULib.excontextmenu()); contextMenu = contextMenu;
		var_Items = COM::createFromObject(contextMenu.Items()); com_Items = var_Items;
		var_s = "Item A,Item B,Item 3,[sep],Popup(Sub Item A,Sub Item B,Sub Item C,[sep],Popup(Sub Sub Item A,Sub";
		var_s = var_s + " Sub Item B,Sub Sub Item C))";
		com_Items.ToString(var_s);
		iSelect = contextMenu.Select();
		print( contextMenu.Items().item(iSelect).Caption() );
}

Delphi 8 (.NET only)

12345678	contextMenu := (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu')) as EXCONTEXTMENULib.ExContextMenu);
	with contextMenu do
	begin
		Items.ToString := 'Item A,Item B,Item 3,[sep],Popup(Sub Item A,Sub Item B,Sub Item C,[sep],Popup(Sub Sub Item A,Sub' + 
	' Sub Item B,Sub Sub Item C))';
		iSelect := Select(Nil,Nil,Nil);
		OutputDebugString( Items.item[TObject(iSelect)].Caption );
	end;

Delphi (standard)

12345678	contextMenu := (IUnknown(ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.ContextMenu'))) as EXCONTEXTMENULib_TLB.ExContextMenu);
	with contextMenu do
	begin
		Items.ToString := 'Item A,Item B,Item 3,[sep],Popup(Sub Item A,Sub Item B,Sub Item C,[sep],Popup(Sub Sub Item A,Sub' + 
	' Sub Item B,Sub Sub Item C))';
		iSelect := Select(Null,Null,Null);
		OutputDebugString( Items.item[OleVariant(iSelect)].Caption );
	end;

VFP

12345678	contextMenu = CreateObject("Exontrol.ContextMenu")
	with contextMenu
		var_s = "Item A,Item B,Item 3,[sep],Popup(Sub Item A,Sub Item B,Sub Item C,[sep],Popup(Sub Sub Item A,Sub"
		var_s = var_s + " Sub Item B,Sub Sub Item C))"
		.Items.ToString = var_s
		iSelect = .Select()
		DEBUGOUT( .Items.item(iSelect).Caption )
	endwith

dBASE Plus

123456local contextMenu,iSelect

contextMenu = new OleAutoClient("Exontrol.ContextMenu")
	contextMenu.Items.ToString = "Item A,Item B,Item 3,[sep],Popup(Sub Item A,Sub Item B,Sub Item C,[sep],Popup(Sub Sub Item A,Sub Sub Item B,Sub Sub Item C))"
	iSelect = contextMenu.Select()
	? contextMenu.Items.item(iSelect).Caption

XBasic (Alpha Five)

1234567Dim contextMenu as P
Dim iSelect as 

contextMenu = OLE.Create("Exontrol.ContextMenu")
	contextMenu.Items.ToString = "Item A,Item B,Item 3,[sep],Popup(Sub Item A,Sub Item B,Sub Item C,[sep],Popup(Sub Sub Item A,Sub Sub Item B,Sub Sub Item C))"
	iSelect = contextMenu.Select()
	? contextMenu.Items.item(iSelect).Caption

Visual Objects

12345678local contextMenu as IExContextMenu
local iSelect as USUAL

// Generate Source for 'ExContextMenu 1.0 Type Library' server from Tools\Automation Server...
contextMenu := IExContextMenu{"Exontrol.ContextMenu"}
	contextMenu:Items:ToString := "Item A,Item B,Item 3,[sep],Popup(Sub Item A,Sub Item B,Sub Item C,[sep],Popup(Sub Sub Item A,Sub Sub Item B,Sub Sub Item C))"
	iSelect := contextMenu:Select(nil,nil,nil)
	OutputDebugString(String2Psz( contextMenu:Items:[item,iSelect]:Caption ))

PowerBuilder

12345678OleObject contextMenu
any iSelect

contextMenu = CREATE OLEObject
contextMenu.ConnectToNewObject("Exontrol.ContextMenu")
	contextMenu.Items.ToString = "Item A,Item B,Item 3,[sep],Popup(Sub Item A,Sub Item B,Sub Item C,[sep],Popup(Sub Sub Item A,Sub Sub Item B,Sub Sub Item C))"
	iSelect = contextMenu.Select()
	MessageBox("Information",string( contextMenu.Items.item(iSelect).Caption ))

Visual DataFlex

1234567891011121314151617181920212223242526272829Procedure OnCreate
	Forward Send OnCreate
	Variant contextMenu
	Get Comcreateobject "Exontrol.ContextMenu" to contextMenu
		Variant voItems
		Get ComItems to voItems
		Handle hoItems
		Get Create (RefClass(cComItems)) to hoItems
		Set pvComObject of hoItems to voItems
			Set ComToString of hoItems to "Item A,Item B,Item 3,[sep],Popup(Sub Item A,Sub Item B,Sub Item C,[sep],Popup(Sub Sub Item A,Sub Sub Item B,Sub Sub Item C))"
		Send Destroy to hoItems
		Variant iSelect
		Get ComSelect Nothing Nothing Nothing to iSelect
		Variant v
		Variant voItems1
		Get ComItems to voItems1
		Handle hoItems1
		Get Create (RefClass(cComItems)) to hoItems1
		Set pvComObject of hoItems1 to voItems1
			Variant voitem
			Get Comitem of hoItems1 iSelect to voitem
			Handle hoitem
			Get Create (RefClass(cComitem)) to hoitem
			Set pvComObject of hoitem to voitem
				Get ComCaption of hoitem to v
			Send Destroy to hoitem
		Send Destroy to hoItems1
		Showln v
End_Procedure

XBase++

12345678910111213141516171819202122232425#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL contextMenu
	LOCAL iSelect

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

		contextMenu := CreateObject("Exontrol.ContextMenu")
			contextMenu:Items():ToString := "Item A,Item B,Item 3,[sep],Popup(Sub Item A,Sub Item B,Sub Item C,[sep],Popup(Sub Sub Item A,Sub Sub Item B,Sub Sub Item C))"
			iSelect := contextMenu:Select()
			DevOut( contextMenu:Items:item(iSelect):Caption() )

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN