Discussion :

[aliosys]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
private sub change_status(....)
 
if wmp1.status="Arrêté" then 
 
action 1
 
Else 'le lecteur est Prêt ok

par contre
si je veux tester maintenant si wmp1="lecture"

J'ai pensé à select case


end sub

merci de votre aide
et meilleur voeux et bonne année

Jean-marc

[aliosys]

Est-ce que c'est cette syntax

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Select Case wmp1.status
    Case "Arrêté"
       action 1
    Case "Lecture"
        action 2
End Select

[Mandalar]

Et où est ton problème ?

[aliosys]

C'est a dire quand le wmp2 s'arrête le wmp1 se lance
automatiquement pas de souci
et quand wmp1 s'arrête le wmp2 joue

3 condition quand je clic sur un command button je ne veux pas que les deux
se lance en même temps
car dans ce command button je lance le wmp2 en premier

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
private sub clic()
 
wmp2.controls.play
 
end dub

même si je clic dessus quand wmp1 play alors wmp2.controls.stop

[Mandalar]

Même si c'est un peu barbare, un truc comme ca ne marcherait pas ? (oublie pas de rajouter un timer)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub Form_Load()
Timer1.Interval = 500
End Sub
 
Private Sub Timer1_Timer()
If wmp1.Status = "Arrêté" Then
    wmp2.Controls.play
ElseIf wmp2.Status = "Arrêté" Then
    wmp1.Controls.play
End If
End Sub

[aliosys]

j'ai trouvé la solution

je prenais pas les bons événements:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
Private Sub wmp1_StatusChange()
Select Case wmp1.playState
 
Case wmppsPlaying
MsgBox "test"
Case wmppsStopped
MsgBox "arrêt"
 
End Select
End Sub

merci pour tout