home *** CD-ROM | disk | FTP | other *** search
/ Master 95 #1 / MASTER95_1.iso / microsof / vbasic4 / vb4-6.cab / infoform.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-07-26  |  3.7 KB  |  119 lines
  1. VERSION 4.00
  2. Begin VB.Form infoform 
  3.    Caption         =   "Information"
  4.    ClientHeight    =   2160
  5.    ClientLeft      =   1140
  6.    ClientTop       =   1545
  7.    ClientWidth     =   5475
  8.    BeginProperty Font 
  9.       name            =   "MS Sans Serif"
  10.       charset         =   1
  11.       weight          =   700
  12.       size            =   8.25
  13.       underline       =   0   'False
  14.       italic          =   0   'False
  15.       strikethrough   =   0   'False
  16.    EndProperty
  17.    Height          =   2565
  18.    Icon            =   "INFOFORM.frx":0000
  19.    Left            =   1080
  20.    LinkMode        =   1  'Source
  21.    LinkTopic       =   "Form2"
  22.    MaxButton       =   0   'False
  23.    ScaleHeight     =   2160
  24.    ScaleMode       =   0  'User
  25.    ScaleWidth      =   5475
  26.    Top             =   1200
  27.    Width           =   5595
  28.    Begin VB.PictureBox btrfly2 
  29.       AutoSize        =   -1  'True
  30.       Height          =   1185
  31.       Left            =   75
  32.       Picture         =   "INFOFORM.frx":030A
  33.       ScaleHeight     =   1155
  34.       ScaleMode       =   0  'User
  35.       ScaleWidth      =   1155
  36.       TabIndex        =   2
  37.       TabStop         =   0   'False
  38.       Top             =   2865
  39.       Visible         =   0   'False
  40.       Width           =   1185
  41.    End
  42.    Begin VB.Timer Timer2 
  43.       Interval        =   200
  44.       Left            =   4965
  45.       Top             =   1680
  46.    End
  47.    Begin VB.PictureBox btrfly1 
  48.       AutoSize        =   -1  'True
  49.       Height          =   1185
  50.       Left            =   90
  51.       Picture         =   "INFOFORM.frx":0F94
  52.       ScaleHeight     =   1155
  53.       ScaleMode       =   0  'User
  54.       ScaleWidth      =   1155
  55.       TabIndex        =   1
  56.       TabStop         =   0   'False
  57.       Top             =   1635
  58.       Visible         =   0   'False
  59.       Width           =   1185
  60.    End
  61.    Begin VB.CommandButton Okay 
  62.       Cancel          =   -1  'True
  63.       Caption         =   "OK"
  64.       Default         =   -1  'True
  65.       Height          =   405
  66.       Left            =   2760
  67.       TabIndex        =   0
  68.       Top             =   1500
  69.       Width           =   1110
  70.    End
  71.    Begin VB.PictureBox btrfly 
  72.       AutoSize        =   -1  'True
  73.       BorderStyle     =   0  'None
  74.       Height          =   1155
  75.       Left            =   240
  76.       Picture         =   "INFOFORM.frx":1C1E
  77.       ScaleHeight     =   1155
  78.       ScaleMode       =   0  'User
  79.       ScaleWidth      =   1155
  80.       TabIndex        =   3
  81.       TabStop         =   0   'False
  82.       Top             =   240
  83.       Width           =   1155
  84.    End
  85.    Begin VB.Label Label1 
  86.       Caption         =   "This sample application demonstrates the use of the picture clip control.  In addition, it also provides a good example of icon animation (try minimizing the main form while the top is spinning)."
  87.       Height          =   1185
  88.       Left            =   1680
  89.       TabIndex        =   4
  90.       Top             =   270
  91.       Width           =   3360
  92.    End
  93. Attribute VB_Name = "infoform"
  94. Attribute VB_Creatable = False
  95. Attribute VB_Exposed = False
  96. Dim flap As Integer
  97. Private Sub butterfly()
  98.     ' Alternate between the two bitmaps.
  99.     If flap = 0 Then
  100.         btrfly.Picture = btrfly1.Picture
  101.         flap = 1
  102.     Else
  103.         btrfly.Picture = btrfly2.Picture
  104.         flap = 0
  105.     End If
  106. End Sub
  107. Private Sub Form_Load()
  108.     infoform.Left = Form1.Left + 150
  109.     infoform.Top = Form1.Top + 400
  110. End Sub
  111. Private Sub Okay_Click()
  112.     Unload infoform
  113. End Sub
  114. Private Sub Timer2_Timer()
  115.     ' Note:  The Interval property of the timer determines
  116.     ' how fast the butterfly's wings flap.
  117.     butterfly
  118. End Sub
  119.