Jouer son

Soyez le premier à donner votre avis sur cette source.

Vue 12 850 fois - Téléchargée 545 fois

Description

Jouer un son sans Api ni rien du tout d'ailleur...
En deux lignes....

Source / Exemple :


' http://www.christianchauvin.com
' fonction non documentée de Win

Private Sub Command1_Click()

r = Shell("sndvol32 /t") ' Affiche la petite fenêtre volume de window
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub File1_Click()
LeSon = File1.Path & "" & File1.FileName
z = Shell("sndrec32 /play " & LeSon, vbHide) ' ouvre le son sans le magnétophone visible
End Sub

Private Sub Form_Load()
File1.Path = "c:windowsmedia" 'exemple de dossier wav
End Sub

Codes Sources

A voir également

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.