home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / Basic / Samples / WBASIC14 / WBASIC14.ZIP / BB14.ZIP / SAMPLE13.BAS < prev    next >
Encoding:
BASIC Source File  |  1993-06-21  |  1.3 KB  |  50 lines
  1.  
  2.    rem
  3.    rem This program demonstrates the use of a custom dialog box to get a file
  4.    rem name.  The radio buttons are included just to show that you can
  5.    rem do multiple things with one dialog box if desired.
  6.    rem
  7.  
  8.    a=mouseon
  9.  
  10.    rem go into graphics mode
  11.    screen 12
  12.  
  13.  
  14.    rem format of all my controls
  15.    rem   type,left,top,xsize,ysize,id,text,(special)
  16.  
  17.    dim control$(100)
  18.  
  19.    control$(0)="ltext,50,0,200,30,140,&Filename"
  20.    control$(1)="filename,50,26,200,30,151,"
  21.  
  22.    control$(2)="ltext,50,64,200,30,141,Pathname"
  23.    control$(3)="filepath,50,90,200,30,150,"
  24.  
  25.    control$(4)="filelist,50,120,150,170,152,*.BMP,0
  26.  
  27.    control$(5)="OK,300,4,100,40,153,OK"
  28.    control$(6)="pushbutton,300,48,100,40,154,&Cancel"
  29.  
  30.    control$(7)="radiobutton,300,180,110,25,105,Standard"
  31.    control$(8)="radiobutton,300,210,110,25,106,Compress,1"
  32.    control$(9)="group,290,150,146,110,107,File Size"
  33.  
  34.    rem call dialog
  35.    dialog control$(0),10,10,10,450,300,"Select File to Read"
  36.  
  37.    rem display results of dialog
  38.    print "pathname=";dialog$(150)
  39.    print "filename=";dialog$(151)
  40.    print "ok button=";dialog$(153)
  41.    print "standard button=";dialog$(105)
  42.    print "compress button=";dialog$(106)
  43.    print "cancel button=";dialog$(154)
  44.  
  45.  
  46. input z
  47.  
  48.  
  49.  
  50.