PB treeview et childRésolu

Question

Bonjour,

Je developpe une appli de gestion de projet avec ACCESS.
J'utilise un treeview pour r&#233;aliser l'arborescence de mon projet et l'utilisateur pourra ajouter (ou retirer) des child aux nodes

Mon pb j'aimerais tester si la pi&#232;ce ajout&#233;e fait d&#233;j&#224; partie de l'ensemble...

Je pensais faire :

For each Enfant in tvwPrj.SelectedItem.Children    <- chaque child du node selectionn&#233;   if Enfant.Text me.txtNomPiece then                  <- si le nom du chil nom du textbox
      MsgBox "Ajout Impossible"
      Exit Sub
   End If
Next Enfant                                                            <- passer &#224; l'enfant suivant du node s&#233;lectionn&#233;

Mais &#231;a Plante... Je decouvre tout les fonctions du treeview &#224; "l'arrache" et c'est pas simple

Merci de votre aide


Slts,
PhP 70

mrdep1978 · Accepted Answer

La propri&#233;t&#233; .Children renvoie le nombre de fils du noeud s&#233;lectionn&#233; (renvoie un integer). Tu ne peux donc pas les parcourir comme une collection.
Tu peux utiliser la propri&#233;t&#233; Next qui renvoie le fr&#232;re d'un noeud et la propri&#233;t&#233; Child qui renvoie le premier fils d'un noeud :

Dim Enfant As Node
Set Enfant = TreeView1.SelectedItem.Child   'Recupere le premier enfant du noeud s&#233;lectionn&#233;
While Not Enfant Is Nothing            'On boucle tant qu'il y a des fils    If Enfant.Text txtNomPiece Then           ' <- si le nom du chil nom du textbox
        MsgBox "Ajout Impossible"
        Exit Sub
    End If
    Set Enfant = Enfant.Next    'Passe au fils suivant
Wend

cs_Stephane · Answer

Slu Donne plus de precision sur "ca plante" ! On peut pas t'aider si on sait pas exactement ce qu'il se passe ! Message d'erreur ? quelle erreur ? le prog s'arrete ? VB se ferme ? A+

Utilisateurs du forum : Merci de lire http://www.vbfrance.com/forum.v2.aspx?ID=445871

php70 · Answer

J'ai "Incompatibilit&#233; de Type" sur la ligne :


For each Enfant in me.tvwPrj.SelectedItem.Children    <- chaque child du node selectionn&#233;

en fait je ne sais pas comment dimensionner Enfant

j'ai fait : Dim Enfant as Object ...?!?!?


Slts,
PhP 70

php70 · Answer

Merci beaucoup

c'est exactement ce qu'il me fallait


Slts,
PhP 70

PB treeview et child

4 réponses

Discussions similaires