C# と VB.NET の質問掲示板

わんくま同盟

ASP.NET、C++/CLI、Java 何でもどうぞ

C# と VB.NET の入門サイト


■95183 / )  Re[2]: GROUPBOXの複製について(VB.NET)
□投稿者/ 北松 (3回)-(2020/06/29(Mon) 15:08:18)
No95178 (kiku さん) に返信
> 下記が参考になると思います。
> https://dobon.net/vb/dotnet/control/addcontrol.html

ありがとうございます。
GroupBoxを追加する際、Nameプロパティの設定やLacationプロパティの指定について
フォーム内のGroupBoxの個数を変数として扱いたいのですが、うまくいきません。

Dim i As Integer = GetGroupBoxCount(Me)
Private Function GetGroupBoxCount(ByVal Ctrl As Control) As Integer
If Ctrl.Controls.Count = 0 Then
If TypeOf Ctrl Is GroupBox Then
Return 1
Else
Return 0
End If
End If

Dim i As Integer
For Each c As Control In Ctrl.Controls
i += GetGroupBoxCount(c)
Next
Return i
Me.Controls.Count.ToString()
End Function

でiが0以外になりません。
間違いをご指摘いただければ幸いです。
返信 編集キー/


管理者用

- Child Tree -