Brig to front picturebox

Résolu
cs_ShayW Messages postés 3253 Date d'inscription jeudi 26 novembre 2009 Statut Membre Dernière intervention 3 décembre 2019 - 17 déc. 2012 à 23:26
 Utilisateur anonyme - 18 déc. 2012 à 00:17
Bonjour

j'ai 10 picturebox couleur bleu de taille x
et aussi 10 picturebox couleur rouge de taille x/2
je place les picturebox rouge au milieu de chaque
picturebox bleu ,le problème est que les picturesbox rouges restent invisibles

Private listpic As New List(Of PictureBox)
 Private Sub test()
     For iter As Integer = 0 To 9
         Dim pic As New PictureBox
            With pic
                .Width = 40
                .Height = 40
                .Location = New Point(10 + iter * (.Width + 40), 420)
                .BackColor = Color.Blue
            End With
            listpic.Add(pic)
            Me.Controls.Add(pic)
        Next
        For iter As Integer = 0 To 9
            Dim pic As New PictureBox
            With pic
                .Width = 20
                .Height = 20
                .Location = New Point(listpic(iter).Left + 20, listpic(iter).Top + 20)
                .BackColor = Color.Red
                .BringToFront()
            End With
            Me.Controls.Add(pic)
        Next
    End Sub


merci

1 réponse

Utilisateur anonyme
18 déc. 2012 à 00:17
Bonsoir ShayW,

C'est tout simplement parce que tu n'as pas encore incorporé tes contrôles au formulaire donc BringToFront ne sert à rien.

En résumé, Me.Controls.Add doit être placé avant BringToFront.
3
Rejoignez-nous