Création d'un bouton par codeRésolu

Question

Bonjour à tous

Je voudrais créer un bouton par code sans avoir recours à la création d'un contrôle Button dans le formulaire Form.vb(design). J'ai entré ce code :

Dim WithEvents BoutonNouveauClient As Button

Private Sub Menu_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    BoutonNouveauClient = New Button
    Me.Controls.Add(BoutonNouveauClient)
    With BoutonNouveauClient
        .Name = "BoutonNouveauClient"
        .Width = 400
        .Height = 50
        .Left = NomProgramme.Left
        .Top = NomProgramme.Top + NomProgramme.Height + 2
        .FlatStyle = FlatStyle.System
        .ForeColor = Color.Black
        .TextAlign = ContentAlignment.MiddleCenter
        .Text.ToLower()
        .Font = New Font("Arial", 16, FontStyle.Bold)
        .Text = "ENTREE D'UN NOUVEAU CLIENT"
    End With
End sub

Puis :

Private Sub BoutonNouveauClient_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

... Programme à exécuter

End Sub

Lorsque je démarre le programmme, le bouton se dessine correctement, mais il est inactif lorsque je le clique, il ne démarre pas la procédure Private Sub ci-dessus.

Que manque-t-il dans mon code ?

Un grand merci à qui pourra suggérer une solution au débutant de 76 ans (un peu fou) que je suis

cs_casy · Accepted Answer

Tu crée le bouton, tu as la procédure gestionnaire de l'évènement du click sur le bouton, mais il te manque le lien entre les 2, soit l'abonnement à l'évènement :

Private Sub Menu_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
BoutonNouveauClient = New Button
Me.Controls.Add(BoutonNouveauClient)
With BoutonNouveauClient
........
End With

AddHandler BoutonNouveauClient.Click, AddressOf BoutonNouveauClient_Click

End sub 

[i][b]---- Sevyc64  (alias Casy) ----
[hr]# LE PARTAGE EST NOTRE FORCE #/b/i

jedry · Answer

Bonsoir Sevyc64 (alias Casy)

Ca marche parfaitement !

Un chaleureux merci de m'avoir dépanné si vite et si bien !!!

Création d'un bouton par code

2 réponses

Votre réponse

Discussions similaires