GefTextFormat.FormatType (read-only property)

Gets the type of formatting used on the TextExpression value as a GefTextFormatEnum.

Syntax:

Description:

You set the type by using the various SetFormatTo... methods.

Example:

Sub GefTextFormat_FormatType()

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"

oCimTxtFmt.SetFormatToUsePointConfig

        CimGetScreen.Refresh
False

        Select Case
oCimTxtFmt.FormatType

            Case
gefTextFormatConfigured

                MsgBox
"The expressions format type is configured to use point
attributes"

            Case
gefTextFormatCustom

                MsgBox
"The expressions format type is a custom format"

            Case
gefTextFormatGeneral

                MsgBox
"The expressions format type is general"

            Case
gefTextFormatInteger

                MsgBox
"The expressions format type is an integer format"

            Case
gefTextFormatMixed

                MsgBox
"The expressions format type is Unknown format"

            Case
gefTextFormatReal

                MsgBox
"The expressions format type is an real format"

            Case
gefTextFormatText

                MsgBox
"The expressions format type is text format"

            Case
gefTextFormatTimeAbsolute

                MsgBox
"The expressions format type is absolute time format"

            Case
gefTextFormatTimeRelative

                MsgBox
"The expressions format type is relative time format"

        End
Select

End If

End Sub

Gets the type of formatting used on the TextExpression value as a GefTextFormatEnum.
Syntax:	GefTextFormatEnum = object.FormatType
Description:	You set the type by using the various SetFormatTo... methods. Example: `Sub GefTextFormat_FormatType()` `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"` `oCimTxtFmt.SetFormatToUsePointConfig` `CimGetScreen.Refresh False` `Select Case oCimTxtFmt.FormatType` `Case gefTextFormatConfigured` `MsgBox "The expressions format type is configured to use point attributes"` `Case gefTextFormatCustom` `MsgBox "The expressions format type is a custom format"` `Case gefTextFormatGeneral` `MsgBox "The expressions format type is general"` `Case gefTextFormatInteger` `MsgBox "The expressions format type is an integer format"` `Case gefTextFormatMixed` `MsgBox "The expressions format type is Unknown format"` `Case gefTextFormatReal` `MsgBox "The expressions format type is an real format"` `Case gefTextFormatText` `MsgBox "The expressions format type is text format"` `Case gefTextFormatTimeAbsolute` `MsgBox "The expressions format type is absolute time format"` `Case gefTextFormatTimeRelative` `MsgBox "The expressions format type is relative time format"` `End Select` `End If` `End Sub`