Single-Steuerelement oder Steuerelement-Array? Eine Quick-And-Dirty Funktion zum Prüfen, ob es sich bei einem Control um ein Einzel-Control handelt oder um ein Control aus einem Steuerelementfeld.
Autor:   Dieter Otter	Bewertung:     [ Jetzt bewerten ]	Views:  9.307
https://www.tools4vb.com	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 2 Bewertung insgesamt: sehr gut Durchschnittliche Bewertung: 4.5 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Nachfolgend eine "Quick-And-Dirty" Funktion, mit der sich ermitteln lässt, ob es sich bei dem angegebenen Control um ein Einzel-Control oder um ein Control aus einem Steuerelementfeld handelt.

Die Funktion erwartet als Parameter die Form, sowie den Namen des Steuerelements und gibt True zurück, wenn es sich um ein Control-Array (Steuerelementfeld) handelt. Andernfalls wird False zurückgegeben.

' Steuerelementfeld?
Public Function IsControlArray(ByVal oForm As Form, ByVal sName As String) As Boolean
  On Error Resume Next
  Dim nBound As Integer
  nBound = oForm.Controls(sName).UBound
  IsControlArray = (Err = 0)
  On Error GoTo 0
End Function

Aufrufbeispiel:

If IsControlArray(Me, "Label1") Then
  ' Steuerelementfeld
  ...
End If