Expression.EvaluationText Property (Expression)

The EvaluationText property specifies the values for variables in the expression to be evaluated ( per line ). Known variables are value, %0, %1, and so on. Each line of the EvaluationText property indicates a set of variables to be evaluated. Each line includes assignments separated by ; character. Each assignment is separated by a = character. The EvaluationResult property specifies the result for each evaluation ( line ). The IsValid property indicates whether the control's expression is valid/syntactically correct. Use the Evaluate property to get the result of evaluation of the control's expression. The Expression/Text property assigns a new expression to the control.

By default, the EvaluationText property is:

value =
value = 1
value = -0.12
value = "string"
value = #1/1/2001#

Each line displays the result of evaluation on the right side of the second-panel.

The following samples assigns multiple values for variables %1, %2:

VBA (MS Access, Excell...)

With Expression1
	.SplitPaneWidth = 196
	.Expression = "currency(%1 + %2)"
	.EvaluationText = "%1 = 100;%2 = 200"
End With

VB6

With Expression1
	.SplitPaneWidth = 196
	.Expression = "currency(%1 + %2)"
	.EvaluationText = "%1 = 100;%2 = 200"
End With

VB.NET

With Expression1
	.SplitPaneWidth = 196
	.Expression = "currency(%1 + %2)"
	.EvaluationText = "%1 = 100;%2 = 200"
End With

VB.NET for /COM

With AxExpression1
	.SplitPaneWidth = 196
	.Expression = "currency(%1 + %2)"
	.EvaluationText = "%1 = 100;%2 = 200"
End With

C++

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

	#import <Expression.dll>
	using namespace EXPRESSIONLib;
*/
EXPRESSIONLib::IExpressionPtr spExpression1 = GetDlgItem(IDC_EXPRESSION1)->GetControlUnknown();
spExpression1->PutSplitPaneWidth(196);
spExpression1->PutExpression(L"currency(%1 + %2)");
spExpression1->PutEvaluationText(L"%1 = 100;%2 = 200");

C++ Builder

Expression1->SplitPaneWidth = 196;
Expression1->Expression = L"currency(%1 + %2)";
Expression1->EvaluationText = L"%1 = 100;%2 = 200";

expression1.SplitPaneWidth = 196;
expression1.Expression = "currency(%1 + %2)";
expression1.EvaluationText = "%1 = 100;%2 = 200";

JScript/JavaScript

<BODY onload="Init()">
<OBJECT CLASSID="clsid:B33F5489-49AC-4155-98E7-9BBFC57FF019" id="Expression1"></OBJECT>

<SCRIPT LANGUAGE="JScript">
function Init()
{
	Expression1.SplitPaneWidth = 196;
	Expression1.Expression = "currency(%1 + %2)";
	Expression1.EvaluationText = "%1 = 100;%2 = 200";
}
</SCRIPT>
</BODY>

VBScript

<BODY onload="Init()">
<OBJECT CLASSID="clsid:B33F5489-49AC-4155-98E7-9BBFC57FF019" id="Expression1"></OBJECT>

<SCRIPT LANGUAGE="VBScript">
Function Init()
	With Expression1
		.SplitPaneWidth = 196
		.Expression = "currency(%1 + %2)"
		.EvaluationText = "%1 = 100;%2 = 200"
	End With
End Function
</SCRIPT>
</BODY>

C# for /COM

axExpression1.SplitPaneWidth = 196;
axExpression1.Expression = "currency(%1 + %2)";
axExpression1.EvaluationText = "%1 = 100;%2 = 200";

X++ (Dynamics Ax 2009)

public void init()
{
	;

	super();

	expression1.SplitPaneWidth(196);
	expression1.Expression("currency(%1 + %2)");
	expression1.EvaluationText("%1 = 100;%2 = 200");
}

Delphi 8 (.NET only)

with AxExpression1 do
begin
	SplitPaneWidth := 196;
	Expression := 'currency(%1 + %2)';
	EvaluationText := '%1 = 100;%2 = 200';
end

Delphi (standard)

with Expression1 do
begin
	SplitPaneWidth := 196;
	Expression := 'currency(%1 + %2)';
	EvaluationText := '%1 = 100;%2 = 200';
end

VFP

with thisform.Expression1
	.SplitPaneWidth = 196
	.Expression = "currency(%1 + %2)"
	.EvaluationText = "%1 = 100;%2 = 200"
endwith

dBASE Plus

local oExpression

oExpression = form.EXPRESSIONACTIVEXCONTROL1.nativeObject
oExpression.SplitPaneWidth = 196
oExpression.Expression = "currency(%1 + %2)"
oExpression.EvaluationText = "%1 = 100;%2 = 200"

XBasic (Alpha Five)

Dim oExpression as P

oExpression = topparent:CONTROL_ACTIVEX1.activex
oExpression.SplitPaneWidth = 196
oExpression.Expression = "currency(%1 + %2)"
oExpression.EvaluationText = "%1 = 100;%2 = 200"

Visual Objects


oDCOCX_Exontrol1:SplitPaneWidth := 196
oDCOCX_Exontrol1:Expression := "currency(%1 + %2)"
oDCOCX_Exontrol1:EvaluationText := "%1 = 100;%2 = 200"

PowerBuilder

OleObject oExpression

oExpression = ole_1.Object
oExpression.SplitPaneWidth = 196
oExpression.Expression = "currency(%1 + %2)"
oExpression.EvaluationText = "%1 = 100;%2 = 200"

Visual DataFlex

Procedure OnCreate
	Forward Send OnCreate
	Set ComSplitPaneWidth to 196
	Set ComExpression to "currency(%1 + %2)"
	Set ComEvaluationText to "%1 = 100;%2 = 200"
End_Procedure

XBase++

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

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

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

	oExpression := XbpActiveXControl():new( oForm:drawingArea )
	oExpression:CLSID  := "Exontrol.Expression.1" /*{B33F5489-49AC-4155-98E7-9BBFC57FF019}*/
	oExpression:create(,, {10,60},{610,370} )

		oExpression:SplitPaneWidth := 196
		oExpression:Expression := "currency(%1 + %2)"
		oExpression:EvaluationText := "%1 = 100;%2 = 200"

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

		Type	Description
		String	A String expression that specifies the values for variables to be evaluated ( per line )