- Addin helper - créez vos propres addin pour vb6 [modules de classe]
- Jeu spaceoid (exemple d'utilisation de classes, interfaces et liste-chainée en vb6)
- Utiliser une classe d'interface C# dans VB6
- [Catégorie modifiée VB6 ->.Net] Les fonctions et les class
- Appel de classe vb2008 dans une application vb6
A voir également:
- Vb6 class
- Class vb6 - Meilleures réponses
- Vb6 classes - Meilleures réponses
- Créer des classes avec vb6 - Forum - Visual Basic
- Dll personnalisé avec évènements et propriétés en vb6. (withevents, event, property, class, biblioth - Conseils pratiques - Visual Basic / VB.NET
- Visual Basic / VB.NET : Générateur de classe pour vb6.0 (simulation du multihér - Guide
- Classe somme md5 en vb6 - Codes sources - Visual Basic / VB.NET (Sécurité)
- Visual Basic / VB.NET : Md5 class - pure vb6 implementation - CodeS SourceS - Guide
4 réponses
cs_DARKSIDIOUS
- Messages postés
- 15814
- Date d'inscription
- jeudi 8 août 2002
- Statut
- Modérateur
- Dernière intervention
- 4 mars 2013
Tu ne peux pas : vb6 ne gère pas l'héritage.
La seule solution reste de lui passer une référence à la classe à appeler :
public sub bar(Byref Parent as Object)
parent.foo()
end sub
A la limite, utilise une interface pour obliger de passer un objet qui implément la fonction foo
La seule solution reste de lui passer une référence à la classe à appeler :
public sub bar(Byref Parent as Object)
parent.foo()
end sub
A la limite, utilise une interface pour obliger de passer un objet qui implément la fonction foo
Kristof_Koder
- Messages postés
- 918
- Date d'inscription
- vendredi 3 août 2007
- Statut
- Membre
- Dernière intervention
- 27 octobre 2008
Ou alors créer une référence au parent dans la classe Fille. Voici un exemple avec C1=ta classe parent et C2=ta classe fille (je ne reprend pas ces termes car comme l'a dis Dark Sidious, ils sont trop liés à la notion d'héritage de la POO, non géré par le modèle objet de VB6 :
Class C1
Dim F as C2
...
Set F = New C2
F.InitParent(Me)
...
Public Sub Foo()
End Sub
Fin de la Class C1
Class C2
Private P As C1
Public Sub InitParent(ByRef Parent As C1)
Set P = Parent
End Sub
...
Public Sub Bar()
P.Foo()
End Sub
....
Fin de la classe C2
Avec cela, cela devrait fonctionner !
Attention ! Ne surtout pas faire de Set P = Nothing dans la Sub Class_Terminate de C2 !! P n'est pas instancié dans C2, on lui refile juste une référence à une instance déjà existante par ailleurs de C1 !
Kristof_Koder
Class C1
Dim F as C2
...
Set F = New C2
F.InitParent(Me)
...
Public Sub Foo()
End Sub
Fin de la Class C1
Class C2
Private P As C1
Public Sub InitParent(ByRef Parent As C1)
Set P = Parent
End Sub
...
Public Sub Bar()
P.Foo()
End Sub
....
Fin de la classe C2
Avec cela, cela devrait fonctionner !
Attention ! Ne surtout pas faire de Set P = Nothing dans la Sub Class_Terminate de C2 !! P n'est pas instancié dans C2, on lui refile juste une référence à une instance déjà existante par ailleurs de C1 !
Kristof_Koder