Imports Microsoft.DirectX.AudioVideoPlayback Public Class Form1 Private Sub Play() Dim audioFile As Audio = New Audio("C:\sonmidi\note"&Trim(Str(iNumNote))&".MID") audioFile.Play() End Sub End Class
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionPrivate Const SND_ASYNC = &H1 Private Const SND_FILENAME = &H20000 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() PlaySound "C:\WINDOWS\MEDIA\TADA.WAV", ByVal 0&, SND_FILENAME Or SND_ASYNC End Sub