PB 電子会議室
| 発言No. | 更新日 | 題名（クリックすると発言内容と関連するコメントが表示されます） |
|---|---|---|
| 3588 | 98/10/12 17:17:21 | RE(2):こんな方法もあります！ By Taka |
| 3582 | 98/10/12 09:50:52 | RE(1):PB5.0.04: ディスプレイの解像度が変わってもウィンドウを中央に表示する方法 By こてちゅ |
| 3581 | 98/10/12 09:22:34 | PB5.0.04: ディスプレイの解像度が変わってもウィンドウを中央に表示する方法 By まつおか |
カテゴリ：データウィンドウ
日付：1998年10月12日 09:50 発信者：こてちゅ
題名：RE(1):PB5.0.04: ディスプレイの解像度が変わってもウィンドウを中央に表示する方法
＞おはようござおます。
＞
＞ディスプレイの解像度が変わってもウィンドウを中央に表示する事は可能でしょうか。
＞現在は解像度によって表示される位置が変わってしまいます。
＞
＞よろしくお願いします。
以下のスクリプトでどうぞ。
/* ウィンドウの幅と高さを取得(ピクセル単位に変換) */
wx = UnitsToPixels(This.Width,XUnitsToPixels!) //幅
wy = UnitsToPixels(This.Height,YUnitsToPixels!) //高さ
/* 環境に関する情報を入手 */
rtn = GetEnvironment(env)
If rtn <> 1 Then Return
//スクリーンからの位置を取得(PowerBuilder単位に変換)
sx = PixelsToUnits((env.ScreenWidth - wx) / 2,XPixelsToUnits!) //左端からの距離
sy = PixelsToUnits((env.ScreenHeight - wy) / 2,YPixelsToUnits!) //上端からの距離
//ウィンドウを移動
This.Move(sx,sy)
付加情報：
PowerBuilder Version (記載なし)
Client SoftWare
OS Windows95
DBMS Oracle SQL*Net 2.3
Browser (記載なし)
Server SoftWare
OS (記載なし)
DBMS Oracle 7.3
WebServer (記載なし)
Copyright © 2013 Power Future Co., Ltd.