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