画面表示

 投稿者:chyatora  投稿日:2019年 8月15日(木)12時49分53秒
  プログラム実行中に入力枠、テキスト枠、グラフィック枠すべてが開きますが、重ならないように
表示するテクニックを教えてください。
 

Re: 画面表示

 投稿者:しばっち  投稿日:2019年 8月15日(木)20時13分17秒
  > 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"のいずれか
 

画面表示

 投稿者:chyatora  投稿日:2019年 8月16日(金)01時07分49秒
  しばっち様

今後も宜しくお願いいたします。

早速、利用させていただきます。 ありがとうございました。

 

戻る