OVH Cloud OVH Cloud

midi

8 réponses
Avatar
R S
bonjour,
je désirerais ajouter un peu de musique à un formulaire sous la forme d'un
objet midi qui se lancerait à l'ouverture du formulaire.
Est-ce possible ? Y at-til un moyen simple ? J'ai réussi à mettre un tel
objet, mais il faut cliquer dessus.
Merci
RS

8 réponses

Avatar
3stone
Salut,

"R S"
je désirerais ajouter un peu de musique à un formulaire sous la forme d'un
objet midi qui se lancerait à l'ouverture du formulaire.
Est-ce possible ? Y at-til un moyen simple ? J'ai réussi à mettre un tel
objet, mais il faut cliquer dessus.




'// Dans un module standard.
Public Declare Function PlaySound Lib "winmm.dll" _
Alias "PlaySoundA" _
(ByVal lpszName As String, ByVal hModule As Long, _
ByVal dwFlags As Long) As Long
Public Const SND_ASYNC = &H1 ' joue en asynchrone.
Public Const SND_FILENAME = &H20000 ' inqique nom de fichier.

'// Dans un formulaire.

PlaySound "C:MonDossierMonFichierSon.wav", ByVal 0&, _
SND_FILENAME Or SND_ASYNC



--
A+
Pierre (3stone) Access MVP
-----------------------------
http://users.skynet.be/mpfa
-----------------------------

Avatar
3stone
re,

"R S"
je désirerais ajouter un peu de musique à un formulaire sous la forme d'un
objet midi qui se lancerait à l'ouverture du formulaire.
Est-ce possible ? Y at-til un moyen simple ? J'ai réussi à mettre un tel
objet, mais il faut cliquer dessus.



*midi* qu'il falait lire ;-))

Regarde ceci:
http://www.mvps.org/accessfr/apis/api0011.htm




--
A+
Pierre (3stone) Access MVP
-----------------------------
http://users.skynet.be/mpfa
-----------------------------

Avatar
R S
"3stone" a écrit dans le message de
news:
Salut,

"R S"
je désirerais ajouter un peu de musique à un formulaire sous la forme
d'un


objet midi qui se lancerait à l'ouverture du formulaire.
Est-ce possible ? Y at-til un moyen simple ? J'ai réussi à mettre un tel
objet, mais il faut cliquer dessus.




'// Dans un module standard.
Public Declare Function PlaySound Lib "winmm.dll" _
Alias "PlaySoundA" _
(ByVal lpszName As String, ByVal hModule As Long, _
ByVal dwFlags As Long) As Long
Public Const SND_ASYNC = &H1 ' joue en asynchrone.
Public Const SND_FILENAME = &H20000 ' inqique nom de fichier.

'// Dans un formulaire.

PlaySound "C:MonDossierMonFichierSon.wav", ByVal 0&, _
SND_FILENAME Or SND_ASYNC


J'ai fait tout ça:
dans le module 1, les déclarations Public etc..
dans le form load de mon formulaire les deux dernières lignes, en changeant
le chemin.
Mais rien ne se passe.
Peut-être ne faut il pas le mettre dans le form load ?
RS

RS


Avatar
Yann
Salut,
As-tu allumé tes enceintes ?

Bye
Yann

-----Message d'origine-----

"3stone" a écrit dans le
message de

news:
Salut,

"R S"
je désirerais ajouter un peu de musique à un
formulaire sous la forme



d'un
objet midi qui se lancerait à l'ouverture du
formulaire.



Est-ce possible ? Y at-til un moyen simple ? J'ai
réussi à mettre un tel



objet, mais il faut cliquer dessus.




'// Dans un module standard.
Public Declare Function PlaySound Lib "winmm.dll" _
Alias "PlaySoundA" _
(ByVal lpszName As String, ByVal hModule As
Long, _


ByVal dwFlags As Long) As Long
Public Const SND_ASYNC = &H1 ' joue en
asynchrone.


Public Const SND_FILENAME = &H20000 ' inqique nom
de fichier.



'// Dans un formulaire.

PlaySound "C:MonDossierMonFichierSon.wav", ByVal
0&, _


SND_FILENAME Or SND_ASYNC


J'ai fait tout ça:
dans le module 1, les déclarations Public etc..
dans le form load de mon formulaire les deux dernières
lignes, en changeant

le chemin.
Mais rien ne se passe.
Peut-être ne faut il pas le mettre dans le form load ?
RS

RS


.





Avatar
R S
"Yann" a écrit dans le message de
news:5a0501c48a77$afcd5fb0$
Salut,
As-tu allumé tes enceintes ?

Bye
Yann
vvvvvouuuuuiiiiii ...............
RS
Avatar
3stone
Salut,

"R S"
As-tu allumé tes enceintes ?

vvvvvouuuuuiiiiii ...............



et lu mon second message qui disait ceci ?

---------------------------------------------

*midi* qu'il fallait lire ;-))

Regarde ceci:

http://www.mvps.org/accessfr/apis/api0011.htm

-------------------------------------------




--
A+
Pierre (3stone) Access MVP
-----------------------------
http://users.skynet.be/mpfa
-----------------------------

Avatar
R S
"3stone" a écrit dans le message de
news:
Salut,

"R S"
As-tu allumé tes enceintes ?

vvvvvouuuuuiiiiii ...............



et lu mon second message qui disait ceci ?

---------------------------------------------

*midi* qu'il fallait lire ;-))

Regarde ceci:

http://www.mvps.org/accessfr/apis/api0011.htm

-------------------------------------------

j'ai lu aussi mais pas compris grand chose. Je fais des trucs simples, sans

rajouter de code ou le moins possible, parceque je ne maitrise pas. Si c'est
trop compliqué de mettre la musique, j'abandonne.
Pour l'instant, j'ai mis un lien hupertexte qui pointe vers un fichier midi,
mais ça ouvre la fenêtre du lecteur windows média, ce n'est pas très
satisfaisant.
RS


Avatar
3stone
Salut,

"R S"
j'ai lu aussi mais pas compris grand chose.
<snip>



Dans ce cas, ne pas oublier que Windows est multitâche...

et que rien ne t'empêche de lancer WMP ou WINAMP pour
détendre l'atmosphère...

Access ne s'en portera que mieux ;-)))



--
A+
Pierre (3stone) Access MVP
-----------------------------
http://users.skynet.be/mpfa
-----------------------------