Soyez le premier à donner votre avis sur cette source.
Snippet vu 9 003 fois - Téléchargée 15 fois
Module Player Public Declare Function CreateProcess Lib "coredll" Alias "CreateProcessW" _ (ByVal lpApplication As String, _ ByVal lpCommandLine As String, _ ByVal lpProcessAttributes As Long, _ ByVal lpThreadAttribute As Long, _ ByVal bInheritHandles As Long, _ ByVal dwCreationFlags As Long, _ ByVal lpEnvironment As Long, _ ByVal lpCurrentDirectory As Long, _ ByVal lpStartupInfo As Long, _ ByVal lpProcessInformation As Long) As Boolean End Module 'Attention les deux lignes qui suivent sont à mettre dans le programme.L'adresse du fichier son est celle de l'exemple , vous devez la remplacer par l'adresse complète de votre fichier wav Dim wRetVal As Boolean wRetVal=CreateProcess(\Windows\sndPlay.exe,"\Carte d'extension\Bureau\S300.wav",0,0,0,0,0,0,0,0) 'Vérifier qu'il y a 8 zéros 'Si vous appelez cette ligne vous devriez entendre le fichier wav et ceci quelle que soit la plateforme mobile que vous utilisez.
Voici une solution qui fonctionne en WM5, et qui n'affiche pas de lecteur.
Dim path As String
Dim player As New Media.SoundPlayer()
path = System.IO.Path.GetDirectoryName(System.Reflection.Assembly.GetExecutingAssembly().GetName().CodeBase)
player.SoundLocation = path & "\fleche02.wav"
player.Load()
player.Play()
Si tu trouves qq chose dis le moi.
Merci daniel
Le code fonctionne bien, mais le lecteur "sndPlay" s'affiche !
Comment faire pour que le lecteur ne s'affiche pas, mais que le son wav fonctionne ?
Merci Dibab
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.