Reflection Desktop VBA Guide
Attachmate.Reflection.Objects.Emulation.OpenSystems Library / Attachmate.Reflection.Objects.Emulation.OpenSystems Library / Screen Object / GetCharacterAttributes Method
The screen row position.
The screen column position.
Example
In This Topic
    GetCharacterAttributes Method
    In This Topic
    Retrieves character attributes for the specified position on the screen.
    Syntax
    expression.GetCharacterAttributes( _
       ByVal row As Integer, _
       ByVal column As Integer _
    ) As CharacterAttributes
    where expression is a variable that represents a Screen Object

    Parameters

    row
    The screen row position.
    column
    The screen column position.

    Return Value

    The CharacterAttributes value that has attribute information for the specified position. May specify multiple attributes.
    Example
    This example checks the attributes of each character on a screen
    Sub CheckCharacterAttributes()
        Dim charAttr As CharacterAttributes
        Dim row, minRow, maxRow As Integer
        Dim column, minColumn, maxColumn As Integer
        Dim thisAttribute As Integer
         
        'Set the boundaries for rows and columns
        With ThisScreen
            minRow = .ScreenTopRow
            maxRow = .DisplayRows - 1
            minColumn = 1
            maxColumn = .DisplayColumns - 1
        End With
        
        'check character attributes for each screen position
        For row = minRow To maxRow - 1
            For column = minColumn To maxColumn
              'Get the character at this screen position
              charAttr = ThisScreen.GetCharacterAttributes(row, column)
              
              If charAttr = CharacterAttributes_NoCharacter Then
                  Debug.Print "not a character"
              Else
        
                  'Check the attributes for each character.
                  If charAttr = CharacterAttributes_Blink Then
                      Debug.Print "Blinking starts at row " & row & "and column " & column
                  End If
                  
                  If charAttr = CharacterAttributes_Bold Then
                      Debug.Print "Bold starts at row " & row & "and column " & column
                  End If
                  
                  If charAttr = CharacterAttributes_Plain Then
                      Debug.Print "No attributes are set"
                  End If
                  
                  If charAttr = CharacterAttributes_Reverse Then
                      Debug.Print "Reverse video starts at row " & row & "and column " & column
                  End If
                  
                  If charAttr = CharacterAttributes_Underline Then
                      Debug.Print "Underline starts at row " & row & "and column " & column
                  End If
              
              End If
            
            Next
            
        Next
    End Sub
    See Also