exmiller - sample code

How can I specify my favorites folders?

VBA (MS Access, Excell...)

With CascadeFile1
	.BeginUpdate 
	.HeaderVisible = False
	.ExploreFromHere = "::{450d8fba-ad25-11d0-98a8-0800361b1103}|::{018D5C66-4533-4307-9B53-224DE2ED1FE6}|::{20D04FE0-3AEA-1069-A2D8-08002B30309D}|::{F" & _
"02C1A0D-BE21-4350-88B0-7367FC96EF3C}"
	.Select = "C:\Windows"
	.EndUpdate 
End With

VB6

With CascadeFile1
	.BeginUpdate 
	.HeaderVisible = False
	.ExploreFromHere = "::{450d8fba-ad25-11d0-98a8-0800361b1103}|::{018D5C66-4533-4307-9B53-224DE2ED1FE6}|::{20D04FE0-3AEA-1069-A2D8-08002B30309D}|::{F" & _
"02C1A0D-BE21-4350-88B0-7367FC96EF3C}"
	.Select = "C:\Windows"
	.EndUpdate 
End With

VB.NET

With Excascadefile1
	.BeginUpdate()
	.HeaderVisible = False
	.ExploreFromHere = "::{450d8fba-ad25-11d0-98a8-0800361b1103}|::{018D5C66-4533-4307-9B53-224DE2ED1FE6}|::{20D04FE0-3AEA-1069-A2D8-08002B30309D}|::{F" & _
"02C1A0D-BE21-4350-88B0-7367FC96EF3C}"
	.Select = "C:\Windows"
	.EndUpdate()
End With

VB.NET for /COM

With AxCascadeFile1
	.BeginUpdate()
	.HeaderVisible = False
	.ExploreFromHere = "::{450d8fba-ad25-11d0-98a8-0800361b1103}|::{018D5C66-4533-4307-9B53-224DE2ED1FE6}|::{20D04FE0-3AEA-1069-A2D8-08002B30309D}|::{F" & _
"02C1A0D-BE21-4350-88B0-7367FC96EF3C}"
	.Select = "C:\Windows"
	.EndUpdate()
End With

C++

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

	#import <ExMiller.dll>
	using namespace EXMILLERLib;
*/
EXMILLERLib::ICascadeFilePtr spCascadeFile1 = GetDlgItem(IDC_CASCADEFILE1)->GetControlUnknown();
spCascadeFile1->BeginUpdate();
spCascadeFile1->PutHeaderVisible(VARIANT_FALSE);
spCascadeFile1->PutExploreFromHere(_bstr_t("::{450d8fba-ad25-11d0-98a8-0800361b1103}|::{018D5C66-4533-4307-9B53-224DE2ED1FE6}|::{20D04FE0-3AEA-1069-A2D8-08002B30309D}|::{F") +
"02C1A0D-BE21-4350-88B0-7367FC96EF3C}");
spCascadeFile1->PutSelect(L"C:\\Windows");
spCascadeFile1->EndUpdate();

C++ Builder

CascadeFile1->BeginUpdate();
CascadeFile1->HeaderVisible = false;
CascadeFile1->ExploreFromHere = TVariant(String("::{450d8fba-ad25-11d0-98a8-0800361b1103}|::{018D5C66-4533-4307-9B53-224DE2ED1FE6}|::{20D04FE0-3AEA-1069-A2D8-08002B30309D}|::{F") +
"02C1A0D-BE21-4350-88B0-7367FC96EF3C}");
CascadeFile1->Select = L"C:\\Windows";
CascadeFile1->EndUpdate();

C#

excascadefile1.BeginUpdate();
excascadefile1.HeaderVisible = false;
excascadefile1.ExploreFromHere = "::{450d8fba-ad25-11d0-98a8-0800361b1103}|::{018D5C66-4533-4307-9B53-224DE2ED1FE6}|::{20D04FE0-3AEA-1069-A2D8-08002B30309D}|::{F" +
"02C1A0D-BE21-4350-88B0-7367FC96EF3C}";
excascadefile1.Select = "C:\\Windows";
excascadefile1.EndUpdate();

JScript/JavaScript

<BODY onload="Init()">
<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	CascadeFile1.BeginUpdate();
	CascadeFile1.HeaderVisible = false;
	CascadeFile1.ExploreFromHere = "::{450d8fba-ad25-11d0-98a8-0800361b1103}|::{018D5C66-4533-4307-9B53-224DE2ED1FE6}|::{20D04FE0-3AEA-1069-A2D8-08002B30309D}|::{F" +
	"02C1A0D-BE21-4350-88B0-7367FC96EF3C}";
	CascadeFile1.Select = "C:\\Windows";
	CascadeFile1.EndUpdate();
}
</SCRIPT>
</BODY>

VBScript

<BODY onload="Init()">
<OBJECT CLASSID="clsid:A44EFDCD-D526-4E58-909D-193FD6519290" id="CascadeFile1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With CascadeFile1
		.BeginUpdate 
		.HeaderVisible = False
		.ExploreFromHere = "::{450d8fba-ad25-11d0-98a8-0800361b1103}|::{018D5C66-4533-4307-9B53-224DE2ED1FE6}|::{20D04FE0-3AEA-1069-A2D8-08002B30309D}|::{F" & _
	"02C1A0D-BE21-4350-88B0-7367FC96EF3C}"
		.Select = "C:\Windows"
		.EndUpdate 
	End With
End Function
</SCRIPT>
</BODY>

C# for /COM

axCascadeFile1.BeginUpdate();
axCascadeFile1.HeaderVisible = false;
axCascadeFile1.ExploreFromHere = "::{450d8fba-ad25-11d0-98a8-0800361b1103}|::{018D5C66-4533-4307-9B53-224DE2ED1FE6}|::{20D04FE0-3AEA-1069-A2D8-08002B30309D}|::{F" +
"02C1A0D-BE21-4350-88B0-7367FC96EF3C}";
axCascadeFile1.Select = "C:\\Windows";
axCascadeFile1.EndUpdate();

X++ (Dynamics Ax 2009)

public void init()
{
	str var_s;
	;

	super();

	excascadefile1.BeginUpdate();
	excascadefile1.HeaderVisible(false);
	var_s = "::{450d8fba-ad25-11d0-98a8-0800361b1103}|::{018D5C66-4533-4307-9B53-224DE2ED1FE6}|::{20D04FE0-3AEA-1069-A2D8-08002B30309D}|::{F0";
	var_s = var_s + "2C1A0D-BE21-4350-88B0-7367FC96EF3C}";
	excascadefile1.ExploreFromHere(var_s);
	excascadefile1.Select("C:\\Windows");
	excascadefile1.EndUpdate();
}

Delphi 8 (.NET only)

with AxCascadeFile1 do
begin
	BeginUpdate();
	HeaderVisible := False;
	ExploreFromHere := '::{450d8fba-ad25-11d0-98a8-0800361b1103}|::{018D5C66-4533-4307-9B53-224DE2ED1FE6}|::{20D04FE0-3AEA-1069-A2D8-08002B30309D}|::{F0' + 
	'2C1A0D-BE21-4350-88B0-7367FC96EF3C}';
	Select := 'C:\Windows';
	EndUpdate();
end

Delphi (standard)

with CascadeFile1 do
begin
	BeginUpdate();
	HeaderVisible := False;
	ExploreFromHere := '::{450d8fba-ad25-11d0-98a8-0800361b1103}|::{018D5C66-4533-4307-9B53-224DE2ED1FE6}|::{20D04FE0-3AEA-1069-A2D8-08002B30309D}|::{F0' + 
	'2C1A0D-BE21-4350-88B0-7367FC96EF3C}';
	Select := 'C:\Windows';
	EndUpdate();
end

VFP

with thisform.CascadeFile1
	.BeginUpdate
	.HeaderVisible = .F.
	var_s = "::{450d8fba-ad25-11d0-98a8-0800361b1103}|::{018D5C66-4533-4307-9B53-224DE2ED1FE6}|::{20D04FE0-3AEA-1069-A2D8-08002B30309D}|::{F0"
	var_s = var_s + "2C1A0D-BE21-4350-88B0-7367FC96EF3C}"
	.ExploreFromHere = var_s
	.Select = "C:\Windows"
	.EndUpdate
endwith

dBASE Plus

local oCascadeFile

oCascadeFile = form.MILLERCOLUMNSFILE-VIEWACTIVEXCONTROL1.nativeObject
oCascadeFile.BeginUpdate()
oCascadeFile.HeaderVisible = false
oCascadeFile.ExploreFromHere = "::{450d8fba-ad25-11d0-98a8-0800361b1103}|::{018D5C66-4533-4307-9B53-224DE2ED1FE6}|::{20D04FE0-3AEA-1069-A2D8-08002B30309D}|::{F02C1A0D-BE21-4350-88B0-7367FC96EF3C}"
oCascadeFile.Select = "C:\Windows"
oCascadeFile.EndUpdate()

XBasic (Alpha Five)

Dim oCascadeFile as P

oCascadeFile = topparent:CONTROL_ACTIVEX1.activex
oCascadeFile.BeginUpdate()
oCascadeFile.HeaderVisible = .f.
oCascadeFile.ExploreFromHere = "::{450d8fba-ad25-11d0-98a8-0800361b1103}|::{018D5C66-4533-4307-9B53-224DE2ED1FE6}|::{20D04FE0-3AEA-1069-A2D8-08002B30309D}|::{F02C1A0D-BE21-4350-88B0-7367FC96EF3C}"
oCascadeFile.Select = "C:\Windows"
oCascadeFile.EndUpdate()

Visual Objects


oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:HeaderVisible := false
oDCOCX_Exontrol1:ExploreFromHere := "::{450d8fba-ad25-11d0-98a8-0800361b1103}|::{018D5C66-4533-4307-9B53-224DE2ED1FE6}|::{20D04FE0-3AEA-1069-A2D8-08002B30309D}|::{F02C1A0D-BE21-4350-88B0-7367FC96EF3C}"
oDCOCX_Exontrol1:Select := "C:\Windows"
oDCOCX_Exontrol1:EndUpdate()

PowerBuilder

OleObject oCascadeFile

oCascadeFile = ole_1.Object
oCascadeFile.BeginUpdate()
oCascadeFile.HeaderVisible = false
oCascadeFile.ExploreFromHere = "::{450d8fba-ad25-11d0-98a8-0800361b1103}|::{018D5C66-4533-4307-9B53-224DE2ED1FE6}|::{20D04FE0-3AEA-1069-A2D8-08002B30309D}|::{F02C1A0D-BE21-4350-88B0-7367FC96EF3C}"
oCascadeFile.Select = "C:\Windows"
oCascadeFile.EndUpdate()

Visual DataFlex

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComHeaderVisible to False
	Set ComExploreFromHere to "::{450d8fba-ad25-11d0-98a8-0800361b1103}|::{018D5C66-4533-4307-9B53-224DE2ED1FE6}|::{20D04FE0-3AEA-1069-A2D8-08002B30309D}|::{F02C1A0D-BE21-4350-88B0-7367FC96EF3C}"
	Set ComSelect to "C:\Windows"
	Send ComEndUpdate
End_Procedure

XBase++

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

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

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

	oCascadeFile := XbpActiveXControl():new( oForm:drawingArea )
	oCascadeFile:CLSID  := "Exontrol.ExMiller.1" /*{A44EFDCD-D526-4E58-909D-193FD6519290}*/
	oCascadeFile:create(,, {10,60},{610,370} )

		oCascadeFile:BeginUpdate()
		oCascadeFile:HeaderVisible := .F.
		oCascadeFile:ExploreFromHere := "::{450d8fba-ad25-11d0-98a8-0800361b1103}|::{018D5C66-4533-4307-9B53-224DE2ED1FE6}|::{20D04FE0-3AEA-1069-A2D8-08002B30309D}|::{F02C1A0D-BE21-4350-88B0-7367FC96EF3C}"
		oCascadeFile:Select := "C:\Windows"
		oCascadeFile:EndUpdate()

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