mcs/mbas/Test/tests/latebinding/ExpressionOverLoadMethodA.vb

   1 Imports System
   2 Module Test
   3
   4         Class C
   5                 Sub F(i as integer)
   6                         if i <> 10 Then
   7                                 Throw New Exception ("got in to the one with 1 argu ")
   8                         End if
   9                 End Sub
  10
  11                 Sub F()
  12                         Dim Funct = "With no argument"
  13                 End Sub
  14
  15                 Sub F(i as integer, j as integer)
  16                         if i <> 10 And j <> 20 Then
  17                                 Throw New Exception ("got in to the one with 1 argu ")
  18                         End if
  19                 End Sub
  20
  21                 Sub F(i as integer, j as integer, k as integer)
  22                         if i <> 10 And j <> 20 And k <> 30 Then
  23                                 Throw New Exception ("got in to the one with 1 argu ")
  24                         End if
  25                 End Sub
  26         End Class
  27
  28         Sub Main()
  29                 Dim a As Object = new C()
  30                 a.F()
  31                 a.F(10)
  32                 a.F(10, 20)
  33                 a.F(10, 20, 30)
  34         End Sub
  35 End Module