Reflection Desktop VBA Guide
Attachmate.Reflection.Objects.Emulation.IbmHosts Library / Attachmate.Reflection.Objects.Emulation.IbmHosts Library / IbmScreen Object / Columns Property
Example
In This Topic
    Columns Property
    In This Topic
    Gets the number of columns of the screen.
    Syntax
    expression.Columns As Integer
    where expression is a variable that represents a IbmScreen Object
    Example
    This example prints the row and column of any locations that are field attribute positions.
    Sub IsAttributeExample()
 
    Dim i, y As Integer
       
    For i = 1 To ThisIbmScreen.rows
    
        For y = 1 To ThisIbmScreen.columns
        
            If ThisIbmScreen.IsAttribute(i, y) = True Then
            
                Debug.Print "field attribute location: row " & i & "column " & y
            
            Else
            
                Debug.Print "None"
            
            End If
            
        Next
        
    Next
    
End Sub
    See Also

    Reference

    IbmScreen Object
    IbmScreen Members

    Send Feedback