resource for Animation control

Does anyone know of a resource on the internet for AVI files compatible with the Animation control shipped in VB5?
LVL 1
bear454Asked:
Who is Participating?

Improve company productivity with a Business Account.Sign Up

x
 
watyConnect With a Mentor Commented:
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

Public Sub PlayAVI(sFileName As String)
   ' #VBIDEUtils#************************************************************
   ' * Programmer Name  : Waty Thierry
   ' * Web Site         : www.geocities.com/ResearchTriangle/6311/
   ' * E-Mail           : waty.thierry@usa.net
   ' * Date             : 20/11/98
   ' * Time             : 09:35
   ' * Module Name      : Multimedia_Module
   ' * Module Filename  : Multimedia.bas
   ' * Procedure Name   : PlayAVI
   ' * Parameters       :
   ' *                    sFileName As String
   ' **********************************************************************
   ' * Comments         : play an AVI video file without using the Multimedia
   ' *  (MCI) Control
   ' *
   ' **********************************************************************
   
   Dim returnstring     As String
   
   returnstring = Space(127)
   
   Call mciSendString("open " & Chr$(34) & sFileName & Chr$(34) & " type avivideo alias video", returnstring, 127, 0)
   Call mciSendString("set video time format ms", returnstring, 127, 0)
   Call mciSendString("play video from 0", returnstring, 127, 0)
   
   ' *** It is important to close the video, even if the file to play has run out.
   
End Sub

Public Sub StopAVI()
   ' #VBIDEUtils#************************************************************
   ' * Programmer Name  : Waty Thierry
   ' * Web Site         : www.geocities.com/ResearchTriangle/6311/
   ' * E-Mail           : waty.thierry@usa.net
   ' * Date             : 20/11/98
   ' * Time             : 09:36
   ' * Module Name      : Multimedia_Module
   ' * Module Filename  : Multimedia.bas
   ' * Procedure Name   : StopAVI
   ' * Parameters       :
   ' **********************************************************************
   ' * Comments         : Close a played AVI
   ' *
   ' * It is important to close the video, even if the file to play has run out.
   ' *
   ' **********************************************************************
   
   Dim returnstring     As String
   
   returnstring = Space(127)
   Call mciSendString("close video", returnstring, 127, 0)
   
End Sub


0
 
MirkwoodCommented:
0
 
bear454Author Commented:
I am trying to avoid packaging another ocx in my application.  After careful consideration I have chosen the Animation control, because anyone running win32 or better will have it.
I am looking for additional AVI media, not an alternative media player.
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.