expropertieslist - sample code

How do I browse or select an object?

VBA (MS Access, Excell...)

With PropertiesList1
	.Select PropertiesList1
End With

VB6

With PropertiesList1
	.Select PropertiesList1
End With

VB.NET

With Expropertieslist1
	.Select(Expropertieslist1)
End With

VB.NET for /COM

With AxPropertiesList1
	.Select(AxPropertiesList1.GetOcx())
End With

C++

/*
	Copy and paste the following directives to your header file as
	it defines the namespace 'EXPROPERTIESLISTLib' for the library: 'ExPropertiesList 1.0 Control Library'

	#import <ExPropertiesList.dll>
	using namespace EXPROPERTIESLISTLib;
*/
EXPROPERTIESLISTLib::IPropertiesListPtr spPropertiesList1 = GetDlgItem(IDC_PROPERTIESLIST1)->GetControlUnknown();
spPropertiesList1->Select(spPropertiesList1);

C++ Builder

PropertiesList1->Select(PropertiesList1);

C#

expropertieslist1.Select(expropertieslist1);

JavaScript

<OBJECT classid="clsid:A703DF80-DFF3-48D7-A4C7-47CF6A48425C" id="PropertiesList1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
	PropertiesList1.Select(PropertiesList1);
</SCRIPT>

C# for /COM

axPropertiesList1.Select(axPropertiesList1.GetOcx());

X++ (Dynamics Ax 2009)

public void init()
{
	;

	super();

	expropertieslist1.Select(expropertieslist1);
}

Delphi 8 (.NET only)

with AxPropertiesList1 do
begin
	Select(AxPropertiesList1);
end

Delphi (standard)

with PropertiesList1 do
begin
	Select(PropertiesList1);
end

VFP

with thisform.PropertiesList1
	.Select(thisform.PropertiesList1)
endwith

dBASE Plus

local oPropertiesList

oPropertiesList = form.Activex1.nativeObject
oPropertiesList.Select(oPropertiesList)

XBasic (Alpha Five)

Dim oPropertiesList as P

oPropertiesList = topparent:CONTROL_ACTIVEX1.activex
oPropertiesList.Select(oPropertiesList)

Visual Objects


oDCOCX_Exontrol1:Select(oDCOCX_Exontrol1)

PowerBuilder

OleObject oPropertiesList

oPropertiesList = ole_1.Object
oPropertiesList.Select(oPropertiesList)

Visual DataFlex

Procedure OnCreate
	Forward Send OnCreate
	Send ComSelect (pvComObject(Self))
End_Procedure

XBase++

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

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

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

	oPropertiesList := XbpActiveXControl():new( oForm:drawingArea )
	oPropertiesList:CLSID  := "Exontrol.PropertiesList.1" /*{A703DF80-DFF3-48D7-A4C7-47CF6A48425C}*/
	oPropertiesList:create(,, {10,60},{610,370} )

		oPropertiesList:Select(oPropertiesList)

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