كيف اقوم بتشغيل ملف صوتي بدون استخدام اي ادوات عن طريق الكود

يرجى تعديل العنوان

جرب الكود التالي :

'Add a module to your project (In the menu choose Project -> Add Module, Then click Open)
'Insert this code to the module :

Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" _ 
(ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

'Insert this code to your form:

Private Sub Form_Load()
'replace c:\music\myfile.wav with the WAV file you want to play
sndPlaySound "c:\music\myfile.wav", 1
'the '1' following the file means that the program should not stop to play the file. 
'The sound will play and other events can be happening. 
'If you want the whole program to stop while the sound is playing, just change the '1' to '0'.
End Sub

ولكني لم أجربه ,

ويمكنك استخدام أداة Microsoft Multimedia Control

الاخ الفاضل ...

يمكن استخدام دول API مثل الدالة PlaySound

Public Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long

راجع أيضاً: /index.php?showtopic=120523

شكراً

شكرا علي المجهود ولكن بدون استخدام ادوات اضافية اي ادوات خارجية