PB 電子会議室
発言No. | 更新日 | 題名(クリックすると発言内容と関連するコメントが表示されます) |
---|---|---|
21298 | 04/06/03 11:01:45 | RE(6):ウインドウのサイズ変更 By amnesia |
21297 | 04/06/03 11:01:12 | RE(5):ウインドウのサイズ変更 By amnesia |
21296 | 04/06/03 10:59:15 | RE(4):ウインドウのサイズ変更 By amnesia |
21295 | 04/06/03 10:58:27 | RE(3):ウインドウのサイズ変更 By amnesia |
21294 | 04/06/03 10:56:47 | RE(2):ウインドウのサイズ変更 By amnesia |
21293 | 04/06/03 10:56:02 | RE(1):ウインドウのサイズ変更 By amnesia |
21271 | 04/05/31 15:33:26 | ウインドウのサイズ変更 By nj |
カテゴリ:スクリプトの記述
日付:2004年06月03日 10:58 発信者:amnesia
題名:RE(3):ウインドウのサイズ変更
njさん、こんにちは。
>ウインドウのサイズを変更するとき、
>ボタン、DW、テキストなどの大きさも一緒に変更することはできるのでしょうか?
>
こんなのは・・・ 3/4
save_size イベント(関数)
long ll_count , ll_loop
multilineedit lmle_hoge
editmask lem_hoge
line lln_hoge
radiobutton lrb_hoge
checkbox lcbx_hoge
picturebutton lpb_hoge
commandbutton lcb_hoge
datawindow ldw_hoge
singlelineedit lsle_hoge
statictext lst_hoge
dropdownlistbox lddlb_hoge
userobject luo_hoge
groupbox lgbx_hoge
listbox llb_hoge
treeview ltv_hoge
ll_count = UpperBound(control[])
for ll_loop = 1 to ll_count
choose case typeof(control[ll_loop])
case multilineedit!
lmle_hoge = control[ll_loop]
il_x[ll_loop] = lmle_hoge.x
il_y[ll_loop] = lmle_hoge.y
il_w[ll_loop] = lmle_hoge.width
il_h[ll_loop] = lmle_hoge.height
il_f[ll_loop] = lmle_hoge.textsize
case editmask!
lem_hoge = control[ll_loop]
il_x[ll_loop] = lem_hoge.x
il_y[ll_loop] = lem_hoge.y
il_w[ll_loop] = lem_hoge.width
il_h[ll_loop] = lem_hoge.height
il_f[ll_loop] = lem_hoge.textsize
case line!
lln_hoge = control[ll_loop]
il_x[ll_loop] = lln_hoge.BeginX
il_y[ll_loop] = lln_hoge.BeginY
il_w[ll_loop] = lln_hoge.EndX
il_h[ll_loop] = lln_hoge.EndY
// il_f[ll_loop] = lln_hoge.textsize
il_f[ll_loop] = 0
case checkbox!
lcbx_hoge = control[ll_loop]
il_x[ll_loop] = lcbx_hoge.x
il_y[ll_loop] = lcbx_hoge.y
il_w[ll_loop] = lcbx_hoge.width
il_h[ll_loop] = lcbx_hoge.height
il_f[ll_loop] = lcbx_hoge.textsize
付加情報:
PowerBuilder Version (記載なし)
Client SoftWare
OS (記載なし)
DBMS (記載なし)
Browser (記載なし)
Server SoftWare
OS (記載なし)
DBMS (記載なし)
WebServer (記載なし)
Copyright © 2013 Power Future Co., Ltd.