TreeView - Problème de sélection de noeud

Version imprimable

2 pièce(s) jointe(s)

Bonjour,

Je ne comprends pas ce qui se passe avec mon TreeView. Dans l'état actuel des choses, lorsque je clique sur un nœud, l'action sensée se dérouler ensuite est activée une fois sur deux, des fois pas du tout. Je suis obligé de cliquer sur le nœud enfant de mon TreeView, puis cliquer sur un autre nœud, puis recliquer sur ce même nœud enfant, pour que les actions (une requête SQL qui renvoie des données dans un DataGridView) soient exécutées.

Pour gérer le clic sur les nœuds, j'ai utilisé l'Event "NodeMouseClick". Voici le code utilisé (le début car c'est là que ça va pas) :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 Private Sub TvDossiers_NodeMouseClick(sender As Object, e As TreeNodeMouseClickEventArgs) Handles TvDossiers.NodeMouseClick Try Dim tvn As TreeNode = TvDossiers.SelectedNode If tvn Is Nothing Or tvn.Text.ToLower = "dutexte" Then Exit Sub End If Catch Exit Sub End Try '========== 'CODE QUI FONCTIONNE QUAND TOUT VA BIEN '========== End Sub
Alors je sais que vu comme ça, ça n'a pas trop de sens. Mais sans le Try…Catch, rien ne marche, j'ai toujours l'erreur suivante, peu importe si je clique sur un "+" ou un nœud :

Pièce jointe 552803

Donc j'ai essayé de gérer avec un Try...Catch, et ça marche … quand ça veut, c'est assez bizarre.

Ma question est donc la suivante :
Quelles instructions faut-il utiliser, et/ou quel Event, pour que lorsque je clique sur un nœud comme par exemple "Extractions" (pas les "+", ni les "-" mais les nœuds parents et enfants), le nœud soit surligné (reste sélectionné) dans le TreeView et l'action requise ensuite soit exécutée sans avoir besoin de cliquer ailleurs avant etc … ????

Pour que ce soit plus parlant, voici une capture du treeview en question :

Pièce jointe 552804

Merci d'avance de votre aide car là je n'en peux plus de ce problème !!! Help !!!

Merci.

Cordialement-

Bonsoir,

Essaie donc ce code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
  Private Sub TvDossiers_NodeMouseClick(sender As Object, e As TreeNodeMouseClickEventArgs) Handles TvDossiers.NodeMouseClick
 
' Le texte du node cliqué est donné par e.Node.Text. Donc :
 
Dim tvn_txt as string = e.Node.Text
If tvn_txt = String.empty OR tvn_txt.ToLower = "dutexte" then
     Exit Sub
End If
 
'==========
'CODE QUI FONCTIONNE QUAND TOUT VA BIEN
'==========
End Sub

06/04/2020, 08h46
Shennong

Bonjour Phil Rob,

Désolé pour le temps de réponse :)

J'ai essayé le bout de code que tu m'as fourni. C'est un bout de code que j'avais également sur le net et qui continuait à m'afficher l'erreur mais après, dans l'instruction suivant ce bloc.
J'ai bien regardé mon instruction, et finalement j'ai compris. J'utilisais "MonTreeView.SelectedNode.FullPath", dans l'instruction suivante, et il me retournait toujours l'erreur mise en capture dans mon premier post.
Je l'ai donc modifié par "e.Node.FullPath", et là … ça marche nickel ! :)

Donc merci à toi, c'était une simple étourderie finalement. Désormais tout se passe comme prévu et dès le premier clic sur un nœud.

Ce n'était pas grand chose au final.

Merci encore et bonne semaine.

Cordialement-