Function TransformeRessource(ByVal Ressource As Byte(), Optional ByVal Extension As String = "wmv") As String Dim _url As String = IO.Path.Combine(Application.StartupPath, "tmp." & Extension) Using f As New IO.FileStream(_url, IO.FileMode.OpenOrCreate) f.Write(Ressource, 0, Ressource.Length) End Using Return _url End Function
AxWindowsMediaPlayer1.URL = TransformeRessource(My.Resources.mavideo)
Dim _url As String = IO.Path.Combine(My.Computer.FileSystem.SpecialDirectories.Temp, "tmp." & Extension)
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question