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