bonjour,

je ne comprends pas très bien le code suivant, je vais essayer de vous en donnez une interprétation(commenter le code...) j'aimerais savoir si je me trompe pas. Le code consiste à répéter une music dans une liste que l'utilisateur auras chargé et si check2 est coché la lecture joue(tourne) en boucle, juste le morceau choisit et non la list que l'utilisateur auras chargé.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
 
Private Sub Check2_Click()
 
Timer2 = Not Timer2 'pas compris ce que ça faisait ....
If Timer2 Then Check2.Value = 1 Else Check2.Value = 0 ' si timer2 alors la valeur de check2 = 1 sinon elle vaut 0 je vois pas trop l'utilité ....
 
End Sub
 
 
Public Function IsPlaying() As Boolean ' la fontion retourne un boolean
 
Static s As String * 30 ' j'ai enlever  * 30 et ça na plus marché ...
mciSendString "status sonido mode", s, Len(s), 0 'on prend la longueur de la chansons dans la list ?
IsPlaying = (Mid$(s, 1, 7) = "playing") 'aucune idée
 
End Function
 
 
Private Sub Timer2_Timer()
 
If IsPlaying = False Then play_Click ' si le fonction isplaying retourne false alors on rejoue le morceaux
 
End Sub
Le code marche bien et j'aimerais avoir vos avis et vos commentaire sur ce code merci d'avance .