超简单问题，在线，解决问题马上给分！

Question

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

Answer 1

框架可以用有边框的控件做，比如PICTURE控件，
Option ExplicitPrivate Declare Function SetCapture Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function ReleaseCapture Lib "user32" () As LongPrivate Sub Form_Load()
    Picture1.Left = 60
    Picture1.Top = 60
    Picture2.Top = 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.Top = 60
    picSplit.Height = 5700
End SubPrivate 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 SubPrivate 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 SubPrivate 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

Answer 2

先在窗口中加三个PICTURER控件，将其中一个改名为PICSPLIT，另外一个是PICTURE1，另一个是PICTURE2

Answer 3

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