网络收藏

请参见：  
  http://qj2002.dnsdiy.com/yzd/001.jpg  
   
  我的问题是，如片上显示的主窗体中，还有类似框架的东东！   并且，可以拖动！  
   
  是怎回师?

推荐阅读

up

你是不是指的是frame呀？

框架可以用有边框的控件做，比如picture控件，  
  option   explicit  
   
  private   declare   function   setcapture   lib   "user32"   (byval   hwnd   as   long)   as   long  
  private   declare   function   releasecapture   lib   "user32"   ()   as   long  
   
  private   sub   form_load()  
          picture1.left   =   60  
          picture1.   =   60  
          picture2.   =   60  
          picsplit.left   =   picture1.left   +   picture1.width   +   30  
          picsplit.width   =   60  
          picsplit.borderstyle   =   0  
          picture2.left   =   picsplit.left   +   picsplit.width   +   50  
          picture1.height   =   5700  
          picture2.height   =   5700  
          picsplit.   =   60  
          picsplit.height   =   5700  
  end   sub  
   
  private   sub   picsplit_mousedown(button   as   integer,   shift   as   integer,   x   as   single,   y   as   single)  
  on   error   resume   next  
          if   button   =   vbleftbutton   then  
                  setcapture   picsplit.hwnd  
                  picsplit.tag   =   x  
                  picsplit.backcolor   =   &hff8080  
          end   if  
  end   sub  
   
  private   sub   picsplit_mousemove(button   as   integer,   shift   as   integer,   x   as   single,   y   as   single)  
  on   error   resume   next  
          if   button   =   vbleftbutton   then  
                  if   picsplit.left   >=   (100   -   x)   and   picsplit.left   <=   (me.scalewidth   -   100   -   x)   then   picsplit.left   =   picsplit.left   +   x   -   cint(picsplit.tag)  
          end   if  
  end   sub  
   
  private   sub   picsplit_mouseup(button   as   integer,   shift   as   integer,   x   as   single,   y   as   single)  
  on   error   resume   next  
          if   button   =   vbleftbutton   then  
                  picture1.width   =   picsplit.left   -   80  
                  picture2.left   =   picsplit.left   +   50  
                  picture2.width   =   width   -   picture1.width   -   4  
                   
                  picsplit.backcolor   =   &h8000000f  
                  releasecapture  
          end   if  
  end   sub  
 

先在窗口中加三个picturer控件，将其中一个改名为picsplit，另外一个是picture1，另一个是picture2

这个很好解决:)  
   
  步骤：  
  启动vb  
  新建工程-》vb   应用程序向导  
  下一步  
  在界面方式中选择"资源管理器样式"  
  按下"完成",就有你想要的例子了