Mega Code Archive

 

Categories / VB.Net Tutorial / Event

 

AddHandler btn Click, AddressOf btn_Click

imports System imports System.Drawing imports System.Windows.Forms public class AddressOfEvent : inherits System.Windows.Forms.Form   Private 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 AddressOfEvent())   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