IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VB 6 et antérieur Discussion :

[VB6] Utilisation de Implements


Sujet :

VB 6 et antérieur

  1. #1
    Membre confirmé
    Profil pro
    Inscrit en
    juin 2002
    Messages
    332
    Détails du profil
    Informations personnelles :
    Localisation : Canada

    Informations forums :
    Inscription : juin 2002
    Messages : 332
    Points : 494
    Points
    494
    Par défaut [VB6] Utilisation de Implements
    J'ai fait une recherche sur Implements et rien...

    Est-ce que quelqu'un peut me résumer ce que Implements fait vraiment?

    Disons que j'ai créé une classe A avec cette méthode:

    Public Sub Hello()
    msgbox "HELLO!"
    End Sub

    Et que je crée une classe B en disant qu'elle implémente (Implements A).

    Si je n'écris aucun code pour B et que je l'instencie en l'objet "objB".

    A) si je fait "objB." , est-ce que la fonction "Hello" va apparaitre?
    B) Si la fonction "Hello" apparait, est-ce que le code va s'exécuter?

    Avez-vous quelques liens vers des explication plus claires que MSDN et/ou vers des exemple de l'utilisation de "Implements"? Merci.

    Aussi, est-il possible de créer une structure OO ( avec superclasses, etc.) en VB 6?

    Merci d'avance

  2. #2
    Rédacteur

    Homme Profil pro
    Développeur informatique
    Inscrit en
    mars 2002
    Messages
    608
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Développeur informatique

    Informations forums :
    Inscription : mars 2002
    Messages : 608
    Points : 1 561
    Points
    1 561
    Par défaut
    Class1:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    Public Sub Hello()
    MsgBox "mère"
    End Sub
    Class2:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
     
    Implements Class1
     
    Private Sub Class1_Hello()
    MsgBox "fille"
    End Sub
    Ailleurs:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    Dim c1 As Class1, c2 As Class1
     
    Set c1 = New Class1
    Set c2 = New Class2
     
    c1.Hello    'affiche "mère"
    c2.Hello    'affiche "fille"
    Implements sert à décrire ce qu'une classe permet de faire. Ici tout ce qui est public dans Class1 doit être déclaré dans Class2.
    Donc tu peux créer une interface, puis créer des classes qui décriront chacune un comportement spécifique. Généralement on ne met aucun code dans Class1.

    On peut simuler la notion d'héritage de classe en déclarant dans class2 un objet privé de classe class1 qui fera réfèrence à la classe mère. Les fonctions de class2 peuvent alors appeler simplement les fonctions de la classe mère, si elles ne font rien de spécifique.

  3. #3
    Membre actif Avatar de Ricou13
    Inscrit en
    août 2002
    Messages
    292
    Détails du profil
    Informations forums :
    Inscription : août 2002
    Messages : 292
    Points : 224
    Points
    224
    Par défaut
    Voici un peu de lecture :

    http://www.developpez.net/forums/vie...r=asc&start=30

    CE sujet débute sur un passage de type perso en paramètres avant de dévier allègrement sur l'héritage et le polymorphisme
    Citation Envoyé par Nightfall
    On peut simuler la notion d'héritage de classe en déclarant dans class2 un objet privé de classe class1 qui fera réfèrence à la classe mère. Les fonctions de class2 peuvent alors appeler simplement les fonctions de la classe mère, si elles ne font rien de spécifique
    Pourquoi tu ne m'as pas dit ça dans le topic ci-dessus
    Ca m'aurait fait gagner pas mal de temps
    il ne faut pas de tout pour faire un monde. Il faut du bonheur et rien d'autre. Paul Eluard
    Des fois ça malche, des fois ça malche pas. Garcimore

  4. #4
    Membre confirmé
    Profil pro
    Inscrit en
    juin 2002
    Messages
    332
    Détails du profil
    Informations personnelles :
    Localisation : Canada

    Informations forums :
    Inscription : juin 2002
    Messages : 332
    Points : 494
    Points
    494
    Par défaut Merci
    Merci beaucoup, comme ca je passe au niveau suivant!


+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [VB6] Utiliser le solver d'Excel
    Par Peltchag dans le forum VB 6 et antérieur
    Réponses: 30
    Dernier message: 04/11/2005, 17h24
  2. [VB6] Utiliser dll .Net dans VB6
    Par sokette dans le forum VB 6 et antérieur
    Réponses: 6
    Dernier message: 31/03/2005, 14h34
  3. [CR][VB6] Utilisation des procédures stockées
    Par couledoux dans le forum SDK
    Réponses: 3
    Dernier message: 10/03/2005, 14h29
  4. [VB6] utilisation de Property LET / GET pour un tableau
    Par titounne dans le forum VB 6 et antérieur
    Réponses: 6
    Dernier message: 18/10/2004, 22h06
  5. [VB6] Utiliser un ou plusieurs datareports ?
    Par SpaceFrog dans le forum VB 6 et antérieur
    Réponses: 5
    Dernier message: 21/11/2002, 10h44

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo