Conversion d'une procédure c# en vb

Version imprimable

Bonjour,

je sèche sur la réécriture de la procédure suivante en vb.net, surtout sur la partie du eventhandler.

Code:

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
        private static void ExpandSubContainers(ItemsControl parentContainer)        {
            foreach (Object item in parentContainer.Items)
            {
                TreeViewItem currentContainer = parentContainer.ItemContainerGenerator.ContainerFromItem(item) as TreeViewItem;
                if (currentContainer != null && currentContainer.Items.Count > 0)
                {
                    //expand the item
                    currentContainer.IsExpanded = true;
 
 
                    //if the item's children are not generated, they must be expanded
                    if (currentContainer.ItemContainerGenerator.Status != GeneratorStatus.ContainersGenerated)
                    {
                        //store the event handler in a variable so we can remove it (in the handler itself)
                        EventHandler eh = null;
                        eh = new EventHandler(delegate
                            {
                                //once the children have been generated, expand those children's children then remove the event handler
                                if (currentContainer.ItemContainerGenerator.Status == GeneratorStatus.ContainersGenerated)
                                {
                                    ExpandSubContainers(currentContainer);
                                    currentContainer.ItemContainerGenerator.StatusChanged -= eh;
                                }
                            });
 
 
                        currentContainer.ItemContainerGenerator.StatusChanged += eh;
                    }
                    else //otherwise the children have already been generated, so we can now expand those children
                    {
                        ExpandSubContainers(currentContainer);
                    }
                }
            }
        }

Bonnes volontés, pouvez vous m'aider avec l'équivalent de la procédure en vb.net

Merci d'avance

30/09/2015, 16h16
GuruuMeditation

ça peut peut-être t'aider : http://converter.telerik.com/
30/09/2015, 16h25
stdebordeau

Merci, mais je l'avais déjà essayé et ça ne marche pas, spécialement sur la partie du eventhandler

suffisait d'utiliser les expressions lambda. Ci dessous la bonne formulation :

Code:

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
    Private Sub ExpandSubContainers(parentContainer As ItemsControl)        For Each item As [Object] In parentContainer.Items
            Dim currentContainer As TreeViewItem = TryCast(parentContainer.ItemContainerGenerator.ContainerFromItem(item), TreeViewItem)
            If currentContainer IsNot Nothing AndAlso currentContainer.Items.Count > 0 Then
                'expand the item
                currentContainer.IsExpanded = True
 
 
                'if the item's children are not generated, they must be expanded
                If currentContainer.ItemContainerGenerator.Status <> GeneratorStatus.ContainersGenerated Then
                    'store the event handler in a variable so we can remove it (in the handler itself)
                    Dim eh As EventHandler = Nothing
                    'once the children have been generated, expand those children's children then remove the event handler
                    eh = New EventHandler(Sub()
                                              If currentContainer.ItemContainerGenerator.Status = GeneratorStatus.ContainersGenerated Then
                                                  ExpandSubContainers(currentContainer)
                                                  RemoveHandler currentContainer.ItemContainerGenerator.StatusChanged, eh
                                              End If
                                          End Sub)
 
 
                    AddHandler currentContainer.ItemContainerGenerator.StatusChanged, eh
                Else
                    'otherwise the children have already been generated, so we can now expand those children
                    ExpandSubContainers(currentContainer)
                End If
            End If
        Next
    End Sub