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

Text File | 1994-04-01 | 9KB | 264 lines

VERSION 2.00
Begin Form fFlood
   BackColor       =   &H00C0C0C0&
   Caption         =   "Automatic resizing and flooding"
   ClientHeight    =   5040
   ClientLeft      =   180
   ClientTop       =   930
   ClientWidth     =   8700
   Height          =   5505
   Left            =   90
   LinkTopic       =   "Form1"
   ScaleHeight     =   5040
   ScaleWidth      =   8700
   Top             =   555
   Width           =   8880
   Begin VideoSoftElastic VSElastic1
      Align           =   5  'Fill Container
      BevelOuter      =   1  'Raised
      BevelOuterWidth =   1
      Caption         =   "Nest Elastics that automatically resize without writting any code."
      CaptionPos      =   4  'Center Center
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   13.5
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      ForeColor       =   &H00FF0000&
      Height          =   2835
      Index           =   1
      Left            =   600
      TabIndex        =   18
      Top             =   1095
      Width           =   7545
   End
   Begin VideoSoftElastic Flood
      Align           =   1  'Align Top
      BevelOuter      =   1  'Raised
      BevelOuterWidth =   1
      CaptionPos      =   4  'Center Center
      FloodColor      =   &H0000FFFF&
      FloodDirection  =   1  'Right
      FloodPercent    =   25
      Height          =   450
      Index           =   0
      Left            =   600
      TabIndex        =   17
      Top             =   645
      Width           =   7545
   End
   Begin VideoSoftElastic StatusBar
      Align           =   2  'Align Bottom
      AutoSizeChildren=   2  'Uneven Horizontal
      BevelOuter      =   1  'Raised
      BevelOuterWidth =   1
      Height          =   645
      Left            =   600
      TabIndex        =   1
      Top             =   3930
      Width           =   7545
      Begin VideoSoftElastic VSElastic3
         AutoSizeChildren=   1  'Even Horizontal
         Height          =   465
         Index           =   1
         Left            =   5190
         TabIndex        =   9
         Top             =   90
         Width           =   2265
         Begin CommandButton Command1
            Caption         =   "B"
            Height          =   285
            Index           =   9
            Left            =   1545
            TabIndex        =   12
            Top             =   90
            Width           =   630
         End
         Begin CommandButton Command1
            Caption         =   "B"
            Height          =   285
            Index           =   8
            Left            =   825
            TabIndex        =   11
            Top             =   90
            Width           =   630
         End
         Begin CommandButton Command1
            Caption         =   "B"
            Height          =   285
            Index           =   7
            Left            =   90
            TabIndex        =   10
            Top             =   90
            Width           =   645
         End
      End
      Begin VideoSoftElastic VSElastic2
         AutoSizeChildren=   1  'Even Horizontal
         BevelOuterWidth =   0
         Height          =   465
         Index           =   1
         Left            =   90
         TabIndex        =   13
         Top             =   90
         Width           =   5010
         Begin TextBox Text1
            FontBold        =   0   'False
            FontItalic      =   0   'False
            FontName        =   "MS Sans Serif"
            FontSize        =   8.25
            FontStrikethru  =   0   'False
            FontUnderline   =   0   'False
            Height          =   285
            Index           =   2
            Left            =   90
            TabIndex        =   15
            Text            =   "When the form is resized, check this text box and the B buttons."
            Top             =   90
            Width           =   4830
         End
      End
   End
   Begin VideoSoftElastic Flood
      Align           =   3  'Align Left
      BevelOuter      =   1  'Raised
      BevelOuterWidth =   1
      CaptionPos      =   4  'Center Center
      FloodColor      =   &H00FF00FF&
      FloodDirection  =   3  'Up
      FloodPercent    =   25
      Height          =   3930
      Index           =   2
      Left            =   0
      TabIndex        =   8
      Top             =   645
      Width           =   600
   End
   Begin VideoSoftElastic Flood
      Align           =   2  'Align Bottom
      BevelOuter      =   1  'Raised
      BevelOuterWidth =   1
      CaptionPos      =   4  'Center Center
      FloodColor      =   &H00FFFF00&
      FloodDirection  =   2  'Left
      FloodPercent    =   25
      Height          =   465
      Index           =   1
      Left            =   0
      TabIndex        =   16
      Top             =   4575
      Width           =   8145
   End
   Begin Timer Timer1
      Interval        =   1
      Left            =   4095
      Top             =   3600
   End
   Begin VideoSoftElastic Toolbar
      Align           =   1  'Align Top
      AutoSizeChildren=   2  'Uneven Horizontal
      BevelInner      =   7  'Shadow
      BevelInnerWidth =   2
      BevelOuter      =   1  'Raised
      BevelOuterWidth =   1
      Height          =   645
      Left            =   0
      TabIndex        =   2
      Top             =   0
      Width           =   8145
      Begin VideoSoftElastic VSElastic2
         AutoSizeChildren=   1  'Even Horizontal
         BevelOuterWidth =   0
         Height          =   465
         Index           =   0
         Left            =   90
         TabIndex        =   3
         Top             =   90
         Width           =   4950
         Begin TextBox Text1
            FontBold        =   0   'False
            FontItalic      =   0   'False
            FontName        =   "MS Sans Serif"
            FontSize        =   8.25
            FontStrikethru  =   0   'False
            FontUnderline   =   0   'False
            Height          =   285
            Index           =   1
            Left            =   90
            TabIndex        =   14
            Text            =   "When the form is resized, check this text box and the A buttons."
            Top             =   90
            Width           =   4770
         End
      End
      Begin VideoSoftElastic VSElastic3
         AutoSizeChildren=   1  'Even Horizontal
         Height          =   465
         Index           =   0
         Left            =   5130
         TabIndex        =   4
         Top             =   90
         Width           =   2925
         Begin CommandButton Command1
            Caption         =   "A"
            Height          =   285
            Index           =   4
            Left            =   90
            TabIndex        =   7
            Top             =   90
            Width           =   855
         End
         Begin CommandButton Command1
            Caption         =   "A"
            Height          =   285
            Index           =   2
            Left            =   1035
            TabIndex        =   6
            Top             =   90
            Width           =   855
         End
         Begin CommandButton Command1
            Caption         =   "A"
            Height          =   285
            Index           =   0
            Left            =   1980
            TabIndex        =   5
            Top             =   90
            Width           =   855
         End
      End
   End
   Begin VideoSoftElastic Flood
      Align           =   4  'Align Right
      BevelOuter      =   1  'Raised
      BevelOuterWidth =   1
      CaptionPos      =   4  'Center Center
      FloodColor      =   &H0000FF00&
      FloodDirection  =   4  'Down
      FloodPercent    =   25
      Height          =   5040
      Index           =   3
      Left            =   8145
      TabIndex        =   0
      Top             =   0
      Width           =   555
   End
End
Option Explicit

Sub Timer1_Timer ()
  Dim j%
  Static i%

  If i > 97 Then i = 0
  i = i + 3

  For j = 0 To 3
    flood(j).FloodPercent = i
    flood(j).Caption = i & "%"
  Next j

End Sub