home *** CD-ROM | disk | FTP | other *** search
/ PC User 2001 August / APC_Aug2001_CD2.iso / features / devtools / files / lb202win.exe / LB202W.EXE / RBGROUP.BAS < prev    next >
Encoding:
BASIC Source File  |  2000-10-26  |  2.7 KB  |  113 lines
  1.  
  2.  
  3.     WindowWidth = 272
  4.     WindowHeight = 200
  5.  
  6.     groupbox #main, "", 26, 16, 100, 100
  7.     groupbox #main, "", 134, 16, 104, 100
  8.     radiobutton #main.radiobutton2, "one", [radiobutton2Set], [radiobutton2Reset], 46, 36, 40, 20
  9.     radiobutton #main.radiobutton3, "two", [radiobutton3Set], [radiobutton3Reset], 46, 56, 40, 20
  10.     radiobutton #main.radiobutton4, "three", [radiobutton4Set], [radiobutton4Reset], 46, 76, 56, 20
  11.     radiobutton #main.radiobutton6, "eh?", [radiobutton6Set], [radiobutton6Reset], 150, 36, 40, 20
  12.     radiobutton #main.radiobutton7, "bee", [radiobutton7Set], [radiobutton7Reset], 150, 56, 40, 20
  13.     radiobutton #main.radiobutton8, "see", [radiobutton8Set], [radiobutton8Reset], 150, 76, 40, 20
  14.     button #main.button9, "Accept", [button9Click], UL, 198, 136, 58, 25
  15.     open "untitled" for dialog as #main
  16.  
  17.  
  18. [main.inputLoop]   'wait here for input event
  19.     input aVar$
  20.     goto [main.inputLoop]
  21.  
  22.  
  23.  
  24. [radiobutton2Set]   'Perform action for the radiobutton named 'radiobutton2'
  25.  
  26.     notice "one - Insert your own code here"
  27.  
  28.     goto [main.inputLoop]
  29.  
  30.  
  31. [radiobutton2Reset]   'Perform action for the radiobutton named 'radiobutton2'
  32.  
  33.     'Insert your own code here
  34.  
  35.     goto [main.inputLoop]
  36.  
  37.  
  38. [radiobutton3Set]   'Perform action for the radiobutton named 'radiobutton3'
  39.  
  40.     'Insert your own code here
  41.  
  42.     goto [main.inputLoop]
  43.  
  44.  
  45. [radiobutton3Reset]   'Perform action for the radiobutton named 'radiobutton3'
  46.  
  47.  
  48.     goto [main.inputLoop]
  49.  
  50.  
  51. [radiobutton4Set]   'Perform action for the radiobutton named 'radiobutton4'
  52.  
  53.  
  54.  
  55.     goto [main.inputLoop]
  56.  
  57.  
  58. [radiobutton4Reset]   'Perform action for the radiobutton named 'radiobutton4'
  59.  
  60.     'Insert your own code here
  61.  
  62.     goto [main.inputLoop]
  63.  
  64.  
  65. [radiobutton6Set]   'Perform action for the radiobutton named 'radiobutton6'
  66.  
  67.     notice "eh? - Insert your own code here"
  68.  
  69.     goto [main.inputLoop]
  70.  
  71.  
  72. [radiobutton6Reset]   'Perform action for the radiobutton named 'radiobutton6'
  73.  
  74.     'Insert your own code here
  75.  
  76.     goto [main.inputLoop]
  77.  
  78.  
  79. [radiobutton7Set]   'Perform action for the radiobutton named 'radiobutton7'
  80.  
  81.     'Insert your own code here
  82.  
  83.     goto [main.inputLoop]
  84.  
  85.  
  86. [radiobutton7Reset]   'Perform action for the radiobutton named 'radiobutton7'
  87.  
  88.     'Insert your own code here
  89.  
  90.     goto [main.inputLoop]
  91.  
  92.  
  93. [radiobutton8Set]   'Perform action for the radiobutton named 'radiobutton8'
  94.  
  95.     'Insert your own code here
  96.  
  97.     goto [main.inputLoop]
  98.  
  99.  
  100. [radiobutton8Reset]   'Perform action for the radiobutton named 'radiobutton8'
  101.  
  102.     'Insert your own code here
  103.  
  104.     goto [main.inputLoop]
  105.  
  106.  
  107. [button9Click]   'Perform action for the button named 'button9'
  108.  
  109.     'Insert your own code here
  110.  
  111.     goto [main.inputLoop]
  112.  
  113.