Faire jouer et arrêter un midi dans un programme

Commenter

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

S'inscrire maintenant

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.