Programming Tool Box/SIMS_2.iso/vb_code1/3ctrls/splitter.frm

Text File | 1994-05-05 | 8KB | 226 lines

VERSION 2.00
Begin Form Splitter
   BackColor       =   &H00C0C0C0&
   Caption         =   "Resize controls using the colored splitter bars"
   ClientHeight    =   3720
   ClientLeft      =   570
   ClientTop       =   1635
   ClientWidth     =   8415
   Height          =   4185
   Left            =   480
   LinkTopic       =   "Form1"
   ScaleHeight     =   3720
   ScaleWidth      =   8415
   Top             =   1260
   Width           =   8595
   Begin VideoSoftElastic mainElastic
      Align           =   5  'Fill Container
      AutoSizeChildren=   2  'Uneven Horizontal
      BackColor       =   &H0000FF00&
      BorderWidth     =   0
      Height          =   3720
      IntBkg          =   &H0000FF00&
      Left            =   0
      Splitter        =   1  'Yes (with uneven spacing)
      TabIndex        =   0
      Top             =   0
      Width           =   8415
      Begin VideoSoftElastic MiddleElastic
         AutoSizeChildren=   1  'Even Horizontal
         BackColor       =   &H00C0C0C0&
         BevelOuter      =   1  'Raised
         BevelOuterWidth =   1
         BorderWidth     =   12
         Height          =   3720
         IntBkg          =   &H00C0C0C0&
         Left            =   2475
         TabIndex        =   12
         Top             =   0
         Width           =   2655
         Begin TextBox Text2
            Height          =   3360
            Left            =   180
            TabIndex        =   14
            Text            =   "Text2"
            Top             =   180
            Width           =   2295
         End
      End
      Begin VideoSoftElastic LeftElastic
         AutoSizeChildren=   1  'Even Horizontal
         BackColor       =   &H00C0C0C0&
         BevelOuter      =   1  'Raised
         BevelOuterWidth =   1
         BorderWidth     =   12
         Height          =   3720
         IntBkg          =   &H00C0C0C0&
         Left            =   0
         TabIndex        =   11
         Top             =   0
         Width           =   2385
         Begin TextBox Text1
            Height          =   3360
            Left            =   180
            TabIndex        =   13
            Text            =   "Text1"
            Top             =   180
            Width           =   2025
         End
      End
      Begin VideoSoftElastic RightElastic
         AutoSizeChildren=   4  'Uneven Vertical
         BackColor       =   &H0000FF00&
         BorderWidth     =   0
         Height          =   3720
         IntBkg          =   &H0000FF00&
         Left            =   5220
         Splitter        =   1  'Yes (with uneven spacing)
         TabIndex        =   1
         Top             =   0
         Width           =   3195
         Begin VideoSoftElastic ElasticTop
            AutoSizeChildren=   3  'Even Vertical
            BackColor       =   &H00C0C0C0&
            BevelInner      =   7  'Shadow
            BevelInnerWidth =   3
            BevelOuter      =   1  'Raised
            BevelOuterWidth =   1
            BorderWidth     =   12
            ChildSpacing    =   10
            Height          =   2985
            IntBkg          =   &H00C0C0C0&
            Left            =   0
            TabIndex        =   6
            Top             =   0
            Width           =   3195
            Begin CommandButton Command1
               BackColor       =   &H00C0C0C0&
               Caption         =   "&Colors"
               FontBold        =   -1  'True
               FontItalic      =   0   'False
               FontName        =   "System"
               FontSize        =   9.75
               FontStrikethru  =   0   'False
               FontUnderline   =   0   'False
               Height          =   555
               Index           =   0
               Left            =   180
               TabIndex        =   10
               Top             =   180
               Width           =   2835
            End
            Begin CommandButton Command1
               BackColor       =   &H00C0C0C0&
               Caption         =   "&Fonts"
               FontBold        =   -1  'True
               FontItalic      =   0   'False
               FontName        =   "System"
               FontSize        =   9.75
               FontStrikethru  =   0   'False
               FontUnderline   =   0   'False
               Height          =   540
               Index           =   1
               Left            =   180
               TabIndex        =   9
               Top             =   885
               Width           =   2835
            End
            Begin CommandButton Command1
               BackColor       =   &H00C0C0C0&
               FontBold        =   -1  'True
               FontItalic      =   0   'False
               FontName        =   "System"
               FontSize        =   9.75
               FontStrikethru  =   0   'False
               FontUnderline   =   0   'False
               Height          =   540
               Index           =   2
               Left            =   180
               TabIndex        =   8
               Top             =   1575
               Width           =   2835
            End
            Begin CommandButton Command1
               BackColor       =   &H00C0C0C0&
               FontBold        =   -1  'True
               FontItalic      =   0   'False
               FontName        =   "System"
               FontSize        =   9.75
               FontStrikethru  =   0   'False
               FontUnderline   =   0   'False
               Height          =   540
               Index           =   3
               Left            =   180
               TabIndex        =   7
               Top             =   2265
               Width           =   2835
            End
         End
         Begin VideoSoftElastic ElasticBottom
            AutoSizeChildren=   1  'Even Horizontal
            BackColor       =   &H00C0C0C0&
            BevelInner      =   7  'Shadow
            BevelInnerWidth =   4
            BevelOuter      =   1  'Raised
            BevelOuterWidth =   1
            BorderWidth     =   10
            ChildSpacing    =   12
            Height          =   645
            IntBkg          =   &H00C0C0C0&
            Left            =   0
            TabIndex        =   2
            Top             =   3075
            Width           =   3195
            Begin CommandButton Command1
               BackColor       =   &H00C0C0C0&
               Caption         =   "A"
               Height          =   345
               Index           =   6
               Left            =   150
               TabIndex        =   5
               Top             =   150
               Width           =   855
            End
            Begin CommandButton Command1
               BackColor       =   &H00C0C0C0&
               Caption         =   "B"
               Height          =   345
               Index           =   5
               Left            =   1185
               TabIndex        =   4
               Top             =   150
               Width           =   840
            End
            Begin CommandButton Command1
               BackColor       =   &H00C0C0C0&
               Caption         =   "C"
               Height          =   345
               Index           =   4
               Left            =   2205
               TabIndex        =   3
               Top             =   150
               Width           =   840
            End
         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)
      MainElastic.BackColor = newcolor
      RightElastic.BackColor = newcolor

    Case 1   'Fonts
      Text1.FontSize = (Text1.FontSize + 2) Mod 13
      Text2.FontSize = (Text2.FontSize + 2) Mod 13

  End Select
End Sub