GefTextFormat.GetRealFormat (method)

Gets the format parameters being used for the TextExpression display.
Syntax: Boolean = object.GetRealFormat ( Precision, ZeroFilled, Width, ScientificNotation )
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.


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