Discussion :

[Macstorm]

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?

[Macstorm]

Voyant plein de personnes regarder se poste, et aucune réponse, je me dis que j'ai peut-être mal exprimer mon problème.

La capture suivante, est ce que me retourne le code de mon précédent poste (ci-dessus):

Et ce n'est pas ce que je souhaite.

Dans mon code, j'ai paramétré mes boutons pour que ça ressemble à ça:

Cependant ce n'est pas cela qui s'affiche.

Et donc, si quelqu'un à une idée de quoi cela vient, ou une piste à explorer ?

[Macstorm]

Et bien à force de tester et de chercher, j'ai fini par trouvé.

Du coup c'est un poste qui peux servir de référence pour une personne qui cherche a faire des boutons dynamiquement.

Je vous donne quand même la solution qui était somme toutes vraiment stupide.

Quand vous voulez passez une couleur avec " = Color.FromArgb(A, R, G, B)" Et bien ne mettez pas de 0 dans "A", mettrez 255, ou alors vos couleur seront plus transparente qu'une fenêtre en cristal de Swarovski... MDR

Et j'ai chercher un truc aussi stupide pendent 3 jour au total...

[Pol63]

ah oui, le code me paraissait bon, mais c'est toujours ce genre de détail qui ne saute pas aux yeux ^^