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