FaceTree.VisibleItemsCount Property (ExTreeCube)

The VisibleItemsCount property specifies number of items that can be displayed on the face. The Add / Count / Item.ToString / Items.ToString method adds a Item object(s) to the collection and returns a reference to the newly created object. The Count property gets or sets the number of the items.

How can add items to a list?

VBA (MS Access, Excell...)

With TreeCube1
	.TexturePicturePath = ""
	With .FrontFace.CreateTree
		.Columns.Add("Pos").FormatColumn = "1 pos ``"
		.Items.Count = TreeCube1.FrontFace.FaceTree.VisibleItemsCount
	End With
End With

VB6

With TreeCube1
	.TexturePicturePath = ""
	With .FrontFace.CreateTree
		.Columns.Add("Pos").FormatColumn = "1 pos ``"
		.Items.Count = TreeCube1.FrontFace.FaceTree.VisibleItemsCount
	End With
End With

VB.NET

With Extreecube1
	.TexturePicturePath = ""
	With .FrontFace.CreateTree()
		.Columns.Add("Pos").FormatColumn = "1 pos ``"
		.Items.Count = Extreecube1.FrontFace.FaceTree.VisibleItemsCount
	End With
End With

VB.NET for /COM

With AxTreeCube1
	.TexturePicturePath = ""
	With .FrontFace.CreateTree()
		.Columns.Add("Pos").FormatColumn = "1 pos ``"
		.Items.Count = AxTreeCube1.FrontFace.FaceTree.VisibleItemsCount
	End With
End With

C++

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

	#import <ExTreeCube.dll>
	using namespace EXTREECUBELib;
*/
EXTREECUBELib::ITreeCubePtr spTreeCube1 = GetDlgItem(IDC_TREECUBE1)->GetControlUnknown();
spTreeCube1->PutTexturePicturePath(L"");
EXTREECUBELib::IFaceTreePtr var_FaceTree = spTreeCube1->GetFrontFace()->CreateTree();
	var_FaceTree->GetColumns()->Add(L"Pos")->PutFormatColumn(L"1 pos ``");
	var_FaceTree->GetItems()->PutCount(spTreeCube1->GetFrontFace()->GetFaceTree()->GetVisibleItemsCount());

C++ Builder

TreeCube1->TexturePicturePath = L"";
Extreecubelib_tlb::IFaceTreePtr var_FaceTree = TreeCube1->FrontFace->CreateTree();
	var_FaceTree->Columns->Add(L"Pos")->FormatColumn = L"1 pos ``";
	var_FaceTree->Items->Count = TreeCube1->FrontFace->FaceTree->VisibleItemsCount;

extreecube1.TexturePicturePath = "";
exontrol.EXTREECUBELib.FaceTree var_FaceTree = extreecube1.FrontFace.CreateTree();
	var_FaceTree.Columns.Add("Pos").FormatColumn = "1 pos ``";
	var_FaceTree.Items.Count = extreecube1.FrontFace.FaceTree.VisibleItemsCount;

JScript/JavaScript

<BODY onload="Init()">
<OBJECT CLASSID="clsid:13A5B44B-DBB7-42F2-AE2B-943A6CF6C8B9" id="TreeCube1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	TreeCube1.TexturePicturePath = "";
	var var_FaceTree = TreeCube1.FrontFace.CreateTree();
		var_FaceTree.Columns.Add("Pos").FormatColumn = "1 pos ``";
		var_FaceTree.Items.Count = TreeCube1.FrontFace.FaceTree.VisibleItemsCount;
}
</SCRIPT>
</BODY>

VBScript

<BODY onload="Init()">
<OBJECT CLASSID="clsid:13A5B44B-DBB7-42F2-AE2B-943A6CF6C8B9" id="TreeCube1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With TreeCube1
		.TexturePicturePath = ""
		With .FrontFace.CreateTree
			.Columns.Add("Pos").FormatColumn = "1 pos ``"
			.Items.Count = TreeCube1.FrontFace.FaceTree.VisibleItemsCount
		End With
	End With
End Function
</SCRIPT>
</BODY>

C# for /COM

axTreeCube1.TexturePicturePath = "";
EXTREECUBELib.FaceTree var_FaceTree = axTreeCube1.FrontFace.CreateTree();
	var_FaceTree.Columns.Add("Pos").FormatColumn = "1 pos ``";
	var_FaceTree.Items.Count = axTreeCube1.FrontFace.FaceTree.VisibleItemsCount;

X++ (Dynamics Ax 2009)

public void init()
{
	COM com_Column,com_Columns,com_FaceTree,com_Items;
	anytype var_Column,var_Columns,var_FaceTree,var_Items;
	;

	super();

	extreecube1.TexturePicturePath("");
	var_FaceTree = extreecube1.FrontFace().CreateTree(); com_FaceTree = var_FaceTree;
		var_Columns = COM::createFromObject(com_FaceTree.Columns()); com_Columns = var_Columns;
		var_Column = COM::createFromObject(com_Columns).Add("Pos"); com_Column = var_Column;
		com_Column.FormatColumn("1 pos ``");
		var_Items = COM::createFromObject(com_FaceTree.Items()); com_Items = var_Items;
		com_Items.Count(extreecube1.FrontFace().FaceTree().VisibleItemsCount());
}

Delphi 8 (.NET only)

with AxTreeCube1 do
begin
	TexturePicturePath := '';
	with FrontFace.CreateTree() do
	begin
		Columns.Add('Pos').FormatColumn := '1 pos ``';
		Items.Count := AxTreeCube1.FrontFace.FaceTree.VisibleItemsCount;
	end;
end

Delphi (standard)

with TreeCube1 do
begin
	TexturePicturePath := '';
	with FrontFace.CreateTree() do
	begin
		Columns.Add('Pos').FormatColumn := '1 pos ``';
		Items.Count := TreeCube1.FrontFace.FaceTree.VisibleItemsCount;
	end;
end

VFP

with thisform.TreeCube1
	.TexturePicturePath = ""
	with .FrontFace.CreateTree
		.Columns.Add("Pos").FormatColumn = "1 pos ``"
		.Items.Count = thisform.TreeCube1.FrontFace.FaceTree.VisibleItemsCount
	endwith
endwith

dBASE Plus

local oTreeCube,var_Column,var_FaceTree

oTreeCube = form.EXTREECUBEACTIVEXCONTROL1.nativeObject
oTreeCube.TexturePicturePath = ""
var_FaceTree = oTreeCube.FrontFace.CreateTree()
	// var_FaceTree.Columns.Add("Pos").FormatColumn = "1 pos ``"
	var_Column = var_FaceTree.Columns.Add("Pos")
	with (oTreeCube)
		TemplateDef = [dim var_Column]
		TemplateDef = var_Column
		Template = [var_Column.FormatColumn = "1 pos ``"]
	endwith
	var_FaceTree.Items.Count = oTreeCube.FrontFace.FaceTree.VisibleItemsCount

XBasic (Alpha Five)

Dim oTreeCube as P
Dim var_Column as local
Dim var_FaceTree as P

oTreeCube = topparent:CONTROL_ACTIVEX1.activex
oTreeCube.TexturePicturePath = ""
var_FaceTree = oTreeCube.FrontFace.CreateTree()
	' var_FaceTree.Columns.Add("Pos").FormatColumn = "1 pos ``"
	var_Column = var_FaceTree.Columns.Add("Pos")
	oTreeCube.TemplateDef = "dim var_Column"
	oTreeCube.TemplateDef = var_Column
	oTreeCube.Template = "var_Column.FormatColumn = `1 pos `````"

	var_FaceTree.Items.Count = oTreeCube.FrontFace.FaceTree.VisibleItemsCount

Visual Objects

local var_FaceTree as IFaceTree

oDCOCX_Exontrol1:TexturePicturePath := ""
var_FaceTree := oDCOCX_Exontrol1:FrontFace:CreateTree()
	var_FaceTree:Columns:Add("Pos"):FormatColumn := "1 pos ``"
	var_FaceTree:Items:Count := oDCOCX_Exontrol1:FrontFace:FaceTree:VisibleItemsCount

PowerBuilder

OleObject oTreeCube,var_FaceTree

oTreeCube = ole_1.Object
oTreeCube.TexturePicturePath = ""
var_FaceTree = oTreeCube.FrontFace.CreateTree()
	var_FaceTree.Columns.Add("Pos").FormatColumn = "1 pos ``"
	var_FaceTree.Items.Count = oTreeCube.FrontFace.FaceTree.VisibleItemsCount

Visual DataFlex

Procedure OnCreate
	Forward Send OnCreate
	Set ComTexturePicturePath to ""
	Variant voFace
	Get ComFrontFace to voFace
	Handle hoFace
	Get Create (RefClass(cComFace)) to hoFace
	Set pvComObject of hoFace to voFace
		Variant voFaceTree
		Get ComCreateTree of hoFace to voFaceTree
		Handle hoFaceTree
		Get Create (RefClass(cComFaceTree)) to hoFaceTree
		Set pvComObject of hoFaceTree to voFaceTree
			Variant voColumns
			Get ComColumns of hoFaceTree to voColumns
			Handle hoColumns
			Get Create (RefClass(cComColumns)) to hoColumns
			Set pvComObject of hoColumns to voColumns
				Variant voColumn
				Get ComAdd of hoColumns "Pos" to voColumn
				Handle hoColumn
				Get Create (RefClass(cComColumn)) to hoColumn
				Set pvComObject of hoColumn to voColumn
					Set ComFormatColumn of hoColumn to "1 pos ``"
				Send Destroy to hoColumn
			Send Destroy to hoColumns
			Variant voItems
			Get ComItems of hoFaceTree to voItems
			Handle hoItems
			Get Create (RefClass(cComItems)) to hoItems
			Set pvComObject of hoItems to voItems
				Variant v
					Variant voFace1
					Get ComFrontFace to voFace1
					Handle hoFace1
					Get Create (RefClass(cComFace)) to hoFace1
					Set pvComObject of hoFace1 to voFace1
						Variant voFaceTree1
						Get ComFaceTree of hoFace1 to voFaceTree1
						Handle hoFaceTree1
						Get Create (RefClass(cComFaceTree)) to hoFaceTree1
						Set pvComObject of hoFaceTree1 to voFaceTree1
							Get ComVisibleItemsCount of hoFaceTree1 to v
						Send Destroy to hoFaceTree1
					Send Destroy to hoFace1
				Set ComCount of hoItems to v
			Send Destroy to hoItems
		Send Destroy to hoFaceTree
	Send Destroy to hoFace
End_Procedure

XBase++

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

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

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

	oTreeCube := XbpActiveXControl():new( oForm:drawingArea )
	oTreeCube:CLSID  := "Exontrol.TreeCube.1" /*{13A5B44B-DBB7-42F2-AE2B-943A6CF6C8B9}*/
	oTreeCube:create(,, {10,60},{610,370} )

		oTreeCube:TexturePicturePath := ""
		oFaceTree := oTreeCube:FrontFace():CreateTree()
			oFaceTree:Columns():Add("Pos"):FormatColumn := "1 pos ``"
			oFaceTree:Items():Count := oTreeCube:FrontFace():FaceTree():VisibleItemsCount()

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

		Type	Description
		Long	A Long expression that indicates the number of visible items.