Bonjour,
Je cherche pourquoi mes boutons dynamique ne s'affiche pas comme je les ai définis.

Voila le code que j'utilise pour cree les boutons que je souhaite.
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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        CheminApplication = Application.StartupPath
        Me.BackgroundImage = Image.FromFile(CheminApplication & "\Support\Fond.png")
        Call LiIni("C") 'rempli la variable tableau LigneDesBoutonClasseur avec un fichier texte
 
        Dim NomBT As String
        Dim TxtBT As String
        Dim Bouton As Button
        Dim ligne As Integer
        Dim colonne As Integer
        Dim R1, G1, B1, R2, G2, B2 As Integer
 
        ' exemple de ligne dans le tableau LigneDesBoutonClasseur
        'C00.00 ; 128.128.128 ; 255.255.255 ; Texte1 
        'C01.00 ; 255.153.0 ; 0.0.0 ; Texte2
        For i = 0 To LigneDesBoutonClasseur.Length - 1
 
            NomBT = LigneDesBoutonClasseur(i).Split(";")(0).Trim
            ligne = CInt(Mid(NomBT.Split(".").First, 2))
            colonne = CInt(NomBT.Split(".").Last)
            TxtBT = LigneDesBoutonClasseur(i).Split(";")(3).Trim.Replace("&", "&&")
 
            R1 = CInt(LigneDesBoutonClasseur(i).Split(";")(1).Trim.Split(".")(0))
            G1 = CInt(LigneDesBoutonClasseur(i).Split(";")(1).Trim.Split(".")(1))
            B1 = CInt(LigneDesBoutonClasseur(i).Split(";")(1).Trim.Split(".")(2))
            R2 = CInt(LigneDesBoutonClasseur(i).Split(";")(2).Trim.Split(".")(0))
            G2 = CInt(LigneDesBoutonClasseur(i).Split(";")(2).Trim.Split(".")(1))
            B2 = CInt((LigneDesBoutonClasseur(i).Split(";")(2).Trim).Split(".")(2))
 
            ' Création du bouton.
            Bouton = New Button
            Bouton.Size = New Size(190, 30)
            Bouton.Location = New Point(5 + (Bouton.Size.Width * colonne), 5 + (Bouton.Size.Height * ligne))
            Bouton.Anchor = AnchorStyles.Top Or AnchorStyles.Left
 
            'Bouton.BackColor = Color.FromArgb(0, R1, G1, B1)
            Bouton.ForeColor = Color.FromArgb(0, R2, G2, B2)
 
            Bouton.Name = NomBT
            Bouton.Text = TxtBT
            Bouton.Tag = NomBT
            Bouton.Font = New Font("Arial", 8)
 
            Bouton.FlatAppearance.BorderSize = 2
            Bouton.FlatAppearance.BorderColor = Color.FromArgb(0, R1, G1, B1)
            Bouton.FlatAppearance.MouseOverBackColor = Color.FromArgb(0, R1, G1, B1)
            Bouton.FlatAppearance.MouseDownBackColor = Color.FromArgb(0, R1, G1, B1)
            Bouton.FlatStyle = FlatStyle.Flat
 
            ' Ajout de l'event click au bouton.
            AddHandler Bouton.Click, AddressOf ClickBouton
            ' Ajout du bouton au fromulaire.
            PanelClasseur.Controls.Add(Bouton)
 
        Next
    End Sub
 
    Private Sub ClickBouton(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Dim Bouton As Button = DirectCast(sender, Button)
        MessageBox.Show("Hello " & Bouton.Name)
    End Sub
Mais je n'ai pas les bordures en couleurs, et je n'arrive pas nom plus a mettre une couleur de fond sur les boutons.
Je pense que cela doit venir de quelque chose hérité du form1, mais sans conviction.
En tout les cas, lorsque je regarde le contenu des boutons en mode debug, ils ont bien les paramètres voulu, et pourtant n'affichent pas comme paramétrés.
Avez-vous une idée?