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:56 発信者:amnesia
題名:RE(2):ウインドウのサイズ変更

njさん、こんにちは。

>ウインドウのサイズを変更するとき、
>ボタン、DW、テキストなどの大きさも一緒に変更することはできるのでしょうか?

こんなのは如何ですか 2/4(resize 続き)


for ll_loop = 1 to UpperBound(control[])
ll_nw = il_w[ll_loop] * lr_wx
ll_nh = il_h[ll_loop] * lr_hy
ll_nx = il_x[ll_loop] * lr_wx
ll_ny = il_y[ll_loop] * lr_hy
ll_nf = il_f[ll_loop] * lr_f
if ll_nf = 0 then
ll_nf = -1
end if
control[ll_loop].Resize(ll_nw,ll_nh)
control[ll_loop].Move(ll_nx,ll_ny)
choose case control[ll_loop].TypeOf()
case multilineedit!
lmle_hoge = control[ll_loop]
lmle_hoge.textsize = ll_nf
case editmask!
lem_hoge = control[ll_loop]
lem_hoge.textsize = ll_nf
case line!
lln_hoge = control[ll_loop]
// lln_hoge.textsize = ll_nf
case radiobutton!
lrb_hoge = control[ll_loop]
lrb_hoge.textsize = ll_nf
case checkbox!
lcbx_hoge = control[ll_loop]
lcbx_hoge.textsize = ll_nf
case picturebutton!
lpb_hoge = control[ll_loop]
lpb_hoge.textsize = ll_nf
case commandbutton!
lcb_hoge = control[ll_loop]
lcb_hoge.textsize = ll_nf
case datawindow!
ldw_hoge = control[ll_loop]
// ldw_hoge.textsize = ll_nf
case singlelineedit!
lsle_hoge = control[ll_loop]
lsle_hoge.textsize = ll_nf
case statictext!
lst_hoge = control[ll_loop]
lst_hoge.textsize = ll_nf
case dropdownlistbox!
lddlb_hoge = control[ll_loop]
lddlb_hoge.textsize = ll_nf
case userobject!
luo_hoge = control[ll_loop]
// luo_hoge.textsize = ll_nf
case groupbox!
lgbx_hoge = control[ll_loop]
lgbx_hoge.textsize = ll_nf
case listbox!
llb_hoge = control[ll_loop]
llb_hoge.textsize = ll_nf
case treeview!
ltv_hoge = control[ll_loop]
// ltv_hoge.textsize = ll_nf
end choose
end for


付加情報:

PowerBuilder Version (記載なし)

Client SoftWare

OS (記載なし)
DBMS (記載なし)
Browser (記載なし)

Server SoftWare

OS (記載なし)
DBMS (記載なし)
WebServer (記載なし)

PowerSpaceの運営は、パワーフューチャー株式会社が行っております。
Copyright © 2013 Power Future Co., Ltd.