Salut a tous apres des nombreuses heures de recherche et de tirage de cheuveux je n'arrive pas a adapter mon code
Ma form et simplement composee d'un WMP (AxWindowsMediaPlayer1) et d'un button (Button1)
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim aPath As String = Path.GetDirectoryName(Reflection.Assembly.GetExecutingAssembly.GetModules()(0).FullyQualifiedName)
Dim myStream As Stream
myStream = Assembly.GetExecutingAssembly.GetManifestResourceStream("nomoriginaldemavideo")
Dim myFileStream As New FileStream("dvl000.mp4", FileMode.Create)
Dim myFileBinary As New BinaryWriter(myFileStream)
Try
Dim myByte As Byte = myStream.ReadByte
While Not myByte = -1
myFileBinary.Write(myByte)
myByte = myStream.ReadByte
End While
Catch ex As Exception
Finally
myFileStream.Close()
End Try
AxWindowsMediaPlayer1.URL = Path.Combine(aPath, "dvl000.mp4")
AxWindowsMediaPlayer1.settings.autoStart = True
End Sub
End Class
Il n'a y'a aucune erreur me le fichier ne se décompresse pas dans le dossier temp comme il le devrait, je suis un peu new dans VBA,
si qq'un voit dans mon code la ou ça coince je l'en remercierai grandement !
ucfoutu
Messages postés18038Date d'inscriptionlundi 7 décembre 2009StatutModérateurDernière intervention11 avril 2018211 3 déc. 2012 à 07:51
Bonjour,
1)
Forum > VB.NET et VB 2005
2)
je suis un peu new dans VBA
3) la procédure évènementielle montrée est du VB.Net Sous quoi développes-tu donc ?
Car si sous VBA et que tu as juste copié/collé ce code, la procédure ne se lance carrément même pas !
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.