Discussion :

[Pito18]

bonjour,

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

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
 
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

[Geo2A]

Bonjour,

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

Code :

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

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 :

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
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+

[Pito18]

ça marche nickel

Merci!