Power-Programmierung/CD1.mdf/basic/library/vb/3ctrls/flood.frm

Visual Basic Form | 1993-07-15 | 14.3 KB | 428 lines

VERSION 2.00
Begin Form fFlood
   BackColor       =   &H00C0C0C0&
   Caption         =   "Automatic resizing and flooding"
   ClientHeight    =   4965
   ClientLeft      =   1230
   ClientTop       =   1605
   ClientWidth     =   8145
   Height          =   5430
   Left            =   1140
   LinkTopic       =   "Form1"
   ScaleHeight     =   4965
   ScaleWidth      =   8145
   Top             =   1230
   Width           =   8325
   Begin VideoSoftElastic StatusBar
      Align           =   2  'Align Bottom
      AutoSizeChildren=   2  'Uneven Horizontally
      BackColor       =   &H00C0C0C0&
      BevelInner      =   3  'Inset
      BevelInnerWidth =   1
      BevelOuter      =   2  'Raised Outlined
      BevelOuterWidth =   2
      BorderWidth     =   6
      Caption         =   ""
      CaptionPos      =   1  'Left Center
      ChildSpacing    =   6
      FloodColor      =   &H000000C0&
      FloodDirection  =   0  'None
      FloodPercent    =   0
      Height          =   645
      Left            =   0
      Splitter        =   0  'No
      TabIndex        =   1
      Top             =   4320
      Width           =   8145
      Begin VideoSoftElastic VSElastic3
         Align           =   0  'None
         AutoSizeChildren=   1  'Even Horizontally
         BackColor       =   &H00C0C0C0&
         BevelInner      =   3  'Inset
         BevelInnerWidth =   1
         BevelOuter      =   2  'Raised Outlined
         BevelOuterWidth =   2
         BorderWidth     =   6
         Caption         =   ""
         CaptionPos      =   1  'Left Center
         ChildSpacing    =   6
         FloodColor      =   &H000000C0&
         FloodDirection  =   0  'None
         FloodPercent    =   0
         Height          =   465
         Index           =   1
         Left            =   5190
         Splitter        =   0  'No
         TabIndex        =   9
         Top             =   90
         Width           =   2865
         Begin CommandButton Command1
            Caption         =   "B"
            Height          =   285
            Index           =   9
            Left            =   1920
            TabIndex        =   12
            Top             =   90
            Width           =   855
         End
         Begin CommandButton Command1
            Caption         =   "B"
            Height          =   285
            Index           =   8
            Left            =   1005
            TabIndex        =   11
            Top             =   90
            Width           =   825
         End
         Begin CommandButton Command1
            Caption         =   "B"
            Height          =   285
            Index           =   7
            Left            =   90
            TabIndex        =   10
            Top             =   90
            Width           =   825
         End
      End
      Begin VideoSoftElastic VSElastic2
         Align           =   0  'None
         AutoSizeChildren=   1  'Even Horizontally
         BackColor       =   &H00C0C0C0&
         BevelInner      =   3  'Inset
         BevelInnerWidth =   1
         BevelOuter      =   2  'Raised Outlined
         BevelOuterWidth =   0
         BorderWidth     =   6
         Caption         =   ""
         CaptionPos      =   1  'Left Center
         ChildSpacing    =   6
         FloodColor      =   &H000000C0&
         FloodDirection  =   0  'None
         FloodPercent    =   0
         Height          =   465
         Index           =   1
         Left            =   90
         Splitter        =   0  'No
         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           =   0  'None
      AutoSizeChildren=   0  'None
      BackColor       =   &H00C0C0C0&
      BevelInner      =   3  'Inset
      BevelInnerWidth =   1
      BevelOuter      =   2  'Raised Outlined
      BevelOuterWidth =   2
      BorderWidth     =   6
      Caption         =   ""
      CaptionPos      =   4  'Center Center
      ChildSpacing    =   6
      FloodColor      =   &H0000FF00&
      FloodDirection  =   4  'Down
      FloodPercent    =   0
      Height          =   3255
      Index           =   3
      Left            =   3375
      Splitter        =   0  'No
      TabIndex        =   0
      Top             =   855
      Width           =   645
   End
   Begin VideoSoftElastic Flood
      Align           =   0  'None
      AutoSizeChildren=   0  'None
      BackColor       =   &H00C0C0C0&
      BevelInner      =   3  'Inset
      BevelInnerWidth =   1
      BevelOuter      =   2  'Raised Outlined
      BevelOuterWidth =   2
      BorderWidth     =   6
      Caption         =   ""
      CaptionPos      =   4  'Center Center
      ChildSpacing    =   6
      FloodColor      =   &H00FF00FF&
      FloodDirection  =   3  'Up
      FloodPercent    =   0
      Height          =   2715
      Index           =   2
      Left            =   450
      Splitter        =   0  'No
      TabIndex        =   8
      Top             =   855
      Width           =   645
   End
   Begin VideoSoftElastic Flood
      Align           =   0  'None
      AutoSizeChildren=   0  'None
      BackColor       =   &H00C0C0C0&
      BevelInner      =   3  'Inset
      BevelInnerWidth =   1
      BevelOuter      =   2  'Raised Outlined
      BevelOuterWidth =   2
      BorderWidth     =   6
      Caption         =   ""
      CaptionPos      =   4  'Center Center
      ChildSpacing    =   6
      FloodColor      =   &H00FFFF00&
      FloodDirection  =   2  'Left
      FloodPercent    =   0
      Height          =   555
      Index           =   1
      Left            =   450
      Splitter        =   0  'No
      TabIndex        =   16
      Top             =   3555
      Width           =   2940
   End
   Begin VideoSoftElastic Flood
      Align           =   0  'None
      AutoSizeChildren=   0  'None
      BackColor       =   &H00C0C0C0&
      BevelInner      =   3  'Inset
      BevelInnerWidth =   1
      BevelOuter      =   2  'Raised Outlined
      BevelOuterWidth =   2
      BorderWidth     =   6
      Caption         =   ""
      CaptionPos      =   4  'Center Center
      ChildSpacing    =   6
      FloodColor      =   &H0000FFFF&
      FloodDirection  =   1  'Right
      FloodPercent    =   0
      Height          =   555
      Index           =   0
      Left            =   1080
      Splitter        =   0  'No
      TabIndex        =   17
      Top             =   855
      Width           =   2310
   End
   Begin VideoSoftElastic VSElastic1
      Align           =   0  'None
      AutoSizeChildren=   0  'None
      BackColor       =   &H00C0C0C0&
      BevelInner      =   3  'Inset
      BevelInnerWidth =   1
      BevelOuter      =   1  'Raised
      BevelOuterWidth =   2
      BorderWidth     =   6
      Caption         =   "VideoSoft Elastic makes all the controls inside 3D."
      CaptionPos      =   3  'Center Top
      ChildSpacing    =   6
      FloodColor      =   &H000000C0&
      FloodDirection  =   0  'None
      FloodPercent    =   0
      ForeColor       =   &H00FF0000&
      Height          =   3135
      Index           =   1
      Left            =   4815
      Splitter        =   0  'No
      TabIndex        =   20
      Top             =   900
      Width           =   2940
      Begin CommandButton Command1
         Caption         =   "This is a regular button"
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   8.25
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   465
         Index           =   10
         Left            =   405
         TabIndex        =   22
         Tag             =   "H"
         Top             =   2250
         Width           =   2055
      End
      Begin TextBox Text1
         Height          =   915
         Index           =   0
         Left            =   360
         MultiLine       =   -1  'True
         ScrollBars      =   2  'Vertical
         TabIndex        =   21
         Text            =   "This is a regular text box"
         Top             =   630
         Width           =   2175
      End
      Begin Label Label1
         Alignment       =   2  'Center
         BackStyle       =   0  'Transparent
         Caption         =   "This is a regular label"
         ForeColor       =   &H00000000&
         Height          =   285
         Index           =   1
         Left            =   270
         TabIndex        =   18
         Top             =   1710
         Width           =   2400
      End
   End
   Begin Timer Timer1
      Interval        =   1
      Left            =   4095
      Top             =   3600
   End
   Begin VideoSoftElastic Toolbar
      Align           =   1  'Align Top
      AutoSizeChildren=   2  'Uneven Horizontally
      BackColor       =   &H00C0C0C0&
      BevelInner      =   3  'Inset
      BevelInnerWidth =   1
      BevelOuter      =   2  'Raised Outlined
      BevelOuterWidth =   2
      BorderWidth     =   6
      Caption         =   ""
      CaptionPos      =   1  'Left Center
      ChildSpacing    =   6
      FloodColor      =   &H000000C0&
      FloodDirection  =   0  'None
      FloodPercent    =   0
      Height          =   645
      Left            =   0
      Splitter        =   0  'No
      TabIndex        =   2
      Top             =   0
      Width           =   8145
      Begin VideoSoftElastic VSElastic2
         Align           =   0  'None
         AutoSizeChildren=   1  'Even Horizontally
         BackColor       =   &H00C0C0C0&
         BevelInner      =   3  'Inset
         BevelInnerWidth =   1
         BevelOuter      =   2  'Raised Outlined
         BevelOuterWidth =   0
         BorderWidth     =   6
         Caption         =   ""
         CaptionPos      =   1  'Left Center
         ChildSpacing    =   6
         FloodColor      =   &H000000C0&
         FloodDirection  =   0  'None
         FloodPercent    =   0
         Height          =   465
         Index           =   0
         Left            =   90
         Splitter        =   0  'No
         TabIndex        =   3
         Top             =   90
         Width           =   5115
         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           =   4935
         End
      End
      Begin VideoSoftElastic VSElastic3
         Align           =   0  'None
         AutoSizeChildren=   1  'Even Horizontally
         BackColor       =   &H00C0C0C0&
         BevelInner      =   3  'Inset
         BevelInnerWidth =   1
         BevelOuter      =   2  'Raised Outlined
         BevelOuterWidth =   2
         BorderWidth     =   6
         Caption         =   ""
         CaptionPos      =   1  'Left Center
         ChildSpacing    =   6
         FloodColor      =   &H000000C0&
         FloodDirection  =   0  'None
         FloodPercent    =   0
         Height          =   465
         Index           =   0
         Left            =   5295
         Splitter        =   0  'No
         TabIndex        =   4
         Top             =   90
         Width           =   2760
         Begin CommandButton Command1
            Caption         =   "A"
            Height          =   285
            Index           =   4
            Left            =   90
            TabIndex        =   7
            Top             =   90
            Width           =   795
         End
         Begin CommandButton Command1
            Caption         =   "A"
            Height          =   285
            Index           =   2
            Left            =   975
            TabIndex        =   6
            Top             =   90
            Width           =   795
         End
         Begin CommandButton Command1
            Caption         =   "A"
            Height          =   285
            Index           =   0
            Left            =   1860
            TabIndex        =   5
            Top             =   90
            Width           =   810
         End
      End
   End
   Begin Label Label1
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "Flooding with VideoSoft Elastic"
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   13.5
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      ForeColor       =   &H00FF0000&
      Height          =   1410
      Index           =   0
      Left            =   1305
      TabIndex        =   19
      Top             =   1710
      Width           =   1815
   End
Option Explicit
Sub Form_Resize ()
  StatusBar.Top = 0
End Sub
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