Rubrik: Controls · Sonstiges | VB-Versionen: VB6 | 27.11.08 |
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: | Views: 8.905 |
www.tools4vb.de | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
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