QBasic & Borland Pascal & C/Delphi5.iso/Basic/Samples/3CTRLS/3CTRLS.ZIP/SPLITTER.FRM

Visual Basic Form | 1993-10-05 | 7.2 KB | 199 lines

VERSION 2.00
Begin Form Splitter
   BackColor       =   &H00C0C0C0&
   Caption         =   "Resize controls using the colored splitter bars"
   Height          =   4185
   Left            =   480
   LinkTopic       =   "Form1"
   ScaleHeight     =   3720
   ScaleWidth      =   8415
   Top             =   1260
   Width           =   8595
   Begin VideoSoftElastic VSElastic1
      Align           =   5  'Fill Container
      AutoSizeChildren=   2  'Uneven Horizontal
      BackColor       =   &H0000FF00&
      BorderWidth     =   0
      Height          =   3720
      Left            =   0
      Splitter        =   1  'Yes (with uneven spacing)
      TabIndex        =   0
      Top             =   0
      Width           =   8415
      Begin VideoSoftElastic VSElastic3
         AutoSizeChildren=   1  'Even Horizontal
         BackColor       =   &H00C0C0C0&
         BevelOuter      =   1  'Raised
         BevelOuterWidth =   1
         Height          =   3720
         Left            =   2655
         TabIndex        =   14
         Top             =   0
         Width           =   2475
         Begin FileListBox File1
            Height          =   3540
            Left            =   90
            TabIndex        =   15
            Top             =   90
            Width           =   2295
         End
      End
      Begin VideoSoftElastic VSElastic2
         AutoSizeChildren=   4  'Uneven Vertical
         BackColor       =   &H00C0C0C0&
         BevelOuter      =   1  'Raised
         BevelOuterWidth =   1
         Height          =   3720
         Left            =   0
         TabIndex        =   11
         Top             =   0
         Width           =   2565
         Begin DirListBox Dir1
            Height          =   2955
            Left            =   90
            TabIndex        =   12
            Top             =   495
            Width           =   2385
         End
         Begin DriveListBox Drive1
            Height          =   315
            Left            =   90
            TabIndex        =   13
            Top             =   90
            Width           =   2385
         End
      End
      Begin VideoSoftElastic VSElastic4
         AutoSizeChildren=   4  'Uneven Vertical
         BackColor       =   &H0000FF00&
         BorderWidth     =   0
         Height          =   3720
         Left            =   5220
         Splitter        =   1  'Yes (with uneven spacing)
         TabIndex        =   1
         Top             =   0
         Width           =   3195
         Begin VideoSoftElastic VSElastic6
            AutoSizeChildren=   3  'Even Vertical
            BackColor       =   &H00C0C0C0&
            BevelOuter      =   1  'Raised
            BevelOuterWidth =   1
            Height          =   2985
            Left            =   0
            TabIndex        =   6
            Top             =   0
            Width           =   3195
            Begin CommandButton Command1
               Caption         =   "&Colors"
               FontBold        =   0   'False
               FontItalic      =   0   'False
               FontName        =   "MS Sans Serif"
               FontSize        =   8.25
               FontStrikethru  =   0   'False
               FontUnderline   =   0   'False
               Height          =   645
               Index           =   0
               Left            =   90
               TabIndex        =   10
               Top             =   90
               Width           =   3015
            End
            Begin CommandButton Command1
               Caption         =   "&Fonts"
               FontBold        =   0   'False
               FontItalic      =   0   'False
               FontName        =   "MS Sans Serif"
               FontSize        =   8.25
               FontStrikethru  =   0   'False
               FontUnderline   =   0   'False
               Height          =   630
               Index           =   1
               Left            =   90
               TabIndex        =   9
               Top             =   825
               Width           =   3015
            End
            Begin CommandButton Command1
               FontBold        =   0   'False
               FontItalic      =   0   'False
               FontName        =   "MS Sans Serif"
               FontSize        =   8.25
               FontStrikethru  =   0   'False
               FontUnderline   =   0   'False
               Height          =   630
               Index           =   2
               Left            =   90
               TabIndex        =   8
               Top             =   1545
               Width           =   3015
            End
            Begin CommandButton Command1
               FontBold        =   0   'False
               FontItalic      =   0   'False
               FontName        =   "MS Sans Serif"
               FontSize        =   8.25
               FontStrikethru  =   0   'False
               FontUnderline   =   0   'False
               Height          =   630
               Index           =   3
               Left            =   90
               TabIndex        =   7
               Top             =   2265
               Width           =   3015
            End
         End
         Begin VideoSoftElastic VSElastic5
            AutoSizeChildren=   1  'Even Horizontal
            BackColor       =   &H00C0C0C0&
            BevelOuter      =   1  'Raised
            BevelOuterWidth =   1
            Height          =   645
            Left            =   0
            TabIndex        =   2
            Top             =   3075
            Width           =   3195
            Begin CommandButton Command1
               Caption         =   "A"
               Height          =   465
               Index           =   6
               Left            =   90
               TabIndex        =   5
               Top             =   90
               Width           =   945
            End
            Begin CommandButton Command1
               Caption         =   "B"
               Height          =   465
               Index           =   5
               Left            =   1125
               TabIndex        =   4
               Top             =   90
               Width           =   945
            End
            Begin CommandButton Command1
               Caption         =   "C"
               Height          =   465
               Index           =   4
               Left            =   2160
               TabIndex        =   3
               Top             =   90
               Width           =   945
            End
         End
      End
   End
Option Explicit
Sub Command1_Click (Index As Integer)
  Dim newcolor&
  Select Case Index
    Case 0  'Change to random colors
      newcolor = QBColor(Rnd * 15)
      VSelastic1.BackColor = newcolor
      VSelastic4.BackColor = newcolor
    Case 1   'Fonts
      File1.FontSize = (File1.FontSize + 2) Mod 13
      Drive1.FontSize = (Drive1.FontSize + 2) Mod 13
      Dir1.FontSize = (Dir1.FontSize + 2) Mod 13
  End Select
End Sub