ScreenUPG Assembly > ScreenUPG Namespace > ScreenUPG Class : getExtPS Method |
'Declaration
Public Function getExtPS( _ ByVal inStartRow As Integer, _ ByVal inStartColumn As Integer, _ ByVal inLength As Integer _ ) As String
'Usage
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 )
public: String^ getExtPS( int inStartRow, int inStartColumn, int inLength )
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