WithEvents : WithEvents « Event « VB.Net Tutorial






  1. VB.Net Tutorial
  2. Event
  3. WithEvents
WithEvents
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








11.5.WithEvents
11.5.1.WithEventsWithEvents