Hej!
Håller på att göra en egen ActiveX, och den går ut på att man lägger ut den, och så kan användaren kalla på den att visa en pop-up som jag i activex-filen gjort med en form, som helt enkelt visas när den ska. Funkar fint...
Mitt problem är när jag vill göra Events.

Jag har i ctl -filen skrivit
<code>Public Event Click()</code>

och för click på min form så har jag tryckt in
<code>RaiseEvent Click</code>

Lätt som en plätt tänkte jag, och fyllde i click-event grejjen...
<code>
Private Sub PopUp_Click()
MsgBox "tjo tjim!"
End Sub
</code>

men när jag kör programmet och klickar i min popup så får jag felmeddelandet "Event not found"
hur i hela får jag vb o hitta eventen som e inskriven i ctl-filen från frm-filen?

/Jonte

Har du deklarerat kontrollen som "Private WithEvents PopUp"?

/Micke

nja, såhär:
<code>Public Event Click()</code>

:P

Oj, vet inte vad jag dillar om... skyller på att det var tidigt på morgonen ;)

I din UserControl, har du gjort såhär då?:
<code>
Private Sub UserControl_Click()
RaiseEvent Click
End Sub
</code>

EDIT: Kom på nu vad det är du vill göra... och jag tror inte att det går, du får nog använda usercontrolen som popup och använda events där.

/Micke

ja.. fast det är inte på user controllen...
Det är på en form, som tillhör. det är det som är problemet.. att få formen att hitta eventen från user control.. =)

Om jag tolkat dig rätt såvill du göra något sånt här?
<code>
''frmPopUp

Private mOwner As Usercontrol1

Friend Property Get Owner() As Usercontrol1
Set Owner = mOwner
End Property

Friend Property Set Owner(Value As Usercontrol1)
Set mOwner = Value
End Property

Private Sub Form_Click()
mOwner.RaiseClickEvent
End Sub

''UserControl1

Public Event Click()

Friend Sub RaiseClickEvent
RaiseEvent Click
End Sub

Public Sub ShowPopUp()
Dim frmForm as frmPopUp
Set frmForm = New frmPopUp
Set frmForm.Owner = Me

frmForm.Show vbModal

Set frmForm.Owner = Nothing
Set frmForm = Nothing
End Sub
</code>

ja, det låter logiskt..
Men ändå fungerar det inte. Formen vägrar att hitta varken events, subs, eller functions från user control.
kanske ska påpeka att det är vb 6 och inte net...

verkar rätt hopplöst.. =(