Code - Visual Basic Research Center

~ 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 ~

~ Partenaires ~

Retour à la liste des fonctions

Procédure : JouerFichierMid
Permet de jouer un fichier au format MID pour les ordinateurs disposant d'une carte son.
(Consulté 18874 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

Retour à la liste des fonctions