如何修復空白屏幕，如果應用程序在RDP中切換

Question

Visual FoxPro 9應用程序wrotes屏幕使用？命令

SYS(602 , 1) 
MODIFY WINDOW screen FONT 'Arial',14 
_Screen.Themes = .F. 
hide menu _msysmenu 
ACTIVATE SCREEN 
clear 

do while .t. 
clear 
    ?'1 Option1' 
    ?'2 Option 2' 
    ?'. Exit' 

    wait 'Select ' to valik 
clear 
... 
enddo 

如果在切換到本地桌面後運行在RDP下，並且回寫文本到屏幕消失。整個屏幕是空白的。

如何解決這個問題，以便在切換回應用程序後可以看到應用程序屏幕輸出？我嘗試了SYS（602,1）和SYS（602,0），但是這個 不能修復空白屏幕。

Answer 1

發生這種情況的原因是由RDP連接時屏幕分辨率發生了變化。
解析更改VFP重新繪製_screen並清除所有文本。 （屏幕上的文本不存儲在任何地方）
如果要保存輸出，可以在_screen, 例如textbox對象上添加一些圖層。
其內容永久保存在object.value並重新繪製後保存。

_screen.AddObject('out', 'textbox') 
_screen.out.Visible= .T. 
_screen.out.value = 'sometext' 

或者你可以使用set alternate用於處理的輸出。