Event-Forms laden as New

12/11/2009 - 21:17 von Heinz-Mario Frühbeis | Report spam
Hallo!

Ich hab' da ein kleines Problem mit den Events.

Ich habe eine "frmMain".
Und eine Form "frmSection".

Die Deklaration für diese u.a. Klasse ist nSection.
Private WithEvents nSection as clSection

Und dazu Get-, Set-Property für nSection.

Diese Klasse lade ich im Load-Event der "frmMain" z. Bsp. 2x .
Set nSection = new clSection
Set nSection = new clSection

Dieser Code ist für die Klasse clSection:
Event Click()

Private WithEvents mSection As Form

Public Sub Create(nParent As Variant, Owner As Variant)
Set mParent = nParent
Set mSection = New frmSection
Load mSection
With mSection
.BackColor = vbYellow
.Visible = True
.Show , Owner
End With
End Sub

Public Sub Remove()
Unload mSection
Set mSection = Nothing
Set mParent = Nothing
End Sub

Private Sub mSection_Click()
Set mParent.Section = Me
RaiseEvent Click
End Sub

Ich bekomme aber nur für EINE Klasse den Event von der Klasse von der Form.

Woran liegt das?
Ich hoffe das jemand eine Lösung dafür hat.

viele Grüße
Heinz-Mario
 

Lesen sie die antworten

#1 Heinz-Mario Frühbeis
12/11/2009 - 21:57 | Warnen spam
"Heinz-Mario Frühbeis" schrieb im Newsbeitrag
news:%
Hallo!

Ich hab' da ein kleines Problem mit den Events.



Sorry!

Die Form von der ich mir die Events hole ist ja selber eine Klasse für sich
;-)
Bin halt quasi eine Ebene tiefer gegangen um mir die Events zu holen.

bis denne und viele Grüße
Heinz-Mario

Ähnliche fragen