home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1996 February / PCWK0296.iso / sharewar / win31x / program / liberty / examples.shr / DIALOG3.BAS < prev    next >
Encoding:
BASIC Source File  |  1994-04-23  |  2.5 KB  |  114 lines
  1.  
  2.     'Dialog Box Example #3
  3.     nomainwin
  4.  
  5.     dim a$(13)
  6.     dim b$(20)
  7.     dim s$(3)
  8.  
  9.     s$(0) = "colors" : s$(1) = "foods" : s$(2) = "automakers"
  10.  
  11.     groupbox #1, "Select items from a group",  20, 25, 265, 175
  12.     combobox #1.combo, s$(, [reloadSource], 25, 50, 120, 80
  13.     listbox #1.fromlist, a$(, [move], 50, 80, 100, 80
  14.     listbox #1.tolist, b$(, [mainLoop], 160, 80, 100, 80
  15.     button #1, " &Ok ", [exit], UL, 250, 210
  16.     button #1, ">&Move>", [move], UL, 65, 170
  17.  
  18.     WindowWidth = 320
  19.     WindowHeight = 285
  20.     open "Dialog Example" for window_nf as #1
  21.  
  22.  
  23.     print #1.combo, "select colors"
  24.     gosub [reloadSource]
  25.  
  26.  
  27. [mainLoop]
  28.     input r$     ' <-- this is the main input loop
  29.  
  30.  
  31. [move]
  32.  
  33.     print #1.fromlist, "selection?"
  34.     input #1.fromlist, answer$
  35.  
  36.     for x = 1 to 12
  37.         if a$(x) = answer$ then a$(x) = ""
  38.     next x
  39.     print #1.fromlist, "reload"
  40.  
  41.     answerCopy$ = answer$
  42.  
  43.     for x = 1 to 20
  44.         if answer$ <> "" and b$(x) = "" then b$(x) = answer$ : answer$ = ""
  45.     next x
  46.  
  47.     print #1.tolist, "reload"
  48.     print #1.tolist, "select "; answerCopy$
  49.  
  50.     goto [mainLoop]
  51.  
  52.  
  53. [exit]
  54.  
  55.     close #1
  56.     end
  57.  
  58.  
  59. [reloadSource]
  60.  
  61.     for x  =  0 to 19
  62.         b$(x) = ""
  63.     next x
  64.  
  65.     print #1.combo, "selection?"
  66.     input #1.combo, newSource$
  67.     if newSource$ = "colors" then gosub [loadColors]
  68.     if newSource$ = "foods" then gosub [loadFoods]
  69.     if newSource$ = "automakers" then gosub [loadAutomakers]
  70.  
  71.     print #1.fromlist, "reload"
  72.     print #1.tolist, "reload"
  73.  
  74.     goto [mainLoop]
  75.  
  76.  
  77. [loadColors]
  78.  
  79.     a$(1) = "red" : a$(2) = "blue" : a$(3) = "green"
  80.     a$(4) = "yellow" : a$(5) = "white" : a$(6) = "orange"
  81.     a$(7) = "black" : a$(8) = "pink" : a$(9) = "amber"
  82.     a$(10) = "violet" : a$(11) = "cyan" : a$(12) = "magenta"
  83.  
  84.     return
  85.  
  86.  
  87. [loadFoods]
  88.  
  89.     a$(1) = "eggs" : a$(2) = "milk" : a$(3) = "bread"
  90.     a$(4) = "sausage" : a$(5) = "jam" : a$(6) = "mayonaisse"
  91.     a$(7) = "spaghetti" : a$(8) = "salt" : a$(9) = "coffee"
  92.     a$(10) = "apples" : a$(11) = "cereal" : a$(12) = "pretzels"
  93.  
  94.     return
  95.  
  96.  
  97. [loadAutomakers]
  98.  
  99.     a$(1) = "Ford" : a$(2) = "GM" : a$(3) = "Jeep"
  100.     a$(4) = "Chevy" : a$(5) = "Toyota" : a$(6) = "Dodge"
  101.     a$(7) = "Plymouth" : a$(8) = "Olds" : a$(9) = "Mercury"
  102.     a$(10) = "Volkswagen" : a$(11) = "Austin" : a$(12) = "Honda"
  103.  
  104.     return
  105.  
  106.  
  107. [textBox]
  108.  
  109.     print #1.text, "!contents?"
  110.     input #1.text, answer$
  111.     notice answer$
  112.  
  113.     goto [mainLoop]
  114.