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