InfoConnect VBA Guide
Attachmate.Reflection.Objects.Emulation.OpenSystems Library / ScreenCharacter Object / IsUnderline Property
Example
In This Topic
    IsUnderline Property (ScreenCharacter)
    In This Topic
    Sets the Underline attribute.
    Syntax
    expression.IsUnderline 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