mcs/mbas/testmbas/ctest.vb

   1 Imports System.Windows.Forms\r
   2 Imports System.Drawing\r
   3 \r
   4 Delegate Sub d_b1_onClick (s, evt)\r
   5 \r
   6 Public Class TestClass\r
   7         Inherits Form\r
   8                         \r
   9 Public button1 as Button\r
  10                 \r
  11 Public Sub PutButtonOnForm()\r
  12 \r
  13 End Sub\r
  14 \r
  15 Public Sub b1_onClick_handler (a,b) Handles button1.Click\r
  16 \r
  17 End Sub\r
  18 \r
  19 Public Sub New(ctest_a as string)   \r
  20         Dim b1_onClick as d_b1_onClick \r
  21         \r
  22         b1_onClick = New d_b1_onClick(AddressOf Me.b1_onClick_handler)\r
  23         \r
  24         Me.button1 = New Button()\r
  25         Me.button1.Text = "Click Me"\r
  26         Me.button1.Location = New Point(100, 10)\r
  27         'Me.Click = b1_onClick\r
  28         Me.Controls.Add(Me.button1)\r
  29 \r
  30         System.Console.WriteLine (ctest_a)\r
  31 End Sub\r
  32 \r
  33 End Class\r