[求助]如何简化设置多个控件的属性

盗到稻

在主体中，有很多控件，而只想对其中七八个控件设置其位置等属性，这样每次要写七八行代码，多的话那么代码也多，请问高手可否有简化的方法呀？

没牙兔兔

这个是黄帮主写的,对主体中每一个控件进行判断

Dim Ctrl As Control

    For Each Ctrl In Me.frm建制单位部局下属.Controls
        If TypeOf Ctrl Is Label Then
            '标签控件会随文本框一起隐掉,不用处理,不然出错
        Else
            Ctrl.ColumnHidden = True
        End If
    Next Ctrl

如果是设置位置的话
另外一种思路是设置偏移量
这样只需要修改设置一个控件的值,其余的相对位置就自动更改啦

ADAM

單純設定位置,,,
你可以用for....next來遍歷所有控件啊....

有點沒明白你的意思....

盗到稻

谢谢没牙兔兔和ADAM
我就是想要修改设置一个控件的值,其后面的控件的相对位置就自动更改，不过我不知道ACCESS有这个功能，不知如何处理，还有本人就是要处理标签和文本框的位置，你们可否进一步指点？

没牙兔兔

With Me
    '更改宽
    .frm建制单位部局下属.Width = .InsideWidth - 229 - .frm建制单位部局下属.Left
    .sel级别.Width = .frm建制单位部局下属.Width
    .长度.Width = .frm建制单位部局下属.Width
    .Lbl注.Width = .frm建制单位部局下属.Width - 100
end with

像这样可以么? 一个改啦,其余的不就跟着改啦

盗到稻

谢谢没牙兔兔

ADAM

告訴你一個思路
我現在正在用的,
當放大或縮小窗體時控件自動調整位置與大小...

1.做兩個過程...
過程一,在表單load時運行,記錄表單的初始大小,將各個控件的left,top,width,height
存入該控件的tag中..
2.過程二,在表單的resize時運行,將現表單大小/初始大小,
將此比*各控件的left(y),top(x),width(y),height(x)...
x,y 指x,y方向的比例值...
將此值賦值給控件...
用以調整其位置...

這樣就可以實現自動變更了...

没牙兔兔

哇,这种古怪新奇的思路你都能折腾出来
真是什么咚咚都可以利用哦

tmtony

自动处理控件的宽度与位置需要你预先设置一些参数，如每行多少控件，行距，控件是否自动适应等，然后循环控件来设置。
ADAM的方法也是我用的方法，但有两种处理方式：
一种是 控件自适应窗体的方式，论坛上有类似多个源码，即窗体变化时，控件根据比例变化控件大小，位置以及控件的字体大小等，即原来的窗体的按比例放大。
还有一种是，控件本身不放大，字体亦不变，但控件之间的间距（横竖都是）按比例放大，这种比较亦有可取这点，但不如第一种常见。我记得金碟K3的录入窗体采用的就是这种方式。

ADAM

最新成果...

最開始
我是用tmtony的第一種方法.但發現比例放大后...
間距過大,會比較難看,控件位置不緊湊,

后來,
我將所有不需變更的控件放大表單首與表單尾,需變更的放在表單主體
表單首尾中控件位置皆不會變,高也不變,只變更寬,
表單主體控件的變更高,寬,按比例...

這樣一來,版面就舒服多了,但是,主體中問會有一個空白區域,是因為比例放大不能達到的

再改:
表單主體的控件=表單主體的高度*0.98,
這樣,結構就很緊湊了...
類似有的商用程序只變更需變更的部份控件位置又不變形...

但是,主體中只能放一個子表單或其它空積控件...
雖說不是通用...
但也解決了我大部份問題...
呵呵...