home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / fileman / frmsplit.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1997-05-12  |  4.9 KB  |  156 lines
  1. VERSION 5.00
  2. Begin VB.Form FrmSplit 
  3.    Caption         =   "Leifen's FileManager"
  4.    ClientHeight    =   5040
  5.    ClientLeft      =   2745
  6.    ClientTop       =   2220
  7.    ClientWidth     =   7095
  8.    LinkTopic       =   "Form1"
  9.    PaletteMode     =   1  'UseZOrder
  10.    ScaleHeight     =   5040
  11.    ScaleWidth      =   7095
  12.    Begin VB.PictureBox RightPane 
  13.       Height          =   4815
  14.       Left            =   3600
  15.       ScaleHeight     =   4755
  16.       ScaleWidth      =   3195
  17.       TabIndex        =   3
  18.       Top             =   120
  19.       Width           =   3255
  20.       Begin VB.FileListBox File1 
  21.          Height          =   3600
  22.          Left            =   120
  23.          TabIndex        =   6
  24.          Top             =   120
  25.          Width           =   3015
  26.       End
  27.    End
  28.    Begin VB.PictureBox LeftPane 
  29.       Height          =   4815
  30.       Left            =   120
  31.       ScaleHeight     =   4755
  32.       ScaleWidth      =   3315
  33.       TabIndex        =   2
  34.       Top             =   120
  35.       Width           =   3375
  36.       Begin VB.DirListBox Dir1 
  37.          Height          =   3690
  38.          Left            =   120
  39.          TabIndex        =   5
  40.          Top             =   480
  41.          Width           =   3135
  42.       End
  43.       Begin VB.DriveListBox Drive1 
  44.          Height          =   315
  45.          Left            =   120
  46.          TabIndex        =   4
  47.          Top             =   0
  48.          Width           =   3135
  49.       End
  50.    End
  51.    Begin VB.PictureBox DragLine 
  52.       Appearance      =   0  'Flat
  53.       BackColor       =   &H00404040&
  54.       BorderStyle     =   0  'None
  55.       ForeColor       =   &H80000008&
  56.       Height          =   4815
  57.       Left            =   6960
  58.       ScaleHeight     =   4815
  59.       ScaleWidth      =   45
  60.       TabIndex        =   1
  61.       Top             =   120
  62.       Visible         =   0   'False
  63.       Width           =   40
  64.    End
  65.    Begin VB.PictureBox InvisLine 
  66.       Appearance      =   0  'Flat
  67.       BorderStyle     =   0  'None
  68.       FillColor       =   &H8000000F&
  69.       ForeColor       =   &H80000008&
  70.       Height          =   4815
  71.       Left            =   3480
  72.       MouseIcon       =   "FrmSplit.frx":0000
  73.       MousePointer    =   99  'Custom
  74.       ScaleHeight     =   4815
  75.       ScaleWidth      =   135
  76.       TabIndex        =   0
  77.       Top             =   120
  78.       Width           =   135
  79.    End
  80. Attribute VB_Name = "FrmSplit"
  81. Attribute VB_GlobalNameSpace = False
  82. Attribute VB_Creatable = False
  83. Attribute VB_PredeclaredId = True
  84. Attribute VB_Exposed = False
  85. Private Sub Dir1_Change()
  86. 'File1.Pattern = Dir1.Path
  87. 'Dir1.Path = File1.Path
  88. File1.Path = Dir1.Path
  89. End Sub
  90. Private Sub Drive1_Change()
  91. Dir1.Path = Drive1.Drive
  92. End Sub
  93. Private Sub Form_Load()
  94. DragLine.ZOrder
  95. End Sub
  96. Private Sub Form_Resize()
  97. If Not Me.WindowState = 1 Then
  98.     LeftPane.Height = Me.Height - 600
  99.     LeftPane.Height = Me.Height - 600
  100.     RightPane.Height = LeftPane.Height
  101.     If Not RightPane.Width >= (Me.Width - (InvisLine.Left + 115)) - 120 Then
  102.     RightPane.Width = (Me.Width - (InvisLine.Left + 115)) - 120
  103.         
  104.     Drive1.Left = 50
  105.     Drive1.Top = 50
  106.     Drive1.Width = LeftPane.Width - 150
  107.     Dir1.Left = Drive1.Left
  108.     Dir1.Top = (Drive1.Top + Drive1.Height + 50)
  109.     Dir1.Width = Drive1.Width
  110.     Dir1.Height = LeftPane.Height - (Drive1.Top + Drive1.Height + 140)
  111.     File1.Left = Drive1.Left
  112.     File1.Top = Drive1.Top
  113.     File1.Width = RightPane.Width - 150
  114.     File1.Height = RightPane.Height
  115.         
  116.         
  117.         
  118.         
  119.     End If
  120. End If
  121. End Sub
  122. Private Sub InvisLine_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  123. DragLine.Left = LeftPane.Left + 20
  124. DragLine.Top = LeftPane.Top
  125. DragLine.Visible = True
  126. End Sub
  127. Private Sub InvisLine_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  128. If Button = 1 And InvisLine.Visible = True Then
  129.     DragLine.Move X + CSng(InvisLine.Left + 45), LeftPane.Top, 40, LeftPane.Height
  130. End If
  131. End Sub
  132. Private Sub InvisLine_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  133. If InvisLine.Left > Me.Width - 1000 Then
  134.     InvisLine.Left = Me.Width - 1000
  135. End If
  136. InvisLine.Left = DragLine.Left
  137. LeftPane.Left = 0
  138. LeftPane.Width = InvisLine.Left - (InvisLine.Width / 2)
  139. InvisLine.Left = LeftPane.Width + 15
  140. RightPane.Width = (Me.Width - (InvisLine.Left + 115)) - 120
  141. RightPane.Left = InvisLine.Left + 115
  142. DragLine.Visible = False
  143. DragLine.Left = 0
  144.     Drive1.Left = 50
  145.     Drive1.Top = 50
  146.     Drive1.Width = LeftPane.Width - 150
  147.     Dir1.Left = Drive1.Left
  148.     Dir1.Top = (Drive1.Top + Drive1.Height + 50)
  149.     Dir1.Width = Drive1.Width
  150.     Dir1.Height = LeftPane.Height - (Drive1.Top + Drive1.Height + 140)
  151.     File1.Left = Drive1.Left
  152.     File1.Top = Drive1.Top
  153.     File1.Width = RightPane.Width - 150
  154.     File1.Height = RightPane.Height
  155. End Sub
  156.