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