VBのコントロールの数

解決

ひろ 2003-09-01 06:35:07 No: 108377

VBのひとつのFORM上ののコントロールの総数は制限事項で最大２５４となっていますが、開発環境で現在いくつコントロールが使われているか、わかる方法があるのでしょうか。ご存知の方お願いします。

魔界の仮面弁士 2003-09-01 09:17:05 No: 108378

> 開発環境で現在いくつコントロールが使われているか

VB6であれば、フォーム画面を閉じておいた上で、イミディエイトウィンドウに
? Form1.Controls.Count
と書けば、Form1上に張られているコントロール数が分かります。
もし、コントロール配列をまとめて1個としてカウントしたいのなら、
L=0:For Each C In Form1.Controls:L=L+IIf(TypeOf Form1.Controls(C.Name) IS Control, 1, 0):Next:? L
と書けば算出できます。

なお、仕様上は最大254、とありますが、実際にはシステムリソースの
都合などもありますので、事実上の上限はそれよりも少なくなります。
(あまりにコントロール数が多い場合は、画面設計を見直した方が良いでしょう)
http://www.microsoft.com/japan/msdn/columns/askgui/askgui05222001.asp

ひろ 2003-09-01 16:40:43 No: 108379

魔界の仮面弁士さん
レスありがとうございました。
やはり有るんですね、やってみました、１２１個でした安心しました。(^^
L=0:For Each C In Form1.Controls:L=L+IIf(TypeOf Form1.Controls(C.Name) IS Control, 1, 0):Next:? L
↑すばらしいコードですね、参考にさせて頂きます。
尊敬です。