コントロールの作成する数について

質問

フォーム上にコントロールを追加しようとすると以下のメッセージが表示されます。
「これ以上このフォームにコントロールを作成することができません。」
対応策として既存のコントロールを削除して追加しようとしたのですが、同じメッセージがでました。
なにかいい方法はないでしょうか？

１つのフォームに追加できるコントロールは最大244？までと聞いたことがあるのですが、コントロールの数を数える方法は１つ１つ見るしかないですよね？

よろしくお願い致します。

回答No.3

ki-ton · ベストアンサー

貼りすぎですが
どうしても必要なら
支障が無いものを(たとえばラベルとか)
コントロール配列にしてください。
たしか何個はっても一つとみなされます

お礼

配列にします。
ありがとうございました。

回答No.2

tonytonychopper

わたしもtaka_tetsuさんと同意見ですね。そんなに貼り付ける画面なんて使い勝手かなり悪そう。

↓とりあえず・・・

Private Sub Command1_Click()

Dim objCtrl As Control
Dim lngCnt As Long

lngCnt = 0

For Each objCtrl In Controls
lngCnt = lngCnt + 1
Next

End Sub

お礼

参考にします。
ありがとうございました。

回答No.1

taka_tetsu

>１つのフォームに追加できるコントロールは最大244？までと聞いたことがあるのですが、コントロールの数を数える方法は１つ１つ見るしかないですよね？

貼りすぎです(^^;;
私だったらそんな画面、設計でNG出しますね。

数を数えたいんでしたら、VB6でしたらとりあえず動かしてみて、ControlsコレクションのCountプロパティで見られると思いますけど。

お礼

ありがとうございました。