TREEVIEW : AJOUTER UN FONCTION AUTOMISATION D'OUVERTURE D'UN NODE APRES UN CYCLE
cs_Tene
Messages postés28Date d'inscriptionvendredi 23 avril 2004StatutMembreDernière intervention 2 décembre 2005
-
11 avril 2005 à 16:15
cs_ultimafight
Messages postés22Date d'inscriptionjeudi 7 octobre 2004StatutMembreDernière intervention 4 août 2006
-
12 avril 2005 à 11:08
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
cs_ultimafight
Messages postés22Date d'inscriptionjeudi 7 octobre 2004StatutMembreDernière intervention 4 août 2006 12 avril 2005 à 11:08
Re
j'ai rajouter une tite ligne pour ne pas développer le node selectionné.
Perso elle me sert
If oTree.DropHighlight.Key <> lastNode Or oTree.DropHighlight = oTree.SelectedItem Then
a+
cs_ultimafight
Messages postés22Date d'inscriptionjeudi 7 octobre 2004StatutMembreDernière intervention 4 août 2006 12 avril 2005 à 08:51
justement se matin j'etait en train de me poser la question sur la fermeture et le fait que le cycle n'est pas reinitialisé en cas de changement de node
Merci, pour cette ajout
Hop CTRL+C
Hip CTRL+V
@+
cs_Tene
Messages postés28Date d'inscriptionvendredi 23 avril 2004StatutMembreDernière intervention 2 décembre 2005 11 avril 2005 à 16:15
Tu fais vraiment des bonnes choses, ça fait deux fois que tu m'aides, c'est bien, continue ;-)
juste une choz, ton code ne permet que d'ouvrir un noeud, pas de le fermer.
De plus, dès que tu commence à bouger sur un noeud ouvert, le compteur s'incrémente alors si tu changes de noeud, le suivant s'ouvre instantanément, donc je me suis permis de faire ces petits ajouts :
If oTree.DropHighlight Is Nothing Then
boucledev = 0
Else
If oTree.DropHighlight.key <> lastNode Then
'RAZ si changement de noeud
boucledev = 0
Else
Let boucledev = boucledev + 1
End If
lastNode = oTree.DropHighlight.key
End If
If boucledev = 20 Then
If oTree.DropHighlight.Expanded = False Then
oTree.DropHighlight.Expanded = True
Else
'Fermeture du noeud s'il était ouvert
oTree.DropHighlight.Expanded = False
End If
'20 cycles d'attente avant d'executer l'ouverture
boucledev = 0
End If
où lastNode est une variable de déclarée globalement:
12 avril 2005 à 11:08
j'ai rajouter une tite ligne pour ne pas développer le node selectionné.
Perso elle me sert
If oTree.DropHighlight.Key <> lastNode Or oTree.DropHighlight = oTree.SelectedItem Then
a+
12 avril 2005 à 08:51
Merci, pour cette ajout
Hop CTRL+C
Hip CTRL+V
@+
11 avril 2005 à 16:15
juste une choz, ton code ne permet que d'ouvrir un noeud, pas de le fermer.
De plus, dès que tu commence à bouger sur un noeud ouvert, le compteur s'incrémente alors si tu changes de noeud, le suivant s'ouvre instantanément, donc je me suis permis de faire ces petits ajouts :
If oTree.DropHighlight Is Nothing Then
boucledev = 0
Else
If oTree.DropHighlight.key <> lastNode Then
'RAZ si changement de noeud
boucledev = 0
Else
Let boucledev = boucledev + 1
End If
lastNode = oTree.DropHighlight.key
End If
If boucledev = 20 Then
If oTree.DropHighlight.Expanded = False Then
oTree.DropHighlight.Expanded = True
Else
'Fermeture du noeud s'il était ouvert
oTree.DropHighlight.Expanded = False
End If
'20 cycles d'attente avant d'executer l'ouverture
boucledev = 0
End If
où lastNode est une variable de déclarée globalement:
dim lastNode as String
merci encore...a+ tene