Salut à tous
voila j'ai le code suivant :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
    Private Sub btnfin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnfin.Click
        MsgBox("Partie finie! Voici votre score : " & Cscore & " " & " Nouvelle partie.")
        Dim sta As New ClassYams.Statistiques
        rep = sta.initcol(Cscore)
        MsgBox(rep)
et la classe suivante avec la fonction correspondante à l'appel ci-dessus :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
Imports System.Collections
Public Class Statistiques
 
    Private stat As New Collection
    Public Function initcol(ByVal scorefinal As Integer)
 
        stat.Add(scorefinal)
        Return stat.Contains(scorefinal)
    End Function
sauf qui me retourne false donc c'est qu'il n'a pas ajouté le chiffre dans la collection. et je sais pas pourquoi il ne l'ajoute pas.

Merci de m'aider