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