j5em3110
Messages postés15Date d'inscriptionlundi 5 septembre 2005StatutMembreDernière intervention23 janvier 2006
-
6 sept. 2005 à 19:03
Echo67
Messages postés6Date d'inscriptionsamedi 29 mars 2008StatutMembreDernière intervention23 septembre 2009
-
30 sept. 2008 à 13:34
Bonjour je suis debutant en prog sur vb6. depuis un an
J'aimerais savoir qu'elle evenement, procédure ou autre (je sais même pas la différence) qu'il faut utiliser pour pouvoir ouvrir un fichier mp3 avec mon appli winamp ou un fichier waw.
PCPT
Messages postés13272Date d'inscriptionlundi 13 décembre 2004StatutMembreDernière intervention 3 février 201847 6 sept. 2005 à 20:46
salut,
tu veux jouer une musique? ou lancer un fichier sur le WinAmp de l'utilisateur?!!
si c'est juste jouer un fichier, voici un code VB6 qui doit sans doute fonctionner sous VBA (6.3 excel)
nb : il ne faut pas typer les variables en VBA, mais aucune idée pour les API et CONSTANTES
Private Const SND_APPLICATION = &H80 ' look for application specific association
Private Const SND_ALIAS = &H10000 ' name is a WIN.INI [sounds] entry
Private Const SND_ALIAS_ID = &H110000 ' name is a WIN.INI [sounds] entry identifier
Private Const SND_ASYNC = &H1 ' play asynchronously
Private Const SND_FILENAME = &H20000 ' name is a file name
Private Const SND_LOOP = &H8 ' loop the sound until next sndPlaySound
Private Const SND_MEMORY = &H4 ' lpszSoundName points to a memory file
Private Const SND_NODEFAULT = &H2 ' silence not default, if sound not found
Private Const SND_NOSTOP = &H10 ' don't stop any currently playing sound
Private Const SND_NOWAIT = &H2000 ' don't wait if the driver is busy
Private Const SND_PURGE = &H40 ' purge non-static events for task
Private Const SND_RESOURCE = &H40004 ' name is a resource name or atom
Private Const SND_SYNC = &H0 ' play synchronously (default)
Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" _
ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long
Private Sub Form_Load()
'KPD-Team 2000
'URL: http://www.allapi.net/ 'E-Mail: KPDTeam@Allapi.net
PlaySound "C:\WINDOWS\MEDIA\TADA.WAV", ByVal 0&, SND_FILENAME Or SND_ASYNC
End Sub
j5em3110
Messages postés15Date d'inscriptionlundi 5 septembre 2005StatutMembreDernière intervention23 janvier 2006 6 sept. 2005 à 19:15
Je comprend pas la reponse.
Je écris en ce moment un prog sur vba6. sous exel et je souhaite dans mon module a un certain moment pouvoir jouer un fichier de musique ou un son etc....