créer un événement "bouton_click" à partir d'un bouton créé côté code.

Question

Bonjour, je suis débutant en vb et j'aimerais savoir comment créer l'événement d'un control à partir du code et non du concepteur de vu.
Voici un code simple comme exemple:

Public Class Form1



Public Class Form1

    Dim bouton1 As Button

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load


        bouton1 = New Button
        bouton1.Location = New System.Drawing.Point(50, 50)
        bouton1.Text = "cliquez ici"
        Me.Controls.Add(bouton1)


    End Sub

    Private Sub Bouton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

        MsgBox("bonjour")

    End Sub

End Class




Voilà, j'ai essayer ça mais ça ne marche pas. J'ai créer un bouton lorsque le log se lance. Mais je n'arrive pas à créer l'événement " lorsqu'on clique sur bouton1, envoyer un msgbox qui indique "bonjour"".


Si vous pouviez me dire quoi faire ce serait sympa.
Merci.

Utilisateur anonyme · Answer

Salut,

Tu as oublié le Handles Bouton1.Click :
Private Sub Bouton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bouton1.Click

_____________
Kenji

jmf0 · Answer

C'est du VB6, tout cà ? Tiens !.... j'aurais pas cru

Utilisateur anonyme · Answer

Ha oui tiens, surment une grosse évolution du vb6 ^^

J'ai oublié de présiser de rajouter le withevents
Dim WithEvents bouton1 As Button

_____________
Kenji

cs_casy · Answer

Charles, je ne pense pas que ta solution avec le Handles marche. En effet, le bouton n'existant pas à la compilation, ça devrait généré un message d'erreur.


Par contre, lorsque on crée un controle dynamiquement, il faut ensuite abonner ses évènements : 

Public Class Form1

    Dim bouton1 As Button

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load


        bouton1 = New Button
        bouton1.Location = New System.Drawing.Point(50, 50)
        bouton1.Text = "cliquez ici"
        Me.Controls.Add(bouton1)
-->     AddHandler Bouton1.Click, AddressOf Bouton1_Click  

    End Sub

    Private Sub Bouton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

        MsgBox("bonjour")

    End Sub

End Class


Ne pas oublier de désabonner l'évènement avec RemoveHandler avant de détruire le contrôle.


[i][b]---- Sevyc64  (alias Casy) ----
[hr]# LE PARTAGE EST NOTRE FORCE #/b/i

lordcs · Answer

Merci beaucoup à tous, je sais maintenant comment faire.

Sinon je m'excuse d'avoir posté mon message au mauvais endroit, je ne savais pas vraiment ou le mettre.

Créer un événement "bouton_click" à partir d'un bouton créé côté code.

5 réponses

Votre réponse

Discussions similaires