1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
| Public Class FormParent
Inherits Form
WithEvents frmEnfant1 As FormEnfant1
WithEvents frmEnfant2 As FormEnfant2
Private Sub FormParent_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
AddHandler frmEnfant1.EnfantColorChanged, AddressOf ChangeEnfantsColor 'abonnement à l'évènement de l'enfant
AddHandler frmEnfant2.EnfantColorChanged, AddressOf ChangeEnfantsColor 'abonnement à l'évènement de l'enfant
End Sub
Sub ChangeEnfantsColor(ByVal color As Color)
'on repercute à tout les enfants
frmEnfant1.BackColor = color
frmEnfant2.BackColor = color
End Sub
End Class
Public Class FormEnfant
Inherits Form
Public Event EnfantColorChanged(ByVal color As Color)
Sub SetNewEnfantColor(ByVal color As Color)
RaiseEvent EnfantColorChanged(color) 'envoi l'info au form parent
End Sub
End Class
Public Class FormEnfant1
Inherits FormEnfant
End Class
Public Class FormEnfant2
Inherits FormEnfant
End Class |
