【VB开源代码栏目提醒】：网学会员--在 VB开源代码编辑为广大网友搜集整理了：23.frm绩等信息，祝愿广大网友取得需要的信息，参考学习。

    VERSION 5.00
    Begin VB.Form Form1 
       Caption         =   "资源管理器窗口"
       ClientHeight    =   3210
       ClientLeft      =   60
       ClientTop       =   345
       ClientWidth     =   5235
       LinkTopic       =   "Form1"
       ScaleHeight     =   3210
       ScaleWidth      =   5235
       StartUpPosition =   3  '窗口缺省
       Begin VB.PictureBox Splitter 
          BackColor       =   &H8000000A&
          Height          =   2535
          Left            =   1920
          MousePointer    =   9  'Size W E
          ScaleHeight     =   2475
          ScaleWidth      =   795
          TabIndex        =   2
          Top             =   240
          Width           =   855
       End
       Begin VB.ListBox ListLeft 
          BackColor       =   &H00C0C0FF&
          Height          =   2400
          Left            =   360
          TabIndex        =   1
          Top             =   240
          Width           =   1215
       End
       Begin VB.TextBox TextRight 
          BackColor       =   &H00FFC0C0&
          Height          =   2655
          Left            =   3240
          MultiLine       =   -1  'True
          ScrollBars      =   1  'Horizontal
          TabIndex        =   0
          Top             =   120
          Width           =   1455
       End
    End
    Attribute VB_Name = "Form1"
    Attribute VB_GlobalNameSpace = False
    Attribute VB_Creatable = False
    Attribute VB_PredeclaredId = True
    Attribute VB_Exposed = False
    Private Const SPLT_WDTH As Integer = 35
    Private currSplitPosX As Long
    Dim CTRL_OFFSET As Integer
    Dim SPLT_COLOUR As Long
    Private Sub Form_Load()
    CTRL_OFFSET = 5
    SPLT_COLOUR = &H808080
    currSplitPosX = &H7FFFFFFF
    ListLeft.AddItem "VB俱乐部"
    ListLeft.AddItem "VB动画篇"
    ListLeft.AddItem "VB网络篇"
    ListLeft.AddItem "VB控件类"
    ListLeft.AddItem "VB界面类"
    TextRight = "经常见到窗体上有二个相邻的列表框，可以用鼠标任意拉动中间分割条，改变列表框大小。"
    End Sub
    Private Sub Form_Resize()
    Dim x1 As Integer
    Dim x2 As Integer
    Dim height1 As Integer
    Dim width1 As Integer
    Dim width2 As Integer
    On Error Resume Next
    height1 = ScaleHeight - (CTRL_OFFSET * 2)
    x1 = CTRL_OFFSET
    width1 = ListLeft.Width
    x2 = x1 + ListLeft.Width + SPLT_WDTH - 1
    width2 = ScaleWidth - x2 - CTRL_OFFSET
    ListLeft.Move x1% - 1, CTRL_OFFSET, width1, height1
    TextRight.Move x2, CTRL_OFFSET, width2 + 1, height1
    Splitter.Move x1 + ListLeft.Width - 1, CTRL_OFFSET, SPLT_WDTH, height1
    End Sub
    
    Private Sub Splitter_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = vbLeftButton Then
        Splitter.BackColor = SPLT_COLOUR
        currSplitPosX = CLng(X)
    Else
        If currSplitPosX <> &H7FFFFFFF Then Splitter_MouseUp Button, Shift, X, Y
        currSplitPosX = &H7FFFFFFF
    End If
    End Sub
    
    
    Private Sub Splitter_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If currSplitPosX& <> &H7FFFFFFF Then
    If CLng(X) <> currSplitPosX Then
    Splitter.Move Splitter.Left + X, CTRL_OFFSET, SPLT_WDTH, ScaleHeight - (CTRL_OFFSET * 2)
    currSplitPosX = CLng(X)
    End If
    End If
    End Sub
    
    
    Private Sub Splitter_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If currSplitPosX <> &H7FFFFFFF Then
    If CLng(X) <> currSplitPosX Then
        Splitter.Move Splitter.Left + X, CTRL_OFFSET, SPLT_WDTH, ScaleHeight - (CTRL_OFFSET * 2)
    End If
    currSplitPosX = &H7FFFFFFF
    Splitter.BackColor = &H8000000F
    If Splitter.Left > 60 And Splitter.Left < (ScaleWidth - 60) Then
    ListLeft.Width = Splitter.Left - ListLeft.Left
    ElseIf Splitter.Left < 60 Then
        ListLeft.Width = 60
    Else
        ListLeft.Width = ScaleWidth - 60
    End If
        Form_Resize
    End If
    
    End Sub