getExtPS Method

Returns the specified portion of the presentation space in a string format.
Public Function getExtPS( _ 
   ByVal inStartRow As Integer, _ 
   ByVal inStartColumn As Integer, _ 
   ByVal inLength As Integer _ 
) As String
Dim instance As ScreenUPG 
Dim inStartRow As Integer 
Dim inStartColumn As Integer 
Dim inLength As Integer 
Dim value As String 
value = instance.getExtPS(inStartRow, inStartColumn, inLength)
public string getExtPS( 
   int inStartRow,
   int inStartColumn,
   int inLength 
String^ getExtPS( 
   int inStartRow,
   int inStartColumn,
   int inLength 



Return Value

A string containing the specified contents of presentation space. Each character in the returned string is followed immediately by the extended character and extended color information for that character. As a result, the return string will contain three times the number of presentation space positions (characters) than you specify.
See Extended Character and Color Attributes for a list of attributes returned for each host type.
boolean isUnderscore = false;
boolean isBlinking = false;
boolean isForegroundBlue = false;
boolean isBackgroundYellow = false;
// Get presentation space from home position
string ps = screen.getExtPS(1, 1, 1000);
char character = ps[0];
char attribute = ps[1];
char color = ps[2];
// Character attributes
if ((attribute & ScreenUPG.ScreenUPG.Underscore) != 0)
	isUnderscore = true;
if ((attribute & ScreenUPG.ScreenUPG.Blink) != 0)
	isBlinking = true;
// Character color attributes
if ((color & ScreenUPG.ScreenUPG.FgBlue) != 0)
	isForegroundBlue = true;
if ((color & ScreenUPG.ScreenUPG.BgYellow) != 0)
	isBackgroundYellow = true;
Dim isBlink As Boolean
Dim isUnderline As Boolean
Dim isNegative As Boolean
Dim attribute As Integer
Dim color As Integer
Dim ps As String
Get the presentation space at row 18, column 6 with length 10
ps = screen.getExtPS(18, 6, 10)
attribute = Mid$(ps, 2, 1)
color = Mid$(ps, 3, 1)
if ((attribute And screen.Blink) >< 0) then isBlink = True
if ((attribute And screen.Underscore) >< 0) then isUnderline = True
if ((attribute And screen.Reverse) >< 0) then isNegative = True

Target Platforms: Windows 7, Windows Vista SP1 or later, Windows XP SP3, Windows Server 2008 (Server Core not supported), Windows Server 2008 R2 (Server Core supported with SP1 or later), Windows Server 2003 SP2

See Also


ScreenUPG Class
ScreenUPG Members