home *** CD-ROM | disk | FTP | other *** search
/ The Net: Ultimate Internet Guide / WWLCD1.ISO / mac / SiteBldr / AMOVIE / SDK / _SETUP / COMMON.Z / viewer.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-04-30  |  1.8 KB  |  56 lines
  1. VERSION 4.00
  2. Begin VB.Form frmViewer 
  3.    Caption         =   "ActiveMovie OCX Viewer"
  4.    ClientHeight    =   1284
  5.    ClientLeft      =   1008
  6.    ClientTop       =   5676
  7.    ClientWidth     =   5820
  8.    ControlBox      =   0   'False
  9.    Height          =   1824
  10.    Icon            =   "viewer.frx":0000
  11.    Left            =   960
  12.    LinkTopic       =   "Form1"
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   1284
  16.    ScaleWidth      =   5820
  17.    Top             =   5184
  18.    Width           =   5916
  19.    Begin AMovieObjectsCtl.ActiveMovie ActiveMovie1 
  20.       Height          =   840
  21.       Left            =   0
  22.       TabIndex        =   0
  23.       Top             =   0
  24.       Width           =   3168
  25.       _ExtentX        =   5588
  26.       _ExtentY        =   1482
  27.       FileName        =   ""
  28.    End
  29. Attribute VB_Name = "frmViewer"
  30. Attribute VB_Creatable = False
  31. Attribute VB_Exposed = False
  32. Private Sub ActiveMovie1_PositionChange(ByVal oldPosition As Double, ByVal newPosition As Double)
  33.     ' Tracks PositionChange events.
  34.     g_cPositionChange = g_cPositionChange + 1
  35.     UpdateStatusBar
  36. End Sub
  37. Private Sub ActiveMovie1_StateChange(ByVal oldState As Long, ByVal newState As Long)
  38.     ' Tracks StateChange events.
  39.     g_cStateChange = g_cStateChange + 1
  40.     UpdateStatusBar
  41. End Sub
  42. Private Sub ActiveMovie1_Timer()
  43.     ' Tracks Timer events.
  44.     g_cTimer = g_cTimer + 1
  45.     UpdateStatusBar
  46. End Sub
  47. Private Sub Form_Load()
  48.     ' ActiveMovie OCX Sample Code
  49.     ' Copyright (c) 1996 Microsoft Corporation
  50.     ' All Rights Reserved
  51.     ' See the ActiveMovie1 object for events.
  52. End Sub
  53. Private Sub sdmen_Click()
  54. MsgBox Str$(ActiveMovie1.Width) + Str$(ActiveMovie1.Height)
  55. End Sub
  56.