Faire jouer et arrêter un midi dans un programme

Soyez le premier à donner votre avis sur cette source.

Snippet vu 10 001 fois - Téléchargée 35 fois

Contenu du snippet

Sert à faire jouer un fichier musique selon le désir de l'utilisateur. Je me suis servi d'un checkbox.

Source / Exemple :


Declare Function mciExecute Lib "winmm.dll" Alias "mciExecute" (ByVal lpstrCommand As String) As Long 
'À déclarer au début du code

Public Sub JouerMus(ByVal Fichier As String) 'Sub qi permet de faire jouer la musique
    mciExecute("play " & Fichier)
  End Sub

  Private Sub ArreteMus(ByVal Fichier As String) 'Sub qui permet de l'arrêter
    mciExecute("stop " & Fichier)
  End Sub

Private Sub chkMusic_CheckedChanged(ByVal sender As Object, _ 'Sub du chkbox
                                      ByVal e As System.EventArgs) _
                                      Handles chkMusic.CheckedChanged
    If chkMusic.Checked = True Then            'si le checkbox est coché, la musique va démarrer
      JouerMus("lagunabattletheme.mid")
    Else                                                          'si elle est décochée, la musique arrête
      ArreteMus("lagunabattletheme.mid")
    End If
  End Sub

A voir également

Ajouter un commentaire Commentaires
Messages postés
33
Date d'inscription
dimanche 8 avril 2007
Statut
Membre
Dernière intervention
2 novembre 2011

merci ça fonctionne avec un mp3 mais comment faire pour le faire tourner en boucle
et comment jouer un son contenu dans les ressources du programme (pour n'avoir qu'un fichier exe et non l'exe + le mp3)
merci d'avance
Messages postés
20
Date d'inscription
samedi 16 juillet 2005
Statut
Membre
Dernière intervention
3 septembre 2009

Excellent ! je cherchais justement comment arreter un son. Fonctionne aussi avec les .wav et .mp3.
Messages postés
1
Date d'inscription
vendredi 26 novembre 2004
Statut
Membre
Dernière intervention
23 février 2005

Non, mais il n'y avait pas le code pour arrêter le midi. Maintenant il est là. (je trouvais un peu stupide de mettre comment arrêter un midi tout seul sans avoir le code pour le démarrer)
Messages postés
119
Date d'inscription
mercredi 19 juin 2002
Statut
Membre
Dernière intervention
21 avril 2009

c'est sensé être nouveau?

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.