怎么切分窗口?

Question

怎么把一个窗口切成几个,就想foxmail之类软件一样,最好能给个例子,谢谢了

Answer 1

http://community.csdn.net/Expert/topic/4206/4206323.xml?temp=3.622073E-02看看这个！

Answer 2

我写的一个左右分的：
'以下为一个类代码,使用时在窗体相应位置中调用即可
Option Explicit
    Private myForm As Form   '应用窗体
    Private picP As Object   '做为分隔条的控件
    Private objBox1 As Object '分隔条左边控件
    Private objBox2 As Object '分隔条右边控件
Private Sub Class_Terminate()
    Set  myForm = Nothing
    Set  picP = Nothing
    Set  objBox1 = Nothing
    Set  objBox2 = Nothing
End Sub
Public Sub myInit(inForm As Form, pic As Object, obj1 As Object, obj2 As Object)
On Error GoTo err1
    '初始化各控件位置
    Set myForm = inForm
    Set picP = pic
    Set objBox1 = obj1
    Set objBox2 = obj2 
    picP.MousePointer = 9
    picP.Appearance = 0
    picP.BackColor = &H8000000F
    picP.BorderStyle = 0
    picP.Width = 50 
    objBox1.Top = 0
    objBox1.Left = 0
    objBox1.Width = 3000
    objBox1.Height = myForm.Height
    picP.Top = 0
    picP.Left = objBox1.Width
picP.Height = myForm.Height    
objBox2.Top = 0
    objBox2.Left = objBox1.Width + picP.Width
    objBox2.Height = myForm.Height
    objBox2.Width = myForm.Width - objBox1.Width - picP.Width
    picP.ZOrder (0) 
Exit Sub
err1:
End Sub
Public Sub myMouseMove(MouseButton As Integer, X As Single)
On Error GoTo err1
    '在picP控件的mouseMove事件中调用
    If  MouseButton  =  1 Then
        picP.Move picP.Left + X
        picP.ZOrder (0)
    End If 
Exit Sub
err1:
End Sub
Public Sub myMouseUp(MouseButton As Integer)
On Error GoTo err1
    '在picP控件的mouseUp事件中调用
    If  MouseButton  =  1  Then
        objBox1.Left = 0
        If  picP.Left  <  1000  Then
            objBox1.Width = 1000
            picP.Left = 1000
        Else
            If  picP.Left  >  myForm.Width  Then
                objBox1.Width = myForm.Width - 1000
                picP.Left = objBox1.Width
            Else
                objBox1.Width = picP.Left
            End If
        End If 
        objBox2.Left = objBox1.Width + picP.Width
        objBox2.Width = myForm.Width - objBox1.Width - picP.Width
End If
Exit Sub
err1:
End Sub

Answer 3

我给点意见，自己做个Splitter的容器控件，然后在Splitter控件里面放 Splitter,我们公司就是这么做的，分成十多二十个都没问题

Answer 4

大概的思路就是用一个picturebox作为分割线, 然后根据这个分割线的move事件来动态调整你要分割的容器