Microsoft KB Archive/104123

= VB3 How to Play an .AVI Video File in Full Screen =

Article ID: 104123

Article Last Modified on 11/18/2003

-

APPLIES TO


 * Microsoft Visual Basic 1.0 Standard Edition
 * Microsoft Visual Basic 2.0 Standard Edition
 * Microsoft Visual Basic 3.0 Professional Edition

-



This article was previously published under Q104123



SUMMARY
This article shows by example how to play an .AVI (video) file in full screen from Visual Basic for Windows. When you play an .AVI file using the full screen, the color palette focus is set to the .AVI file only. No dithering of colors occurs because there are no other windows in the background to capture the color palette.



MORE INFORMATION
The example uses the mciSendString application programming interface (API) from Microsoft Windows version 3.1 or Microsoft Windows version 3.0 with Multimedia Extensions.

For the example to work, your computer must be able to play .AVI files and you need either Microsoft Windows version 3.1 or Microsoft Windows version 3.0 with Multimedia Extensions.

The .AVI file included in the example (WNDSURF1.AVI) is the one from Microsoft Video for Windows.

Step-by-Step Example
 Start Visual Basic or from the File menu, choose New Project (ALT, F, N) if Visual Basic is already running. Form1 is created by default. Add a command button (Command1) to Form1, and set its caption property to: Play Video.  Add the following line of code to the (general) (declarations) section of Form1: ' Enter the following Declare statement on one, single line: Declare Function mciSendString Lib "mmsystem" (ByVal lpstrCommand$, ByVal lpstrReturnStr As Any,     ByVal wReturnLen%, ByVal hCallBack%) As Long   Add the following lines of code to the Command1 Click event procedure: Sub Command1_Click CmdStr$ = "play c:\winvideo\wndsurf1.avi fullscreen " ReturnVal& = mciSendString(CmdStr$, 0&, 0, 0&) End Sub  From the Run menu, choose Start (ALT, R, S) to run the program. Click the Play Video button to watch the video full screen. The video will last for a few seconds and return back to the Visual Basic environment.

Additional query words: 2.00 3.00

Keywords: kbcode KB104123

-

[mailto:TECHNET@MICROSOFT.COM Send feedback to Microsoft]

© Microsoft Corporation. All rights reserved.