InfoConnect VBA Guide
Attachmate.Reflection.Objects.Emulation.IbmHosts Library / HostField Object / Text Property
Example
In This Topic
    Text Property (HostField)
    In This Topic
    Gets field text.
    Syntax
    expression.Text As String
    where expression is a variable that represents a HostField Object
    Example
    This example prints the text in a field when the mouse is clicked in the field.
    Private Sub IbmScreen_MouseClickEx(ByVal windowMessage As Long, ByVal row As Long, ByVal column As Long, ByVal x As Long, ByVal y As Long)
     
        'When the the left mouse button is released (windowMessage = 514 is WM_LBUTTONUP), get the field the mouse is in and print the text in the field.
        If windowMessage = 514 Then
            Sleep 200
          
            Dim myField As HostField
            Dim myFieldText As String
     
            'Get the field
            Set myField = ThisIbmScreen.GetField(row, column)
     
            'Print the text in field that was clicked
            myFieldText = myField.text
            Debug.Print myFieldText
        
        End If
        
    End Sub
    See Also