Hit-Parade .VB Research Center . Compteur
Accueil ~  Code ~  Programmes ~  Api ~  Forum ~  Cours ~  Livres ~  Quiz ~  Annuaire
~ Edito ~
12/03/2006 @ 13:39
Depuis la dernière mise à jour (qui remonte à... oulala plusieurs mois), un petit ménage de printemps s'impose. Ca tombe bien, c'est presque la période.
Au menu, et progressivement sur les jours à venir, rafraîchissement de plusieurs fonctions et procédures, nouvelles APIs et nouveaux programmes.

~ Rechercher ~

  

~ Annuaire VB ~
 Rechercher un site :
  

~ Partenaires ~

Procédure : JouerFichierMid
Permet de jouer un fichier au format MID pour les ordinateurs disposant d'une carte son.
(Consulté 18249 fois.)

Private Declare Function mciSendString Lib "winmm.dll" Alias _
        "mciSendStringA" (
ByVal lpstrCommand As String, ByVal _
        lpstrReturnString
As Any, ByVal uReturnLength As Long, ByVal _
        hwndCallback
As Long) As Long

Private Sub
JouerFichierMid(stFichier As String)
Dim
lgRet As Long
' Ouverture du fichier, on utilise un alias 'midsong' pour manipuler le son
lgRet = mciSendString("open " & stFichier & " type sequencer alias midsong", _
                      0&, 0, 0)
' Indique qu'il faut jouer le fichier en entier avant de rendre la main
lgRet = mciSendString("play midsong wait", 0&, 0, 0)
' Ferme le fichier
lgRet = mciSendString("close midsong", 0&, 0, 0)
End Sub
Visual Basic Research Center - (c) 2000/2002 -  Webmaster : docvb (chez) free (point) fr