AddHandler et Bouton crée dynamiquement

Version imprimable

08/04/2011, 15h43
Dos

AddHandler et Bouton crée dynamiquement
Bonjour,
J'ai un soucis lorsque je crée un bouton dynamiquement, l’événement AddHandler ne remonte pas jusqu'au menu.

Je m'explique :
Code:

1 2 3 4 5 6 7 8 Dim lMenu As menuTest Dim lBtn As New Button lBtn.Text = "test" lBtn.CommandName = CStr(2) lBtn.CommandArgument = "test" AddHandler lBtn.Click, AddressOf TestBouton lMenu.Controls.Add(lBtn)
On a beau cliquer sur le bouton lBtn la fonction TestBouton n'est jamais appelée..

Merci de votre aide...
08/04/2011, 16h02
Danyel

http://msdn.microsoft.com/fr-fr/libr...VS.100%29.aspx
08/04/2011, 16h41
Dos

Merci, je connais en gros comment ça marche mais là on n'arrive pas remonter la "barrière" du menu. C'est comme si les événement ne parvenaient pas à la couche du dessus...
08/04/2011, 17h09
zebrette

Vous avez essayé de déclarer le button comme "withevent"

~~Dim Btn as Button~~
Public/Friend withevent Btn as Button
08/04/2011, 18h01
Dos

Merci,
Malheureusement j'ai l'erreur

Citation:

WithEvents n'est pas valide dans une déclaration de variable locale

... :cry:

ca doit etre déclaré en variable module ou class

Code:

1
2
3
4
5
6
7
8
9
10
 
Module MyModule '/class
 
    Dim variable 'module/class(utilisable dans toutes les sub)
 
    Sub Mysub()
        Dim variable 'sub(locale) (utilisable dans cette sub seulement)
    End Sub
 
End Module '/class

et donc dans votre cas:

Code:

1
2
3
4
5
6
7
 
Module MyModule2
    Private WithEvents Btn As button
    Sub Mysub()
        Btn = New button
    End Sub
End Module '/class

09/04/2011, 10h08
Pol63

withevents fait des addhandler ...

addhandler ,control

bonjour
voici le code pour associer un gestionnaire d'evenement à n'importe quel controle sous entendu qu'il gere ce type d'evenement.
Faire attention au nom du controle pour eviter des collisions avec des controles crees sur le designer portant le meme nom.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
 
Public Class Form1
    'il faut cette declaration de classe en winform
    Private WithEvents btn1 As New Button
 
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Me.btn1.Text = "monBouton"
        Me.btn1.Location = New Point(100, 100)
        Me.btn1.Size = New Size(75, 25)
        AddHandler Me.btn1.Click, AddressOf btn_click
        Me.Controls.Add(Me.btn1)
 
    End Sub
    Private Sub btn_click(ByVal sender As Object, ByVal e As System.EventArgs)
        MessageBox.Show("btn clique")
    End Sub
End Class

Voici une utilisation dans un module avec handlers de form et button:

Code:

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
 
 
Module Module2
    'il faut cette declaration de classe en winform
    Private WithEvents btn1 As New Button
    Private WithEvents maForme As New Form
    Private exColor As Color
    Public Sub Main()
        maForme.Name = "Form1"
        maForme.Text = "Form1 Dynamique"
        maForme.Size = New Size(300, 300)
        exColor = maForme.BackColor
        btn1.Text = "monBouton"
        btn1.Location = New Point(100, 100)
        btn1.Size = New Size(75, 25)
        AddHandler btn1.Click, AddressOf btn_click
 
        maForme.Controls.Add(btn1)
        maForme.ShowDialog()
    End Sub
 
    Private Sub btn_click(ByVal sender As Object, ByVal e As System.EventArgs)
        MessageBox.Show("btn clique")
    End Sub
 
    Private Sub maForme_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles maForme.MouseEnter
 
        maForme.BackColor = Color.Aquamarine
    End Sub
 
    Private Sub maForme_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles maForme.MouseLeave
        maForme.BackColor = exColor
    End Sub
End Module

bon code....

11/04/2011, 09h34
Dos

Désolé, je n'ai pas précisé que j'étais en aspx.vb (je ne suis peut-être pas dans le bon forum). Je ne suis dans pas dans une winform et la déclaration

Code:

Private WithEvents btn1 As New Button

ne semble pas autorisée...:(