GefTextFormat.TextExpression (property)

Gets and sets the expression used for text display animation as a String.

Syntax:

VARIANT = object.TextExpression
object.TextExpression = VARIANT

Description:

If this property is set to other than the empty string, the expression is evaluated and the results of the evaluation are displayed instead of the configured Text property.

Example:

Sub GefTextFormat_TextExpression()

Dim oCimObj As GefObject

    Dim oCimTxtFmt As
GefTextFormat

Set oCimObj = CimGetObject

    Set oCimTxtFmt =
oCimObj.TextFormat

    If Not oCimTxtFmt Is Nothing
Then

        oCimTxtFmt.TextExpression
= "$Project.Computer"

        CimGetScreen.Refresh
False

        MsgBox "The
currect text expression is " & """" &
oCimTxtFmt.TextExpression & """"

End If

End Sub