Discussion :

[djedje-08]

Bonjour à tous,
Je créé divers objets dont une checkbox comme suit :

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
27
28
29
30
31
32
33
34
35
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 Call ajtLign()
End Sub
 
Public contLogmt As Integer = 0
Public ChkbxLMNP() As CheckBox
 
 Sub ajtLign()
         contLogmt = contLogmt + 1
 ReDim Preserve ChkbxLMNP(contLogmt)
        ChkbxLMNP(contLogmt) = New CheckBox
        With ChkbxLMNP(contLogmt)
            .Top = 10 + 25 * contLogmt
            .Left = 800
            .Text = "Statut LMNP"
            .Visible = True
            .Width = 130
            .Tag = contLogmt
            .AutoSize = True
        End With
 
        AddHandler ChkbxLMNP(contLogmt).CheckedChanged, AddressOf lmnp
        TabPage2.Controls.Add(ChkbxLMNP(contLogmt))
 
End Sub
 
 Sub lmnp(sender As Object, e As EventArgs)
 
        Dim Chb As CheckBox = TryCast(sender, CheckBox)
        CheckBoxOrg = Chb.Tag
 
        MsgBox("checké " & ChkbxLMNP(Chb.Tag).Checked)
        MsgBox("tag = " & Chb.Tag)
 
End Sub

(bien évidement j'ai supprimé des lignes de codes pour faciliter la compréhension)

Mon problème est que pour ma 1ère checkbox créée (contLogmt = 1), mon code considère toujours qu'elle n'est pas checkée alors qu'a partir d'une deuxième créée (contLogmt = 2) il m’indique bien "checké True"

J'ai également essayé avec le code suivant :

Code :

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

1
2
3
 
 MsgBox("checké " & ChkbxLMNP(CheckBoxOrg).Checked)
 MsgBox("checké " & ChkbxLMNP(1).Checked)

Malheureusement pour moi, le résultat est inchangé ... :'(

Je pense que se doit être une petite erreur toute bête, mais je ne parviens pas à comprendre quel en est la source.
Quelqu'un aurait une idée ?
Merci d'avance

[Pol63]

avec redim preserve tu encours une peine de prison
utilises une List(of checkbox) plutot qu'un tableau
le list est une collection qui s'utilise comme tableau à taille dynamique, .add pour ajouter, .remove pour retirer et on peut comme pour le tableau accéder à un index directement

après dans l'event, tu récupères le checkbox dans chb, donc tu peux écrire chb.checked
pourquoi repasser par le tableau et par un tag ? (c'est limite le tag aussi)

au passage devant chaque membre on préfère explicitement la portée (private/public/autre) (plutot que d'écrire juste sub)
au passage aussi, le flowlayoutpanel est un conteneur qui permet de placer les controles "à la suite" ce qui évite de définir top et left pour chaque

[Invité]

Bonjour,
Personnellement je ferai un List(of Classecheckbox) ainsi tu pourrais récupérer les événements du contrôle!

[djedje-08]

Mdrrr je ne tiens pas à aller en prison ! lol
J'ai modifié mon code pour utiliser une list et mon problème semble résolu.
Je vais maintenant essayer d'apprivoiser flowlayoutpanel ...

Merci pour votre aide