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
|
Public Class Form1
'ObjetA est l'un de tes objets
Dim ObjEnCours As ObjetA
Dim listeObj As List(Of ObjetA) = New List(Of ObjetA)
Public Sub New()
' Cet appel est requis par le Concepteur Windows Form.
InitializeComponent()
' Ajoutez une initialisation quelconque après l'appel InitializeComponent().
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
For Each obj1 As ObjetA In listeObj
For Each obj2 As ObjetA In listeObj
If obj1.GAIN = obj2.GAIN Then
'faire ceci avec la propriete GAIN de obj1 et obj2
Else
'faire cela avec la propriete GAIN de obj1 et obj2
End If
Next
Next
End Sub |
Partager