InfoConnect VBA Guide
Attachmate.Reflection.Objects.Emulation.OpenSystems Library / ScreenCharacter Object / IsReverse Property
Example
In This Topic
IsReverse Property (ScreenCharacter)
In This Topic
Sets the Reverse/inverse video attribute.
Syntax
expression.IsReverse As Boolean
where expression is a variable that represents a ScreenCharacter Object
Example
This example finds the screen position of some text, gets the screen character at that position, and checks the character's attributes.
Sub CheckScreenCharacter()
    Dim position As ScreenPoint
    Dim screenChar As ScreenCharacter
    
    'Find a screen postition to check
    Set position = ThisScreen.SearchText("Jan", 1, 1, FindOptions_Forward)
    'Get the character at that position
    Set screenChar = ThisScreen.GetCharacter(position.row, position.column)
    
    If screenChar.IsNoCharacter = False Then
    
        'Check the attributes for the character.
        If screenChar.IsBlinking = True Then
            Debug.Print "Character is Blinking"
        End If
        
        If screenChar.IsBold = True Then
            Debug.Print "Character is Bold"
        End If
        
        If screenChar.IsReverse = True Then
            Debug.Print "Character is Reverse video"
        End If
        
        If screenChar.IsUnderline = True Then
            Debug.Print "Character is Underline"
        End If
        
        If screenChar.IsPlain = True Then
            Debug.Print "Character is Plain"
        End If
    End If
       
End Sub
See Also