---

Hi,

ich habe so zum Warmwerden mit VS 2005 mal ein kleines Addin geschrieben, welches zeitgesteuert doe Office Applikationen prüft und den User zum Ausschalten auffordert.

Nun mein Problem, ich kriege bei geladener Zusatzanwendung -1 (Fehler)
zurück. Wenn ich den selben Code in SWX VBA laufen lasse, kommt 0 und das Addin wird ausgeschalten.

Sub OfficeUnload()

Dim instpath As String

instpath = "C:\program files\solidworks"

Debug.Print(SwApp.UnloadAddIn(CStr(instpath & "\fworks\fworks.dll")))

Debug.Print(SwApp.UnloadAddIn(CStr(instpath & "\photoworks\pworks.dll")))

Debug.Print(SwApp.UnloadAddIn(CStr(instpath & "\sldutils\swloadersw.dll")))

Debug.Print(SwApp.UnloadAddIn(CStr(instpath & "\Toolbox\swbrowser.dll")))

Debug.Print(SwApp.UnloadAddIn(CStr(instpath & "\Toolbox\swToolbox.dll")))

Debug.Print(SwApp.UnloadAddIn(CStr(instpath & "\animator\animator.dll")))

End Sub

------------------
Gruß Ingo

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

---

Holla,

hast du noch ne unsichtbare Instanz von swx geladen ?

Gruß
Micha

Zitat:

---

Original erstellt von INKN:
Hi,

ich habe so zum Warmwerden mit VS 2005 mal ein kleines Addin geschrieben, welches zeitgesteuert doe Office Applikationen prüft und den User zum Ausschalten auffordert.

Nun mein Problem, ich kriege bei geladener Zusatzanwendung -1 (Fehler)
zurück. Wenn ich den selben Code in SWX VBA laufen lasse, kommt 0 und das Addin wird ausgeschalten.

Sub OfficeUnload()

Dim instpath As String

instpath = "C:\program files\solidworks"

Debug.Print(SwApp.UnloadAddIn(CStr(instpath & "\fworks\fworks.dll")))

Debug.Print(SwApp.UnloadAddIn(CStr(instpath & "\photoworks\pworks.dll")))

Debug.Print(SwApp.UnloadAddIn(CStr(instpath & "\sldutils\swloadersw.dll")))

Debug.Print(SwApp.UnloadAddIn(CStr(instpath & "\Toolbox\swbrowser.dll")))

Debug.Print(SwApp.UnloadAddIn(CStr(instpath & "\Toolbox\swToolbox.dll")))

Debug.Print(SwApp.UnloadAddIn(CStr(instpath & "\animator\animator.dll")))

End Sub

---

------------------
http://classicvb.org/petition/

 

Zitat:

---

Interpunktion und Orthographie des Postings sind frei erfunden.
Eine Übereinstimmung mit aktuellen oder ehemaligen Regeln wäre rein zufällig und ist nicht beabsichtigt.

---

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

---

Hi VBSpawn,

nein, ich habe nochmal ein Test Programm in VB 6 und in VB.NET geschrieben, in beiden geht das Laden, das Entladen funktioniert nur in VB6.

Und was ich noch festgestellt habe ist, daß im UI die geladene Addin nicht angeezigt wird (Office Toolbar und Zusatzanwedungen), versucht man trotzdem zu laden kommt Fehlermeldung ...bereits geladen.

------------------
Gruß Ingo

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

---

Hallo,

ähnliches habe ich auch schon festgestellt. Scheinbt als habe SWX da etas zu tun. Hast Du mal beim API-Support nachgefragt?

Gruss,

Ralph

------------------
PASCAM Ralph Müller
Softwareentwicklung

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

---

Ja,

ist schon weg!

Erste Antwort:

I’m sorry, but I could not reproduce this problem.  However, I see a different problem, and that is that UnloadAddin appears to fail for mfc-extension style DLL addins.

I will write a bug for this shortly.  I apologize for the inconvenience.

Thanks,

Steve Mycynek

------------------
Gruß Ingo

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

---

Hi,

so jetzt habe ich die Lösung vom Support bekommen, nachdem ich 2 Testprogramme (.NET und VB6) geschrieben und hingeschickt habe.

swapp = New SldWorks.SldWorks()
instpath = swapp.GetExecutablePath()
fw = swapp.GetAddInObject("FeatureWorks.FeatureWorksApp")
If fw Is Nothing Then
    Label1.Text = "An = " & swapp.LoadAddIn(CStr(instpath & "\fworks\fworks.dll"))
Else
    System.Runtime.InteropServices.Marshal.ReleaseComObject(fw)
    fw = Nothing
    Label1.Text = "Aus = " & swapp.UnloadAddIn(CStr(instpath & "\fworks\fworks.dll"))
End If
swapp = Nothing

Edit: Ein Problem ist nun noch das das UI nicht aktualisiert wird nachdem mit LoadAddin oder UnloadAddin eine Zusatzanwendung geladen bzw. entladen wird (Office Toolbar und Zusatzanwendungsdialog).
Lizenzen werden aber freigegeben und auch Addin Toolbar wird geändert.

------------------
Gruß Ingo

[Diese Nachricht wurde von INKN am 16. Mrz. 2006 editiert.]

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