Afficher une Video AVI dans une Picturebox en Utilisant Visual Basic .NET

cs_daiz Messages postés 2 Date d'inscription dimanche 31 octobre 2004 Statut Membre Dernière intervention 1 novembre 2004 - 31 oct. 2004 à 14:45
cs_daiz Messages postés 2 Date d'inscription dimanche 31 octobre 2004 Statut Membre Dernière intervention 1 novembre 2004 - 1 nov. 2004 à 04:47
Bonjour

J'essaie de faire marcher une Vidéo Format AVI dans une picturebox( ou dans la Main Form). Je n'y arrive pas avac Visual Basic .NET.

Voici un exemple de code que j'utilise:

' Creation d'une picturebox qui se trouve associée a la Main Form: Picturebox1'

'Appel de la fonction mciSendStringA:'
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

'Code chargé au lancement de la Main Form:'
Dim ToDo$ = "open c:\WINDOWS\clock.avi Type avivideo Alias video1 parent"
mciSendString(ToDo$ & PictureBox1.ToString, 0&, 0, 0)
mciSendString("play video1", 0&, 0, 0)

Avec ce Code, la Main Form est affichée, mais pas le Fichier *Avi

En vous remerciant d'une Aide Eventuelle.

1 réponse

cs_daiz Messages postés 2 Date d'inscription dimanche 31 octobre 2004 Statut Membre Dernière intervention 1 novembre 2004
1 nov. 2004 à 04:47
Rebonjour

J'ai fait une petite erreur en donnant l'exemple de mon code:

au lieu de:
mciSendString(ToDo$ & PictureBox1.ToString, 0&, 0, 0)

J'ai ecrit:
mciSendString(ToDo$ & PictureBox1.handle.ToString, 0&, 0, 0)

Daiz
0
Rejoignez-nous