Son.wav en sortie

[guy72]

Bonjour,
Est-il possible de mettre un "son.wav" quand on quitte le Formulaire avec la "croix" ?
PS : pas avec un bouton.
Cordialement
Guy

 

[James007]

Re : Son.wav en sortie

Bonjour,

Il te faut sans doute combiner la fonction sndPlaySound32
et la fermeture de la UserForm ...

A tester ...

Option Explicit 

Declare Function sndPlaySound32 Lib "winmm.dll" _ 
Alias "sndPlaySoundA" (ByVal lpszSoundName _ 
As String, ByVal uFlags As Long) As Long 

Private Sub UserForm_QueryClose _ 
  (Cancel As Integer, CloseMode As Integer) 
Call sndPlaySound32("C:\WINNT\Media\ringin.wav", 1)
End Sub

A +

 

[fhoest]

Re : Son.wav en sortie

bonjour
Tu peux mettre ceci ou autre chose

Private Sub UserForm_Terminate()
Application.Speech.Speak "Thanks you"
Application.Speech.Speak "Bye"
End Sub

A+

 

[kjin]

Re : Son.wav en sortie

Bonjour,
Dans le module du formulaire

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = 0 Then PlayPanPanCuCu
End Sub

Et dans un module standard

Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, _
ByVal hModule As Long, ByVal dwFlags As Long) As Long

Sub PlayPanPanCuCu()
[COLOR="Red"]PlaySound "C:\...\ ...\PanPanCuCu.wav", &O0, 0[/COLOR]
End Sub

A+
kjin

 

[guy72]

Re : Son.wav en sortie

Bonjour à tous,
J'ai beau essayer, je n'ai aucun son avec la croix.

Erreur, ça fonctionne avec :

Private Sub UserForm_Terminate()
Ma macro
End Sub

Cordialement

 

[kjin]

Re : Son.wav en sortie

Re,
Je te signale quand même que je n'ai aucun fichier nommé PanPanCuCu sur mon disque non plus...sait-on jamais
A+
kjin

 

[kjin]

Re : Son.wav en sortie

Re,

Est-il possible de mettre un "son.wav" quand on quitte le Formulaire avec la "croix" ?
PS : pas avec un bouton.

Private Sub UserForm_Terminate()
Ma macro
End Sub

Ben voyons...
A+
kjin

 

[fhoest]

Re : Son.wav en sortie

Excelent le Panpancucu
chez moi ça ne fonctionne pas non plus!
MDR
A+
par contre comme ceci oui

Private Sub UserForm_Terminate()
Application.Speech.Speak "Pan pan cu cu "
End Sub

 

[guy72]

Re : Son.wav en sortie

Re,
Je te signale quand même que je n'ai aucun fichier nommé PanPanCuCu sur mon disque non plus...sait-on jamais
A+
kjin

Non bien sur moi non plus, j'ai remplacer ce qu'il falait.
Mais finalement avec : Private Sub UserForm_Terminate()
ça fonctionne très bien.
Merci quand même de m'avoir répondu.
Cordialement

 

[kjin]

Re : Son.wav en sortie

Re,
J'ai réédité mon code car il y avait une virgule en trop (3 arguments et non 4)!

A+
kjin

 

[limat72]

Re : Son.wav en sortie

Bonjour,

Il te faut sans doute combiner la fonction sndPlaySound32
et la fermeture de la UserForm ...

A tester ...

Option Explicit 

Declare Function sndPlaySound32 Lib "winmm.dll" _ 
Alias "sndPlaySoundA" (ByVal lpszSoundName _ 
As String, ByVal uFlags As Long) As Long 

Private Sub UserForm_QueryClose _ 
  (Cancel As Integer, CloseMode As Integer) 
Call sndPlaySound32("C:\WINNT\Media\ringin.wav", 1)
End Sub

A +

bonjour à tous,
Guy ,
le code de James marche....il y'a juste une erreur dans le code de l'usf

il faut remplacer Call sndPlaySound32("C:\WINNT\Media\ringin.wav", 1)
par celui-ci :
Call sndPlaySound32("C:\WINDOWS\Media\ringin.wav", 1)

a mettre dans un module:
Declare Function sndPlaySound32 Lib "winmm.dll" _
Alias "sndPlaySoundA" (ByVal lpszSoundName _
As String, ByVal uFlags As Long) As Long

voilou...

bonne journée

limat

 

[guy72]

Re : Son.wav en sortie

bonjour à tous,
Guy ,
le code de James marche....il y'a juste une erreur dans le code de l'usf

il faut remplacer Call sndPlaySound32("C:\WINNT\Media\ringin.wav", 1)
par celui-ci :
Call sndPlaySound32("C:\WINDOWS\Media\ringin.wav", 1)

a mettre dans un module:
Declare Function sndPlaySound32 Lib "winmm.dll" _
Alias "sndPlaySoundA" (ByVal lpszSoundName _
As String, ByVal uFlags As Long) As Long

voilou...


bonne journée

limat

J'avais déjà remplacer, mais pas de changement.
Guy