Lire une video dans un picturebox avec le controle mediaplayer 11 [Résolu]
cs_domi12343
Messages postés jeudi 7 août 2003Date d'inscription
12 mars 2013
Dernière intervention
-
17 juil. 2007 à 21:18 - Dernière réponse : cs_nathir5
Messages postés samedi 14 novembre 2009Date d'inscription
13 février 2010
Dernière intervention
- 12 déc. 2009 à 12:35
Bonjour, j'aurai voulu savoir comment fait-on pour lire une vidéo dans un picturebox avec le controle Windows Media Player 11 ?
Je ne veux pas afficher la vidéo dans le lecteur mais bien dans une picturebox.
Ok, ok, en effet, j'avais pas assez tester, ca marche pas.
Donc, en effet, il faut placer la vidéo dans une picturebox :
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, _
ByVal hWndNewParent As Long) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" ( _
ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, _
ByVal lpsz2 As String) As Long
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, _
ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, _
ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Const SWP_NOSIZE = &H1
' A effectuer après que la vidéo tourne
Dim VideoHWnd As Long
VideoHWnd = FindWindowEx(Me.hwnd, &H0, "WMPVideoWindow", vbNullString)
If VideoHWnd <> 0 Then
Call SetParent(VideoHWnd, PicVideo.hwnd)
Call SetWindowPos(VideoHWnd, &H0, 0, 0, 100, 100, SWP_NOSIZE)
End If,
Private Sub WMP_PlayStateChange(ByVal NewState As Long)
If NewState = WMPLibCtl.WMPPlayState.wmppsPlaying Then
Call SetVideoParent
End If
End Sub
Private Sub SetVideoParent()
Dim VideoHWnd As Long
VideoHWnd = FindWindowEx(Me.hwnd, &H0, "WMPVideoWindow", vbNullString)
If VideoHWnd <> 0 Then
Call SetParent(VideoHWnd, PicVideo.hwnd)
Call SetWindowPos(VideoHWnd, &H0, 0, 0, 0, 0, SWP_NOSIZE)
End If
End Sub,
En fait, j'ai vu la doc sur l'api mciSendStringA, mais le problème est qu'il ne sait pas lire les fichiers Mpeg et DVD. Je n'ai que le son et non l'image (et pourtant j'ai tout essayer avec differentes sources, meme les plus simples, avec un fichier mpeg au norme qui fonctionne sur tous les autres lecteurs). Sinon si tu as une solution, je suis preneur, ou encore m'aider avec mciSendStringA mais je n'arrive pas, j'ai regardé sur tous le site, meme sur google (et aussi en anglais), j'ai pris une partiie du code, je le colle dans un nouveau projet et cela ne fonctionne pas. En vain
Voila. Un p'tit coup de main pour la realisation de ce bout de projet. Merci.
Voici justement un extrait d'un code pour lire uniquement un fichier mpeg avec mciSendStringA :
Je voudrais bien mettre une picturebox sur la video, mais avec windowsmediaplayer (version11) cela ne fonctionne pas, la vidéo est toujours au premier plan.
Ce que j'aurai voulu faire c'est mettre une picturebox transparente sur une video avec WMP.
cs_nathir5
Messages postés samedi 14 novembre 2009Date d'inscription
13 février 2010
Dernière intervention -12 déc. 2009 à 12:35
0
Merci
slt Mr domi123,je suis nouveau en vb-france ,j'ai lu votre question ,malheureusement j'ai pas de réponse pour vous,mais je vous demandes à me dire comment faire pour importer ou lire un video par une application vb2008 ,car j'ai fais une application dans laquelle il faut lire des videos mais je ne sais pas comment faire ,svp aidez-moi le + tôt possible et je m'excuse une autre fois ,merci monsieur je vous attends..
a aidé 117 internautes ce mois-ci