GefTextFormat.CurrentText (read-only property)

Gets the text of object.

Syntax:

VARIANT = object.CurrentText

Description:

The CurrentText property returns the displayed text.

Example:

Sub GefTextFormat_CurrentText()

Dim oCimObj As GefObject

    Dim oCimTxtFmt As
GefTextFormat

    Dim oCimExecCond As
GefExecutionCondition

Set oCimObj = CimGetObject

    Set oCimTxtFmt =
oCimObj.TextFormat

    If Not oCimTxtFmt Is Nothing
Then

        oCimTxtFmt.TextExpression
= "$Project.Computer"

        CimGetScreen.Refresh
False

        MsgBox "The
current text is " & """" & oCimTxtFmt.CurrentText &
""""

End If

End Sub