| 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 | |
| |
zurück