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