Discussion :

[avigeilpro]

Bonjour,
Désolé si mon titre venait à ne pas être explicit.
Voila je vous expose mon problème :
J'ai une classe qui contient un tableau :

Code :

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

1
2
3
4
5
6
7
8
9
 
    Public Class TWindowInfo
 
        Public Class TableStruct
                '....
        End Class
 
        Public Tables() As TableStruct
    End Class

Puis dans une Form je fais ceci :

Code :

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

1
2
3
4
5
6
7
8
9
 
        Public ListeTables As New TWindowInfo
 
        '.....
 
        Dim tmpTable As TWindowInfo.TableStruct
        For Each tmpTable In ListeTables.Tables
                '... traitement sur TmpTable
        Next

J'aurais voulu savoir si il était possible de faire quelque chose du genre, et si oui comment je devais m'y prendre :

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
 
    Public Class TWindowInfo
 
        Public Class TableStruct
                '.....
        End Class
 
        Public Tables() As TableStruct
 
        Public Sub ForEachTable(<adresse de la Function/Sub>)
                Dim TmpTable As TableStruct
                For Each tmpTable In Tables
                        'Appeler la Function/Sub passée en paramètre
                Next
        End Sub
 
    End Class

Puis dans une Form je fais ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
        Public ListeTables As New TWindowInfo
 
        '.....
 
        ListeTables.ForEachTable(AddressOf MonTraitement)
 
        '.....
 
        Public Sub MonTraitement(tmpTable As TWindowInfo.TableStruct)
                traitement sur tmpTable
        End Sub

Je fais cela dans le but de rendre plus lisible mon code principale.

Donc mes deux questions sont :
Est-il possible de passer/reccupérer l'adresse d'une Function/Sub en parramètre afin de l'appeler après.
Si oui comment s'y prendre.

Merci d'avance pour toute suggestion.

[Pol63]

les types action et func sont des "pointeurs" vers des méthodes et fonctions
ca n'est pas dispo sur le framework 2 par contre ...

[avigeilpro]

En fait je viens à l'instant de trouver la solution, après toutes ces heures a essayer de comprendre quelque chose qui finalement se trouve être très simple.
Il suffit d'utiliser un Delegate :

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
 
    Public Class TWindowInfo
 
        Delegate Sub MyDelegate(Table As TableStruct)
 
        Public Class TableStruct
                '.....
        End Class
 
        Public Tables() As TableStruct
 
        Public Sub ForEachTable(CBSub As MyDelegate)
                Dim TmpTable As TableStruct
                For Each tmpTable In Tables
                        CBSub.Invoke(tmpTable)
                Next
        End Sub
 
    End Class

Puis dans une Form je fais ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
        Public ListeTables As New TWindowInfo
 
        '.....
 
        ListeTables.ForEachTable(AddressOf MonTraitement)
 
        '.....
 
        Public Sub MonTraitement(tmpTable As TWindowInfo.TableStruct)
                'traitement sur tmpTable
        End Sub

Merci quand même

[Sankasssss]

Vous avez fait la même chose que vous conseillait Pol63 mais par un moyen détourné
Voici ce que ça aurait donné avec un délégué Action :

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
Public Class TWindowInfo
 
    Public Class TableStruct
        '.....
    End Class
 
    Public Tables() As TableStruct
 
    Public Sub ForEachTable(CBSub As Action(Of TableStruct))
        Dim TmpTable As TableStruct
        For Each TmpTable In Tables
            CBSub.Invoke(TmpTable)
        Next
    End Sub
 
End Class

Voila, c'était juste pour information

[Pol63]

delegate est la façon originelle, action et func prennent un peu moins de lignes de code à utiliser mais font la même chose

[avigeilpro]

Merci pour l'information, je prend, quelques lignes de code en moins c'est toujours ça et puis comme ça je saurais faire si un jour j'en ai besoin