Bonsoir,
Merci à sigecom et à marc sylvain, les 2 méthodes fonctionnent en
asynchrone.
J'ai glissé la macro en macro d'ouverture du document, donc lancement
automatique, voir le .zip.
J'ai essayé d'améliorer l'ensemble, en fixant une image en fond (avec la
commande rendu), mais compte tenu des .update ce n'est pas concluant.
Je vais essayer de faire tomber la neige ou faire passer une père noel
:::))))
Pour patrick come, c'est une macro qui parcourt les # objets et suivant le
type applique une rotation (texte) ou change la couleur.
"sigecom" a écrit dans le message de news:
5800033@discussion.autodesk.com...
'essaye ceci peut etre.........................................
'This project needs :
'- a common dialog box, named CDbox
' (To add the Common Dialog Box to your tools menu, go to
Project->Components (or press CTRL-T)
' and select Microsoft Common Dialog control)
'-a button
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA"
(ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Private Declare Function waveOutGetNumDevs Lib "winmm.dll" () As Long
Const SND_ASYNC = &H1
Const SND_NODEFAULT = &H2
Private Sub Command1_Click()
'KPD-Team 1998
'URL: http://www.allapi.net/
'E-Mail: KPDTeam@Allapi.net
'Get the number of installed waveout devices
ret& = waveOutGetNumDevs
If ret& > 0 Then
'Set the CommonDialogBox' filter
CDBox.Filter = "Wave-files (*.wav)|*.wav|All Files (*.*)|*.*"
'Set the CommonDialogBox' title
CDBox.DialogTitle = "Choose your wave-file ..."
'Show the 'Open File'-dialog
CDBox.ShowOpen
'Play the selected sound
sndPlaySound CDBox.filename, SND_ASYNC Or SND_NODEFAULT
Else
MsgBox "No soundcard detected !"
End If
End Sub
Private Sub Form_Load()
Command1.Caption = "Load WAV"
End Sub