Anzahl der Elemente in einem Steuerelementefeld

Anzahl der Elemente in einem Steuerelementefeld. Ermitteln via: On Error Goto ... , Err.Number, Err.Description
Private Sub cmdAnzahlFeststellen_Click()
On Error GoTo err_AnzahlFeststellen
Dim Dummy As Picture, Anzahl As Long, N As Long
For N = imgBild.LBound To imgBild.UBound
Set Dummy = imgBild(N).Picture
Anzahl = Anzahl + 1
Weiter:
Next
MsgBox "Anzahl der Anzeigen: " & Anzahl, , "Anzahl"
Exit Sub
err_AnzahlFeststellen:
Select Case Err.Number
Case 340 Error: Control array element item doesn't exist.
Resume Weiter
Case Else
MsgBox "Fehler: " & Err.Number, vbExclamation, Err.Description
End Select
End Sub
Private Sub Form_Load()
Dim ImageObjekt As Image, N As Long
For Each ImageObjekt In imgBild
lblIndex(N).Caption = "Nr. " & ImageObjekt.Index
ImageObjekt.ToolTipText = "Nr. " & ImageObjekt.Index "imgBild(N).Index" geht nicht, weil das Steuerelemente-
N = N + 1 Lücken hat.
Next
End Sub

Mehr Tipps: Auffangbare Fehler in Visual Basic

Sponsoren und Investoren

Sponsoren und Investoren sind jederzeit herzlich willkommen!
Wenn Sie die Information(en) auf dieser Seite interessant fanden, freuen wir uns über eine kleine Spende. Empfehlen Sie uns bitte auch in Ihren Netzwerken (z. B. Twitter, Facebook oder Google+). Herzlichen Dank!

Nach oben Sitemap
Impressum & Kontakt