mcs/mbas/Test/misc/test5.vb

   1 Imports System.Windows.Forms
   2 Imports System.Drawing
   3 Imports System
   4
   5 Public Class Form1
   6         Inherits Form
   7
   8 Public WithEvents b1 As Button
   9 Public WithEvents b2 As Button
  10
  11 Public Sub b1_onClick (sender As Object, e as System.EventArgs)
  12         Console.WriteLine ("b1 clicked")
  13 End Sub
  14
  15 Public Sub b2_onClick (sender As Object, e as System.EventArgs)
  16         Console.WriteLine ("b2 clicked")
  17 End Sub
  18
  19 Public Sub New()
  20         b1 = New Button()
  21         b1.Location = New Point(100, 10)
  22         Controls.Add (b1)
  23         AddHandler b1.Click, AddressOf b1_onClick
  24
  25         b2 = New Button()
  26         b2.Location = New Point(100, 60)
  27         Controls.Add (b2)
  28         AddHandler b2.Click, AddressOf b2_onClick
  29 End Sub
  30
  31 End Class
  32