cs_domi123
Messages postés43Date d'inscriptionjeudi 7 août 2003StatutMembreDernière intervention12 mars 2013
-
17 juil. 2007 à 21:18
cs_nathir
Messages postés5Date d'inscriptionsamedi 14 novembre 2009StatutMembreDernière intervention13 février 2010
-
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,
----
(
Vous n’avez pas trouvé la réponse que vous recherchez ?
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,
cs_domi123
Messages postés43Date d'inscriptionjeudi 7 août 2003StatutMembreDernière intervention12 mars 2013 17 juil. 2007 à 22:16
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 :
cs_domi123
Messages postés43Date d'inscriptionjeudi 7 août 2003StatutMembreDernière intervention12 mars 2013 18 juil. 2007 à 20:49
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_nathir
Messages postés5Date d'inscriptionsamedi 14 novembre 2009StatutMembreDernière intervention13 février 2010 12 déc. 2009 à 12:35
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..