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
|
'''Classe mère
Public Class objet1
Protected WithEvents PanneauModuleRechercheBeneficiaire As PanneauModuleRechercheBeneficiaire
Public Overridable Sub initialiser()
PanneauModuleRechercheBeneficiaire = New PanneauModuleRechercheBeneficiaire()
AddHandler PanneauModuleRechercheBeneficiaire.PanneauModuleRechercheBeneficiaireEvent, AddressOf PanneauModuleRechercheBeneficiaire_PanneauModuleRechercheBeneficiaireEvent
End Sub
Protected Overridable Sub PanneauModuleRechercheBeneficiaire_PanneauModuleRechercheBeneficiaireEvent(sender As Object, e As PanneauModuleRechercheBeneficiaireEventArgs)
'''ACTION de la classe mère tronc commun
end sub
End Class
Public Class objet2
Inherits objet1
Public Overridable Sub initialiser()
mybase.initialiser()
End Sub
Protected Overrides Sub PanneauModuleRechercheBeneficiaire_PanneauModuleRechercheBeneficiaireEvent(sender As Object, e As PanneauModuleRechercheBeneficiaireEventArgs)
mybase.PanneauModuleRechercheBeneficiaire_PanneauModuleRechercheBeneficiaireEvent(sender , e)
'''Traitement spécifique
End sub
End Class |
Partager