IScreen::VBS_SetString
Copy a text string to a specified position in the QWS3270 screen.
Function VBS_SetString(row As Long, column As Long, text As String) As Long
Parameters
| No | Name | Type | Optional | Default | Description |
|---|---|---|---|---|---|
| 1 | row | Long | No | - | row where text is to be inserted |
2 | column | Long | No | - | column where text is to be inserted |
3 | text | String | No | - | text to insert |
Return Code | Description | ||||
JGS_OK | The text was successfully copied | ||||
JGS_NOTCONNECTED | Your application is currently not connected to any valid session | ||||
JGS_PARAMETERERROR | Missing or invalid parameter | ||||
JGS_SYSERROR | The function failed due to a system error | ||||
JGS_INHIBITED | The position in the screen is protected or the text string contains invalid data (such as a field attribute) | ||||
JGS_TRUNCATED | The text string was truncated during the copy | ||||
JGS_POSITIONERROR | The specified position in the screen was invalid | ||||
Sample Code
Dim row as Long
Dim column as Long
Dim myText as String
Dim result as Long
row = 18
column = 45
myText = "Jolly Giant Software"
result = screen.VBS_SetString(row, column, myText)
Dim column as Long
Dim myText as String
Dim result as Long
row = 18
column = 45
myText = "Jolly Giant Software"
result = screen.VBS_SetString(row, column, myText)
Back to IScreeen members
QWS3270 Automation copyright © Jolly Giant Software Inc. All rights reserved.