home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l407 / 4.ddi / INFOFORM.FR_ / INFOFORM.bin (.txt)
Encoding:
Visual Basic Form  |  1993-04-28  |  3.2 KB  |  107 lines
  1. VERSION 2.00
  2. Begin Form infoform 
  3.    Caption         =   "Information"
  4.    ClientHeight    =   2160
  5.    ClientLeft      =   1140
  6.    ClientTop       =   1545
  7.    ClientWidth     =   5475
  8.    Height          =   2565
  9.    Icon            =   INFOFORM.FRX:0000
  10.    Left            =   1080
  11.    LinkMode        =   1  'Source
  12.    LinkTopic       =   "Form2"
  13.    MaxButton       =   0   'False
  14.    ScaleHeight     =   2160
  15.    ScaleMode       =   0  'User
  16.    ScaleWidth      =   5475
  17.    Top             =   1200
  18.    Width           =   5595
  19.    Begin PictureBox btrfly2 
  20.       AutoSize        =   -1  'True
  21.       Height          =   1185
  22.       Left            =   75
  23.       Picture         =   INFOFORM.FRX:0302
  24.       ScaleHeight     =   1155
  25.       ScaleMode       =   0  'User
  26.       ScaleWidth      =   1155
  27.       TabIndex        =   2
  28.       TabStop         =   0   'False
  29.       Top             =   2865
  30.       Visible         =   0   'False
  31.       Width           =   1185
  32.    End
  33.    Begin Timer Timer2 
  34.       Interval        =   200
  35.       Left            =   4965
  36.       Top             =   1680
  37.    End
  38.    Begin PictureBox btrfly1 
  39.       AutoSize        =   -1  'True
  40.       Height          =   1185
  41.       Left            =   90
  42.       Picture         =   INFOFORM.FRX:0F84
  43.       ScaleHeight     =   1155
  44.       ScaleMode       =   0  'User
  45.       ScaleWidth      =   1155
  46.       TabIndex        =   1
  47.       TabStop         =   0   'False
  48.       Top             =   1635
  49.       Visible         =   0   'False
  50.       Width           =   1185
  51.    End
  52.    Begin CommandButton Okay 
  53.       Cancel          =   -1  'True
  54.       Caption         =   "OK"
  55.       Default         =   -1  'True
  56.       Height          =   405
  57.       Left            =   2760
  58.       TabIndex        =   0
  59.       Top             =   1500
  60.       Width           =   1110
  61.    End
  62.    Begin PictureBox btrfly 
  63.       AutoSize        =   -1  'True
  64.       BorderStyle     =   0  'None
  65.       Height          =   1155
  66.       Left            =   240
  67.       Picture         =   INFOFORM.FRX:1C06
  68.       ScaleHeight     =   1155
  69.       ScaleMode       =   0  'User
  70.       ScaleWidth      =   1155
  71.       TabIndex        =   3
  72.       TabStop         =   0   'False
  73.       Top             =   240
  74.       Width           =   1155
  75.    End
  76.    Begin Label Label1 
  77.       Caption         =   "This small application demonstrates the use of the PicClip control.  In addition, it also provides a good example of icon animation (try minimizing the main form while the top is spinning)."
  78.       Height          =   1185
  79.       Left            =   1680
  80.       TabIndex        =   4
  81.       Top             =   270
  82.       Width           =   3360
  83.    End
  84. Dim flap As Integer
  85. Sub butterfly ()
  86.     ' Alternate between the two bitmaps whenever code is run
  87.     If flap = 0 Then
  88.         btrfly.Picture = btrfly1.Picture
  89.         flap = 1
  90.     Else
  91.         btrfly.Picture = btrfly2.Picture
  92.         flap = 0
  93.     End If
  94. End Sub
  95. Sub Form_Load ()
  96. infoform.Left = form1.Left + 150
  97. infoform.Top = form1.Top + 400
  98. End Sub
  99. Sub Okay_Click ()
  100.     Unload infoform
  101. End Sub
  102. Sub Timer2_Timer ()
  103.     ' Note:  The interval property of the timer determines
  104.     ' how fast the butterfly's wings flap
  105.     butterfly
  106. End Sub
  107.