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.


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