Click sur un noeud d'un treview ASP net 2.0Résolu

Question

Bonjour à tous

Puis - je avoir un fragment de code (ou une idée!!!) pour simuler un clik sur un arbre net 2.0?
Merci d'avance

Net_Amateur

jesusonline · Accepted Answer

Voici enfin le code commenté : 
Je suis passé en Code Behind pour profiter des +- pour retrecir le code 

Default2.aspx





    Untitled Page


    
        
            
                
                    
                        
                            
                            
                            
                        
                        
                            
                            
                            
                            
                        
                    
                    
                        
                            
                            
                        
                    
                
            
        
        

        

         

    




Default2.aspx.vb 



Imports Microsoft.VisualBasic

Public Class Default2_aspx

#Region " Demarrage de la page "

    'Méthode activé au chargement de la page
    Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        ' on regarde Request.Form("__EVENTTARGET") = LinksTreeView.ClientID & "Checked"
        ' en effet, lors du PostBack par un clique sur un CheckBox
        ' je fais apré javascript appelle à la fonction __doPostBack(LinksTreeView.ClientID & "Checked",ValuePath du noeud du checkbox)
        ' la fonction __doCallBack assigne son premier paramètre à la valeur de 
        ' et la deuxieme valeur à "__EVENTARGUMENT" c'est ainsi que fonctionne le PostBack
        If Request.Form("__EVENTTARGET") = LinksTreeView.ClientID & "Checked" Then

            ' on Déclare un TreeNode, et on lui demande de chercher le node grace à la fonction 
            ' TreeNodeJustChecked qui donne en paramètre pour collection de noeud la collection de noeud 
            ' du treeview, et pour ValuePath Request.Form("__EVENTARGUMENT")
            Dim TheNode As TreeNode = TreeNodeJustChecked(LinksTreeView.Nodes, Request.Form("__EVENTARGUMENT"))

            ' Au cas où le noeud n'est pas retrouvé sa valeur sera nulle, on ne pourra pas se servir de Thenode
            If TheNode IsNot Nothing Then

                ' on assigne un message suivant la valeur du noeud
                If TheNode.Checked Then
                    Message.Text = "Le PostBack de la page à été généré en cochant " & TheNode.Text
                Else
                    Message.Text = "Le PostBack de la page à été généré en décochant " & TheNode.Text
                End If

            Else
                ' Si le noeud n'a pas été trouvé, on se sert de la seule information que
                ' l'on a a notre disposition : Request.Form("__EVENTARGUMENT") qui contient le ValuePath 
                ' du noeud qui a été coché/décoché, et donc via une manipulation de chaine on peut recuperer
                ' le texte du noeud cliqué, mais on ne peut pas savoir si le Checkbox a été coché ou décoché
                '
                ' (On pourrait le savoir en modifiant le PostBack, est plutot que faire __doPostBack
                '  avec pour premier argument LinksTreeView.ClientID & "Checked", on mettrait le nom 
                '  du Checkbox et on pourrait arriver à connaitre des infos en faisant un Request.Form
                '  de l'id du Checbox, mais c'est pas utile, et ca compliquerais le script)
                Message.Text = "Le PostBack de la page à été généré par" & Request.Form("__EVENTARGUMENT").Split(System.Convert.ToChar("/"))(Request.Form("__EVENTARGUMENT").Split(System.Convert.ToChar("/")).Length - 1)
            End If

        End If

    End Sub

#End Region

#Region " Clique sur le Checkbox "
    ' Normalement il n'est pas necessaire de modifier quelque chose ici 

    ' Sert pour connaitre le TreeNode que l'on vient juste de cocher/decocher
    ' Demande en paramètre une collection de noeud, et le nodePath par exemple : Table of Contents/Chapter Two/Section 2.0
    ' A partir de la collection de noeud, on va regarder tout ses noeuds enfants, jusqu'a en trouver un 
    ' possedant le meme NodePath, c'est une fonction recurrente
    ' La fonction retourne nothing si le noeud n'est pas trouvé
    Private Function TreeNodeJustChecked(ByVal NodeColl As TreeNodeCollection, ByVal NodePath As String) As TreeNode
        ' Si la collection de noeud est vide, on retourne nothing et on part 
        If NodeColl.Count = 0 Then
            Return Nothing
            Exit Function
        End If

        ' Pour Chaque noeud de la collection 
        For Each Node As TreeNode In NodeColl

            ' si le noeud courant a des noeuds enfants
            If Not Node.ChildNodes.Count = 0 Then
                'Noeud temporaire : appelle de la fonction recurrente
                ' avec les noeuds enfants, et le valuepath recherché
                Dim _TreeNodeJustChecked As TreeNode = TreeNodeJustChecked(Node.ChildNodes, NodePath)

                ' si la variable temporaire n'est pas nul, c'est à dire si le noeud à été trouvé
                ' on a gagné !!! on retourne le noeud trouvé et on part
                If _TreeNodeJustChecked IsNot Nothing Then
                    Return _TreeNodeJustChecked
                    Exit Function
                End If
            End If

            ' si le value path du noeud courant et le meme que la value path recherché 
            ' on a gagné !!! on retourne le noeud courant et on part
            If Node.ValuePath = NodePath Then
                Return Node
                Exit Function
            End If

        Next

        ' si on est pas partis dans la boucle for c'est qu'on a pas trouvé le noeud dans cette 
        ' collection de noeud dans ce cas : on retourne Nothing
        Return Nothing

    End Function

    ' Méthode activé lors de l'initiation du TreeView 
    ' Le code suivant aurait aussi pu etre dans le Page_Load
    ' mais ca place est plus ici, vu qu'il sert pour l'initialisation de la page
    Sub LinksTreeView_init(ByVal sender As Object, ByVal e As System.EventArgs) Handles LinksTreeView.Init

        ' Je rajoute cette ligne au cas ou le Treeview soit invisible,
        ' en effet, si visible = false, il n'y aura pas le code generé
        ' est donc lorsque qu'avec javascript je vais appeller les checkbox
        ' ils vont pas etre trouvé, et une erreur javascript va m'etre retourné
        If LinksTreeView.Visible Then

            ' Variable Script qui sert au stockage de tout le script javascript que l'on va inserer
            Dim Script As String
            ' Ces quelques lignes sert à dire quel langage on va utiliser et une ligne
            ' et l'autres sert pour les anciens navigateurs ne connaissant pas javascript
            Script = "" & vbNewLine
            Script &= " " & vbNewLine
            Script &= ""

            ' ici on indique que notre treeview a besoin de la fonction PostBack
            ' cette ligne ne sert à rien car le treeview necessite deja le postback 
            ' mais c'est un bon reflexe à prendre car ce n'est pas le cas de tout les controles
            ' cette ligne sert donc juste à rajouter ce code javascript, s'il n'est pas présent : 
            '   
            '   
            '   
            ' J'ai besoin de cette fonction pour effectuer le postback par les Checkbox
            Page.RegisterRequiresPostBack(LinksTreeView)

            ' ici on enregistre le script, et donc l'insere dans la page 
            ' la fonction necessite le script et l'id "CheckBoxLinksTreeView" dans notre cas
            ClientScript.RegisterStartupScript(LinksTreeView.GetType, "CheckBox" & LinksTreeView.ClientID, Script)
        End If

    End Sub

    ' Premiere version de writeScript, c'est de celui ci que je me sert, j'aurais pu m'en servir
    ' directement dans le LinksTreeView_init, mais ca me faisait rajouter une variable 0, et ca faisait pas joli 
    ' cette variable 0 est indispensable au bon fonctionnement de la fonction 
    ' lorsqu'on appelle cette fonction, on appelle la deuxieme version de WriteScript avec le paramètre 0
    Private Function WriteScript(ByVal NodeColl As TreeNodeCollection, ByVal IDTreeview As String) As String
        Return WriteScript(NodeColl, IDTreeview, 0)
    End Function

    ' WriteScript est la fonction qui genere le code javascript 
    ' elle demande en paramètre une collection de noeud l'id du treeview et un integer
    ' c'est une fonction recurrente : qui s'appelle elle meme 
    ' la variable i est un compteur pour compter le nombre de noeud,
    ' et surtout dans quelle noeud on se situe
    ' Comme c'est une fonction recurrente, qu'on appelle pour tout les noeud du Treeview 
    ' et qu'il n'y a qu'un seul compteur, et bien sur que l'on ne doit pas reinitialiser à chaque noeud
    ' i est une valeur par reference
    ' j'ai besoin d'un compteur car j'ai remarqué, que les Checkbox avait un nom 
    ' et la seule difference entre les noms de tout les noeud du treeview était un chiffre 
    ' le name du checkbox est de la forme : IDTreeView & "n" & Compteur & "CheckBox" ==> LinksTreeViewn0CheckBox par exemple
    Private Function WriteScript(ByVal NodeColl As TreeNodeCollection, ByVal IDTreeview As String, ByRef i As Integer) As String

        ' si le noeud dans leque on est vide, on part 
        ' les 4 lignes sont équivalentes à l'unique ligne
        'If NodeColl.Count = 0 Then
        '    i += 1
        '    Return ""
        '    Exit Function
        'End If
        If NodeColl.Count = 0 Then i += 1 : Return "" : Exit Function

        'Variable temporaire, qui contiendra le script de la collection de noeud en cours
        Dim _WriteScript As String = ""

        ' pour chaque noeud de la collection en cours
        For Each Node As TreeNode In NodeColl

            ' si le Checkbox est present
            ' c'est à dire qu'on execute le code seulement si il y a une case à cocher
            If Node.ShowCheckBox Then

                'Code pour les bons navigateurs comme Firefox ;)                '_WriteScript &"     theForm." & IDTreeview & "n" & i & "CheckBox.onclick function(){"
                '_WriteScript &= "__doPostBack("
                '_WriteScript &= """" & IDTreeview & "Checked"""
                '_WriteScript &= ","
                '_WriteScript &= """" & Node.ValuePath & """"
                '_WriteScript &= " )};" & vbNewLine

                'Code esperé pour IE6 SP1
                ' C'est donc le code javascript pour un seul noeud, c'est ici que
                ' tout le travail javascript repose
                ' on a besoin du compteur pour savoir quelle checkbox appellé 
                ' on a egalement besoin de l'id du treeview                 _WriteScript &"     theForm." & IDTreeview & "n" & i & "CheckBox.onclick " & IDTreeview & "n" & i & vbNewLine
                _WriteScript &= "function " & IDTreeview & "n" & i & "(){"
                _WriteScript &= " __doPostBack("
                _WriteScript &= """" & IDTreeview & "Checked"""
                _WriteScript &= ","
                _WriteScript &= """" & Node.ValuePath & """"
                _WriteScript &= " ) };" & vbNewLine & vbNewLine

            End If

            ' on incremente notre compteur de 1 aussi bien pour les noeud avec checkbox que sans
            i += 1

            ' si le noeud courrant a des noeuds enfants, on va appeller WriteScript 
            ' que l'on ajoute à notre variable temporaire _WriteScript 
            ' on lui passe en paramètres, les noeuds enfants 
            ' l'id du treeview et notre compteur, qui va s'incrementer par reference
            ' c'est à dire que si maintenant i = 2 apres l'appel i ne sera plus égal à 2
            ' c'est cette condition qui constitue la recurrence
            If Not Node.ChildNodes.Count = 0 Then _WriteScript &= WriteScript(Node.ChildNodes, IDTreeview, i)

            'Noeud suivant ...
        Next

        ' on retourne notre variable temporaire contenant tout le code javascript,
        ' generé pour tout les noeuds enfant de la collection de noeud courante
        Return _WriteScript

    End Function

#End Region

#Region " Clique sur le lien "

    ' Méthode activée lorsque l'utilisateur clique sur le lien
    ' On affiche un message indiquant sur quel lien on a cliqué
    Private Sub LinksTreeView_SelectedNodeChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles LinksTreeView.SelectedNodeChanged
        Message.Text = "Vous avez selectionné : " & LinksTreeView.SelectedNode.Text
    End Sub

#End Region

End Class
 

J'ai un peu modifié le code, j'ai enlevé des trucs inutiles, renommer certains trucs, car en le commentant j'ai vu que ca servait à rien 

si il y a encore des trucs que tu comprends pas, dis le moi. 
mais si tu es nouveau en asp.net, et que tu ne connait pas le fonctionnement des Postback, ca risque d'etre assez compliqué, de comprendre pour toi 
Mais j'ai essayé d'expliquer assez bien, et j'espere ne pas trop t'embrouiller
--> Bon courage  ;) 

J'espere que cette fois ca marchera !!! moi ca marche toujours aussi bien avec tout mes navigateurs

essaye ce code, est dis moi stp que ca marche  :)  car la je sature d'idée  :-p  

Sinon pour l'erreur Javascript que tu m'as donné lorsque tu cliques sur un "-" j'ai vu l'erreur, et ca m'a bien fait rire, car l'erreur etait présente avant que je modifie le code, c'est donc Microsoft qui en est responsable : bug corrigé avec la version finale je l'espere  :big)  

j'attend avec impatience ta reponse, en esperant avoir un cri de victoire  :approve) 

@+

Cyril

jesusonline · Answer

Je comprend pas trop ce que tu entend pas simuler un click, voici un bout de code qui pourra peut etre t'etre utile : 

    Sub TreeView1_SelectedNodeChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TreeView1.SelectedNodeChanged
        
    End Sub

J'espere t'avoir un peu aidé :) 

Avis perso : 
Je viens de tester ce controle, car je commence juste à me mettre à asp.net 2.0 et j'aime pas car j'utilise FireFox est ca marche pas :'( je suis décu, j'espere que ce sera corrigé dans la version finale, sinon je ferais tout pour ne pas utiliser ce control, c'est dommage car il paraissait bien et puissant [:@] 

@+

Cyril

cs_Dorutu · Answer

Dans la belle et vieille version de VB6 je profitais de l'événement click rattaché aux noeuds d'un treeview pour écrire des routines événementielles (et gérer ainsi les choix d'utilisateur). 
Cet événement n'est pas transposé dans la version net pour le développement d'applications Web et, maintenant, je ne sais pas trop quelle marche suivre!
En ce qui concerne System.EventArgs .. j'ai pas bcp de choix non plus. 
J'ai essayé ceci:
........................................
Sub TestChecked(ByVal sender As Object, ByVal e As TreeNodeEventArgs)
        If e.Node.Checked  Then
        Label1.Text = "OK!"
        End If
    End Sub
........................................
      
.....................................................................
Sans résultat!
Ni erreur, ni affichage de mon message!
Net_Amateur

jesusonline · Answer

tu pourrais m'expliquer exactement ce que tu veux, car la j'ai un peu de mal à te suivre.

Je veux bien essayer de te guider : tu peux si tu veux dans TestChecked ajouter : 

dim Tn as Treenode = ctype(sender, treenode) 
id Tn.checked then 
Lbl1.Text = "Ok!" 
end if 

mais je ne sais pas et je ne pense pas que ca marche, car je suis pas du tout sur du type de Tn
J'ai aucune documentation sur asp.net 2.0 je nage un peu dans le vide :) et donc je peux pas faire grand chose avant d'avoir trouvé de la doc (je vais chercher)  
l'evenement OnCheckChanged est generé quand ? en voyant checked je pensais trouvé un CheckBoxLike mais rien de tel, et je ne vois pas ce qui pourrait etre Checked, c'est lorsque l'on clique sur le + ou - ? j'ai pas l'impression car il n'y a pas de postback sur ces evenements. 

j'aimerais donc savoir ce que t'aimerais faire précisement, je pense que tu veux réagir lorsque l'utilisateur fait quelque chose mais je ne sais pas quoi :) 
Pendant ce temps moi je vais voir si je trouve de la doc sur ce treeview 

@+

Cyril

cs_Dorutu · Answer

Au fait:
"dim Tn as Treenode = ctype(sender, treenode) 
if Tn.checked then 
Lbl1.Text = "Ok!" 
end if "
et
"If e.Node.Checked Then
Label1.Text = "OK!"
End If
"
sont équivalentes!!!

Voilà schématiquement ce que je veux:
1) Je construis un arbre à deux niveaux hierarchiques:
* niveau 1 : Catégories
* niveau 2: Produits
Bien sur Catégories et Produits reliées par une relation. 

2) Résultat: Plus que satisfaisant! Arbre correctement construit.
3) Je veux capturer sur un click (ou en cochant la case à cocher rattachée au noeud fille) la valeur du node.text et node.Value.
Ce qui s'avère ... impossible!

Suis je clair?

... et merci bcp pour ton effort!
Net_Amateur

jesusonline · Answer

:)  
Oui j'ai enfin compris ce que tu veux faire. 

Malheureusement comme je l'ai dit plus haut, je ne connais pas le treeview. 

Peut tu vite fait me dire comment tu fais pour ajouter un case à cocher ? mais je pense que la n'est pas le problème :) 

Je vais regarder comment faire ca, ce soir, qd j'aurais le temps, car j'ai tj pas eu le temps de regarder des infos sur le treeview

mais je pense qu'il n'y a rien de sorcier  :)  

Par contre qd tu dis que Ctype(sender,treenode) est identique à  e.Node, j'en doute fortement, en es tu sur ? si c'est le cas, alors pourquoi mettre deux parametres, alors qu'un seul aurait suffit ? si je me rappelle bien mes bouquins  :)  tout les evenements des controls ont le meme schema : onEvents(sender as object, e as EventArgs) 
sender sert pour dire quel control a declencher le postback et e et euh .... un argument  :big)  je me sers rarement de e donc je peux pas t'expliquer exactement, mais je sais que c'est un argument qu'on peut envoyer grace au controls

et je pense donc que tu pourras recuperer les valeurs que tu veux grace à sender plutot que e 

Je regarde ca tout à l'heure, car la je vais manger  :)  

Cyril

cs_Dorutu · Answer

Pour les cases à cocher... problème résolu! Mais ca ne me suffit pas. Le click?
Net_Amateur

jesusonline · Answer

Je venais juste de voir les cases à cocher :) 

Je peux voir le code ? 

pour le click je vais regarder ca :) 

Cyril

jesusonline · Answer

Voici je pense un code qui va t'aider : 





    Sub LinksTreeView_CheckChanged(ByVal sender As Object, ByVal e As TreeNodeEventArgs)

        If LinksTreeView.CheckedNodes.Count > 0 Then
            

            ' Clear the message label.
            Message.Text = "You selected: 

"

            ' Iterate through the CheckedNodes collection and display 
            ' the selected nodes.
            Dim node As TreeNode

            For Each node In LinksTreeView.CheckedNodes

                Message.Text &= node.Text & "
"

            Next

        Else

            Message.Text = "No items selected."

        End If

    End Sub
    
    Sub Select_Change(ByVal sender As Object, ByVal e As EventArgs)

        Message.Text = "You selected: " & LinksTreeView.SelectedNode.Text

    End Sub





    Untitled Page


    
        
            TreeView CheckChanged Example

        
        
        
        
        
        
        
            
                
                
                
                
            
            
            
                
                    
                        
                            
                            
                            
                        
                        
                            
                            
                            
                            
                        
                    
                    
                        
                            
                            
                        
                    
                
                
                
                
            
            
            
        
        

        

        
        

        

        
    





j'ai enfin eu le temps de chercher ou trouver de l'aide, cet exemple est tiré de l'aide du rassemblement des deux evenements.

Grace à ta question, j'ai pu me rendre compte de la puissance de ce control, j'espere juste qu'il marchera avec tout les navigateurs pour la version finale

@+

Cyril

cs_Dorutu · Answer

Je me suis inspiré du même exemple! Voilà: 1. La procédure: Sub TestChecked(ByVal sender As Object, ByVal e As TreeNodeEventArgs) If TreeRF.CheckedNodes.Count > 0 Then Label1.Text = "" Dim node As TreeNode For Each node In TreeRF.CheckedNodes Label1.Text &= node.Text & " " Next Else Message.Text = "Aucune case cochée!" End If 2. Design: P.S. De toute manière pas de problèmes pour Netscape 7, FireFox et IE 6.0 Net_Amateur

cs_Dorutu · Answer

Mais mon problème n'est pas résolu!!! J'ai besoin de récuperer des données après chaque choix de l'utilisateur. 
Ne pas autoriser l'utilisateur de faire plusieurs choix (plusieurs cases à cocher) avant validation!!! Donc un événement du genre click ferait l'affaire!

Alors Cyril?

Net_Amateur

jesusonline · Answer

tu veux recuperer l'evenement qd l'utilisateur clique sur un checkbox ? 
a quoi sert alors ton Checkbox ? 

tu voudrais gerer l'evenement CheckedClick ? car pour l'instant l'evenement CheckChanged "Occurs when a check box in the TreeView control changes state between posts to the server. " donc ne s'execute pas lorsque l'on clique sur le checkbox.

l'evenement OnSelectedNodeChanged ne te convient pas ? il s'active lorsque l'on clique sur le text

je regarde un petit exemple, et je te montre tout ca :) 

@+

Cyril

jesusonline · Answer

Essaye le code ci dessous, je sais pas si ca va te satisfaire ou pas, mais je pense que c'est à peu pres ce que tu veux :) j'ai essayé de griser la checkbox plutot que de la faire disparaitre mais j'ai pas trouvé comment faire, et ca doit etre tres compliqué (et je suis fatigué) mais si c'est ce que tu veux, ca peut se faire via javascript, sans meme trop de pb (Je viens de penser comment on pourrait faire ca :)) <%@ Page Language="VB" %> Untitled Page Cyril

cs_Dorutu · Answer

Je pense qu'une solution qui va ds ce sens pourrait convenir!

Net_Amateur

jesusonline · Answer

ok 

et la qu'est-ce qu'il ne convient pas ?  :)  

Moi je vais bientot aller me coucher, donc je regarderais ca demain 

Bonne nuit 

@+

Cyril

cs_Dorutu · Answer

L'idéal pour moi serait d'avoir un  AutoPostBack pour les événements  OnSelect et OnNodeCheckChanged !

Je sais que pour toi ce n'est pas sorcier... étant donné que pour Web t'en es un!!

Net_Amateur

jesusonline · Answer

lol 

le OnSelect je pense que c'est facile, c'est l'évenement OnSelectedNodeChanged qui lui declenche un postback par contre, ce serait possible en faisant beaucoup de javascript, mais ca va etre difficile 
ce que j'aimerais savoir c'est pourquoi tu veux des evenements differents ? ca vaut vraiment la peine de s'embeter à créer un nouvel evenement ? 

Je sais pas si tu es familier avec asp.net, mais si tu veux vraiment avoir un evenement onNodeCheckChanged, va falloir dériver ton treeview etc ... c'est loin d'etre simple 

mais si c'est ce que tu as envie, je pourrais bien essayer de t'expliquer comment faire

Cyril

PS : c'est mon millieme post sur le forum :d

jesusonline · Answer

Je viens de regarder, et ca doit etre tres tres compliqué : il faut limite recoder tout le treeview :) 

Le problème qu'il se pose, c'est que " 'MyTreeNode' cannot inherit from class 'TreeNode' because 'TreeNode' is declared 'NotInheritable'. "

Je voulais dériver un TreeNode pour avoir le controle sur le checkbox mais malheureusement Trennode est NotInheritable 

Donc a moins que tu te sens pret à recoder tout le treeview (moi je me sens pas encore tout de suite capable (mais fait par moi il sera firefox compatible [:d]))  donc je pense qu'il vaut mieux chercher une autre solution.

Ce que tu veux c'est bien avoir un evenement lorsque l'on clique sur le checkbox et un autre lorsque l'on clique sur le lien ? 

J'ai pas d'idées qui me viennent, mais je vais reflechir

Cyril

jesusonline · Answer

Encore une tentative à l'eau : Dim Tn As TreeNode Tn = LinksTreeView.Nodes.Item(0).ChildNodes.Item(0).ChildNodes.Item(0).ChildNodes.Item(0) Tn.Text = "Coucou !!! 1.0.1 " Je pensais qu'il existait une propriété pour ecrire de l'html dans le treenode, ben non, il y a pas moyen, il encode tout les caractères. Pour ton problème je vois malheureusement que 2 solutions soit on recode tout le treeview :big) soit on fait tout ca en 100% javascript. Je m'explique pour 100% javascript. Je connais pas javascript mais je sais que c'est possible. Le code HTML d'un treenode est : [javascript:__doPostBack('LinksTreeView','sTable of Contents\Chapter One\Section 1.0\Topic 1.0.1') Topic 1.0.1] avec javascript (et des heures de patience) on peut atteindre la balise TD à partir de la, on peut ajouter un checkbox au text et on pourra aussi rajouter le postback via javascript, le plus compliqué dans ce script c'est d'atteindre la balise du treenode, et ca je suis incapable de le faire, il faudrais que je me replonge dans un bouquin de javascript etc ... Donc voila tout ce que je peux faire, si tu arrives à atteindre la balise du treenode, je pourrais ensuite rajouter le textbox via javascript mais sinon peut pas faire grand chose de plus donc voila ton problème a une solution, mais les solutions que j'ai trouvés sont extrement complexe, donc j'espere que tu arriveras à faire ce que tu veux autrement bon courage @+ Cyril

jesusonline · Answer

J'ai des bonnes nouvelles  :)  

comme ton truc m'enervait, et que j'aime pas resté sur un echec, je me suis un peu acharné sur le truc, et je me suis rendu compte que le checkbox possédait l'attribut name  :big)  a partir de là rien de plus simple que d'aller modifier via javascript le click

donc voila pour l'instant ou j'en suis : 





function Page_Load()
{
document.Form1.LinksTreeViewn3CheckBox.setAttribute("onClick", "CaMarche()");
//document.getElementByID("Cyril").innerText = "CaMarche()";
}

function CaMarche()
{
alert("Ca marche !!!"); 
}




    Sub Select_Change(ByVal sender As Object, ByVal e As EventArgs)
        'LinksTreeView.SelectedNode.ShowCheckBox = True
        'On inverse la valeur de la case à cocher true  false
        LinksTreeView.SelectedNode.Checked = Not LinksTreeView.SelectedNode.Checked
        
        'Message 
        Message.Text = "You selected: " & LinksTreeView.SelectedNode.Text

    End Sub
   




    Untitled Page


    
        
            
                
                    
                        
                            
                            
                            
                            
                            
                            
                        
                        
                        
                    
                
            
        
        

        

        
    




Teste ca, tu risques surement de trouver ca un peu nul si tu connais pas comment faire un postback a partir de javascript, mais à partir de la, je peux travailler :) il reste que des choses simples à faire en javascript, apres en asp.net il y aura un peu de code mais bon ce sera pas grand chose, on va pas reinventer le Treeview tout de suite :) 

donc voila, la je m'en vais m'aerer mais ce soir ton problème sera je pense résolu 

sur ce bon week end 

Cyril

cs_Dorutu · Answer

Bon week end à toi aussi!! Je crois que t'es parti pour la bonne solution.
Grand merci!
Net_Amateur

jesusonline · Answer

Voici ce que j'ai pour l'instant : 

 




    Sub Select_Change(ByVal sender As Object, ByVal e As EventArgs)
        'Message 
        Message.Text &= "You selected: " & LinksTreeView.SelectedNode.Text
    End Sub
   
    Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)
        
        If Not Request.Form("__MyEventArgument") = "" Then
            
            If CType(Request.Form("__MyEventArgument"), Boolean) Then
                Message.Text &= "Page PostBack by checking the CheckBox "
            Else
                Message.Text &= "Page PostBack by unchecking the CheckBox "
            End If
        End If

    End Sub
    
    Sub Page_PreInit(ByVal sender As Object, ByVal e As System.EventArgs)
        Dim Script As String
        Script = "

"
        Script &= "" & vbNewLine
        Script &= " " & vbNewLine
            
        Script &= "" 'J'ai pas le droit d'ecrire  un bug de la beta je pense
         
        Page.RegisterStartupScript("__MyDoPostBack", Script)
        
    End Sub
    





    Untitled Page


    
bonj        
            
                
                    
                        
                            
                            
                            
                            
                            
                            
                        
                        
                        
                    
                
            
        
        

        

         

         
    


 

il me reste plus qu'a mettre, dans le script javascript,  tout les treenodes avec un checkbox, donc j'en ai plus pour longtemp.

Par contre j'aurais besoin de savoir un petit truc : le script ne gere plus LinksTreeView.SelectedNode (je pense avoir compris mais tres compliqué) donc tu n'auras pas accés à Cheked etc... par contre je peux rajouter une propriété,en théorie pour l'instant tu as accés à e de 

    Sub Select_Change(ByVal sender As Object, ByVal e As EventArgs)
        'Message 
        Message.Text &= "You selected: " & LinksTreeView.SelectedNode.Text
    End Sub

grace à Request.Form("__EVENTARGUMENT") mais je peux faire autre chose, et meme rajouter des champs caché si tu en as envie, je recherche pour essayé d'avoir un treenode mais c'est compliqué 

au fait tu comprend tout ce que je fais ou pas ? lol 

@+

Cyril

jesusonline · Answer

<%@ Page Language="VB" %> Untitled Page Le code fonctionne, je vais faire un code un peu plus clean et j'espere que tu va bien t'amuser :) @+ Cyril

jesusonline · Answer

Final Version : 





    Sub Select_Change(ByVal sender As Object, ByVal e As EventArgs)
        'Message 
        Message.Text = "You selected: " & LinksTreeView.SelectedNode.Text
    End Sub
   
    Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)
        
        If Request.Form("__EVENTTARGET") = LinksTreeView.ClientID & "Checked" Then
           
            Dim TheNode As TreeNode = TreeNodeJustChecked(LinksTreeView.Nodes, Request.Form("__EVENTARGUMENT"))
            Message.Text &= "
" & TheNode.Checked
            Message.Text &= "
" & TheNode.Text

            If TheNode.Checked Then
                Message.Text = "Page PostBack by checking " & TheNode.Text
            Else
                Message.Text = "Page PostBack by unchecking " & TheNode.Text
            End If

        End If

    End Sub
    
    Sub LinksTreeView_Load(ByVal sender As Object, ByVal e As System.EventArgs)

        If LinksTreeView.Visible Then
            
            Dim Script As String
            Script = "" & vbNewLine
            Script &= " " & vbNewLine
            Script &= ""
        
            Page.RegisterRequiresPostBack(LinksTreeView)
            ClientScript.RegisterStartupScript(LinksTreeView.GetType, "__MyDoPostBack", Script)
        End If

    End Sub

    Private Function TreeNodeJustChecked(ByVal NodeColl As TreeNodeCollection, ByVal NodePath As String) As TreeNode
        If NodeColl.Count = 0 Then
            Return Nothing
            Exit Function
        End If
        
        For Each Node As TreeNode In NodeColl
            If Not Node.ChildNodes.Count = 0 Then
                Dim _TreeNodeJustChecked As TreeNode = TreeNodeJustChecked(Node.ChildNodes, NodePath)
                If Not _TreeNodeJustChecked Is Nothing Then
                    Return _TreeNodeJustChecked
                End If
            End If
            If Node.ValuePath = NodePath Then
                Return Node
                Exit For
            End If
        Next
    End Function
    
    Private Function WriteScript(ByVal NodeColl As TreeNodeCollection, ByVal IDTreeview As String) As String
        Return WriteScript(NodeColl, IDTreeview, 0)
    End Function
    
    Private Function WriteScript(ByVal NodeColl As TreeNodeCollection, ByVal IDTreeview As String, ByRef i As Integer) As String
        If NodeColl.Count = 0 Then i += 1 : Return "" : Exit Function
        Dim _WriteScript As String = ""
 
        For Each Node As TreeNode In NodeColl

            If Node.ShowCheckBox Then
                _WriteScript &= "     theForm." & IDTreeview & "n" & i & "CheckBox.setAttribute(""onClick"","
                _WriteScript &= """__doPostBack("
                _WriteScript &= "'" & IDTreeview & "Checked'"
                _WriteScript &= ","
                _WriteScript &= "'" & Node.ValuePath & "'"
                _WriteScript &= " );"");" & vbNewLine
            End If
            i += 1

            If Not Node.ChildNodes.Count = 0 Then _WriteScript &= WriteScript(Node.ChildNodes, IDTreeview, i)

        Next
        Return _WriteScript
    End Function
    




    Untitled Page


    
        
            
                
                    
                        
                            
                            
                            
                        
                        
                            
                            
                            
                            
                        
                    
                    
                        
                            
                            
                        
                    
                
            
        
        

        

         

    



 

Le code est tout beau tout propre, j'ai supprimé ma gestion manuelle du postback :) et j'ai trouvé comment avoir accés au noeud cliqué.

Test le code: tu risques de pas en revenir ;) 
Le code est pas expliqué, il est assez compliqué car il y a deux fonctions recurrentes un brin de javascript etc donc si t'es pas habitué à coder, ca risque d'etre difficile de tout comprendre, mais le principal, et ce que tu as a comprendre, se situe dans le page load le reste t'as pas a regarder ;) 

@+
Cyril

cs_Dorutu · Answer

Je ne trouve pas des mots pour te remercier! Je vais tester tout cela!
Net_Amateur

cs_Dorutu · Answer

Mon Web Developer me sort le bug suivant:
" Function 'TreeNodeJustChecked' doesn't return a value on all code paths. A null reference exception could occur at run time when the result is used"!
P.S. N'aie pas crainte. Je sais apprécier et comprendre une belle solution de programmation. Et surtout ton altruisme!

Net_Amateur

cs_Dorutu · Answer

J'ai testé sur Netscape 7.0 et FireFox ...c'est super!!!!!!!!
Sans problème. 
Je te répète: t'es un grand!!!
Net_Amateur

jesusonline · Answer

lol merci :) 

oui pour le problème je sais, c'est une nouveauté de Whidbey, ca m'informe que dans certains cas la fonction retournera rien (il n'y aurai pas de return something) le problème est du au fait que c'est une fonction recurrente et que si on lit la fonction comme ca, et ben pour que la fonction retourne qqchose (une valeur ou pas de valeur) il faut  soit que NodeColl.Count = 0 soit que _TreeNodeJustChecked IsNot Nothing ce que se produit ssi le noeud a déja été trouvé

pour resoudre il faudrais mettre ca, il n'y a rien de bien compliqué mais un oublié :) 


    Private Function TreeNodeJustChecked(ByVal NodeColl As TreeNodeCollection, ByVal NodePath As String) As TreeNode
        If NodeColl.Count = 0 Then
            Return Nothing
            Exit Function
        End If
        
        For Each Node As TreeNode In NodeColl
            If Not Node.ChildNodes.Count = 0 Then
                Dim _TreeNodeJustChecked As TreeNode = TreeNodeJustChecked(Node.ChildNodes, NodePath)
                If _TreeNodeJustChecked Isnot Nothing Then
                    Return _TreeNodeJustChecked
                    Exit For
                End If
            End If
            If Node.ValuePath = NodePath Then
                Return Node
                Exit For
            End If
        Next
        Return Nothing
    End Function


et pour que le code gére les erreurs : il faudrais faire ca : 


    Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)
        
        If Request.Form("__EVENTTARGET") = LinksTreeView.ClientID & "Checked" Then
           
            Dim TheNode As TreeNode = TreeNodeJustChecked(LinksTreeView.Nodes, Request.Form("__EVENTARGUMENT"))
            Message.Text &= "
" & TheNode.Checked
            Message.Text &= "
" & TheNode.Text
            If TheNode IsNot Nothing Then
                If TheNode.Checked Then
                    Message.Text = "Page PostBack by checking " & TheNode.Text
                Else
                    Message.Text = "Page PostBack by unchecking " & TheNode.Text
                End If
            Else
                Message.Text = "The PostBack was generated by" & Request.Form("__EVENTARGUMENT").Split( System.Convert.ToChar("/"))( Request.Form("__EVENTARGUMENT").Split( System.Convert.ToChar("/")).Length - 1)
            End If

        End If

    End Sub
 

Mais ca complexifie le truc un peu inutilement, la seule raison de faire ca, c'est si tu modifies le contenu de ton treeview avant la fonction que je viens de modifier, en effet si tu supprimes le noeud que tu viens de cliquer dans ton treeview il va te retourner nothing et donc il va pas aimer aller chercher les propriétés que je lui demande  :) 

ravi que ca te plaise, je viens de relire le code pour modifier ca, et j'ai eu un peu de mal a reprendre mes reperes, tu veux que je le commente, ou alors tu arrives à le comprendre sans commmentaire ? 

Sinon heureusement que ca marche sous tout les navigateurs: je prone les standards donc je fais tout pour que ca marche sur tout les navigateurs  ;)  

@+

Cyril

cs_Dorutu · Answer

Si tu pourrais reprendre avec quelques commentaires... ca serait idéal. Ca m'aiderait et je comprendrais mieux ... cette logique!
Net_Amateur

jesusonline · Answer

ok, je te fais ca ce soir, ou je ne sais qd car j'ai un pb avec le pc (le reseau) 

juste une remarque : le bug que tu m'as signalé c'est pas un bug, mais c'est juste une indication, ca compile tres bien, et ca fonctionne sans problème malgrés cette erreur, c'est comme lorsque l'on declare une variable sans jamais l'utiliser etc... en tout cas j'ai découvert plein de petit truc comme ca assez sympa ;) 

@+

Cyril

cs_Dorutu · Answer

D'accord! Ca compile! La preuve qu'il fonctionne sur Netscape! Mais je n'arrive pas le faire marcher sur IE! L'arbre s'affiche mais le postback ne fonctionne pas .. sauf SelectedNode!
Problème sur mon IE?
Net_Amateur

jesusonline · Answer

Effectivement bug sur IE, j'avais pas testé sur IE, je regarde ca, mais pour l'instant je comprend pas :( 
en plus le code est totalement different entre celui generé pour IE et celui pour les autres navigateurs :-/ c'est qd meme assez spécial.
Mais je pars du principe que tout problème à une solution  :)  donc il va y avoir une solution, j'espere que celle ci sera assez simple

Dsl je crois que le commentage va attendre la résolution de ce bug ;) 

@+

Cyril

jesusonline · Answer

J'y suis encore pas arrivé, c'est que j'avascript, j'ai une fonctionne qui fonctionne sur Firefox est pas sur IE et j'arrive pas à trouver d'équivalent, je vais essayer de trouver de l'aide sur javascriptfr.com voici la fonction : si t'arrives à faire marcher ce code rien qu'en modifiant le javascript, on aura gagné, mais c'est encore pas le cas. Je vais perseverer un peu @+ Cyril

cs_Dorutu · Answer

T'as raison. Ca marche ds l'un et pas ds l'autre! Comme je n'ai pas de la doc sous ma main.. laissons jusqu'à demain!
Bonne nuit!
Net_Amateur

cs_Dorutu · Answer

Lis ca: http://inmyexperience.com/archives/000428.shtml
...
"My conclusion is that the setAttribute method is not fully supported in Internet Explorer. So, we resorted to workarounds, and found one"....

Net_Amateur

jesusonline · Answer

-->http://www.javascriptfr.com/forum.v2.aspx?ID=282099&post=ok

Moi je vais manger, et refaire le code + commentaire, et regarder ton lien apres  :) 

@+

Cyril

jesusonline · Answer

Private Function WriteScript(ByVal NodeColl As TreeNodeCollection, ByVal IDTreeview As String, ByRef i As Integer) As String
        If NodeColl.Count = 0 Then i += 1 : Return "" : Exit Function
        Dim _WriteScript As String = ""
 
        For Each Node As TreeNode In NodeColl

            If Node.ShowCheckBox Then
                            _WriteScript &"     theForm." & IDTreeview & "n" & i & "CheckBox.onclick function(){"
                _WriteScript &= "__doPostBack("
                _WriteScript &= """" & IDTreeview & "Checked"""
                _WriteScript &= ","
                _WriteScript &= """" & Node.ValuePath & """"
                _WriteScript &= " )};" & vbNewLine

            End If
            i += 1

            If Not Node.ChildNodes.Count = 0 Then _WriteScript &= WriteScript(Node.ChildNodes, IDTreeview, i)

        Next
        Return _WriteScript
    End Function


Testé avec IE 6 SP2 - Firefox 0.9.3 - Mozilla 1.6 
reste plus que le commentage :) 

--> http://www.allhtml.com/forum/index.php?t=l&f=2&i=413064 ici pour le deuxieme topic qui m'a aidé 

finalement le problème etait pas si compliqué que ca! j'ai lu la doc que que tu m'as passé, est effectivement, une fois de plus c'est bien IE qui nous emmerde  :-p  

@+

Cyril

cs_Dorutu · Answer

J'ai un IE 6 SP1. J'ai testé tttes les variantes qut'as proposé sur le forum de js. La seule qui marche avec cet IE:
document.forms['Form1'].LinksTreeViewn13CheckBox.onclick = function(){coucou("Cyril")}; 
Mais la procédure WriteScript (réecrite!) provoque trj un bug!!!
Net_Amateur

jesusonline · Answer

ma fonction réecrit donne chez moi : 
  theForm.LinksTreeViewn0CheckBox.onclick = function(){__doPostBack("LinksTreeViewChecked","Table of Contents" )};

ce qui est la meme chose que chez toi :)

ouf pendant un moment j'ai cru qu'il y avait des difference entre SP1 et  SP2  :) 

tu es sur que ca marche pas avec IE6 ?
c'est quoi ta fonction qui est generé ? c'est pas la meme que la mienne ? 

voici le code qui devrait en théorie donner la bonne fonction, je pense que c'est le meme que ci dessus, mais j'ai pus le modifier :)

 

    Private Function WriteScript(ByVal NodeColl As TreeNodeCollection, ByVal IDTreeview As String, ByRef i As Integer) As String
        If NodeColl.Count = 0 Then i += 1 : Return "" : Exit Function
        Dim _WriteScript As String = ""
 
        For Each Node As TreeNode In NodeColl

            If Node.ShowCheckBox Then
                            _WriteScript &"     theForm." & IDTreeview & "n" & i & "CheckBox.onclick function(){"
                _WriteScript &= "__doPostBack("
                _WriteScript &= """" & IDTreeview & "Checked"""
                _WriteScript &= ","
                _WriteScript &= """" & Node.ValuePath & """"
                _WriteScript &= " )};" & vbNewLine

            End If
            i += 1

            If Not Node.ChildNodes.Count = 0 Then _WriteScript &= WriteScript(Node.ChildNodes, IDTreeview, i)

        Next
        Return _WriteScript
    End Function

 

si ca marche chez moi et pas chez toi c'est qu'il y a un problème. 

Encore une petite chose, mais je pense pas que ca vienne d'ici, le dernier code de la page que je t'ai passé a une balise  tu peux supprimer l'attribut onload, je l'avais mis la car j'avais une fonction javascript qui s'appellait function page_load(){} 

J'espere que ca va marcher, donne moi le code javascript qui est generé si ca marche pas

pour les comments, j'ai pas eu le temps cet apres midi, donc ce soir peut etre  :) 

@+

Cyril

cs_Dorutu · Answer

Bon! Voilà!
Click sur case à cocher ne donne rien. Pas d'erreur, pas d'affichage!
Sur collapse (click sur -) il y a le message suivant:

'ChildNodes[...].getElementsByTagName(...).0.childNodes' a la valeur Null ou n'est pas objet!

Net_Amateur

jesusonline · Answer

:'( moi IE6 SP2 ca marche nickel j'ai aussi le message d'erreur, mais ca c'est pas de ma faute, meme sans tout mon code le message d'erreur est present : bug microsoft Par contre je pourrais avoir le code generé ? as tu bien ca ? (ce code doit se trouver en bas de page) theForm.LinksTreeViewn0CheckBox.onclick = function(){__doPostBack("LinksTreeViewChecked","Table of Contents" )}; si t'as pas ca : tu dois qd meme avoir un truc qui ressemble, c'est koi ? j'ai plus de IE6 SP1 donc je peux pas tester comme je l'ai fait pour ce code : la fonction 5 fonctionne ? et la 6 aussi ? Je vais te reecrire ma fonction avec la fonction 5, mais cette solution me convient guere car ca fera genere un code de ce genre : document.forms['Form1'].LinksTreeViewn13CheckBox.onclick = LinksTreeViewTable_of_Contents; function LinksTreeViewTable_of_Contents(){ __doPostBack("LinksTreeViewChecked","Table of Contents" } 4 lignes "lourdes" au lieu d'une, pour chaque noeud ... "lourdes" car je pense que créer une fonction en javascript est assez consequent comme code Mais je vais rapidement te refaire la fonction j'insiste: j'aimerais avoir le code javascript generé par ton IE6 SP1 stp @+ Cyril

jesusonline · Answer

J'ai remis avec la deuxieme facon, finalement c'est peut etre pas si lourd que ca, c'est juste dommage car il existe moins lourd :( <%@ Page Language="VB" %> Untitled Page reste plus que le commentage des sources :) et cette fois je l'espere plus aucune modfication des sources à cause de IE6 SP1 :D Cyril

cs_Dorutu · Answer

_doPostBack('LinksTreeView','sTable of Contents\Chapter One \Section 1.0')

Net_Amateur

cs_Dorutu · Answer

Sur "-" :
TreeView_ToggleNode(LinksTreeView_Data,1,LinksTreeViewn1,'',TreeViewn1Nodes)

Net_Amateur

cs_Dorutu · Answer

Ca Maaaaaaaaaaaaaaarche!
Merci ...........Cyril!!!
Je vais decortiquer et adapter cet exploit à mon cas.

P.S. Tu pourrais sortir un bel article ... de tout ce travail!
Net_Amateur

jesusonline · Answer

ouais j'ai pensé à faire une source, mais euh ... comment l'expliquer  :big)  mais j'y reflechis  :)  

En parlant d'article ? as tu lu celui ci : http://www.aspfr.com/code.aspx?ID=25564 c'est un article que j'ai ecrit, et essayé d'etre clair, mais j'ai aucun retour :( 

donc je sais pas si ca vaut le coup ou pas que je refasse des articles aussi complet ... 

mais je vais reflechir à ca, en tout cas avec le travail qu'on a fait, j'aurais deja de quoi expliqué  :)  

et pourrais tu me dire si les commentaires ton aidé ? si ils sont pas trop mal fait et incomprehensible ? 

en tout cas c'est qd une bonne nouvelle d'entendre ton cris de victoire :):):):) 

"Tout problème a une solution"  ;)  

@+

Cyril

cs_Dorutu · Answer

Je viens de lire ton article! Franchement .. il est pas mal! Une seule remarque je pourrais faire (si tu permets!!!). Je m'attendais (comme le titre l'indique!) que tu consacre une partie plus importante à expliquer le concept de Service Web de manière générale (surtout que la doc existante est destinée à des professionnels! ). Et ensuite  présenter des cas simples et suggestifs  où l'utilisation d'un tel service serait  intéressante. Surtout niveau débutant!
Et qu'après ... seulement ... s'arrêter sur un exemple précis!

P.S Je te tiendrai au courant de l'évolution de mon travail!
Net_Amateur

jesusonline · Answer

oui j'ai hésité à mettre une partie : Qu'est-ce qu'on service Web, mais il doit y avoir deja pas mal d'articles la dessus. j'en prend malgré tout bonne note, et je modifierais ca qd j'en aurais le temps :) 

Sinon j'espere que tu vas me mettre au courant de l'evolution de ton travail ;) 

en ce qui concerne l'article pour cette source, je vais deja posté une source tout simple avec trois ligne d'explication  :big)  peut etre etre un peu plus qd meme, mais je ne pense pas pour l'instant faire un article format PDF la dessus. 
Les commentaires t'ont ils satisfait ? a tu compris la logique de la source ? 
tout ca pour savoir si je dois reajuster les commentaires, ou si c'est comprehensible. t'as le droit de me dire que t'as pas compris, et meme que mes commentaires sont nuls  ;) , je t'en voudrais pas, je sais que la source est assez complexe pour les débutants, et je sais aussi que je ne suis pas toujours tres clair, et expliquer des fonctions recurrentes .... ;p 

@+

Cyril

cs_Dorutu · Answer

Quant aux commentaires? Très détaillés et très clairs.  En ce qui concerne les fonctions récurentes j'en ai l'habitude. C'est vrai dans des contextes différents mais la logique est la même!
Le seul point d'interrogation si tu veux restent les méthodes:
RegisterRequiresPostBack et ClientScript.RegisterStartupScript
Je ne saisis pas très bien quand et comment s'en servir!!!!
Net_Amateur

jesusonline · Answer

si RegisterRequiresPostBack est true ca va forcer l'affichage de la fonction javascrip postback 

sinon la fonction javascript postback n'y sera pas

Par contre il suffit qu'un seul controle de la page la mette à true pour qu'elle y soit, or dans mon cas il y avait deja le treeview qui met cette propriété à true, donc  dans mon cas c'est inutile de l'ajouter, mais c'est pas vrai dans tout les cas.

sinon pour ClientScript.RegisterStartupScript le premier argument, j'ai rien compris, c'est une nouveauté de .net 2.0 et je cherche à l'expliquer, par contre pour le deuxieme, c'est le nom du script, dans certains cas, tu peux avoir a introduire le script à differents endroits, et avec la fonction isregisterStartupScript(id) il te retourne si la fonction est deja dans la page ou non, le troisieme argument, c'est le script en lui meme. 

C'est vrai que ces deux fonctions sont tres spéciales, et tres peu utilisé, et aussi assez complexe, mais c'est tellement pratique ... 

@+

Cyril

jesusonline · Answer

Tout à l'heure j'ai repensé à cette solution, je trouvais qu'il y avait encore beaucoup trop de code la dedans ... et que c'etait encore beaucoup trop compliqué à utiliser. puis d'un seul coup, je me suis dit : pourquoi ne pas dériver le TreeView 8-) et controler un evenement qui sera concu pour ca ??? Je sais pas pourquoi je n'y avais pas pensé avant, la solution était bien simple!!! Voici le code complet de la page (juste le code behind, le code html reste presque inchangé) Partial Class Default3_aspx Private Sub MyTreeView1_SelectedCheckedChanged (ByVal sender As Object, ByVal e As System.Web.UI.WebControls.TreeNodeEventArgs) Handles MyTreeView1.SelectedCheckedChanged Dim Node As TreeNode = e.Node If Node.Checked Then Message.Text = "Declenchement de l'événement en cochant : " & Node.Text Else Message.Text = "Declenchement de l'événement en décochant : " & Node.Text End If End Sub Private Sub MyTreeView1_SelectedNodeChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyTreeView1.SelectedNodeChanged Message.Text = "Vous avez cliqué sur : " & CType(sender, TreeView).SelectedNode.Text End Sub End Class et oui il y qu'une quinzaine de ligne, impressionnant non ??? ;) Quelle est la nouveauté ? simplement un nouvelle evenement : MyTreeView1.SelectedCheckedChanged cet évenement n'existait pas avant !!! et c'est lui qui est generélorsque l'on clique sur un seul Checkbox :) Ce n'est pas le meme que CheckedChanged, Je mets pas le code complet du controle dérivé, car pour l'instant il est en cours de developpement, il va finir de se créer dans la nuit, ou demain :) mais il me reste encore des bricoles à faire, j'ai un problème si le noeud n'a pas été trouvé, il me retourne un nothing qui n'est encore pas aimé, et il me reste aussi à modifier la propriété AutoPostBackCheckedChanged qui comme son nom l'indique, est un boolean qui determine si oui ou non il y aura un postback sur le click ce que j'aurais aimé faire, c'est pouvoir sélectionner les CheckBox qui font le postback, mais j'aurais aimé le faire en dérivant TreeNode, qui est bien sur notre problème premier :) mais c'est tout à fait possible, il suffirait de coder encore un petit peu, mais ce serait compliqué pour y accéder. Je te finis donc ce petit controle, j'essaye de le commenter mais le code est sensiblement identique. Encore une nouvelle notion qui entre dans la solution de ce problème : la notion de dérivation :) Ton problème initial, était en tout cas un joli problème, qui m'a bien plus :) PS : pour le rendu que t'as vu, j'ai mis moins de 20 minutes à faire le code, (dont la plupart à comprendre les nouveauté de la gamme Visual Studio Express) En tout cas, c'est un reel plaisir de faire du dotnet, on arrive à des choses complexes, avec une extreme simplicité : [i]"Le .net que du bonheur"~~Rédo~~ @+ Cyril/b

jesusonline · Answer

Bon c'est finit pour ce soir :) 

voici le code 

MyTreeView.vb

Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.ComponentModel

 
Namespace Cyril.Web.Controls

     _
    Public Class MyTreeView
        Inherits System.Web.UI.WebControls.TreeView

        ''' 
        ''' 
        ''' 
        ''' 
        Private _AutoPostBackCheckedChanged As Boolean

        ''' 
        ''' 
        ''' 
        ''' 
        ''' 
         _
        Public Overridable Property AutoPostBackCheckedChanged() As Boolean
            Get
                Return _AutoPostBackCheckedChanged
            End Get
            Set(ByVal value As Boolean)
                _AutoPostBackCheckedChanged = value
            End Set
        End Property

        ''' 
        ''' 
        ''' 
        ''' 
         _
        Public Event SelectedCheckBoxChanged As TreeNodeEventHandler

        ''' 
        ''' 
        ''' 
        ''' 
         _
        Protected Overridable Sub OnSelectedCheckBoxChanged()

            ' on Déclare un TreeNode, et on lui demande de chercher le node grace à la fonction 
            ' TreeNodeJustChecked qui donne en paramètre pour collection de noeud la collection de noeud 
            ' du treeview, et pour ValuePath Request.Form("__EVENTARGUMENT")
            Dim TheNode As TreeNode = TreeNodeJustChecked(Me.Nodes, Page.Request.Form("__EVENTARGUMENT"))

            ' Au cas où le noeud n'est pas retrouvé sa valeur sera nulle, on ne pourra pas se servir de Thenode
            If TheNode IsNot Nothing Then

                RaiseEvent SelectedCheckBoxChanged(Me, New TreeNodeEventArgs(TheNode))

            Else
                ' Si le noeud n'a pas été trouvé, on se sert de la seule information que
                ' l'on a a notre disposition : Request.Form("__EVENTARGUMENT") qui contient le ValuePath 
                ' du noeud qui a été coché/décoché, et donc via une manipulation de chaine on peut recuperer
                ' le texte du noeud cliqué, mais on ne peut pas savoir si le Checkbox a été coché ou décoché
                '
                ' (On pourrait le savoir en modifiant le PostBack, est plutot que faire __doPostBack
                '  avec pour premier argument LinksTreeView.ClientID & "Checked", on mettrait le nom 
                '  du Checkbox et on pourrait arriver à connaitre des infos en faisant un Request.Form
                '  de l'id du Checbox, mais c'est pas utile, et ca compliquerais le script)
                RaiseEvent SelectedCheckBoxChanged(Me, New TreeNodeEventArgs(Nothing))

            End If

        End Sub

        ''' 
        ''' Sert pour connaitre le TreeNode que l'on vient juste de cocher/decocher
        ''' Demande en paramètre une collection de noeud, et le nodePath par exemple : Table of Contents/Chapter Two/Section 2.0
        ''' A partir de la collection de noeud, on va regarder tout ses noeuds enfants, jusqu'a en trouver un 
        ''' possedant le meme NodePath, c'est une fonction recurrente
        ''' La fonction retourne nothing si le noeud n'est pas trouvé
        ''' 
        ''' 

        ''' 

        ''' 
        ''' 
        Private Function TreeNodeJustChecked(ByVal NodeColl As TreeNodeCollection, ByVal NodePath As String) As TreeNode
            ' Si la collection de noeud est vide, on retourne nothing et on part 
            If NodeColl.Count = 0 Then
                Return Nothing
                Exit Function
            End If

            ' Pour Chaque noeud de la collection 
            For Each Node As TreeNode In NodeColl

                ' si le noeud courant a des noeuds enfants
                If Not Node.ChildNodes.Count = 0 Then
                    'Noeud temporaire : appelle de la fonction recurrente
                    ' avec les noeuds enfants, et le valuepath recherché
                    Dim _TreeNodeJustChecked As TreeNode = TreeNodeJustChecked(Node.ChildNodes, NodePath)

                    ' si la variable temporaire n'est pas nul, c'est à dire si le noeud à été trouvé
                    ' on a gagné !!! on retourne le noeud trouvé et on part
                    If _TreeNodeJustChecked IsNot Nothing Then
                        Return _TreeNodeJustChecked
                        Exit Function
                    End If
                End If

                ' si le value path du noeud courant et le meme que la value path recherché 
                ' on a gagné !!! on retourne le noeud courant et on part
                If Node.ValuePath = NodePath Then
                    Return Node
                    Exit Function
                End If

            Next

            ' si on est pas partis dans la boucle for c'est qu'on a pas trouvé le noeud dans cette 
            ' collection de noeud dans ce cas : on retourne Nothing
            Return Nothing

        End Function

        ''' 
        ''' Premiere version de writeScript, c'est de celui ci que je me sert, j'aurais pu m'en servir
        ''' directement dans le LinksTreeView_init, mais ca me faisait rajouter une variable 0, et ca faisait pas joli 
        ''' cette variable 0 est indispensable au bon fonctionnement de la fonction 
        ''' lorsqu'on appelle cette fonction, on appelle la deuxieme version de WriteScript avec le paramètre 0
        ''' 

        ''' 

        ''' 
        ''' 
        Private Function WriteScript(ByVal NodeColl As TreeNodeCollection, ByVal IDTreeview As String) As String
            Return WriteScript(NodeColl, IDTreeview, 0)
        End Function

        ''' 
        ''' WriteScript est la fonction qui genere le code javascript 
        ''' elle demande en paramètre une collection de noeud l'id du treeview et un integer
        ''' c'est une fonction recurrente : qui s'appelle elle meme 
        ''' la variable i est un compteur pour compter le nombre de noeud,
        ''' et surtout dans quelle noeud on se situe
        ''' Comme c'est une fonction recurrente, qu'on appelle pour tout les noeud du Treeview 
        ''' et qu'il n'y a qu'un seul compteur, et bien sur que l'on ne doit pas reinitialiser à chaque noeud
        ''' i est une valeur par reference
        ''' j'ai besoin d'un compteur car j'ai remarqué, que les Checkbox avait un nom 
        ''' et la seule difference entre les noms de tout les noeud du treeview était un chiffre 
        ''' le name du checkbox est de la forme : IDTreeView + "n" + Compteur + "CheckBox" ==> LinksTreeViewn0CheckBox par exemple
        ''' 
        ''' 

        ''' 

        ''' 

        ''' 
        ''' 
        Private Function WriteScript(ByVal NodeColl As TreeNodeCollection, ByVal IDTreeview As String, ByRef i As Integer) As String

            ' si le noeud dans leque on est vide, on part 
            ' les 4 lignes sont équivalentes à l'unique ligne
            'If NodeColl.Count = 0 Then
            '    i += 1
            '    Return ""
            '    Exit Function
            'End If
            If NodeColl.Count = 0 Then i += 1 : Return "" : Exit Function

            'Variable temporaire, qui contiendra le script de la collection de noeud en cours
            Dim _WriteScript As String = ""

            ' pour chaque noeud de la collection en cours
            For Each Node As TreeNode In NodeColl

                ' si le Checkbox est present
                ' c'est à dire qu'on execute le code seulement si il y a une case à cocher
                If Node.ShowCheckBox Then

                    'Code pour les bons navigateurs comme Firefox ;)                    '_WriteScript &"     theForm." & IDTreeview & "n" & i & "CheckBox.onclick function(){"
                    '_WriteScript &= "__doPostBack("
                    '_WriteScript &= """" & IDTreeview & "Checked"""
                    '_WriteScript &= ","
                    '_WriteScript &= """" & Node.ValuePath & """"
                    '_WriteScript &= " )};" & vbNewLine

                    'Code esperé pour IE6 SP1
                    ' C'est donc le code javascript pour un seul noeud, c'est ici que
                    ' tout le travail javascript repose
                    ' on a besoin du compteur pour savoir quelle checkbox appellé 
                    ' on a egalement besoin de l'id du treeview                     _WriteScript &"     theForm." & IDTreeview & "n" & i & "CheckBox.onclick " & IDTreeview & "n" & i & vbNewLine
                    _WriteScript &= "function " & IDTreeview & "n" & i & "(){"
                    _WriteScript &= " __doPostBack("
                    _WriteScript &= """" & IDTreeview & "Checked"""
                    _WriteScript &= ","
                    _WriteScript &= """" & Node.ValuePath & """"
                    _WriteScript &= " ) };" & vbNewLine & vbNewLine

                End If

                ' on incremente notre compteur de 1 aussi bien pour les noeud avec checkbox que sans
                i += 1

                ' si le noeud courrant a des noeuds enfants, on va appeller WriteScript 
                ' que l'on ajoute à notre variable temporaire _WriteScript 
                ' on lui passe en paramètres, les noeuds enfants 
                ' l'id du treeview et notre compteur, qui va s'incrementer par reference
                ' c'est à dire que si maintenant i = 2 apres l'appel i ne sera plus égal à 2
                ' c'est cette condition qui constitue la recurrence
                If Not Node.ChildNodes.Count = 0 Then _WriteScript &= WriteScript(Node.ChildNodes, IDTreeview, i)

                'Noeud suivant ...
            Next

            ' on retourne notre variable temporaire contenant tout le code javascript,
            ' generé pour tout les noeuds enfant de la collection de noeud courante
            Return _WriteScript

        End Function

        ''' 
        ''' 
        ''' 
        ''' 

        ''' 
        Protected Overrides Sub OnInit(ByVal e As System.EventArgs)
            ' Je rajoute cette ligne au cas ou le Treeview soit invisible,
            ' en effet, si visible = false, il n'y aura pas le code generé
            ' est donc lorsque qu'avec javascript je vais appeller les checkbox
            ' ils vont pas etre trouvé, et une erreur javascript va m'etre retourné
            If Me.Visible Then

                ' Variable Script qui sert au stockage de tout le script javascript que l'on va inserer
                Dim Script As String
                ' Ces quelques lignes sert à dire quel langage on va utiliser et une ligne
                ' et l'autres sert pour les anciens navigateurs ne connaissant pas javascript
                Script = "" & vbNewLine
                Script &= " " & vbNewLine
                Script &= "" & vbNewLine
                ' ici on indique que notre treeview a besoin de la fonction PostBack
                ' cette ligne ne sert à rien car le treeview necessite deja le postback 
                ' mais c'est un bon reflexe à prendre car ce n'est pas le cas de tout les controles
                ' cette ligne sert donc juste à rajouter ce code javascript, s'il n'est pas présent : 
                '   
                '   
                '   
                ' J'ai besoin de cette fonction pour effectuer le postback par les Checkbox
                Page.RegisterRequiresPostBack(Me)

                ' ici on enregistre le script, et donc l'insere dans la page 
                ' la fonction necessite le script et l'id "CheckBoxLinksTreeView" dans notre cas
                Page.RegisterStartupScript("CheckBox" & Me.ClientID, Script)

            End If

        End Sub

        ''' 
        ''' 
        ''' 
        ''' 

        ''' 
        Protected Overrides Sub OnLoad(ByVal e As System.EventArgs)

            ' on regarde Request.Form("__EVENTTARGET") = LinksTreeView.ClientID & "Checked"
            ' en effet, lors du PostBack par un clique sur un CheckBox
            ' je fais apré javascript appelle à la fonction __doPostBack(LinksTreeView.ClientID & "Checked",ValuePath du noeud du checkbox)
            ' la fonction __doCallBack assigne son premier paramètre à la valeur de 
            ' et la deuxieme valeur à "__EVENTARGUMENT" c'est ainsi que fonctionne le PostBack
            If Page.Request.Form("__EVENTTARGET") = Me.ClientID & "Checked" Then OnSelectedCheckBoxChanged()

            MyBase.OnLoad(e)
        End Sub

    End Class

End Namespace

 

default3.aspx







    Untitled Page


    
        

            
                
                    
                        
                            
                                
                                
                                
                            
                            
                                
                                
                                
                                
                            
                        
                        
                            
                                
                                
                            
                        
                    
                
            
            
        

    



 

Default3.aspx.vb


Partial Class Default3_aspx

    Private Sub MyTreeView1_SelectedCheckBoxChanged(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.TreeNodeEventArgs) Handles MyTreeView1.SelectedCheckBoxChanged

        Dim Node As TreeNode = e.Node
        If Node.Checked Then
            Message.Text = "Declenchement de l'événement en cochant : " & Node.Text
        Else
            Message.Text = "Declenchement de l'événement en décochant : " & Node.Text
        End If

    End Sub

    Private Sub MyTreeView1_SelectedNodeChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyTreeView1.SelectedNodeChanged
        Message.Text = "Vous avez cliqué sur : " & CType(sender, TreeView).SelectedNode.Text
    End Sub

End Class


Tu dois faire une assembly de TreeView.vb, pour cela va dans Visual Basic Express 2005 puis créer un nouveau composant windows, supprime les fichiers qu'ils te mettent, et met treeview.vb, n'oublie pas de faire reference à System.Web.dll, le nom de l'assembly est Cyril.Web.Controls.MyTreeView.dll et tu dois configurer VBExpress 2005 pour qu'il n'y est pas de namespace root, apres tu n'as qu'a mettre cette assembly dans le repertoire bin de l'application web.

si tu sais pas comment faire, donne moi ton mail, je te passerais l'assembly. 

Sinon, j'ai découvert avec joie que mon TreeView était compatible avec FireFox, je n'arrive pas à comprendre pourquoi, j'ai peut etre fait une MAJ de Firefox, en tout cas c'est une bonne nouvelle :) 

par contre un peu plus grave :
Important
J'ai découvert un bug en faisant joujou sous Firefox avec mon treeview qui marchait, qd on clique sur le - on reduit le TreeView, et en faisant ca, le code HTML n'est plus la, et qd je fais reference au Checkbox qui ne sont pas la dans Javascript, ben ca plante, tout le script, donc faut que je vérifie que le checkbox soit bien présent avant de l'appeller ... ca doit etre possible en asp, tres facile en javascript, mais je prefere le faire en asp, faut juste que j'arrive à trouver comment :) 

Sinon pour le script ci dessus, il est pas encore finalisé, il me reste encore pas mal de choses à faire, mais j'essaye d'y faire proprement, et je decouvre aussi pas mal de nouveautés donc ca vient petit à petit ... 

@+

Cyril

Click sur un noeud d'un treview ASP net 2.0

52 réponses

Votre réponse

Discussions similaires