IsReverse Property (ScreenCharacter)
Sets the Reverse/inverse video attribute.
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