| Forum: VB.NET |
Thema:
Re: Anzahl Objekte |
Von:
G. Guest (
09.12.2004 21:04) |
so müsste es gehen das wird irgendwo bei dir aufgerufen
MessageBox.Show(GetAllCheckBoxesCount(me).ToString())
das ist die funktion, die alle checkboxen zählen soll,
rekursiv in allen controls
.......
Private Function GetAllCheckBoxesCount(ByVal mainCntrl As Control) As Integer
Dim cntrlCB As CheckBox
Dim iCount As Integer = 0
For Each cntrlSub As Control In mainCntrl.Controls
If cntrlSub.GetType().Equals(GetType(CheckBox)) Then
iCount += 1
Else
iCount += GetAllCheckBoxesCount(cntrlSub)
End If
Next
Return iCount
End Function
wenn du das nur auf dein tabcontrol beziehen möchtest, dann kannst du die funktion wie folgt aufrufen:
MessageBox.Show(GetAllCheckBoxesCount(TabControl1).ToString())
Grüsse,
Andreas M.
Antworten
Vorsicht bei der Eingabe: Die Zeichen ' oder -- sind nicht erlaubt!
