Son sous VB

Son sous VB - VB/VBA/VBS - Programmation

Marsh Posté le 17-11-2003 à 22:35:12    

Salut, je suis debutant en programmation sous VB et je n'arrive pas a trouver une solution simple pour jouer un wav (cliquer sur un bouton pour le jouer une fois par exemple) sous Visual Basic 6.0
Y a-t-il une fonction a appeler ou une manip que j'aurais pas vu ?
Merci.

Reply

Marsh Posté le 17-11-2003 à 22:35:12   

Reply

Marsh Posté le 17-11-2003 à 22:40:28    

Utilise la fonction sndPlaySound du SDK multimédia, en rajoutant les lignes suivantes au début de ton code :
 

Code :
  1. Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long


 
Toutes les infos sur cette fonction ici :
http://msdn.microsoft.com/library/ [...] ysound.asp


---------------
J'ai un string dans l'array (Paris Hilton)
Reply

Marsh Posté le 17-11-2003 à 22:55:52    

Merci du coup de main... Cependant comme je suis une grosse quiche :sweat: , j'ai ecrit ca pour l'instant  (et bien entendu ca marche pas...) :
 
Private Sub Command1_Click()
Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Private test As BOOL
test = sndPlaySound("wavefile.wav", SND_ASYNC)
End Sub
 
En gros faut modifier quoi ?>

Reply

Marsh Posté le 18-11-2003 à 09:06:00    

La ligne que je t'ai donnée, faut pas la mettre dans la fonction qui gère le click, mais au début du source.
Et SND_ASYNC est une constante, mais prévue pour le C. Si tu programmes en VB, tu dois mettre la valeur de la constante (&H1)
T'as un utilitaire livré avec VB qui te donne les valeurs des constantes utilisées dans les fonctions, mais je me souviens plus le nom

Reply

Marsh Posté le 18-11-2003 à 09:40:57    

API Text Viewer :o (dans les Visual Basic 6.0 Tools dans le menu Démarrer.


---------------
Whichever format the fan may want to listen is fine with us – vinyl, wax cylinders, shellac, 8-track, iPod, cloud storage, cranial implants – just as long as it’s loud and rockin' (Billy Gibbons, ZZ Top)
Reply

Marsh Posté le 18-11-2003 à 09:54:41    

ah oui :o
ok :o

Reply

Marsh Posté le 19-11-2003 à 19:18:38    

Cool, merci les gars, je m'en suis enfin sorti.

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed