home *** CD-ROM | disk | FTP | other *** search
/ PC User 2001 August / APC_Aug2001_CD2.iso / features / devtools / files / lb202win.exe / LB202W.EXE / LOCATE.BAS < prev    next >
Encoding:
BASIC Source File  |  2000-12-06  |  518 b   |  24 lines
  1.  
  2.     'locate.bas
  3.     'This program demonstrates how to change the location
  4.     'of a control in a window.
  5.     combobox #main.lb, array$(), [ok], 10, 10, 100, 150
  6.     open "Locate control" for window as #main
  7.     print #main, "trapclose [quit]"
  8.  
  9.     for x = 10 to 200 step 10
  10.  
  11.         'relocate the combobox
  12.         print #main.lb, "locate ";x; " ";x; " 100 150"
  13.  
  14.         'force the new location to take effect
  15.         print #main, "refresh"
  16.  
  17.     next x
  18.  
  19.     wait
  20.  
  21. [quit]
  22.     close #main
  23.     end
  24.