Discussion :

[megamario]

Bonjour à tous,

J'expérimente un peu le WPF et les objets graphiques que j'aurai besoin.
Sur mon temps perso j'expérimente cela en C# pour me faire la main, mais au taf, comme le projet d'origine est en VB6 puis VB.net (WinForm) je conserve pour le moment ce langage.

Concernant le treeview, j'arrive à créer mon arbre avec les icônes, en utilisant le mvvm, mais je n'arrive pas pour le moment à utiliser l'équivalent d'un NodeMouseClick pour récupérer le noeud sélectionné.
Les informations que j'ai trouvé utilisent soit le MouseLeftButtonUp, ou le Selected.
Pour le 1er cela semble convenir, mais une question me travail, si l'utilisateur est gaucher avec sa souri inversé, cela se passe comment ?

De plus tout ce que j'ai trouvé utilise l’événement classique, sans utiliser le paradigm mvvm.

Voila comment j'ai composé mon treeview:

Code XAML :

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
 <TreeView x:Name="MainTreeView" HorizontalAlignment="Stretch" Margin="10" VerticalAlignment="Stretch" ItemsSource="{Binding EnfantBases}" SelectedItemChanged="Tree_SelectedItemChanged">
            <TreeView.ItemTemplate>
                <HierarchicalDataTemplate ItemsSource="{Binding BaseTreeview}" DataType="ClsEnfantBaseTreeview">
                    <StackPanel Orientation="Horizontal">
                        <Image Width="16" Height="16" Margin="3,0" Source="{Binding ParentImage}" />
                        <Label Content="{Binding ParentName}"/>
                    </StackPanel>
                    <HierarchicalDataTemplate.ItemTemplate>
                        <HierarchicalDataTemplate ItemsSource="{Binding Attributs}" DataType="ClsBaseNameTreeview">
                            <StackPanel Orientation="Horizontal">
                                <Image Width="16" Height="16" Margin="3,0" Source="{Binding EnfantImage}" />
                                <Label Content="{Binding EnfantName}"/>
                            </StackPanel>
                            <HierarchicalDataTemplate.ItemTemplate>
                                <DataTemplate DataType="ClsAttributTreeview">
                                    <StackPanel Orientation="Horizontal">
                                        <Image Width="16" Height="16" Margin="3,0" Source="{Binding AttributImage}" />
                                        <Label Content="{Binding AttributName}"/>
                                    </StackPanel>
                                </DataTemplate>
                            </HierarchicalDataTemplate.ItemTemplate>
                        </HierarchicalDataTemplate>
                    </HierarchicalDataTemplate.ItemTemplate>
                </HierarchicalDataTemplate>
            </TreeView.ItemTemplate>
        </TreeView>

[Phil Rob]

Bonjour,


L'événement NodeMouseClick fonctionne très bien en VB.NET ? N'est-ce pas ce que tu veux ?

Code :

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

1
2
3
Private Sub MaTreeView_NodeMouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.TreeNodeMouseClickEventArgs) Handles MaTreeView.NodeMouseClick
    MessageBox.Show(e.Node.Text) 			' Donne le texte du nœud cliqué
End Sub

Si ton problème est spécifique C#, tu devrais poster ta question sur le forum https://www.developpez.net/forums/f4...ngages/csharp/

Cordialement,

[megamario]

C'est bien pour le Vb.net, le C# je l’apprivoise à titre perso.

Sinon pour le NodeMouseClick ne semble pas exister en WPF, de plus je souhaite garder le mvvm.
Mais je viens de comprendre que je ne cherche pas au bonne endroit, car si je comprend bien ce que j'ai trouvé il ne faut pas justement tenté de récupérer l'information dans le treeview, ce qui nuirait forcement au paradigm MVVM. Mais il faut que je récupère cette information dans mon modeleView.
J'ai pas encore tout compris, mais il faut que j'active une propriété IsSelected, que je bind vers mon modelview.

Genre:

Code :

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

  <Setter Property="IsSelected" Value="{Binding IsSelected, Mode=TwoWay}" />

Mais pour le moment je n'arrive pas a le mettre en application, je continu à chercher.

Lorsque j'essaie d’intégrer cette ligne (Setter) il me dit que Setter ne peut pas être ajouté à une collection.
J'ai vu plusieurs façon d’Implémenté un treeview en xaml, je pense que je n'ai pas forcement utilisé ce qui conviens le mieux.

[MABROUKI]

bonjour

Mais pour le moment je n'arrive pas a le mettre en application, je continu à chercher.

Stop recherche....

Oublie definitivement le doublick et utilise la selection d'un TreeViewItem QUI te renvoie sur l'item (data) grace au Binding et MVVM...
Tu peux editer l'item(data) ,le trituter à souhait...grace aux DP SelectedItem et IsSelected du TreeViewItem "mappees" à des Prop CLR tes modeles MVVM...

voici un exemple code .vb avec MVVM pour utiliser le TreeView WPF...
code behind .vb des modeles MVVM

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
Public Class VMBase
    Implements INotifyPropertyChanged
    Public Event PropertyChanged(sender As Object, e As System.ComponentModel.PropertyChangedEventArgs) Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged
    Public Sub OnPropertyChanged(propname As String)
        RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs(propname))
    End Sub
 
End Class
 
 
Public Class Employe
    Inherits VMBase
    Private mnom As String
    Public Property Nom() As String
        Get
            Return mnom
        End Get
        Set(value As String)
            mnom = value
            OnPropertyChanged("Nom")
        End Set
    End Property
    Private mselectedNode As Employe
    Public Property SelectedNode() As Employe
        Get
            Return mselectedNode
        End Get
        Set(ByVal value As Employe)
            If mselectedNode Is value Then
                Return
            End If
            Dim prev As Employe = mselectedNode
            mselectedNode = value
            If prev IsNot Nothing Then
                prev.Selected = False
            End If
            If mselectedNode IsNot Nothing Then
                mselectedNode.Selected = True
            End If
            OnPropertyChanged("SelectedNode")
        End Set
    End Property
    Private mselected As Boolean
    Public Property Selected() As Boolean
        Get
            Return mselected
        End Get
        Set(ByVal value As Boolean)
            mselected = value
            OnPropertyChanged("Selected")
        End Set
    End Property
    Public Sub New()
        Nom = ""
    End Sub
    Public Sub New(pemploy As String)
        Me.New()
        Nom = pemploy
    End Sub
End Class
 
 
 
Imports System.Collections.ObjectModel
Public Class Service
    Inherits VMBase
    Private mnom As String
    Public Property Nom() As String
        Get
            Return mnom
        End Get
        Set(value As String)
            mnom = value
            OnPropertyChanged("Nom")
        End Set
    End Property
    Private magent As String
    Public Property NomAgent() As String
        Get
            Return magent
        End Get
        Set(value As String)
            magent = value
            OnPropertyChanged("NomAgent")
        End Set
    End Property
    Private memployes As ObservableCollection(Of Employe)
    Public Property Employes() As Observablecollection(Of Employe)
        Get
            Return memployes
        End Get
        Set(ByVal value As ObservableCollection(Of Employe))
            memployes = value
            OnPropertyChanged("Employes")
        End Set
    End Property
    Private mselectedNode As Service
    Public Property SelectedNode() As Service
        Get
            Return mselectedNode
        End Get
        Set(ByVal value As Service)
            If mselectedNode Is value Then
                Return
            End If
            Dim prev As Service = mselectedNode
            mselectedNode = value
            If prev IsNot Nothing Then
                prev.Selected = False
            End If
            If mselectedNode IsNot Nothing Then
                mselectedNode.Selected = True
            End If
            OnPropertyChanged("SelectedNode")
        End Set
    End Property
 
    Private mselected As Boolean
    Public Property Selected() As Boolean
        Get
            Return mselected
        End Get
        Set(ByVal value As Boolean)
            mselected = value
            OnPropertyChanged("Selected")
        End Set
    End Property
 
    Public Sub New()
        Nom = ""
        memployes = New ObservableCollection(Of Employe)()
 
    End Sub
    Public Sub New(svcnom As String)
        Me.new()
        Nom = svcnom
    End Sub
End Class
 
Imports System.Collections.ObjectModel
Public Class Departement
    Inherits VMBase
    Private mnom As String
    Public Property Nom() As String
        Get
            Return magent
        End Get
        Set(value As String)
            magent = value
            OnPropertyChanged("Nom")
        End Set
    End Property
    Private magent As String
    Public Property NomAgent() As String
        Get
            Return magent
        End Get
        Set(value As String)
            magent = value
            OnPropertyChanged("NomAgent")
        End Set
    End Property
 
    Private mservices As ObservableCollection(Of Service)
    Public Property Services As ObservableCollection(Of Service)
        Get
            Return mservices
        End Get
        Set(value As ObservableCollection(Of Service))
            mservices = value
            OnPropertyChanged("Services")
        End Set
    End Property
    Private mselectedNode As Service
    Public Property SelectedNode() As Service
        Get
            Return mselectedNode
        End Get
        Set(ByVal value As Service)
            If mselectedNode Is value Then
                Return
            End If
            Dim prev As Service = mselectedNode
            mselectedNode = value
            If prev IsNot Nothing Then
                prev.Selected = False
            End If
            If mselectedNode IsNot Nothing Then
                mselectedNode.Selected = True
            End If
            OnPropertyChanged("SelectedNode")
        End Set
    End Property
 
    Private mselected As Boolean
    Public Property Selected() As Boolean
        Get
            Return mselected
        End Get
        Set(ByVal value As Boolean)
            mselected = value
            OnPropertyChanged("Selected")
        End Set
    End Property
    Public Sub New()
        Nom = ""
        mservices = New ObservableCollection(Of Service)()
 
    End Sub
    Public Sub New(depnom As String)
        Me.new()
        Nom = depnom
 
    End Sub
 
End Class
 
 
Imports System.Collections.ObjectModel
Public Class MainVM
    Inherits VMBase
    Private mdepartements As ObservableCollection(Of Departement)
    Public Property Departements() As ObservableCollection(Of Departement)
        Get
            Return mdepartements
        End Get
        Set(ByVal value As ObservableCollection(Of Departement))
            mdepartements = value
            OnPropertyChanged("Departements")
        End Set
    End Property
    Private mselectedNode As Departement
    Public Property SelectedNode() As Departement
        Get
            Return mselectedNode
        End Get
        Set(ByVal value As Departement)
            If mselectedNode Is value Then
                Return
            End If
            Dim prev As Departement = mselectedNode
            mselectedNode = value
            If prev IsNot Nothing Then
                prev.Selected = False
            End If
            If mselectedNode IsNot Nothing Then
                mselectedNode.Selected = True
            End If
            OnPropertyChanged("SelectedNode")
        End Set
    End Property
    Private mselected As Boolean
    Public Property Selected() As Boolean
        Get
            Return mselected
        End Get
        Set(ByVal value As Boolean)
            mselected = value
            OnPropertyChanged("Selected")
        End Set
    End Property
    Private mexpanded As Boolean
    Public Property Expanded() As Boolean
        Get
            Return mexpanded
        End Get
        Set(ByVal value As Boolean)
            mexpanded = value
            OnPropertyChanged("Expanded")
        End Set
    End Property
 
 
    Public Sub New()
        mdepartements = New ObservableCollection(Of Departement)
        LoadAll()
    End Sub
    Private Sub LoadAll()
        'add departements
        Dim dept1, dept2, dept3 As Departement
        dept1 = New Departement("DotNet")
        dept2 = New Departement("Club Professionels")
        dept3 = New Departement("Systemes")
        Departements.Add(dept1)
        Departements.Add(dept2)
        Departements.Add(dept3)
 
        'add services to dept1
        Dim svc1, svc2, svc3 As Service
        svc1 = New Service("Forum VB.Net")
        svc2 = New Service("Forum C++")
        dept1.Services.Add(svc1)
        dept1.Services.Add(svc2)
        'add employes to svc1,svc2
        Dim emp1, emp2, emp3 As Employe
        emp1 = New Employe("Employe1 VB.Net")
        emp2 = New Employe("Employe2 VB.Net")
        svc1.Employes.Add(emp1)
        svc1.Employes.Add(emp2)
 
        emp1 = New Employe("Employe1 Forum C++")
        emp2 = New Employe("Employe2 Forum C++")
        emp3 = New Employe("Employe3 Forum C++")
        svc2.Employes.Add(emp1)
        svc2.Employes.Add(emp2)
        svc2.Employes.Add(emp3)
 
 
        'add services to dept2
        svc1 = New Service("Actualites")
        svc2 = New Service("Taverne")
        dept2.Services.Add(svc1)
        dept2.Services.Add(svc2)
 
        'add services to dept3
        svc1 = New Service("Hardware")
        svc2 = New Service("Windows")
        dept3.Services.Add(svc1)
        dept3.Services.Add(svc2)
 
        'add employes to svc1,svc2
        emp1 = New Employe("Employe1 Hardware")
        svc1.Employes.Add(emp1)
        emp2 = New Employe("Employe1,Windows")
        emp3 = New Employe("Employe2,Windows")
        svc2.Employes.Add(emp2)
        svc2.Employes.Add(emp3)
    End Sub
End Class

code xaml du Form User:

Code XAML :

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
<Window x:Class="MainWindow"
    xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
    xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
    xmlns:local="clr-namespace:WpfTVNodes" 
    Title="MainWindow" Height="350" Width="525"
        >
    <Window.DataContext>
        <local:MainVM></local:MainVM>
    </Window.DataContext>
    <Window.Resources>
        <HierarchicalDataTemplate 
            DataType="{x:Type local:Departement}"
            ItemsSource="{Binding Services}">
            <Label Content="{Binding Nom}">
                <Label.Style >
                    <Style TargetType="Label" >
                        <Style.Triggers>
                            <DataTrigger Binding="{Binding Selected}" Value="true">
                                <Setter Property="Foreground" Value="Red" />
                            </DataTrigger>
                        </Style.Triggers>
                    </Style>
                </Label.Style> 
            </Label> 
        </HierarchicalDataTemplate> 
        <HierarchicalDataTemplate 
            DataType="{x:Type local:Service}"
            ItemsSource="{Binding Employes}"
            >
            <Label Content="{Binding Nom}">
                <Label.Style >
                    <Style TargetType="Label" >
                        <Style.Triggers>
                            <DataTrigger Binding="{Binding Selected}" Value="true">
                                <Setter Property="Foreground" Value="Red" />
                            </DataTrigger>
                        </Style.Triggers>
                    </Style>
                </Label.Style>
            </Label> 
        </HierarchicalDataTemplate>
 
        <DataTemplate 
            DataType="{x:Type local:Employe}">
            <Label Content="{Binding Nom}">
                <Label.Style >
                    <Style TargetType="Label" >
                        <Style.Triggers>
                            <DataTrigger Binding="{Binding Selected}" Value="true">
                                <Setter Property="Foreground" Value="Red" />
                            </DataTrigger>
                        </Style.Triggers>
                    </Style>
                </Label.Style>
            </Label> 
        </DataTemplate>
 
    </Window.Resources>
    <Grid>
        <Grid.ColumnDefinitions>
            <ColumnDefinition></ColumnDefinition>
            <ColumnDefinition></ColumnDefinition>
        </Grid.ColumnDefinitions>
        <TreeView 
            Grid.Column="0"
            x:Name="tv" 
            HorizontalAlignment="Stretch"  VerticalAlignment="Stretch" 
            Margin="10"
            ItemsSource="{Binding Departements}"
             >
            <TreeView.ItemContainerStyle>
                <Style TargetType="TreeViewItem" >
                    <Setter Property="FontSize" Value="20" />
                    <Setter Property="IsExpanded" Value="{Binding Expanded,Mode=TwoWay}"/>
                    <Setter Property="IsSelected" Value="{Binding Selected, Mode=TwoWay}"/>
                    <Style.Triggers >
                        <Trigger Property="IsSelected" Value="true" >
                            <Setter Property="FontWeight" Value="Bold"  />
                            <Setter Property="FontStyle" Value="Italic"  />
                            <Setter Property="Foreground" Value="Red"  />
                        </Trigger>
                    </Style.Triggers>
                </Style>
            </TreeView.ItemContainerStyle>
        </TreeView>
        <StackPanel
            Grid.Column="1">
            <TextBox Text="{Binding ElementName=tv,Path=SelectedItem.Nom}"/>
        </StackPanel>
    </Grid>
</Window>

pas de code behind.vb du form...

Pour le pattern Command ,il suffit de rajouter des customs "commands" telles que "Add","Save" dans chacun des VM donnés et de pourchasser ou "traquer"
le pauvre SelectedItem et soit l' "ajouter" soit le "modifier" dans la collection du VM consideré....
bon code....

[megamario]

Un grand merci MABROUKI, je n’était pas chez moi ce week-end, je regarde cela ce matin, merci encore.

[EDIT] J'ai recréé votre exemple, cela fonctionne parfaitement, merci encore, mais pour le moment j'ai pas eue le temps d’intégrer le partie commande, mais il va me manquer des bases la dessus, faut que je reprenne certains test tuto que j'ai trouvé avant de tenter d'aller plus loin.

J'aurais une petite question sur la création du treeview et une explication sur ce que je dois faire au final.

Le treeview à 3 niveau et c'est parfait c'est ce que j'ai besoin la plupart du temps, mais parfois je n'est pas besoin du rand 2. Je vais directement du rand 1 vers le 3 sans afficher le rand 2, si ce n'est pas faisable facilement je m'arrangerais pour en créer un fictif.

Explication:

Le treeview me servira à afficher la configuration d'un automate programmable, il affiche les objets consultable, un peu notre protocole de communication, mais de façon plus clair pour le l'utilisateur.
Sur le rand 1 (le parent) je vais avoir :
BATT
RECT
AC
DC
etc... avec la désignation
BATT - Branche batterie
RECT - Redresseur
etc... etc...

Mais parfois j'ai donc le rand 2 qui lui affichera les numéros lorsqu'il y a plusieurs objet (identique)

Par exemple
BATT - Branche batterie
>>BATT_1 - Branche 1
>>BATT_2 - Branche 2
>>BATT_3 - Branche 3
>>etc...

Ensuite les attributs au rand 3 correspondent au données que contiennent chaque Objet
BATT - Branche batterie
>>BATT_1 - Branche 1
>>>>Tension
>>>> Courant
>>>> Etat
>>>> ....
>>BATT_2
>>>> Tension
>>>> Courant
>>>> Etat
....
Dans ce cas les attributs du rand 3 de cet Objet seront identique sur les X branches de rand 2.

Mais certain objet comme AC n'a pas plusieurs branche:
AC - Tension réseau
>> Tension
>> Courant
>> Fréquence
>> ....

Mais bon en cas de facilité dans un premier temps je peut très bien faire:
AC - Tension réseau
>> AC
>>>> Tension
>>>> Courant
>>>> Fréquence
>>>> ....


Un fois le Treeview construit, je dois récupérer la valeur de l’attribut (le rand 3 ou 2 suivant la situation si j'y arrive) lorsque l'utilisateur aura cliquer dessus, puis l'affiché, car cette valeur doit pouvoir être modifié.

Par exemple lorsque l'utilisateur clique sur AC/Tension, cela affiche sur le coté la valeur de la tension programmée.
Ce qui est effectué actuellement en WinForm:
un label qui rappel l'objet, l'attribut et sa désignation.
Une textbox pour afficher la valeur et éventuellement la modifier et un bouton pour envoyer la nouvelle valeur au système.

La ou cela se complique encore un peu encore, c'est que la valeur de l’attribut n'est pas tout le temps un texte (string), mais on les classes suivant plusieurs type (String, Enum, bits, Boolean, Bitfield, Dates, Heures etc...) :
-Un enum, dans ce cas j'affiche un combobox avec le texte associer à la valeur (integer) de l'attibut.
-Un boolean, dans ce cas cela se comporte comme un combobox avec un emum,
-Parfois j'ai une date ou une heure, dans ce cas j'affiche un Datetimepicker
-Ou encore d'autre j'ai un bitfield, dans ce cas c'est un treeview avec case à coché qui représente les octets. cela permet par exemple de sélectionner les composants additionnel présent ou pas.
-Après j'en au d'autre comme un integer qui se comporte comme un String ou un enum (suivant nos soft) pour par exemple indiquer le relais de sortie pour une alarme.



Ce que je vais essayer de faire c'est de créer le treeview en interrogeant directement ma base de données actuel, qui est construite par classe de niveau justement. L'objet attribut aura donc directement son nom (se qui va servir pour la création du treeview), sa valeur (ce qui va s'afficher lorsque l'on clique sur le treeview), la désignation, la nouvelle valeur a écrire etc.. il y a aussi toutes les indication, sur le type de données a ce niveau (enum, string etc..).

Bref encore du taf en perspective.

[megamario]

Bonjour,

J'ai pu avancer un peu ce matin, j'arrive à créer mon treeview, mais j'ai un petit souci, j'ai des Nom d'objet qui comporte des _ et je ne sais pas pourquoi, il ne les affiches pas.
Au lieu d'avoir Alarm_1 j'ai d'affiché Alarm1.
Pourtant j'affiche dans le textbox le même Nom (suivant l'exemple MABROUKI) et la j'ai bien le _.

Auriez vous une idée?

[megamario]

Oublie definitivement le doublick et utilise la selection d'un TreeViewItem QUI te renvoie sur l'item (data) grace au Binding et MVVM...
Tu peux editer l'item(data) ,le trituter à souhait...grace aux DP SelectedItem et IsSelected du TreeViewItem "mappees" à des Prop CLR tes modeles MVVM...

Je suis désolé MABROUKI, pourriez-vous s'il vous plait me guider un peu, j'ai vraiment du mal à comprendre.

J'ai trouvé ce bout de code en C#:

Code :

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

1
2
3
4
5
6
7
8
9
private void Tree_SelectedItemChanged(object sender, RoutedPropertyChangedEventArgs<object> e)
{
    var selected = Tree.SelectedItem as TreeViewItem;
 
    if (selected != null)
    {
        selected.IsExpanded = true;
    }
}

Il a pour but, théoriquement, de développer l’élément sélectionner sans avoir a double cliquer sur le label ou cliquer sur la flèche. je me suis dit que cela me permet de récupérer le treeviewitem, mais j'ai essayer de le mettre en VB selected est toujours null.

Code :

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

1
2
3
4
5
6
7
Private Sub Tree_SelectedItemChanged(ByVal sender As Object, ByVal e As RoutedPropertyChangedEventArgs(Of Object))
    Dim selected = TryCast(Tree.SelectedItem, TreeViewItem)
 
    If selected IsNot Nothing Then
        selected.IsExpanded = True
    End If
End Sub

Je vous remercie.

[MABROUKI]

ezbonjour

Il a pour but, théoriquement, de développer l’élément sélectionner sans avoir a double cliquer sur le label ou cliquer sur la flèche. je me suis dit que cela me permet de récupérer le treeviewitem, mais j'ai essayer de le mettre en VB selected est toujours null.

Il y a un petit loupe de ma part (un "flaw") dans le xaml du TreeView donné en exemple ...
Voici le cadeau MVVM qui repond à tes souhaits !!!
1/ il faut virer la DP CLR Expanded des 4 VM de l'exemple ...
code vehind.vb des VM:

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
Public Class MainVM
    Inherits VMBase
 
.....etc
 'A VIRER  DANS LES 4 VM INUTILE
    ' & bien sur dans le xaml
    Private mexpanded As Boolean
    Public Property Expanded() As Boolean
        Get
            Return mexpanded
        End Get
        Set(ByVal value As Boolean)
            mexpanded = value
            OnPropertyChanged("Expanded")
        End Set
    End Property
...etc
   End Class

Pour obtenir l'effet voulu (expansion du TreeViewItem sur selection) il suffit de rajouter ce Trigger sur l'itemContainerStyle:

Code XAML :

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
    <TreeView 
            Grid.Column="0"
            x:Name="tv" 
            HorizontalAlignment="Stretch"  VerticalAlignment="Stretch" 
            Margin="10"
            ItemsSource="{Binding Departements}"
            SelectedItemChanged="tv_SelectedItemChanged"  >
            <TreeView.ItemContainerStyle>
                <Style TargetType="TreeViewItem" >
                    <Setter Property="FontSize" Value="20" />
                    <!--A VIRER-->
                    <!--<Setter Property="IsExpanded" Value="{Binding Expanded,Mode=TwoWay}"/>-->
                    <Setter Property="IsSelected" Value="{Binding Selected, Mode=TwoWay}"/>
                    <Style.Triggers >
                        <Trigger Property="IsSelected" Value="true" >
                            <Setter Property="FontWeight" Value="Bold"  />
                            <Setter Property="FontStyle" Value="Italic"  />
                            <Setter Property="Foreground" Value="Red"  />
                            <!--A RAJOUTER-->
                            <Setter Property="IsExpanded" Value="true"/>     
                        </Trigger>
                    </Style.Triggers>
                </Style>
            </TreeView.ItemContainerStyle>
        </TreeView>

Le MVVM permet d’échapper à cet infernal code behind dans l'UI à la recherche d'un hypothétique TreeViewItem:
ton code behind .vb revu mais inutile si tu emploies l'artillerie de campagne "russe" du MVVM:

Code XAML :

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
    <TreeView 
            Grid.Column="0"
            x:Name="tv" 
            HorizontalAlignment="Stretch"  VerticalAlignment="Stretch" 
            Margin="10"
            ItemsSource="{Binding Departements}"
            SelectedItemChanged="tv_SelectedItemChanged"  >
            <TreeView.ItemContainerStyle>
                <Style TargetType="TreeViewItem" >
                    <Setter Property="FontSize" Value="20" />
                    <!--A VIRER-->
                    <!--<Setter Property="IsExpanded" Value="{Binding Expanded,Mode=TwoWay}"/>-->
                    <Setter Property="IsSelected" Value="{Binding Selected, Mode=TwoWay}"/>
                    <Style.Triggers >
                        <Trigger Property="IsSelected" Value="true" >
                            <Setter Property="FontWeight" Value="Bold"  />
                            <Setter Property="FontStyle" Value="Italic"  />
                            <Setter Property="Foreground" Value="Red"  />
                            <!--A RAJOUTER-->
                            <Setter Property="IsExpanded" Value="true"/>     
                        </Trigger>
                    </Style.Triggers>
                </Style>
            </TreeView.ItemContainerStyle>
        </TreeView>

Bon code...