GefTextFormat.GetIntegerFormat (method)

Gets the format parameters being used for the TextExpression display.
Syntax: Boolean = object.GetIntegerFormat ( ZeroFilled, Width )
ZeroFilled As VARIANT* -
Width As VARIANT* -
Description: The GetIntegerFormat method gets the settings for the integer format. The parameters correspond to the fields in the Text property page.


Sub GefTextFormat_GetIntegerFormat()
    Dim oCimObj As GefObject
    Dim oCimTxtFmt As GefTextFormat
    Dim nZeroFilled As Variant
    Dim nWidth As Variant
    Set oCimObj = CimGetObject
    Set oCimTxtFmt = oCimObj.TextFormat
    oCimTxtFmt.TextExpression ="$Project.Devices"
    CimGetScreen.Refresh False
    If oCimTxtFmt.SetFormatToInteger(True, 4) = True Then
        MsgBox "The value is now being displayed as an integer"
        If oCimTxtFmt.GetIntegerFormat(nZeroFilled, nWidth) = True Then
            If nZeroFilled Then
                MsgBox "The text is being displayed as a zero filled integer and a width of " & nWidth
                MsgBox "The text is being displayed as an integer and a width of " & nWidth
            End If
        End If
    End If
End Sub