Jag håller på att göra en egen activeX.
Kontrollen innehåller 1st usercontrol & 1 st formulär
Hur aktiverar jag ett event i usercontrol ifrån formuläret.

Tack på förhand.

Hej,

Det finns en hel del om hur du aktiverar events i online hjälpen för VB6.

Grundläggande är att du aktiverar event:et med: WithEvents.

HTH
Nick

Din usercontroll innehåller sannolikt något sånt här?
<code>
Public Event onError(ByVal ErrorMessage as String)
</code>

I ditt formulär anger du som en variabel referens till din usercontroll likt följande
<code>
Dim WithEvents usrCtrMyControll as MyUserControll
</code>

Du får nu userCtrMyControll som en kontroll och kan skriva en sub som svarar på event som uppstår i usercontroll:en

<code>
Private Sub usrCtrMyControll_onError(ByVal ErrorMessage as String)
...
End Sub
</code>

Eventen aktiveras i usercontrollen med hjälp av RaiseEvent onError("fel ...") och hanteras i formuläret under ovan sub.

Din usercontroll innehåller sannolikt något sånt här?
<code>
Public Event onError(ByVal ErrorMessage as String)
</code>

I ditt formulär anger du som en variabel referens till din usercontroll likt följande
<code>
Dim WithEvents usrCtrMyControll as MyUserControll
</code>

Du får nu userCtrMyControll som en kontroll och kan skriva en sub som svarar på event som uppstår i usercontroll:en

<code>
Private Sub usrCtrMyControll_onError(ByVal ErrorMessage as String)
...
End Sub
</code>

Eventen aktiveras i usercontrollen med hjälp av RaiseEvent onError("fel ...") och hanteras i formuläret under ovan sub.

Jag får inte förslaget att fungera. Denna kod ser ut att fungera från userkontrol till formulär.
Jag har två projekt.
I projekt 1 ingår min usercontrol och i samma projekt finns en formulär.
I projekt 2 ingår ett formulär där jag testkör min userkontrol.

Till problemet. Jag har ett Event i min userkontrol som heter MenyClick
Och i formuläret i samma projekt har jag en procedur som heter Form_Click.
Jag vill från proceduren Form_Click att aktivera eventet MenyClick i min usercontrol.
Men jag får inte till det. Kan någon hjälpa mig.

Usercontrol1
<code>
Event MenyClick()
</code>

Formulär i samma projekt
<code>
Private Sub Form_Click()
RaiseEvent MenyClick
End Sub
</code>

Naturligtvis finns det mer kod blad dessa rader med det är dessa rader som är intressanta.