Discussion :

[geredonis]

Bonjour,

je cherche à cocher plusieurs cases à cocher si la case à cocher chkM1 est cochée.
J'ai le code suivant et il ne reconnait pas Me;controls.find

Code :

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

1
2
3
4
5
6
7
            If chkM1.Checked = True Then
                For i As Integer = 2 To 5
                    Dim chkCourant As CheckBox
                    chkCourant = Me.Controls.Find("chkM" & i)(0)
                    chkCourant.Checked = True
                Next
            End If

Merci pour votre aide

[wallace1]

Bonjour,

Si tu connais déjà le nom de tes checkboxes (et au vue de ta portion de code je dirais que oui) alors c'est assez simple en utilisant le gestionnaire d’événement "CheckedChanged" :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Public Class Form1
 
    Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
        CheckBox2.Checked = CheckBox1.Checked
        CheckBox3.Checked = CheckBox1.Checked
        CheckBox4.Checked = CheckBox1.Checked
        CheckBox5.Checked = CheckBox1.Checked
    End Sub
 
End Class

A+

[clementmarcotte]

Bonjour,

Bonjour,

je cherche à cocher plusieurs cases à cocher si la case à cocher chkM1 est cochée.
J'ai le code suivant et il ne reconnait pas Me;controls.find

Merci pour votre aide

On dirait que plus VB (ou, est-ce le Framework) progresse(nt), plus il devien(nen)t strict ou capricieux avec certains objets. À force de me battre avec les Forms (dans VB 2012 et VB2013), (contrôles non reconnus et autres chinoiseries du genre), j'ai "solutionné" le problème de la façon suivante:

en supposant que ce soit le textBox1 de la "Form1"

Code :

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

My.forms.Form1.Textbox1.text = "Ici"

ou

Code :

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

1
2
Dim letextbox as TextBox = My.forms.Form1.Textbox1
letextbox.text = "Ici"

C'est énervant au début, mais, c'est bon pour la discipline.

[geredonis]

Merci pour ta réponse
J'ai essayé le code suivant mais My.forms.frmMenu n'est pas reconnu.

Code :

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

chkCourant = My.Forms.frmMenu.Controls("chkM" & i)

[clementmarcotte]

Bonjour,

Est-ce le même problème que celui-ci:

http://www.developpez.net/forums/d15...e/#post8285103

Si c'est oui, en principe, c'est résolu.

[Pol63]

https://msdn.microsoft.com/fr-fr/lib...vs.110%29.aspx


il ne faut improviser

https://msdn.microsoft.com/fr-fr/lib...vs.110%29.aspx

[geredonis]

Merci pour votre aide.
Dans mon problème, j'ai cherché sur 2 pistes différentes
J'ai résolu mon problème dans la discussion


c'est donc résolu
Merci beaucoup