Bonjour à tous,
Je souhaite créer une classe clsMASTER de laquelle 2 autres classes vont hériter.
Ces deux autres classes: clsSLAVE1 et clsSLAVE2 vont effectuer un traitement et déclencher un évènement déclaré.
cela nous donne quelque chose du style:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9 Public MustInherit Class clsMASTER Public Event someEvent(ByVal pValue As String) Public Sub test() End Sub End Class
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14 Public Class clsScannerSLAVE1 Inherits clsMASTER Public shadows Event someEvent(ByVal pValue As String) Public shadows Sub test() End Sub Public sub doSomeWork raiseevent someEvent("1234") End sub End ClassEt dans ma form principale si je fait
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14 Public Class clsScannerSLAVE2 Inherits clsMASTER Public shadows Event someEvent(ByVal pValue As String) Public shadows Sub test() End Sub Public sub doSomeWork raiseevent someEvent("5678") End sub End Class
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3 dim myMaster as clsMASTER = new clsSLAVE1 addhandler myMaster.someEvent, addressof someFunctionLE but est d'utiliser identiquement clsSLAVE1 ou clsSLAVE2 selon que j'instancie l'un ou l'autre.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3 dim myMaster as clsMASTER = new clsSLAVE1 myMaster.test
Pas de chance, cela ne fonctionne pas. En debug, si j'appele la fonction test, il appelle celle de la classe de base au lieu de passer par celles de la classe fille instanciée.
Des idées?
Merci d'avance.
Partager