utilisation de la méthode FindAll

Version imprimable

bonjour,

je n'arrive pas à utiliser la méthode Findall
VB me souligne en bleu conditiondiametresortiebis dans la fonction "touslestrouver"
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Imports System.Collections.Generic Public Function touslestrouver(ByRef listeafiltrer As List(Of CunetteDispo), ByVal diametresortiebis As Integer) As List(Of CunetteDispo) Dim sortie As New List(Of CunetteDispo) sortie = listeafiltrer.FindAll(AddressOf conditiondiametresortiebis) Return sortie End Function Private Function conditiondiametresortiebis(ByRef element As CunetteDispo) As Boolean If element.ESStandart.DiametreSortie = 315 Then Return True Else Return False End If End Function
Est ce que qqn a déjà eu ce genre de probleme?
commentfaire de plus si ma fonction conditiondiametresortiebis dépend d'un integer qui n'a rien a voir avec un objet appartenant à la classe cunettedispo(que j'ai crée)

merci par avance

Bonjour,

La première des chose est de déclarer le paramètre du prédicat ByVal et non ByRef

Code:

Private Function conditiondiametresortiebis(ByVal element As CunetteDispo) As Boolean

Pour utiliser un integer en paramètre à la place de la valeur 315 de ton exemple, il faut déclarer soit : une variable public au niveau module, ou le mieux une propriété au niveau de la classe dont on affecte la valeur avant l'appel à FindAlll

exemple

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
Private mComparateurAs Integer
       Public Property Comparateur() As Integer
        Get
                        Return mComparateur
        End Get
        Set(ByVal value As Integer)
 
            mComparateur = value
        End Set
    End Property
 
Public Function touslestrouver(ByRef listeafiltrer As List(Of CunetteDispo), ByVal diametresortiebis As Integer) As List(Of CunetteDispo)
 
        Dim sortie As New List(Of CunetteDispo)
mComparateur = diametresortiebis
        sortie = listeafiltrer.FindAll(AddressOf conditiondiametresortiebis)
        Return sortie
    End Function
 
    Private Function conditiondiametresortiebis(ByVal element As CunetteDispo) As Boolean
        If element.ESStandart.DiametreSortie = mComparateur Then
            Return True
        Else
            Return False
        End If
    End Function

A+

30/07/2010, 11h15
Pito18

ça marche nickel

Merci!