Discussion :

[louroulou]

Salut a tous,

j'ai pratiquement terminé mon treeview maintenant...
J'ai donc un treeview avec un 4 "étages" (un root et 3 descendants)

La mécanique marche mais je voudrais envoyer un paramètre dans le formulaire dans un textbox tout bête. (pour synchroniser mes sous-formulaires qui s'affiche suivant l'élément du treeview qu'on sélectionne).

J'avais récupéré un exemple avec une structure If then, else if, else, end if.
Mais !!! j'ai plus de 3 sorties pour mon arbre puisqu'avec 4 "étages" je voudrais donc pouvoir afficher 4 sous-formulaires différents. (+ la sortie si on sélectionne rien, ...)

Voici le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Dim nodSelected As MSComctlLib.Node
    Set nodSelected = Me.xUniversTreeView.SelectedItem
 
    If nodSelected.Key Like "LDAF=*" Then
        Me.txt_id_LDAF = Mid(nodSelected.Key, 6)
        Me.sF_LDAF_treeview.Visible = True
        Me.txt_id_SLDAF = Null
        Me.sF_SLDAF_treeview.Visible = False
        Me.txt_id_mandat = Null
        Me.sF_mandat_treeview.Visible = False
 
    ElseIf nodSelected.Key Like "SLDAF=*" Then
        Me.txt_id_SLDAF = Mid(nodSelected.Key, 7)
        Me.sF_SLDAF_treeview.Visible = True
        Me.txt_id_LDAF = Null
        Me.sF_LDAF_treeview.Visible = False
        Me.txt_id_mandat = Null
        Me.sF_mandat_treeview.Visible = False
 
    Else Me.txt_id_SLDAF = Null
        Me.sF_SLDAF_treeview.Visible = False
        Me.txt_id_LDAF = Null
        Me.sF_LDAF_treeview.Visible = False
        Me.txt_id_mandat = Null
        Me.sF_mandat_treeview.Visible = False
 
    End If

Comment faire pour rajouter des sorties ?
Si j'utilise

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Select Case nodSelected.key
Case is = "LDAF=*"

je suis pas du tout un pro mais moi je ne veux pas un = je veux un like. (comme dans mon if)

comment faire ?

sinon imbriquer des if mais je suis pas chaud, et je ne vois même pas comment faire

merci beaucoup

[ilank]

Bonsoir,

D'après ton code, tu peux te contenter de tester le premier caractère de la clé de l'élément sélectionné.

Exemple:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub xUniversTreeView_NodeClick(Nobe as object)
        Me.sF_LDAF_treeview.Visible = (Left(Node.Key,1)="L")
        Me.txt_id_LDAF = iif(Left(Node.Key,1)="L",Mid(Node.Key,6),Null)
 
        Me.sF_SLDAF_treeview.Visible = (Left(Node.Key,1)="S")
        Me.txt_id_SLDAF = iif(Lef(Node.Key,1)="S",Mid(Node.Key,7),Null)
 
        Me.txt_id_mandat = Null
        Me.sF_mandat_treeview.Visible = False
 
End sub

[louroulou]

Ma procédure est sur l'évènement click du treeview,
du coup je ne pense pas que ca marche pas ton truc

merci

[ilank]

Bonjour,

le contrôle TreeView a deux événements Click, le NodeClick et le Click simple. Le NodeClick se produit uniquement quand un élément est 'cliqué', l'événement Click est levé dès qu'un Click a lieu dans le contrôle.
Cliquer sur le fond de fenêtre du treeview provoque l'événement Click mais ne change pas l'élément sélectionné.
Maintenant, ton exemple montre deux clés différentes "LDAF" et "SLDAF"; en testant le premier caractère de la clé de l'item sélectionné, tu sais quel sous-formulaire est à manipuler.