Bei Fehler soll das Programm nicht geschlossen werden

[gRaf-eny]

Hallo!
Wenn das Programm z.B. mit nem MediaPlayer die eine Sounddatei wiedergeben soll, die aber nicht da ist, kommt ne Fehlermeldung, die einem User nichts sagt und das Programm beendet sich.
Wie krieg ich es hing, dass das Programm einfach ne Meldung ausgibt
"Hey die soundfile blablabla ist nich da..." man drückt ok aber das Programm bleibt an

gruß euer gRaf

 

[Johannes Postler]

Ein paar Links:

http://www.aboutvb.de/khw/artikel/khwappprojectname.htm
http://www.vbarchiv.net/commands/Error1.php

Ich glaube, das sollte dich auf die Spur bringen...

Prinzipiell so:

On Error Resume Next

Oder;

On Error GoTo Fehlerbehandlung

 

[gRaf-eny]

mhh,
wo muss das den hin ?

is das ne eigene sub ?
oder hinter den play befehl (beispiel^^)

 

[Shakie]

Private Sub Beispielprozedur()
    On Error GoTo Fehlerbehandlung_Beispielprozedur
    
    Dim Test As Integer
    'Hier erzeuge ich einen Fehler zum vorführen der Fehlerbehandlung:
    Test = "Hallo!"
    
    '#######################################
Fehlerbehandlung_Beispielprozedur:

    MsgBox "Es ist ein Fehler aufgetreten: " & Err.Number & vbCrLf & Err.Description
    'Mit dieser Zeile wird dort weitergemacht, ab wann zu
    '"Fehlerbehandlung_Beispielprozedur" gesprungen wurde:
    Resume Next
End Sub

Damit du siehst wie das ganze Funktioniert musst du in VB die Einstellung "Unterbrechen bei Fehlern" auf "Bei nicht verarbeiteten Fehlern stellen". Dies kannst du einstellen indem du entweder mit einem Rechtsklick auf das Codefenster und dann im Popupmenü auf "Umschalten"--> "Bei nicht verarbeiteten Fehlern unterbrechen" klickst ODER im Menü "Extras" --> "Optionen" --> "Allgemein".

Edit:

Private Sub Beispielprozedur2()
    On Error Resume Next

    Dim Test As Integer
    'Hier erzeuge ich einen Fehler zum vorführen der Fehlerbehandlung (es wird
    'nichts passieren da die Fehlerbehandlung mit "Resume Next" ausgestellt ist):
    Test = "Hallo!"
    
End Sub

 

[gRaf-eny]

ah danke,
ich denke jetzt gehts, sonst meld ich mich nochmal )