如何实现窗口自由分割功能。在窗口中有两个frame（框架控件）和一个picturebox.

Question

PicH 移动的Picture控件Private Sub PicH_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 1 Then
        PMouDown = True
        PicH.BackColor = &H404040
    End If
End SubPrivate Sub PicH_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If PMouDown Then
        With PicH
            .lEFT = X + .lEFT
        End With
    End If
End SubPrivate Sub PicH_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If PMouDown Then
        PicH.BackColor = &H80000004
        PMouDown = False
    End If
    ReplaseH'函数，用来控制窗口各个控件位置（具体你来写）
End Sub

Answer 1

上面这位仁兄提供的代码太简单，没有说出要点。我的问题，说白了就是在一个窗口中的两个FRAME控件之间，通过PICTUREBOX来自由调节两个FRAME的大小，如何实现呢？？

Answer 2

这个好像要用一个API函数的，具体代码我也一时打不出来改天给你了，

Answer 3

可以参考VB带的例子：
“新建工程”
“VB应用程序向导”
选择资源管理器样式