Anzahl Steuerelemente

[spirit]

Hallo

Ich bin gerade dabei mir ein Steuerelement zu proggen. Dafür benötige ich eine Funktion die zur Laufzeit per Click die Anzahl der z.B. verwendeteten Textfelder ausgibt.

Hintzergrund des ganzen ist, das ein Ereignis aus dem Steuerelement auf alle der vorhandenen Controls angewendet werden soll.

Ich dachte da an eine Zählschleife .....

Im vorraus besten Dank!

 

[Merlin_78]

Die Anzahl der Steuerelemente erhältst du über die Controls-Eigenschaft:

	Dim countControls As Integer
	countControls = Controls.Count

 

[wincnc]

Versuch´s mal so:

Private Sub Command1_Click()
Dim TBox As Control
Dim Zähler As Long
For Each TBox In Me
If TypeOf TBox Is TextBox Then
Zähler = Zähler + 1
End If
Next
MsgBox Zähler
End Sub

 

[spirit]

Hallöchen

1000 Dank bestens