Discussion :

[benzoid555]

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 :

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

[sebnantes]

Salut ^^

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

Code :

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

Handles button.click

++

[benzoid555]

Si je comprend bien d'après toi :

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

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

[sebnantes]

Il faut dans ce cas que tu remplaces Dim (devant la déclaration de ton bouton) :

Code :

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

1
2
 
Friend WithEvents Button As New Button

[Elcrolonosios]

Salut

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

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

[benzoid555]

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 :

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

[benzoid555]

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