---

Hallo!

Ich versuche ein Activex Control auf einer Property Manager Page zu plazieren. Leider gelingt mir das nicht so richtig.

Ich scheitere immer an der Anweisung:
Set pCalCtrl = ActiveXControl.GetControl

Ich bekomme einfach das Objekt nicht.
Ich habe das Beispiel von der Solidworks Homepage ausbrobiert. Das funktoniert wenn man es als Makro laufen lässt. Sobald ich den Quelltext aber in eine Addinn dll integriere funktioniert es wieder nicht.
Ich benutze VB 6.0.
Jemand eine Idee? Wäre für Hilfe dankbar!

Gruß Mathias

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

---

Hallo Matthias,

Kannst Du mal Deinen Code reinstellen? Hast Du die Lizenzen, um das Control im VB6 zu verwenden?

Gruss, Ralph

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

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

---

Hallo! Anbei mal ein Auszug des Codes. Er ist im Prizip identisch mit dem aus dem API Beispiel von der Solidworks Homepage. Im Makro funtkioniert das ganze ja auch hervorrgaend, aber sobald ich das in einem Addin verwenden will gehts nicht mehr.

Da es im Makro geht müsste das mit den Lizenzen doch auch hinhauen. Ich habe auch schon andere Controls probiert, habe dort das gleiche Probelm.

MfG Mathias

Code:

---

  ' START ActiveX stuff
            Set m_pActiveXControl = m_Group2.AddControl(ID_ACTIVEX, _
                                        swControlType_ActiveX, _
                                        "ActiveX Control", _
                                        swControlAlign_LeftEdge, _
                                        swControlOptions_Visible + swControlOptions_Enabled, _
                                        "ActiveX control tip")
            m_pActiveXControl.Height = 250
   
            bRet = m_pActiveXControl.SetClass("MSCAL.calendar", "")
           
         
           
        End If
    Else
        swApp.SendMsgToUser2 "There was an error creating the Property Manager Page", swMbInformation, swMbOk
    End If
End Sub

'Display the Property Manager Page
Public Sub Show()
    Dim nRetVal                As Long
    Dim pCalCtrl                As MSACAL.Calendar
   
    nRetVal = m_Page.Show
   
    ' START ActiveX stuff
    Set pCalCtrl = m_pActiveXControl.GetControl
   
    pCalCtrl.Month = 10

---

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

---

Hallo Matthias,

Nein, der Aufruf von GetControl ist falsch. Den musst Du in das OnActiveXCreated-Event des PropertyManagerInterfaces einbauen. Denn dann erst hat SWX das Control wirklich instanziiert. Der andere Weg ist zeitlich zu unsicher.

Gruss, Ralph

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

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