borderAndreaVB free resources for Visual Basic developersborder

borderAndreaVB Visual Basic and VB.NET source code resources - Copyright © 1999-2007 Andrea Tincaniborder

AndreaVB | Forum | News | Downloads | Register | Help | Member List | Statistics | Search | PM | Profile

Print This Topic
Previous Topic (Using Windows Media Player in Vb)Next Topic (Window Media Player events) New Topic New Poll Post Reply
AndreaVB Forum : Multimedia : play avi file inside form
Poster Message
sunnyisdisi
Level: Guest


icon play avi file inside form

does anyone know how to play windows media player inside the form. the avi file always run outside the form. what should i do to run it inside.
by the way, i couldn't use FileName and Play tow properties.

21-02-2004 at 01:14 AM
| Quote Reply
vbgen
Level: Moderator

Registered: 10-10-2002
Posts: 876
icon Re: play avi file inside form

sweetheart. major reminder. DO NOT POST THE SAME TOPIC/ISSUE ON MORE THAN ONE BOARD.

SELECT THE MOST APPROPRIATE BOARD TO POST AT.

NEXT. DO A SEARCH BEFORE ASKING OR POSTING.

ait, kid?  

http://www.andreavb.com/forum/viewtopic.php?TopicID=890

or

http://www.andreavb.com/forum/viewtopic.php?TopicID=1381

or

http://www.andreavb.com/forum/viewtopic.php?TopicID=2562

if these do not help you out. post more details on your problem.

what version of controls are you using anyway?

what code are you using exactly? stuff like these make it worth posting, so that you can get a more accurate answer when you come back.  

____________________________
Been busy trying to take a second degree <--it's not working out...

24-02-2004 at 09:11 AM
View Profile Send Email to User Show All Posts | Quote Reply
TJ_01
Level: VB Lord


Registered: 24-08-2005
Posts: 320
icon Re: play avi file inside form

I hope this code helps..

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

Private Sub Form_Click()
Dim Ret As Long, A$, x As Integer, y As Integer
    x = 0
    y = 0
    A$ = "C:\Windows\Movie.avi" 'Change the path and filename
    Ret = mciSendString("stop movie", 0&, 128, 0)
    Ret = mciSendString("close movie", 0&, 128, 0)
    Ret = mciSendString("open AVIvideo!" & A$ & " alias movie parent " & Form1.hWnd & " style child", 0&, 128, 0)
    Ret = mciSendString("put movie window client at " & x & " " & y & " 0 0", 0&, 128, 0)
    Ret = mciSendString("play movie", 0&, 128, 0)
End Sub

Private Sub Form_Terminate()
Dim Ret As Long
    Ret = mciSendString("close all", 0&, 128, 0)
End Sub


____________________________
Im JAMES  

24-08-2005 at 07:54 AM
View Profile Send Email to User Show All Posts | Quote Reply
AndreaVB Forum : Multimedia : play avi file inside form
Previous Topic (Using Windows Media Player in Vb)Next Topic (Window Media Player events) New Topic New Poll Post Reply
Surf To:


Not Logged In? Username: Password: Lost your password?
Partners: Download Actual Software | Free Software Download
borderAndreaVB free resources for Visual Basic developersborder

borderAndreaVB Visual Basic and VB.NET source code resources - Copyright © 1999-2007 Andrea Tincaniborder