Valeur CheckBox erronee dans Function
Bonjour a tous/toutes,
me voila aujourd'hui encore confronte a un leger probleme. Je souhaite tester la valeur "Checked" d'un Checkbox a l'interieur d'une Function. Cette Function est execute dans un BackgroundWorker :
Code:
1 2 3 4 5 6 7 8 9 10 11 12
| Private Sub MyBgW_DoWork(ByVal sender...
Dim N As Integer
For N = 1 to TOTAL Step + 1
MaFunction(N)
Next N
End Sub
Public Function MaFunction(ByRef N As Integer)
If MonCheckBox.Checked = True Then
...
End If |
Voila c'est tout simple, le soucis c'est que la valeur de MonCheckBox est toujours a False dans la Function.
Voici le resultat des tests:
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14
| Private Sub MyBgW_DoWork(ByVal sender...
MsgBox(MonCheckBox.Checked.ToString) '<------- renvoie "True"
Dim N As Integer
For N = 1 to TOTAL Step + 1
MaFunction(N)
Next N
End Sub
Public Function MaFunction(ByRef N As Integer)
MsgBox(MonCheckBox.Checked.ToString) '<------- renvoie "False"
If MonCheckBox.Checked = True Then
...
End If |
Je me demande donc comment passer le status de MonCheckedBox dans la Function. Si vous avez des idees, n'hesitez pas :mrgreen:
Merci d'avance et a bientot!