GefTextFormat.GetRealFormat (method)

Gets the format parameters being used for the TextExpression display.

Syntax:

Boolean = object.GetRealFormat ( Precision, ZeroFilled, Width, ScientificNotation )

Parameters:

Precision As VARIANT* -

ZeroFilled As VARIANT* -

Width As VARIANT* -

ScientificNotation As VARIANT* -

Description:

The GetIntegerFormat method gets the display format if it is configured to display real values. The parameters correspond to the fields in the Text property page.

Example:

Sub GefTextFormat_GetRealFormat()

Dim oCimObj As GefObject

    Dim oCimTxtFmt As
GefTextFormat

    Dim nPrecision As Variant
    Dim nZeroFilled As Variant
    Dim nWidth As Variant
    Dim nScience As Variant

    Set oCimObj = CimGetObject

    Set oCimTxtFmt =
oCimObj.TextFormat

oCimTxtFmt.TextExpression ="$Project.Devices"
CimGetScreen.Refresh False

    If oCimTxtFmt.SetFormatToReal(1,
True, 4, False) = True Then

        MsgBox "The
value is now being displayed as a real value"

        If
oCimTxtFmt.GetRealFormat(nPrecision, nZeroFilled, nWidth, nScience)
= True Then

            MsgBox
"The real value has the following parameters " & _

                Chr$(10)
& "Precision = " & nPrecision & Chr$(10) &
_

                "Zero
Filled = " & nZeroFilled & Chr$(10) & _

                "Width
= " & nWidth & Chr$(10) & _

                "Scientific
Notation = " & nScience

        End
If

End If

End Sub