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