Error-Objekt Dateiname

Programmierung: Error-Objekt Dateiname. 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

           
Sponsoren und Investoren

Sponsoren und Investoren sind jederzeit herzlich willkommen! Wenn Sie die Information(en) auf diesen Seiten interessant fanden, freuen wir uns über Ihren Förderbeitrag. Empfehlen Sie uns auch gerne in Ihren Netzwerken. Herzlichen Dank!

Nutzen Sie unsere Suchfunktion:

Nach oben Sitemap
Impressum Datenschutz

Hinweis: Diese Webseite kann Werbeanzeigen und Werbeeinblendungen oder eingebundene Links von Diensten und Inhalten Dritter enthalten. Beachten Sie dazu unsere Datenschutzerklärung.