---

Hallo an alle

Ich habe eine Frage bzgl. der P8 API. Und zwar möchte ich beim Programmstart eine eigene Symbolleiste erzeugen. Nun habe ich aber ein Problem mit dem "Fangen" des "onMainStart" Ereignisses. Der Code in der API-Hilfe erzeugt bei mir einen Fehler:

Zitat:

---

EplanEvent" ist kein Ereignis von  Eplan.EplApi.ApplicationFramework.EventHandler"

---

Der dazugehörige Code lautet:

Code:

---

Imports System
Imports Eplan.EplApi.ApplicationFramework

Class MyEventListener
    Public Sub New()
        ' create an EventHandler object
        Dim myHandler As New Eplan.EplApi.ApplicationFramework.EventHandler()

        ' react on the EPLAN event
        myHandler.SetEvent("onMainStart")

        ' If the event  is raised,
        ' the function myHandler_EplanEvent should be called
        AddHandler myHandler.EplanEvent, AddressOf myHandler_EplanEvent '<- hier entsteht der Buildfehler
    End Sub 'New

    Private Sub myHandler_EplanEvent(ByVal iEventParameter As IEventParameter)
        ' TODO: do something, when the event is caught
    End Sub 'myHandler_EplanEvent
End Class 'MyEventListener

---

Der Beispielcode in C# funktioniert korrekt.

Vielleicht hat von euch jemand eine Lösung auf dieses Problem oder ein entsprechendes Snippet in VB. Wäre mir sehr geholfen.

Liebe Grüße
CS4008

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

---

Warum so kompliziert 

Code:

---

Class MyEventListener
    <DeclareEventHandler("Eplan.EplApi.OnMainStart")> _
    Public Sub test
        MessageBox.Show("abgefangen :)")
    End Sub
End Class

---

------------------
Suplanus.de - Scripting in Eplan ist einfach (toll)

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

---

Danke für deinen Vorschlag. Allerdings hatte ich diese Variante auch schon probiert, und bin zu keinem Ergebniss gekommen.
Egal auf welche Weise ich EPlan starte, ich komme nicht an das Ereignis. "Deshalb dann so kompliziert".

Irgendwie kommt es mir dabei komisch vor, dass man ein Attribut aus der "EplApi.Scripting" verwenden muss, wenn man ein AddIn erstellen möchte. Ich hatte angenommen, diese Bibliothek wäre vorrangig für das "Scripting" vorgesehen.

Liebe Grüße

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

---

hab noch keine Api-Lizenz drum kann ich da nicht viel sagen...
Aber wenn du meinen Code als Script lädst bekommst du die MessageBox...
Gruß
Johann

------------------
Suplanus.de - Scripting in Eplan ist einfach (toll)

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

---

Hallo,

Zitat:

---

Irgendwie kommt es mir dabei komisch vor, dass man ein Attribut aus der "EplApi.Scripting" verwenden muss, wenn man ein AddIn erstellen möchte. Ich hatte angenommen, diese Bibliothek wäre vorrangig für das "Scripting" vorgesehen.

---

Verstehe ich nicht.

Hast Du mal das komplette Bsp. aus der Hilfe für einen Eventhandler versucht?
Den Event im Bsp. kannst Du ja entsprechend ändern.

Code:

---

Class MyEventListener

      ' create an EventHandler object
      Dim myHandler As New Eplan.EplApi.ApplicationFramework.EventHandler()

   Public Sub New()
      ' react on the EPLAN event "onActionStart.String.*"
      myHandler.SetEvent("onActionStart.String.*")

      ' If the event "onActionStart.String.*" is raised,
      ' the function myHandler_EplanEvent should be called
      Dim oEvent As EventHandlerFunction = New EventHandlerFunction(AddressOf myHandler_EplanEvent)
      myHandler.EplanEvent = System.Delegate.Combine(myHandler.EplanEvent, oEvent)
   End Sub 'New

   Private Sub myHandler_EplanEvent(iEventParameter As IEventParameter)
      ' TODO: do something, when the event is caught
   End Sub 'myHandler_EplanEvent
End Class 'MyEventListener

---

und

Code:

---

Public Class AddInModule
   Implements IEplAddIn

   Private m_EventHandler As MyEventListener

   '''<summary>
   ''' This function is called, when starting EPLAN,
   ''' if the add-in is loaded on system startup.
   '''</summary>
   ''' <returns></returns>
   '''<seealso cref="OnRegister"/>
   Public Function OnInit() As Boolean Implements IEplAddIn.OnInit
      m_EventHandler = New MyEventListener()
      Return True
   End Function 'OnInit

'...

End Class 'AddInModule

---

Gruß Fritz

------------------
Um zu sehen, musst Du die Augen offen halten.
Um zu erkennen, musst Du sie schliessen und denken.

[Diese Nachricht wurde von FML am 25. Okt. 2010 editiert.]

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

---

Genau das war es.
Im mir vorliegenden Beispiel arbeiten sie noch ohne "System.Delegate.Combine". Nun, mit Combine, funktioniert es wie gewünscht. Danke für die Hilfe.

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