Fichier WAVRésolu

Question

Bonjour, 


 


Voici mon code :



Shell("mplay32 /play ding.wav", AppWinStyle.Hide, 




False
)

Quand j'essaie de le faire fonctionner il ne marche pas il me marque le message d'erreur suivant: Media player ne peut pas ouvrir ce fichier. L'accès à de fichier est refusé, ou le fichier est en cours d'utilisation par une autre application.

Je ne comprend pas cela car il n'y a aucun au programme qui est en cours d'utilisation

et quand j'écris ceci : Shell("mplay32 /play ", AppWinStyle.Hide, False
)
 il ouvre la fenetre pour choisir le son que je veux et quand je choisi le son et que je le sélectionne le son tout fonctionne dans message d'erreur.

Quelqu'un pourrait il m'aider à comprendre SVP
merci

jmfmarques · Accepted Answer

Ceci, écrit en VB5 et à adapter au besoin à VB.Net, lui permet d'éviter un tel inconvénient :

Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long


Private Sub Command1_Click()
  PlaySound "C:\WINNT\MEDIA\ding.WAV", ByVal 0&, &H20000 Or &H1
End Sub

où ce qui est en rouge doit bien évidemment être au besoin modifié selon ce qu'il a sur sa machine.

VBGenesis · Answer

Je n'en sais rien mais essaye de changer le nom de ton fichier en "playding.wav" (sans l'espace) c'est peut-être ca qui bloque.
VBGenesis

jmfmarques · Answer

C'est tout simplement parce que Windows ne trouve pas ce fichier (et il affiche un message mal adapté, certes...)

Il ne suffit pas de dire "ding.wav" ! il faut donner le chemin complet, du genre (chez moi) :

c:\winnt\media\ding.wav

jmfmarques · Answer

Mais c'est autre chose qui m'inquiète un peu plus.

Je ne connais pas VB.Net, mais si, comme je le crois, son appel ne le fait pas et qu'il n'a pas prévu par ailleurs de fermer le processus ainsi ouvert, il va se retrouver avec autant de fenêtres que de "ding" joués (dans sa barre des tâches).
Sous réserve de vérification, toutefois, car je ne connais pas VB.Net

Astro8899 · Answer

Salut jmfmarques

Cela a fontionner quand je l'ai adapter à vb.net

Voici comment je l'ai code et cela a fonctionner.

Private
Declare
Function PlaySound 
Lib "winmm.dll" 
Alias "PlaySoundA" (
ByVal lpszName 
As
String, 
ByVal hModule 
As
Long, 
ByVal dwFlags 
As
Long) 
As
Long

Private
Sub Button1_Click(
ByVal sender 
As System.Object, 
ByVal e 
As System.EventArgs) 
Handles Button1.Click

'Shell("mplay32 /play c:\winnt\media\ding.wav ", AppWinStyle.Hide, False)PlaySound("C:\WINDOWS\MEDIA\ding.WAV", 0&, &H20000 

Or &H1)

End
Sub

merci et bonne journée

Fichier WAV

5 réponses

Votre réponse

Discussions similaires