| On Error Goto..., Err.Number |
| |
| |
| Private Sub txtPfadname_KeyPress(KeyAscii As Integer) | |
| On Error GoTo err_txtPfadname_KeyPress |
| Dim Pfadname As String |
| If KeyAscii = vbKeyReturn Then |
| Pfadname = txtPfadname.Text |
| imgBild.Picture = LoadPicture(Pfadname) |
| End If |
| Exit Sub |
| err_txtPfadname_KeyPress: | |
| Select Case Err.Number | |
| Case 53 | Datei nicht gefunden. |
| MsgBox "Datei nicht gefunden!", 16, "Fehler bei der Eingabe" | |
| Case Else | |
| MsgBox "Unbekannter Fehler", 16, "Fehler bei der Eingabe" |
| End Select |
| End Sub |
|
|
| . |
| |
| |
| |
| |
| |
| |
| |
| |
zurück