Comment lancer une commande au click d'un button

Version imprimable

Bonjour,

Ma question a l'air trivial mais malgrès mes recherches, je n'y arrive pas.

Voici ma problématique :
A l'intérieur de ma procédure, je crée une fenêtre, et un button, et lors du click sur le button je veux lancer la procedure Button_Click

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
 
Public Class MyWindow
    Inherits System.Windows.Window
 
    Public Sub AfficheMaFenetre()
 
        Dim Fenetre As New Window
        Dim Button As New Button
        Button.Content = "Button"
        Me.AddChild(Button)
        Me.Visibility = Windows.Visibility.Visible
        Me.Activate()
 
 
    End Sub
 
    Public Sub Button_Click(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Me.button.KeyPress
 
        MsgBox("Button Click OK")
    End Sub
 
 
 
End Class

Merci d'avance

11/03/2010, 09h16
sebnantes

Salut ^^

En fait tu trompes sur l'action qui est concernée lors du clic sur le bouton. il que tu mettes :

Code:

Handles button.click

++

Si je comprend bien d'après toi :

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
Public Class MyWindow
    Inherits System.Windows.Window
 
 
    Public Sub AfficheMaFenetre()
 
        Dim Fenetre As New Window
        Dim Button As New Button
        Button.Content = "Button"
 
        Me.AddChild(Button)
        Me.Visibility = Windows.Visibility.Visible
        Me.Activate()
 
 
    End Sub
 
    Public Sub Button_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button.Activated
 
        MsgBox("Button Click OK")
 
    End Sub
 
End Class

Mais la j'obtiens une erreur de compilation :

Citation:

Erreur 28 La clause Handles requiert une variable WithEvents définie dans le type conteneur ou l'un de ses types de base.

11/03/2010, 09h58
sebnantes
Il faut dans ce cas que tu remplaces Dim (devant la déclaration de ton bouton) :
Code:

1 2 Friend WithEvents Button As New Button

Voici une solution qui fonctionne, mais le button est déclaré dans la class, est t'il possible de faire de même en déclarant le button dans la procédure ?

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
Public Class MyWindow2
    Inherits System.Windows.Window
 
    Friend WithEvents Button As New Button
    Public Sub AfficheMaFenetre()
 
        Dim Fenetre As New Window
        Dim Panel As New DockPanel
 
        Button.Content = "Button"
 
        Me.AddChild(Panel)
        Panel.Children.Add(Button)
        Me.Visibility = Windows.Visibility.Visible
        Me.Activate()
 
 
    End Sub
 
    Public Sub Button_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button.Click
 
        MsgBox("Button Click OK")
 
    End Sub
 
End Class

Merci

Salut

Oui c'est possible, en utilisant AddHandler
Inversement, RemoveHandler permet de détacher une méthode d'un évènement

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
 
Public Class MyWindow2
    Inherits System.Windows.Window
 
    Public Sub AfficheMaFenetre()
        Dim Button as New Button
        Dim Fenetre As New Window
        Dim Panel As New DockPanel
 
        Button.Content = "Button"
        AddHandler Button.Click,AddressOf Button_Click
        'Inversement : RemoveHandler Button.Click,AddressOf Button_Click
 
        Me.AddChild(Panel)
        Panel.Children.Add(Button)
        Me.Visibility = Windows.Visibility.Visible
        Me.Activate()
 
    End Sub
 
    Public Sub Button_Click(ByVal sender As Object, ByVal e As EventArgs) 
        MsgBox("Button Click OK")
    End Sub
End Class

11/03/2010, 11h07
benzoid555

Merci a tous les deux ca répond exactement a ma question