Discussion :

[Dos]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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...

[Danyel]

http://msdn.microsoft.com/fr-fr/libr...VS.100%29.aspx

[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...

[zebrette]

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

Dim Btn as Button
Public/Friend withevent Btn as Button

[Dos]

Merci,
Malheureusement j'ai l'erreur

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

...

[zebrette]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Pol63]

withevents fait des addhandler ...

[MABROUKI]

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 :

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
 
 
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 :

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
 
 
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....

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

 Private WithEvents btn1 As New Button

ne semble pas autorisée...