Discussion :

[allpicI2c]

bonjour a tous
voila j'ai "creé" c'est un bien grand mot
une "application"
que je lance a partir du fichier txtsetup.sif a l'install de windows xp
cette application s'execute au premier demarrage de windows (a la fin de l'install)
mais ne trouve pas comment faire en sorte qu'elle se ferme automatiquement lorsque qu'elle a fini

description de l'application
il y a une form non "sizable" avec un composant window media player
qui joue un morceau externe (pas dans un fichier ressources) de 14 secondes
a la fin je souhaiterai que l'application se ferme toute seul proprement
voici ce que j'ai comme code si je puis dire

Code :

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

1
2
3
4
5
6
7
Private Sub Form_Load()
 
End Sub
 
Private Sub WindowsMediaPlayer1_OpenStateChange(ByVal NewState As Long)
 
End Sub

merci a vous
bonne journée

[ThierryAIM]

Dans PlayStateChange :

Code :

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

1
2
3
4
5
6
Private Sub WindowsMediaPlayer1_PlayStateChange(ByVal NewState As Long)
    Select Case NewState
    Case wmppsStopped    ' = 1
        End
    End Select
End Sub

Pour info, les autres valeurs de NewState sont :

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
    Select Case NewState
    Case wmppsUndefined    ' = 0
    Case wmppsStopped    ' = 1
    Case wmppsPaused    ' = 2
    Case wmppsPlaying    ' = 3
    Case wmppsScanForward    ' = 4
    Case wmppsScanReverse    ' = 5
    Case wmppsBuffering    ' = 6
    Case wmppsWaiting    ' = 7
    Case wmppsMediaEnded    ' = 8
    Case wmppsTransitioning    ' = 9
    Case wmppsReady    ' = 10
    Case wmppsReconnecting    ' = 11
    Case wmppsLast    ' = 12
    End Select

[allpicI2c]

parfait merci
exactement ce qu'il me fallait

encore mille merci