请问如何在VB中实现“资源管理器界面”的应用程序。

Question

？

Answer 1

可以用DirListBox和toolbar等一些控件组合做

Answer 2

资源管理器
打开vb,不点＂标准Exe＂，点＂应用程序向导＂，再点＂下一步＂，再点＂资源管理器样式＂
最后点＂完成＂，就有一个了，你满意吗??/这是vb自带的～～

Answer 3

lvlvlvlylyly(那森) ，这边又让你复习了一下啊！

Answer 4

楼上的，VB自带一个，你自己做个VB应用程序向导就有了！或者MSDN的例子中有一个DataTree的文件夹！

Answer 5

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
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 - picSplit.Left - 250
        
        picSplit.BackColor = &H8000000F
        ReleaseCapture
    End If
End Sub