将窗口拆分为几部分, 如何实现

解决方案 »

  1.   

    这里有代码
    http://www.csdn.net/cnshare/soft/16/16015.shtm
      

  2.   

    拆分多部分的!
    象这样:在child里面包含vbsplitterPrivate Sub Form_Load()    vbSplitter1.Orientation = vbSplitVertical
        
        Set vbSplitter1.Child1 = List1
        Set vbSplitter1.Child2 = vbSplitter2
        vbSplitter2.Orientation = vbSplitHorizontal    Set vbSplitter2.Child1 = List2
        Set vbSplitter2.Child2 = List3
        vbSplitter1.ForceResize
        
    End Sub
      

  3.   

    拆分多部分的!
    象这样:在child里面包含vbsplitterPrivate Sub Form_Load()    vbSplitter1.Orientation = vbSplitVertical
        
        Set vbSplitter1.Child1 = List1
        Set vbSplitter1.Child2 = vbSplitter2
        vbSplitter2.Orientation = vbSplitHorizontal    Set vbSplitter2.Child1 = List2
        Set vbSplitter2.Child2 = List3
        vbSplitter1.ForceResize
        
    End Sub