home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 4 Unleashed / Visual_Basic_4_Unleashed_SAMS_Publishing_1995.iso / truegrid / disk1 / vsdemo / vsdemo.$ / FLOOD.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-01-31  |  11.2 KB  |  328 lines
  1. VERSION 2.00
  2. Begin Form fFlood 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "Automatic resizing and flooding"
  5.    ClientHeight    =   5040
  6.    ClientLeft      =   180
  7.    ClientTop       =   930
  8.    ClientWidth     =   8700
  9.    Height          =   5505
  10.    Left            =   90
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   5040
  13.    ScaleWidth      =   8700
  14.    Top             =   555
  15.    Width           =   8880
  16.    Begin VideoSoftElastic VSElastic1 
  17.       Align           =   5  'Fill Container
  18.       BevelOuter      =   1  'Raised
  19.       BevelOuterWidth =   1
  20.       BorderWidth     =   12
  21.       Caption         =   "Nest Elastics that automatically resize without writting any code."
  22.       CaptionPos      =   4  'Center Center
  23.       ConvInfo        =   FLOOD.FRX:0000
  24.       FontBold        =   -1  'True
  25.       FontItalic      =   0   'False
  26.       FontName        =   "MS Sans Serif"
  27.       FontSize        =   13.5
  28.       FontStrikethru  =   0   'False
  29.       FontUnderline   =   0   'False
  30.       ForeColor       =   &H00FF0000&
  31.       Height          =   2595
  32.       Index           =   1
  33.       IntBkg          =   &H00C0C0C0&
  34.       Left            =   600
  35.       TabIndex        =   18
  36.       Top             =   1245
  37.       Width           =   7545
  38.    End
  39.    Begin VideoSoftElastic Flood 
  40.       Align           =   1  'Top
  41.       BevelInner      =   8  'Raised New Look
  42.       BevelOuter      =   1  'Raised
  43.       BevelOuterWidth =   1
  44.       CaptionPos      =   4  'Center Center
  45.       ConvInfo        =   FLOOD.FRX:000B
  46.       FloodColor      =   &H0000FFFF&
  47.       FloodDirection  =   1  'Right
  48.       FloodPercent    =   25
  49.       FontBold        =   0   'False
  50.       FontItalic      =   0   'False
  51.       FontName        =   "MS Sans Serif"
  52.       FontSize        =   8.25
  53.       FontStrikethru  =   0   'False
  54.       FontUnderline   =   0   'False
  55.       Height          =   600
  56.       Index           =   0
  57.       IntBkg          =   &H00C0C0C0&
  58.       Left            =   600
  59.       TabIndex        =   17
  60.       Top             =   645
  61.       Width           =   7545
  62.    End
  63.    Begin VideoSoftElastic StatusBar 
  64.       Align           =   2  'Bottom
  65.       AutoSizeChildren=   2  'Uneven Horizontal
  66.       BevelInner      =   0  'None
  67.       BevelOuter      =   1  'Raised
  68.       BevelOuterWidth =   1
  69.       ConvInfo        =   FLOOD.FRX:0016
  70.       Height          =   630
  71.       IntBkg          =   &H00C0C0C0&
  72.       Left            =   600
  73.       TabIndex        =   1
  74.       Top             =   3840
  75.       Width           =   7545
  76.       Begin VideoSoftElastic VSElastic3 
  77.          AutoSizeChildren=   1  'Even Horizontal
  78.          BevelInner      =   0  'None
  79.          BevelOuter      =   1  'Raised
  80.          BevelOuterWidth =   1
  81.          ConvInfo        =   FLOOD.FRX:0021
  82.          Height          =   450
  83.          Index           =   1
  84.          IntBkg          =   &H00C0C0C0&
  85.          Left            =   5190
  86.          TabIndex        =   9
  87.          Top             =   90
  88.          Width           =   2265
  89.          Begin CommandButton Command1 
  90.             BackColor       =   &H00C0C0C0&
  91.             Caption         =   "B"
  92.             Height          =   270
  93.             Index           =   9
  94.             Left            =   1545
  95.             TabIndex        =   12
  96.             Top             =   90
  97.             Width           =   630
  98.          End
  99.          Begin CommandButton Command1 
  100.             BackColor       =   &H00C0C0C0&
  101.             Caption         =   "B"
  102.             Height          =   270
  103.             Index           =   8
  104.             Left            =   825
  105.             TabIndex        =   11
  106.             Top             =   90
  107.             Width           =   630
  108.          End
  109.          Begin CommandButton Command1 
  110.             BackColor       =   &H00C0C0C0&
  111.             Caption         =   "B"
  112.             Height          =   270
  113.             Index           =   7
  114.             Left            =   90
  115.             TabIndex        =   10
  116.             Top             =   90
  117.             Width           =   645
  118.          End
  119.       End
  120.       Begin VideoSoftElastic VSElastic2 
  121.          AutoSizeChildren=   1  'Even Horizontal
  122.          BevelInner      =   9  'Inset New Look
  123.          BevelOuter      =   1  'Raised
  124.          BevelOuterWidth =   1
  125.          ConvInfo        =   FLOOD.FRX:002C
  126.          Height          =   450
  127.          Index           =   1
  128.          IntBkg          =   &H00C0C0C0&
  129.          Left            =   90
  130.          TabIndex        =   13
  131.          Top             =   90
  132.          Width           =   5010
  133.          Begin TextBox Text1 
  134.             BorderStyle     =   0  'None
  135.             FontBold        =   0   'False
  136.             FontItalic      =   0   'False
  137.             FontName        =   "MS Sans Serif"
  138.             FontSize        =   8.25
  139.             FontStrikethru  =   0   'False
  140.             FontUnderline   =   0   'False
  141.             Height          =   270
  142.             Index           =   2
  143.             Left            =   90
  144.             TabIndex        =   15
  145.             Text            =   "When the form is resized, check this text box and the B buttons."
  146.             Top             =   90
  147.             Width           =   4830
  148.          End
  149.       End
  150.    End
  151.    Begin VideoSoftElastic Flood 
  152.       Align           =   3  'Left
  153.       BevelInner      =   8  'Raised New Look
  154.       BevelOuter      =   1  'Raised
  155.       BevelOuterWidth =   1
  156.       CaptionPos      =   4  'Center Center
  157.       ConvInfo        =   FLOOD.FRX:0037
  158.       FloodColor      =   &H00FF00FF&
  159.       FloodDirection  =   3  'Up
  160.       FloodPercent    =   25
  161.       FontBold        =   0   'False
  162.       FontItalic      =   0   'False
  163.       FontName        =   "MS Sans Serif"
  164.       FontSize        =   8.25
  165.       FontStrikethru  =   0   'False
  166.       FontUnderline   =   0   'False
  167.       Height          =   3825
  168.       Index           =   2
  169.       IntBkg          =   &H00C0C0C0&
  170.       Left            =   0
  171.       TabIndex        =   8
  172.       Top             =   645
  173.       Width           =   600
  174.    End
  175.    Begin VideoSoftElastic Flood 
  176.       Align           =   2  'Bottom
  177.       BevelInner      =   8  'Raised New Look
  178.       BevelOuter      =   1  'Raised
  179.       BevelOuterWidth =   1
  180.       CaptionPos      =   4  'Center Center
  181.       ConvInfo        =   FLOOD.FRX:0042
  182.       FloodColor      =   &H00FFFF00&
  183.       FloodDirection  =   2  'Left
  184.       FloodPercent    =   25
  185.       FontBold        =   0   'False
  186.       FontItalic      =   0   'False
  187.       FontName        =   "MS Sans Serif"
  188.       FontSize        =   8.25
  189.       FontStrikethru  =   0   'False
  190.       FontUnderline   =   0   'False
  191.       Height          =   570
  192.       Index           =   1
  193.       IntBkg          =   &H00C0C0C0&
  194.       Left            =   0
  195.       TabIndex        =   16
  196.       Top             =   4470
  197.       Width           =   8145
  198.    End
  199.    Begin Timer Timer1 
  200.       Interval        =   1
  201.       Left            =   4095
  202.       Top             =   3600
  203.    End
  204.    Begin VideoSoftElastic Toolbar 
  205.       Align           =   1  'Top
  206.       AutoSizeChildren=   2  'Uneven Horizontal
  207.       BevelInner      =   0  'None
  208.       BevelInnerWidth =   2
  209.       BevelOuter      =   1  'Raised
  210.       BevelOuterWidth =   1
  211.       ConvInfo        =   FLOOD.FRX:004D
  212.       Height          =   645
  213.       IntBkg          =   &H00C0C0C0&
  214.       Left            =   0
  215.       TabIndex        =   2
  216.       Top             =   0
  217.       Width           =   8145
  218.       Begin VideoSoftElastic VSElastic2 
  219.          AutoSizeChildren=   1  'Even Horizontal
  220.          BevelInner      =   9  'Inset New Look
  221.          BevelOuter      =   1  'Raised
  222.          BevelOuterWidth =   1
  223.          ConvInfo        =   FLOOD.FRX:0058
  224.          Height          =   465
  225.          Index           =   0
  226.          IntBkg          =   &H00C0C0C0&
  227.          Left            =   90
  228.          TabIndex        =   3
  229.          Top             =   90
  230.          Width           =   4950
  231.          Begin TextBox Text1 
  232.             BorderStyle     =   0  'None
  233.             FontBold        =   0   'False
  234.             FontItalic      =   0   'False
  235.             FontName        =   "MS Sans Serif"
  236.             FontSize        =   8.25
  237.             FontStrikethru  =   0   'False
  238.             FontUnderline   =   0   'False
  239.             Height          =   285
  240.             Index           =   1
  241.             Left            =   90
  242.             TabIndex        =   14
  243.             Text            =   "When the form is resized, check this text box and the A buttons."
  244.             Top             =   90
  245.             Width           =   4770
  246.          End
  247.       End
  248.       Begin VideoSoftElastic VSElastic3 
  249.          AutoSizeChildren=   1  'Even Horizontal
  250.          BevelInner      =   0  'None
  251.          BevelOuter      =   1  'Raised
  252.          BevelOuterWidth =   1
  253.          ConvInfo        =   FLOOD.FRX:0063
  254.          Height          =   465
  255.          Index           =   0
  256.          IntBkg          =   &H00C0C0C0&
  257.          Left            =   5130
  258.          TabIndex        =   4
  259.          Top             =   90
  260.          Width           =   2925
  261.          Begin CommandButton Command1 
  262.             BackColor       =   &H00C0C0C0&
  263.             Caption         =   "A"
  264.             Height          =   285
  265.             Index           =   4
  266.             Left            =   90
  267.             TabIndex        =   7
  268.             Top             =   90
  269.             Width           =   855
  270.          End
  271.          Begin CommandButton Command1 
  272.             BackColor       =   &H00C0C0C0&
  273.             Caption         =   "A"
  274.             Height          =   285
  275.             Index           =   2
  276.             Left            =   1035
  277.             TabIndex        =   6
  278.             Top             =   90
  279.             Width           =   855
  280.          End
  281.          Begin CommandButton Command1 
  282.             BackColor       =   &H00C0C0C0&
  283.             Caption         =   "A"
  284.             Height          =   285
  285.             Index           =   0
  286.             Left            =   1980
  287.             TabIndex        =   5
  288.             Top             =   90
  289.             Width           =   855
  290.          End
  291.       End
  292.    End
  293.    Begin VideoSoftElastic Flood 
  294.       Align           =   4  'Right
  295.       BevelInner      =   8  'Raised New Look
  296.       BevelOuter      =   1  'Raised
  297.       BevelOuterWidth =   1
  298.       CaptionPos      =   4  'Center Center
  299.       ConvInfo        =   FLOOD.FRX:006E
  300.       FloodColor      =   &H0000FF00&
  301.       FloodDirection  =   4  'Down
  302.       FloodPercent    =   25
  303.       FontBold        =   0   'False
  304.       FontItalic      =   0   'False
  305.       FontName        =   "MS Sans Serif"
  306.       FontSize        =   8.25
  307.       FontStrikethru  =   0   'False
  308.       FontUnderline   =   0   'False
  309.       Height          =   5040
  310.       Index           =   3
  311.       IntBkg          =   &H00C0C0C0&
  312.       Left            =   8145
  313.       TabIndex        =   0
  314.       Top             =   0
  315.       Width           =   555
  316.    End
  317. Option Explicit
  318. Sub Timer1_Timer ()
  319.   Dim j%
  320.   Static i%
  321.   If i > 97 Then i = 0
  322.   i = i + 3
  323.   For j = 0 To 3
  324.     flood(j).FloodPercent = i
  325.     flood(j).Caption = i & "%"
  326.   Next j
  327. End Sub
  328.