|
|
005: Wie kann ich aus VB heraus feststellen, ob SolidWorks schon läuft? | |||
| < vorige | > nächste | Übersicht FAQ API Programmierung | Gesamtübersicht | vom 05.04.2001 |
Lösung: Benutzen Sie dazu die Funktion GetObject(,"SldWorks.Application"). Sie müssen selbst den Fehler abfangen, den diese Funktion liefert, wenn SolidWorks nicht läuft, aber dadurch wissen Sie dann, ob oder nicht es läuft. das könnte z.B. so aussehen:
Private Sub cmdWeiter_Click()
' Demoroutine für GetObject, mit dem nur an ein bestehendes
' SolidWorks angeklinkt wird.
Dim SwApp As Object
' für den GetObject wird die Fehlerroutine auf unsere eigene
' Sprungmarke gelenkt, denn es kommt ein Fehler, wenn SolidWorks
' nicht schon läuft. Anschließend Fehlerbehandlung wieder einschalten.
On Error GoTo NoSolidWorks
Set SwApp = GetObject(, "SldWorks.Application")
On Error GoTo 0
' hura, SolidWorks läuft schon. Jetzt kommt hier der Teil,
' was passieren soll, wenn SolidWorks läuft
Call MsgBox("Wow, SolidWorks läuft schon", vbInformation)
' und zum Schluß noch die Fehlersprungmarke umgehen, also
' die Funktion oder Prozedur verlassen
Exit Sub
NoSolidWorks:
' upps, SolidWorks läuft nicht
Call MsgBox("Bitte starten Sie erstmal SolidWorks", vbCritical)
End Sub
| Kritik und Anregungen bitte an Stefan Berlitz. Letzte Änderung dieser Seite am Mittwoch, 16. Mai 2007 15:06 |