常见问题：自动调整窗口内控间的大小[2]

keyword>(i) = frm.controls(i).x2 else ntop(i) = frm.controls(i).top nleft(i) = frm.controls(i).left nheight(i) = frm.controls(i).height nwidth(i) = frm.controls(i).width nfontsize(i) = frm.fontsize nrightmargin(i) = frm.controls(i).rightmargin end if next if bwinmax or frm.windowstate = 2 then frm.height = screen.height frm.width = screen.width else frm.height = frm.height * screen.height / 7290 frm.width = frm.width * screen.width / 9690 end if bfirsttime = true end sub

sub formresize(frm as form)

   dim i             as integer
   dim ncaptionsize  as integer
   dim dratiox       as double
   dim dratioy       as double
   dim nsaveredraw   as long

   on error resume next
   nsaveredraw = frm.autoredraw

   frm.autoredraw = true

   if bfirsttime then
      bfirsttime = false
      exit sub
   end if

   if frm.height < nformheight / 2 then 
     frm.height = nformheight / 2
   endif

   if frm.width < nformwidth / 2 then 
     frm.width =