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 (記載なし)
Copyright © 2013 Power Future Co., Ltd.