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:
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:
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)
It's quick, easy and you get access to all the articles on DevX.
This registration/login is to allow you to read articles on devx.com. Already a member?
To become a member of DevX.com create your Member Profile by completing the form below. Membership is free!
If you have a hot tip and we publish it, we'll pay you. However, due to accounting overhead we no longer pay $10 for a single tip submission. You must accumulate 10 acceptable tips to receive payment. Be sure to include a clear explanation of what the technique does and why it's useful. If it includes code, limit it to 20 lines if possible. Submit your tip here.
