怎样实现 像window的 “查找文件" 那样有两个窗格（左右两个）？？？

Question

用多窗体实现！！比较急]

Answer 1

把form分解成两个部分，各自完成各自的功能。

Answer 2

用API
SetParent函数可以把一个form放到另外一个form中

Answer 3

如果是新手又要快速学会的话,可以去下载第三方控件,这样的控件很多的!如果是调用API等方法,可能对你现在的程序来说有点困难!

Answer 4

Option ExplicitPrivate Declare Function SetCapture Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function ReleaseCapture Lib "user32" () As Long'在窗口上加三个PICTUREBOX控件,其中一个改名为 picSplit
Private 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
    picSplit.MousePointer = vbSizeWE
'    Dim s As New ScriptControl
'
'    s.Language = "vbscript"
'    MsgBox s.Eval("(8+10)/2")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 5

你把左右两个PICTUREBOX换成你想用的控件就行了,分隔条那个PICTUREBOX不用换.