Discussion :

[avigeilpro]

Bonjour,
Bon je crois que mon titre n'est vraiment pas explicite, mais là je ne savais vraiment pas comment résumer ça (ouvert à toute suggestion de modification bien entendu)

Voici mon problème :

J'ai d'une part une classe :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
    Public Class TTypesJeux
 
        Public Structure TypeJeu
            Dim Name As String
            Dim Mains() As String
            Dim TDefault As Boolean
        End Structure
 
        Public Types() As TypeJeu
 
    End Class

Puis dans une Form le code suivant :

Code :

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

1
2
3
4
 
Public MesTypesJeux As New TTypesJeux
ReDim MesTypesJeux.Types(3)
'... attibution de valeurs ...

je souhaiterais que lorsque je fais ceci (par exemple) :

Code :

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

1
2
 
MesTypesJeux.Types(0).TDefault = True

Que tous les autres TDefault de la collection passent à False (Types(1).TDefault , Types(2).TDefault ...). En bref, un seul doit avoir sa propriété TDefault à True.

Or je ne sais ni ou ni comment intégrer cette vérification dans ma classe ou dans ma structure

Est-il possible d'intégrer une procédure/fonction à la structure qui vérifie tous les objets de ma collection ?

Merci pour toute aide

[-N4w4k-]

Bonjour,

Essaie ça:

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 TTypesJeux
 
        Public Structure TypeJeu
            Dim Name As String
            Dim Mains() As String
            Dim TDefault As Boolean
        End Structure
 
        Public Types() As TypeJeu
 
        Public WriteOnly Property TDefaults
            Set(value)
                For Each t As TypeJeu In Types
                    t.TDefault = value
                Next
            End Set
        End Property
 
    End Class

[shayw]

Salut
peut etre ainsi

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub initjeu(ByVal n As Integer)
        For iter = 0 To MesTypesJeux.Types.Length - 1
            If iter = n Then
                MesTypesJeux.Types(iter).TDefault = True
            Else
                MesTypesJeux.Types(iter).TDefault = False
            End If
        Next
    End Sub

[avigeilpro]

Tout d'abord merci pour vos réponse,
Malheureusement cela ne convient pas
-N4w4k- le code que tu m'as proposé fait que tous les TDefault ont la même valeurs.

shayw je souhaite intégrer cette "fonctionnalité" à ma classe et non pas dans mon Form. De la même façon que, pour un radiobutton, lorsque l'on passe la propriété Checked d'un radiobutton a True, tous les autres du groupe passent automatiquement à False.

[Pol63]

si le but est de savoir qu'un seul est marqué comme ca, plutot que d'avoir un booléen par instance avec true dans celui qui est marqué, tu peux avoir un variable shared as TypeJeu qui contient celui qui est marqué

sinon les structures, et les tableaux avec redim il faut éviter
le mieux est une classe et une collection

[avigeilpro]

Alors, j'ai transformé ma Structure en class.
Que veux-tu dire par "collection" ?

Sinon je pense avoir trouvé une solution, peut-être pas la plus jolie mais elle a l'air de fonctionner :
Dans le property set, je déclenche un évènement, intercepté par la classe TTypesJeux qui lance une procédure de vérification.

[shayw]

Salut

pourquoi pas initialiser avec le constructor
aussi le fait d'écrire redim dans ta form c'est plutot dans ta class

ex

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
  Public Class ClassTTypesJeux
    Public Structure TypeJeu
        Dim Name As String
        Dim Mains() As String
        Dim TDefault As Boolean
    End Structure
 
    Public Types() As TypeJeu
    Private Sub initjeu(ByVal n As Integer)
        For iter = 0 To Types.Length - 1
            If iter = n Then
                Types(iter).TDefault = True
            Else
                Types(iter).TDefault = False
            End If
        Next
    End Sub
 
    Public Sub New(ByVal taille As Int32, ByVal defaut As Int32)
        ReDim Types(taille)
        initjeu(defaut)
    End Sub
End Class

dans ta form

Code :

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

1
2
Dim ttt As ClassTTypesJeux
        ttt = New ClassTTypesJeux(3, 0)