Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Patrick Philippot
Bonjour,
Tout est dit dans la question !!!! je ne suis pas certain que ce soin possible... Si quelqu'un peut m'aiguiller..
C'est l'utilisateur qui décide de ça en éditant les modèles de sons dans Panneau de configuration | Sons et périphériques | Sons. Pour les changer par programme, il faut bricoler dans la registry (HKEY_CURRENT_USERAppEventsSchemes). Je ne pense pas qu'il y ait une API pour accéder à ces données.
-- Patrick Philippot - Microsoft MVP MainSoft Consulting Services www.mainsoft.fr
Bonjour,
Tout est dit dans la question !!!!
je ne suis pas certain que ce soin possible...
Si quelqu'un peut m'aiguiller..
C'est l'utilisateur qui décide de ça en éditant les modèles de sons dans
Panneau de configuration | Sons et périphériques | Sons. Pour les
changer par programme, il faut bricoler dans la registry
(HKEY_CURRENT_USERAppEventsSchemes). Je ne pense pas qu'il y ait une
API pour accéder à ces données.
--
Patrick Philippot - Microsoft MVP
MainSoft Consulting Services
www.mainsoft.fr
Tout est dit dans la question !!!! je ne suis pas certain que ce soin possible... Si quelqu'un peut m'aiguiller..
C'est l'utilisateur qui décide de ça en éditant les modèles de sons dans Panneau de configuration | Sons et périphériques | Sons. Pour les changer par programme, il faut bricoler dans la registry (HKEY_CURRENT_USERAppEventsSchemes). Je ne pense pas qu'il y ait une API pour accéder à ces données.
-- Patrick Philippot - Microsoft MVP MainSoft Consulting Services www.mainsoft.fr
Christian Hugoud
Tu peux faire ta propre msgbox.
Christian
"Patrick Philippot" a écrit dans le message de news:
Bonjour,
Tout est dit dans la question !!!! je ne suis pas certain que ce soin possible... Si quelqu'un peut m'aiguiller..
C'est l'utilisateur qui décide de ça en éditant les modèles de sons dans Panneau de configuration | Sons et périphériques | Sons. Pour les changer par programme, il faut bricoler dans la registry (HKEY_CURRENT_USERAppEventsSchemes). Je ne pense pas qu'il y ait une API pour accéder à ces données.
-- Patrick Philippot - Microsoft MVP MainSoft Consulting Services www.mainsoft.fr
Tu peux faire ta propre msgbox.
Christian
"Patrick Philippot" <patrick.philippot@mainsoft.xx.fr> a écrit dans le
message de news: u42zjCx2FHA.3964@TK2MSFTNGP10.phx.gbl...
Bonjour,
Tout est dit dans la question !!!!
je ne suis pas certain que ce soin possible...
Si quelqu'un peut m'aiguiller..
C'est l'utilisateur qui décide de ça en éditant les modèles de sons dans
Panneau de configuration | Sons et périphériques | Sons. Pour les changer
par programme, il faut bricoler dans la registry
(HKEY_CURRENT_USERAppEventsSchemes). Je ne pense pas qu'il y ait une API
pour accéder à ces données.
--
Patrick Philippot - Microsoft MVP
MainSoft Consulting Services
www.mainsoft.fr
"Patrick Philippot" a écrit dans le message de news:
Bonjour,
Tout est dit dans la question !!!! je ne suis pas certain que ce soin possible... Si quelqu'un peut m'aiguiller..
C'est l'utilisateur qui décide de ça en éditant les modèles de sons dans Panneau de configuration | Sons et périphériques | Sons. Pour les changer par programme, il faut bricoler dans la registry (HKEY_CURRENT_USERAppEventsSchemes). Je ne pense pas qu'il y ait une API pour accéder à ces données.
-- Patrick Philippot - Microsoft MVP MainSoft Consulting Services www.mainsoft.fr
Jacques93
hken a écrit :
Tout est dit dans la question !!!! je ne suis pas certain que ce soin possible... Si quelqu'un peut m'aiguiller..
Si, si on peut, sans son, ou avec un son personnalisé. J'ai utilisé WshShell.RegRead et WshShell.RegWrite pour alléger le code, mais on peut les remplacer par les API du registre. Le son n'est modifié que pendant l'affichage du MessageBox.
Private Sub Command1_Click() Dim rep As String rep = SilentBox("Je suis MUET !!!" & vbCrLf & _ "Au secours !!!", _ vbQuestion Or vbOKCancel, , "arlette.wav") End Sub
Private Function SilentBox(Msg As String, _ Optional Prm As VbMsgBoxStyle = vbOKOnly, _ Optional Title As String = "", _ Optional Sound As String = "") As Integer Const cDefaut = _ "HKCUAppEventsSchemesApps.Default.Default.Current" Const cInformation = _ "HKCUAppEventsSchemesApps.DefaultSystemAsterisk.Current" Const cExclamation = _ "HKCUAppEventsSchemesApps.DefaultSystemExclamation.Current" Const cQuestion = _ "HKCUAppEventsSchemesApps.DefaultSystemQuestion.Current" Const cCritical = _ "HKCUAppEventsSchemesApps.DefaultSystemHand.Current"
Dim WshShell As Object Dim SonDefaut As String Dim SonInformation As String Dim SonExclamation As String Dim SonQuestion As String Dim SonCritical As String
Tout est dit dans la question !!!!
je ne suis pas certain que ce soin possible...
Si quelqu'un peut m'aiguiller..
Si, si on peut, sans son, ou avec un son personnalisé. J'ai utilisé
WshShell.RegRead et WshShell.RegWrite pour alléger le code, mais on peut
les remplacer par les API du registre. Le son n'est modifié que pendant
l'affichage du MessageBox.
arlette.wav : http://cjoint.com/?kBuwoRhtI8
Private Sub Command1_Click()
Dim rep As String
rep = SilentBox("Je suis MUET !!!" & vbCrLf & _
"Au secours !!!", _
vbQuestion Or vbOKCancel, , "arlette.wav")
End Sub
Private Function SilentBox(Msg As String, _
Optional Prm As VbMsgBoxStyle = vbOKOnly, _
Optional Title As String = "", _
Optional Sound As String = "") As Integer
Const cDefaut = _
"HKCUAppEventsSchemesApps.Default.Default.Current"
Const cInformation = _
"HKCUAppEventsSchemesApps.DefaultSystemAsterisk.Current"
Const cExclamation = _
"HKCUAppEventsSchemesApps.DefaultSystemExclamation.Current"
Const cQuestion = _
"HKCUAppEventsSchemesApps.DefaultSystemQuestion.Current"
Const cCritical = _
"HKCUAppEventsSchemesApps.DefaultSystemHand.Current"
Dim WshShell As Object
Dim SonDefaut As String
Dim SonInformation As String
Dim SonExclamation As String
Dim SonQuestion As String
Dim SonCritical As String
Tout est dit dans la question !!!! je ne suis pas certain que ce soin possible... Si quelqu'un peut m'aiguiller..
Si, si on peut, sans son, ou avec un son personnalisé. J'ai utilisé WshShell.RegRead et WshShell.RegWrite pour alléger le code, mais on peut les remplacer par les API du registre. Le son n'est modifié que pendant l'affichage du MessageBox.
Private Sub Command1_Click() Dim rep As String rep = SilentBox("Je suis MUET !!!" & vbCrLf & _ "Au secours !!!", _ vbQuestion Or vbOKCancel, , "arlette.wav") End Sub
Private Function SilentBox(Msg As String, _ Optional Prm As VbMsgBoxStyle = vbOKOnly, _ Optional Title As String = "", _ Optional Sound As String = "") As Integer Const cDefaut = _ "HKCUAppEventsSchemesApps.Default.Default.Current" Const cInformation = _ "HKCUAppEventsSchemesApps.DefaultSystemAsterisk.Current" Const cExclamation = _ "HKCUAppEventsSchemesApps.DefaultSystemExclamation.Current" Const cQuestion = _ "HKCUAppEventsSchemesApps.DefaultSystemQuestion.Current" Const cCritical = _ "HKCUAppEventsSchemesApps.DefaultSystemHand.Current"
Dim WshShell As Object Dim SonDefaut As String Dim SonInformation As String Dim SonExclamation As String Dim SonQuestion As String Dim SonCritical As String