testautomation/framework/optional/input/vba-compat/vba-compat-macros.txt

   1 # A collection of tiny macros to test VBA compatibility
   2 # These macros all set the option vbasupport 1
   3
   4 [i75443]
   5 option vbasupport 1
   6
   7 Sub Main
   8     Dim a(0)
   9     Dim b(0)
  10     b(0) = "b"
  11     a(0) = b
  12     MsgBox a(0)(0)
  13 End Sub
  14
  15
  16 [i79918]
  17 option vbasupport 1
  18
  19 Sub Main
  20     # the following are valid in ooo-basic and MS VBA
  21     tester 1,2
  22     tester (1,2)
  23     tester (1,(2+2+3))
  24     # this is valid in VBA but fails in ooo-basic
  25     tester (1+2),3
  26 End Sub
  27
  28 function tester ( param1 as variant, param2 as variant )
  29     msgbox "param1 " & param1 & " param2 " & param2
  30 end function