Petit soucis sur checkbox créée dynamiquement
Bonjour à tous,
Je créé divers objets dont une checkbox comme suit :
Code:
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:
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
