6 réponses
à noter qu'il ne faut bien évidement pas mettre ce code n'importe où...
la constante et le declare function sont a placer dans la partie déclaration :
Public Class Form1
Public Const SND_ASYNC As Short = &H1S
Public Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Integer) As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
sndPlaySound("D:\Documents and Settings\THOM31R\Bureau\TOMTOM\sounds\notify2.wav", SND_ASYNC)
End Sub
End Class
Renfield - Admin CodeS-SourceS - MVP Visual Basic
la constante et le declare function sont a placer dans la partie déclaration :
Public Class Form1
Public Const SND_ASYNC As Short = &H1S
Public Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Integer) As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
sndPlaySound("D:\Documents and Settings\THOM31R\Bureau\TOMTOM\sounds\notify2.wav", SND_ASYNC)
End Sub
End Class
Renfield - Admin CodeS-SourceS - MVP Visual Basic
Bin quand j'intègre ce code:
Public Const SND_ASYNC As Short = &H1S
Public Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Integer) As Integer
sndPlaySound("C:\dossier\fichier.wav", SND_ASYNC)
VB 2005 Express me souligne le dernier "sndPlaySound" en bleu : déclaration attendue
Donc je comprend pas.
Public Const SND_ASYNC As Short = &H1S
Public Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Integer) As Integer
sndPlaySound("C:\dossier\fichier.wav", SND_ASYNC)
VB 2005 Express me souligne le dernier "sndPlaySound" en bleu : déclaration attendue
Donc je comprend pas.
vu que j'ai lancé Visual Studio, je cherche un peu ce qu'offre le framework.
je presse F2
je cherche, au hasard 'Play'
je trouve :
Public Sub Play(ByVal location As String, ByVal playMode As Microsoft.VisualBasic.AudioPlayMode)
Membre de : Microsoft.VisualBasic.Devices.Audio
Résumé :
Lit un fichier audio .wav.
Paramètres :
location: String contenant le nom du fichier son.
playMode: Mode AudioPlayMode Enumeration pour la lecture du son. Par défaut, AudioPlayMode.Background.
qui me semble parfait, non ?
Renfield - Admin CodeS-SourceS - MVP Visual Basic
je presse F2
je cherche, au hasard 'Play'
je trouve :
Public Sub Play(ByVal location As String, ByVal playMode As Microsoft.VisualBasic.AudioPlayMode)
Membre de : Microsoft.VisualBasic.Devices.Audio
Résumé :
Lit un fichier audio .wav.
Paramètres :
location: String contenant le nom du fichier son.
playMode: Mode AudioPlayMode Enumeration pour la lecture du son. Par défaut, AudioPlayMode.Background.
qui me semble parfait, non ?
Renfield - Admin CodeS-SourceS - MVP Visual Basic