home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / visds / resiztst.dsc < prev    next >
Encoding:
Text File  |  1999-05-02  |  464 b   |  21 lines
  1.     title Resizable window example
  2.   DIALOG CREATE,Resizable window,-1,0,240,160,RESIZABLE
  3.   DIALOG ADD,MENU,&File,E&xit
  4.   DIALOG ADD,STATUS,SB
  5.   DIALOG ADD,EDIT,ED,0,1,238,136,,MULTI,WRAP
  6.   DIALOG SHOW
  7.     rem calculate height offset for edit control
  8.     %%dh = @sum(2,@dlgpos(SB,H))
  9. :evloop
  10.     wait event
  11.     %E = @event()
  12.     goto %E
  13. :RESIZE
  14.   PARSE "%H;%W",@dlgpos(,HW)
  15.   DIALOG SETPOS,ED,0,1,@diff(%W,2),@diff(%H,%%dh)
  16.     goto evloop
  17. :CLOSE
  18. :ExitMENU
  19.     Exit
  20.  
  21.