Atlanta Custom Software Development 

 
   Search        Code/Page
 

User Login
Email

Password

 

Forgot the Password?
Services
» Web Development
» Maintenance
» Data Integration/BI
» Information Management
Programming
  Database
Automation
OS/Networking
Graphics
Links
Tools
» Regular Expr Tester
» Free Tools

Play an AVI movie in a PictureBox control

Total Hit ( 4102)

Rate this article:     Poor     Excellent 

 Submit Your Question/Comment about this article

Rating


 


With MCI functions you can play an AVI movie into a PictureBox. All you need to do is open the file with a special procedure:

Click here to copy the following block
Declare Function mciSendString Lib "winmm" Alias "mciSendStringA" (ByVal _
  lpstrCommand As String, ByVal lpstrReturnString As String, _
  ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Const WS_CHILD = &H40000000

CommandString = "Open " + FileName + " type AVIVideo alias AVIFile parent " & _
  CStr(Pic.hWnd) & " style " & CStr(WS_CHILD)
RetVal = mciSendString(CommandString, vbNullString, 0, 0)

where FileName is the path of the file and Pic is the PictureBox control inside which you want to play the movie. To resize the movie and fill the PictureBox use these statements:

Click here to copy the following block
Dim Height as Long, Width as Long
Height = Pic.ScaleHeight / Screen.TwipsPerPixelY
Width = Pic.ScaleWidth / Screen.TwipsPerPixelX
CommandString = "Put AVIFile window at 0 0 " & CStr(Width) & " " & CStr(Height)
RetVal = mciSendString(CommandString, vbNullString, 0, 0)

If you want to mantain the original aspect ratio, you have to retrieve the original size of the movie and resize the PictureBox accordingly before running this command. When the file is opened you can use the usual command strings to control the playback.


Submitted By : Nayan Patel  (Member Since : 5/26/2004 12:23:06 PM)

Job Description : He is the moderator of this site and currently working as an independent consultant. He works with VB.net/ASP.net, SQL Server and other MS technologies. He is MCSD.net, MCDBA and MCSE. In his free time he likes to watch funny movies and doing oil painting.
View all (893) submissions by this author  (Birth Date : 7/14/1981 )


Home   |  Comment   |  Contact Us   |  Privacy Policy   |  Terms & Conditions   |  BlogsZappySys

© 2008 BinaryWorld LLC. All rights reserved.