imports System
imports System.Drawing
imports System.Windows.Forms
public class AddressOfWithEvents : inherits System.Windows.Forms.Form
Dim WithEvents btn as Button
public sub New()
btn = new Button()
btn.Location = new Point(50,50)
btn.Text = "Test"
Controls.Add(btn)
AddHandler btn.Click, AddressOf btn_Click
end sub
public shared sub Main()
Application.Run(new AddressOfWithEvents())
end sub
private sub btn_Click(ByVal sender as object, _
ByVal e as EventArgs)
MessageBox.Show("btn_Click method","Events Demonstration")
end sub
private sub btn_ClickHandles(ByVal sender as object, _
ByVal e as EventArgs) _
Handles btn.Click
MessageBox.Show("btn_ClickHandles method","Events Demonstration")
end sub
end class
|