ajouter propriétés à un contrôle windowsRésolu

Question

salut,

quelqu'un pourrait-il me dire, dans les grandes lignes, la démarche à suivre pour ajouter de nouvelles propriétés à un contrôle (un treeview par exemple)existant?

monsieurlemouche

PCPT · Accepted Answer

re, euh.. beh non, pas trop voici le fonctionnement [VB6] Form 1 contient un Timer1 (à la place de ton TreeView) et un Command1 ' ------------------------------- ' Module de classe (nommé Class1) ' ------------------------------- ' Option Explicit ' Private mChaine As String Private mTimerObj As Object ' ' ' *- OBJET -* Property Get Object() As Object Set Object = mTimerObj End Property Property Set Object(new_mTimerObj As Object) Set mTimerObj = new_mTimerObj End Property ' ' ' *- PROPRIéTé SUPPLéMENTAIRE -* Property Get Chaine() As String Chaine = mChaine End Property Property Let Chaine(new_mChaine As String) If new_mChaine <> mChaine Then mChaine = new_mChaine End Property ' ------------------- ' Form (nommée Form1) ' ------------------- ' Option Explicit ' Private Test As New Class1 ' ' Private Sub Form_Load() ' init classe Set Test = New Class1 ' init object dans la classe Set Test.Object = Timer1 ' init propriété supplémentaire Test.Chaine = "Ceci est une propriété additionnelle (des plus inutiles celà dit...)" ' init du vrai objet Timer1.Tag = "Ceci est le Tag du vrai objet. accessible aussi de la classe???" End Sub ' ' Private Sub Command1_Click() ' affichage propriété supplémentaire Debug.Print Test.Chaine ' affichage Tag par objet d'origine Debug.Print "Tag par Objet : " & Timer1.Tag ' affichage propriété supplémentaire Debug.Print "Tag par Classe : " & Test.Object.Tag End Sub Coloration syntaxique automatique [AFCK] çà me semble être la démarche propre la plus logique @+ ;) PCPT [AFCK]

PCPT · Answer

salut,
bah dans les grandes lignes (logique VB6), tu as un module (de classe) contenant les propri&#233;t&#233;s &#224; ajouter, et tu "attaches" le module au contr&#244;le. tu acc&#232;des ensuite au contr&#244;le par le module, qui lui te renvoie tant "ses" modifs (donc propri&#233;t&#233;s) que les propri&#233;t&#233;s du contr&#244;le de base...

voil&#224; dans l'id&#233;e...
@+
PCPT   [AFCK]

monsieurlemouche · Answer

salut,
c'est en gros ce que je pensais faire mais voila, j'y arrives pas...

objectif: ajouter une propriete qui renvoie le nombre de niveaux hiérarchiques déployés au sein d'un controle treeview.

je définis un module de classe "classTree"
 deux propriétés : tree as objet
                   iLevelsOpen

dans le form principal

initialyze()
set monObjetTree=new classTree
monObjetTree.tree=Treeview1 'controle du form
...

ce qui me chagrine, c'est que depuis le form on ecrira ça:
   monObjetTree.tree.propriété        pour accéder à la propriété du treeview
et monObjet.iLevelsOpen               pour accéder à la propriété iLevelsOpen qui est une propriété du Treeview.  il y a donc deux manières de pointer la référence pour une propriété du Treeview.

est-ce bien cela ?


mais il me vient une idée:
* depuis le form, je fait référence à une propriété du Treeview des deux manières suivantes;
   Treeview1.propriété          'pour les propriétés déjà existantes
ou monObjetTree.iLevelsOpen     'pour la propriété ajoutée

* depuis l'intérieur de la classe, j'ai l'objet mvartree pour pointer et une variable integer privée mvariLevelsOpen à manipuler en guise de nouvelle propriété du contrôle Treeview1.

est-ce bien cela ?

monsieurlémouche

PCPT · Answer

'   affichage Tag par Classe*
(dernier commentaire^^)

PCPT · Answer

oh, et aussi dans la classe
Private Sub Class_Terminate()
    Set mTimerObj = Nothing
End Sub

monsieurlemouche · Answer

salut, un grand merci pour ton aide

remarquons toutefois que ta méthode est exactement celle que j'ai proposée contrairement à ce que tu as voulu me laisser croire.

regardons cela:


je définis un module de classe "classTree"        ou Class1
deux propriétés : tree as objet                   ou Test
                   iLevelsOpen                    ou Chaine

dans le form principal

initialyze()
set monObjetTree=new classTree                    set Test= new Class1
set monObjetTree.tree=Treeview1 'controle du form    set Test.Objet=Timer1
...                                                  Test.chaine="blabla"

ce qui me chagrine, c'est que depuis le form on ecrira ça:

   Private Sub Command1_Click()
'   affichage propriété supplémentaire
'   on pointe 1 fois pour obtenir une propriété du controle
    Debug.Print Test.chaine               
    

'   affichage Tag par objet d'origine
'   on pointe 1 fois pour obtenir une propriété du controle
    Debug.Print "Tag par Objet : " & Timer1.Tag

'   affichage propriété supplémentaire
'   on pointe 2 fois pour obtenir une propriété du controle
    Debug.Print "Tag par Classe : " & Test.Object.Tag
End Sub

Dès fois, on point une seule fois, et des fois on pointe deux fois, c'est bien ce que j'ai dis dans la premier post.

la hiérarchie est celle-ci:

Class1
    objet
                propriété originale1
                propriété originale2
                propriété originale3
                etc
    propriete nouvelle

la propriété nouvelle est sur le meme niveau hiérarchique que l'objet au lieu d'être au même niveau que les propriétés originales.
est-ce un problème crucial?

voila ce qui me "chagrinait" et pourquoi je pensais mal m'y prendre.

merci pour ton aide

monsieurlémouche

PCPT · Answer

salut,
d&#233;sol&#233;, je n'ai rien "voulu laisser te croire", j'ai mal compris ton probl&#232;me en pensant que ton "initialyse" &#233;tait le Class_Initialize... (mal lu)

mais pour ce qui te chagrine, non.
Timer1.Tag = Test.Object.Tag 

j'ai mis les 2 pour montrer que c'&#233;tait le m&#234;me objet. c'est d'ailleurs pour &#231;&#224; qu'au Form Load (dans l'exemple), j'avais mis le Tag du vrai Timer.

en fait, exemple un combo, tu pourrais ainsi toujours appeler ..... Test.Object.AddItem "blabla"
c'est la Class qui se charge ensuite de l'attribuer &#224; ton Objet r&#233;el. et tu as, avec la m&#234;me syntaxe, ta propri&#233;t&#233; (tes...) Test.PropSupp....

tu n'as plus besoin de passer par l'objet (contr&#244;le) m&#234;me si c'est faisable...

d&#233;sol&#233; d'avoir lu trop rapidement, et que tu aies cru que j'aime perdre mon temps.....

@+ bonne continuation
PCPT    [AFCK]

PCPT · Answer

ps : si tu veux directement un Test.Machin et un Test.AddItem (au lieu de .Machin et .Object.AddItem), tu devras faire une classe WithEvents, et r&#233;cup&#233;rer la totalit&#233; des propri&#233;t&#233;s, fonctions, proc&#233;dures, et les retransmettre.
exemple :
property Get Interval() as Interger
Interval = Me.Object.Interval
...

Property Let Interval(new as integer)
Me.Object.Interval = new

tu auras donc tout sur le m&#234;me niveau, mais juste pour ajouter une ou 2 propri&#233;t&#233;s, &#231;&#224; me semble du travail inutile

cordialement.

monsieurlemouche · Answer

salut,

pas besoin d'être désolé, bien au contraire, tu m'as été d'une grande aide car programmant tout seul dans mon coin et étant débutant, j'ai besoin de voir mes représentations confirmées ou démenties.

juste une autre chose:

pourquoi cela ne passe pas:

je defini une propriété collection "collection" dans un module de classe "Class1 ".

dans le form je fait:
 set class1.collection=Treeview1.Nodes   'treeview est un controle du form

en fait, je souhaite affecter la collection Nodes du controle situé dans le form
à la propriété collection de la classe
j'obtiens un "type mispatch" 

quelle en est la raison?

merci

PCPT · Answer

re,
un module de classe .... c'est un objet en fait.
tu ne peux pas mettre ".text = "machin" pour un textbox qui n'existe pas par exemple.
c'est pareil. le module de classe n'existe pas en tant que module. tu ne peux pas appeler ni de propri&#233;t&#233;, ni de fonction, &#233;tant dans un module de classe. il est le seul &#224; pouvoir s'utiliser directement.
donc pour ton cas, il faut d'abord le d&#233;clarer comme tu avais fais (et moi pareil^^), puis attribuer l'objet TreeView de ta Form vers le module, et enfin seulement, soit par la Form ou par le Module, initialiser ta collection

++
PCPT     [AFCK]

monsieurlemouche · Answer

Option Explicit
Dim monObj As clTree
--------------------------------------------
Private Sub Form_Initialize()

Set monObj = New clTree
Set monObj.nodes = treeview1.nodes
monObj.collection=treeview1.nodes   'ERREUR!
'il y a une erreur de type mismatch lors de la définition de la propriété collection 
' erreur même suand j'utilise   set monObj.collection=treeview1.nodes

end sub ----------------------------------------------------------




ma classe clTree

Private mvarnodes As Object 'local copy
Private mvarcollection As collection 'local copy

Public Property Set collection(ByVal vData As Collection)
    Set mvarcollection = vData
End Property


Public Property Get collection() As Collection
    Set gg = mvarcollection
End Property



Public Property Set nodes(ByVal vData As Object)
    Set mvarnodes = vData
End Property


Public Property Get nodes() As Object
    Set nodes = mvarnodes
End Property



d'où vient l'erreur?

PCPT · Answer

il sort de o&#249; gg ?
&#231;&#224; devrait &#234;tre Set collection = mvarcollection
cel&#224; dit, en VB6 en tout cas, collection ne peut pas &#234;tre un nom de propri&#233;t&#233; (mot cl&#233;)

et je reste dans l'optique o&#249; tu devrais en premier lieu lier une variable object (treeview) au contr&#244;le. et c'est la classe, &#224; cet appel, qui se cr&#233;e elle-m&#234;me ses nodes...

monsieurlemouche · Answer

salut,

gg est bien sur "collection"

pour ce qui est du controle, je l'ai lié à un objet dans la classe et ça marche bien.

merci de ton aide
je résolverai mon histoire de collections tout seul

Ajouter propriétés à un contrôle windows

13 réponses

Discussions similaires