---

Hallo ich bin am programmieren und naja ....

On Error GoTo ErrorHandler
'Überprüfen, ob Solid Edge geöffnet ist
 
  Set moSEApp = GetObject(, "SolidEdge.Application")
  moSEApp.Visible = True

GetSEApp = True

  If moSEApp.Documents.Count < 1 Then
    MsgBox "Ein Dokument muss geöffnet sein"
End If

If GetSEApp = False Then

MsgBox " Öffnen Sie zuerst Solid Edge"
End If

ErrorHandler:
     
    MsgBox "Fehler im 1. Teil"
 

  On Error GoTo Error2Handler

Ich habe hier mehrere Error Handler eingefügt und will somit den Fehler abfangen.
ISt das für eine Sub überhaupt zulässig? Oder habe ich hier noch nen grundsätzliches Problem.
Wenn einer mein komplettes Programm sehen will, sagt bescheid.

Gruß Demokrat

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

im Grunde ist das schon richtig - aber ....

Du solltest Grundsätzlich alle Sub und Funktion mit einem Handler ausstatten dabei ist zu berücksichtigen, dass die Fehlermeldung im Callstack nach oben gereicht werden muss - so das die sub main die Meldung ausgibt.
Wenn du dies nicht tust, dann läufts du Gefahr, dass die nachfolgenden Funktionen im Callstack in einem undefinierten Zustand ausgeführt werden und das System wird dir dann irgendwann doch abstürzen.

Wenn du nun ein Addin für SolidEdge programmierst wird dir dabei SolidEdge abstürzen!!!

In unserem Programm Hitteam für SolidEdge sind alle Funktionen so ausgestattet.

TIP: Schau dir unbedingt den ErrorHandler von VB.NET oder C#.NET an.
Der Errhandler ist unter anderem so gut, dass wir z. Zeit alle Programme auf VB.NET umstellen.

PS: Was meinst du mit der Zeile " On Error GoTo Error2Handler"

------------------
Marco Kreutz
info@hitteam.de   
http://www.hitteam.de

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP