Advertisement
botdotdot

NotVB

Jul 25th, 2011
1,245
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. 'Form created with the help of Freeform 3 v07-15-08
  2. 'Generated on Jul 25, 2011 at 18:29:54
  3.  
  4.  
  5. [setup.1.Window]
  6.  
  7.     '-----Begin code for #1
  8.  
  9.     nomainwin
  10.     WindowWidth = 550
  11.     WindowHeight = 410
  12.     UpperLeftX=int((DisplayWidth-WindowWidth)/2)
  13.     UpperLeftY=int((DisplayHeight-WindowHeight)/2)
  14.  
  15.     '-----Begin menu code
  16.  
  17.     menu #1, "test1",_
  18.              "test1", [test1],_
  19.              "test2", [test2],_
  20.              "test3", [test3]
  21.  
  22.     menu #1, "test2",_
  23.              "test5", [test5],_
  24.              "test6", [test6],_
  25.              "test7", [test7]
  26.  
  27.     menu #1, "test3",_
  28.              "test8" , [test8],_
  29.              "test9" , [test9],_
  30.              "test10", [test10]
  31.  
  32.  
  33.     '-----End menu code
  34.  
  35.     open "untitled" for window as #1
  36.     print #1, "font tahoma 8"
  37.     print #1, "trapclose [quit.1]"
  38.  
  39.  
  40. [1.inputLoop]   'wait here for input event
  41.     wait
  42.  
  43.  
  44.  
  45. [test1]   'Perform action for menu test1, item test1
  46.  
  47.     'Insert your own code here
  48.  
  49.     wait
  50.  
  51.  
  52. [test2]   'Perform action for menu test1, item test2
  53.  
  54.     'Insert your own code here
  55.  
  56.     wait
  57.  
  58.  
  59. [test3]   'Perform action for menu test1, item test3
  60.  
  61.     'Insert your own code here
  62.  
  63.     wait
  64.  
  65.  
  66. [test5]   'Perform action for menu test2, item test5
  67.  
  68.     'Insert your own code here
  69.  
  70.     wait
  71.  
  72.  
  73. [test6]   'Perform action for menu test2, item test6
  74.  
  75.     'Insert your own code here
  76.  
  77.     wait
  78.  
  79.  
  80. [test7]   'Perform action for menu test2, item test7
  81.  
  82.     'Insert your own code here
  83.  
  84.     wait
  85.  
  86.  
  87. [test8]   'Perform action for menu test3, item test8
  88.  
  89.     'Insert your own code here
  90.  
  91.     wait
  92.  
  93.  
  94. [test9]   'Perform action for menu test3, item test9
  95.  
  96.     'Insert your own code here
  97.  
  98.     wait
  99.  
  100.  
  101. [test10]   'Perform action for menu test3, item test10
  102.  
  103.     'Insert your own code here
  104.  
  105.     wait
  106.  
  107. [quit.1] 'End the program
  108.     close #1
  109.     end
Advertisement
RAW Paste Data Copied
Advertisement