property FormatConditionalAppearances.Item (Key as Variant) as FormatConditionalAppearance
Returns a specific FormatConditionalAppearance object giving its key.

 TypeDescription 
   Key as Variant A String expression that specifies the key of the object to be retrieved.  
   FormatConditionalAppearance A FormatConditionalAppearance object being requested.  
The Item property accesses a FormatConditionalAppearance object based on its key. Use the Add method to add a new FormatConditionalAppearance object. The Count property gets the number of FormatConditionalAppearance objects in the FormatConditionalAppearances collection. You can use the for each statement to enumerate all objects in the FormatConditionalAppearances collection.

The following samples show how to change the "negative" caption being displayed in the control's context menu.

VBA (MS Access, Excell...)

With Pivot1
	.Import "C:\Program Files\Exontrol\ExPivot\Sample\data.txt"
	.FormatConditionalAppearances.Item("negative").Name = "Numere Negative"
End With

VB6

With Pivot1
	.Import "C:\Program Files\Exontrol\ExPivot\Sample\data.txt"
	.FormatConditionalAppearances.Item("negative").Name = "Numere Negative"
End With

VB.NET

With Expivot1
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.FormatConditionalAppearances.Item("negative").Name = "Numere Negative"
End With

VB.NET for /COM

With AxPivot1
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.FormatConditionalAppearances.Item("negative").Name = "Numere Negative"
End With

C++

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

	#import <ExPivot.dll>
	using namespace EXPIVOTLib;
*/
EXPIVOTLib::IPivotPtr spPivot1 = GetDlgItem(IDC_PIVOT1)->GetControlUnknown();
spPivot1->Import("C:\\Program Files\\Exontrol\\ExPivot\\Sample\\data.txt",vtMissing);
spPivot1->GetFormatConditionalAppearances()->GetItem("negative")->PutName(L"Numere Negative");

C++ Builder

Pivot1->Import(TVariant("C:\\Program Files\\Exontrol\\ExPivot\\Sample\\data.txt"),TNoParam());
Pivot1->FormatConditionalAppearances->get_Item(TVariant("negative"))->Name = L"Numere Negative";

C#

expivot1.Import("C:\\Program Files\\Exontrol\\ExPivot\\Sample\\data.txt",null);
expivot1.FormatConditionalAppearances["negative"].Name = "Numere Negative";

JavaScript

<OBJECT classid="clsid:5C9DF3D3-81B1-42C4-BED6-658F17748686" id="Pivot1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
	Pivot1.Import("C:\\Program Files\\Exontrol\\ExPivot\\Sample\\data.txt",null);
	Pivot1.FormatConditionalAppearances.Item("negative").Name = "Numere Negative";
</SCRIPT>

C# for /COM

axPivot1.Import("C:\\Program Files\\Exontrol\\ExPivot\\Sample\\data.txt",null);
axPivot1.FormatConditionalAppearances["negative"].Name = "Numere Negative";

X++ (Dynamics Ax 2009)

public void init()
{
	COM com_FormatConditionalAppearance;
	anytype var_FormatConditionalAppearance;
	;

	super();

	expivot1.Import("C:\\Program Files\\Exontrol\\ExPivot\\Sample\\data.txt");
	var_FormatConditionalAppearance = COM::createFromObject(expivot1.FormatConditionalAppearances()).Item("negative"); com_FormatConditionalAppearance = var_FormatConditionalAppearance;
	com_FormatConditionalAppearance.Name("Numere Negative");
}

Delphi 8 (.NET only)

with AxPivot1 do
begin
	Import('C:\Program Files\Exontrol\ExPivot\Sample\data.txt',Nil);
	FormatConditionalAppearances.Item['negative'].Name := 'Numere Negative';
end

Delphi (standard)

with Pivot1 do
begin
	Import('C:\Program Files\Exontrol\ExPivot\Sample\data.txt',Null);
	FormatConditionalAppearances.Item['negative'].Name := 'Numere Negative';
end

VFP

with thisform.Pivot1
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.FormatConditionalAppearances.Item("negative").Name = "Numere Negative"
endwith

dBASE Plus

local oPivot,var_FormatConditionalAppearance

oPivot = form.Activex1.nativeObject
oPivot.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
// oPivot.FormatConditionalAppearances.Item("negative").Name = "Numere Negative"
var_FormatConditionalAppearance = oPivot.FormatConditionalAppearances.Item("negative")
with (oPivot)
	TemplateDef = [Dim var_FormatConditionalAppearance]
	TemplateDef = var_FormatConditionalAppearance
	Template = [var_FormatConditionalAppearance.Name = "Numere Negative"]
endwith

XBasic (Alpha Five)

Dim oPivot as P
Dim var_FormatConditionalAppearance as P

oPivot = topparent:CONTROL_ACTIVEX1.activex
oPivot.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
' oPivot.FormatConditionalAppearances.Item("negative").Name = "Numere Negative"
var_FormatConditionalAppearance = oPivot.FormatConditionalAppearances.Item("negative")
oPivot.TemplateDef = "Dim var_FormatConditionalAppearance"
oPivot.TemplateDef = var_FormatConditionalAppearance
oPivot.Template = "var_FormatConditionalAppearance.Name = \"Numere Negative\""


Visual Objects


oDCOCX_Exontrol1:Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt",nil)
oDCOCX_Exontrol1:FormatConditionalAppearances:[Item,"negative"]:Name := "Numere Negative"

PowerBuilder

OleObject oPivot

oPivot = ole_1.Object
oPivot.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
oPivot.FormatConditionalAppearances.Item("negative").Name = "Numere Negative"


Send comments on this topic.
1999-2016 Exontrol.COM, Software. All rights reserved.