|
|
> No.4693[元記事へ]
chyatoraさんへのお返事です。
> プログラム実行中に入力枠、テキスト枠、グラフィック枠すべてが開きますが、重ならないように
> 表示するテクニックを教えてください。
Windows版をご使用なら、Win32APIを使って位置を指定したり大きさを変えたり
表示・非表示と切り替えたりする方法があるようです。
https://hp.vector.co.jp/authors/VA008683/QA_WindowPos.htm
モニターの解像度に合わせて表示位置を調整してください。
CALL MOVETEXTWINDOW("TEXT",0,0)
CALL MOVETEXTWINDOW("GRAPHICS",800,0)
CALL MOVETEXTWINDOW("INPUT",0,500)
PRINT "ABCDEFG"
PLOT LINES:0,0;1,1
INPUT A$
END
EXTERNAL SUB MOVETEXTWINDOW(A$,X,Y)
SUB SETWINDOWPOS(HWND,HWNDINSAFTER,X,Y,CX,CY,NFLAGS)
ASSIGN "user32.dll","SetWindowPos"
END SUB
CALL SETWINDOWPOS(WINHANDLE(A$),0,X,Y,0,0,1)
END SUB
EXTERNAL SUB RESIZETEXTWINDOW(A$,X,Y)
SUB SETWINDOWPOS(HWND,HWNDINSAFTER,X,Y,CX,CY,NFLAGS) !nFLG: 0=x0,y0,xw,yw 1=x0,y0 2=xw,yw
ASSIGN "user32.dll","SetWindowPos"
END SUB
CALL SETWINDOWPOS(WINHANDLE(A$),0,0,0,X,Y,2)
END SUB
!'引数は，"MAIN","TEXT","GRAPHICS","INPUT","CHARACTER INPUT"，"TRACE", "LOCATE", "LOCATECHOICE", "TEXTWINDOW1", "TEXTWINDOW2", "RICHEDIT", "RICHEDIT1", "RICHEDIT2"のいずれか
|
|