home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / animate / frmmain.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-03-28  |  2.8 KB  |  97 lines
  1. VERSION 4.00
  2. Begin VB.Form frmMain 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   3  'Fixed Dialog
  5.    Caption         =   "Animate"
  6.    ClientHeight    =   1950
  7.    ClientLeft      =   4125
  8.    ClientTop       =   4725
  9.    ClientWidth     =   3150
  10.    DrawMode        =   15  'Merge Pen Not
  11.    FillColor       =   &H00FF0000&
  12.    FillStyle       =   0  'Solid
  13.    FontTransparent =   0   'False
  14.    ForeColor       =   &H00000000&
  15.    Height          =   2355
  16.    Icon            =   "frmMain.frx":0000
  17.    Left            =   4065
  18.    LinkTopic       =   "Form1"
  19.    MaxButton       =   0   'False
  20.    MinButton       =   0   'False
  21.    ScaleHeight     =   130
  22.    ScaleMode       =   3  'Pixel
  23.    ScaleWidth      =   210
  24.    ShowInTaskbar   =   0   'False
  25.    Top             =   4380
  26.    Width           =   3270
  27.    Begin VB.PictureBox Picture1 
  28.       Height          =   750
  29.       Left            =   2040
  30.       ScaleHeight     =   690
  31.       ScaleWidth      =   660
  32.       TabIndex        =   4
  33.       Top             =   600
  34.       Width           =   720
  35.    End
  36.    Begin VB.CommandButton cmdStop 
  37.       Caption         =   "Stop"
  38.       Enabled         =   0   'False
  39.       Height          =   375
  40.       Left            =   180
  41.       TabIndex        =   1
  42.       Top             =   1020
  43.       Width           =   1215
  44.    End
  45.    Begin VB.CommandButton cmdPlay 
  46.       Caption         =   "Play"
  47.       Height          =   375
  48.       Left            =   180
  49.       TabIndex        =   0
  50.       Top             =   540
  51.       Width           =   1215
  52.    End
  53.    Begin VB.Label Label2 
  54.       Alignment       =   1  'Right Justify
  55.       AutoSize        =   -1  'True
  56.       BackStyle       =   0  'Transparent
  57.       Caption         =   "Make and run the exe file to see the AVI"
  58.       Height          =   195
  59.       Left            =   180
  60.       TabIndex        =   3
  61.       Top             =   60
  62.       Width           =   2850
  63.    End
  64.    Begin VB.Label Label1 
  65.       Alignment       =   2  'Center
  66.       AutoSize        =   -1  'True
  67.       BackStyle       =   0  'Transparent
  68.       Caption         =   "Benjamin Bourderon (Benjab@msn.com)"
  69.       Height          =   195
  70.       Left            =   120
  71.       TabIndex        =   2
  72.       Top             =   1680
  73.       Width           =   2865
  74.    End
  75. Attribute VB_Name = "frmMain"
  76. Attribute VB_Creatable = False
  77. Attribute VB_Exposed = False
  78. Option Explicit
  79. Private Const RES_AVI = 100&
  80. Dim ani As New SysAnimate32
  81. Private Sub cmdPlay_Click()
  82.     cmdPlay.Enabled = False
  83.     cmdstop.Enabled = True
  84.     ani.pPlay
  85. End Sub
  86. Private Sub cmdstop_Click()
  87.     cmdstop.Enabled = False
  88.     cmdPlay.Enabled = True
  89.     ani.pStop
  90. End Sub
  91. Private Sub Form_Load()
  92.     ani.Create Me.hwnd, RES_AVI, 136, 40, 48, 50
  93. End Sub
  94. Private Sub Form_Unload(Cancel As Integer)
  95.     ani.Destroy
  96. End Sub
  97.