[الاستاذ خليل]

وجدت لك الطريقة على الرابط التالي

و الطريقة كالتالي


إتبع الخطوات :

1_ إفتح add in manager من قائمة add ins _ قوم بتحديد VB 6 RESOUCE EDITOR

2 _ شغل البرنامج وستظهر إربع إيقونات على شريط الإدوات وهي نوع الملف (مثل صورة _ إيقونة _ نص )

3 _ إختار ملفات *.* وإدرج الملف الصوتي وسيسميه 101 داخل مجلد CUSTOM

ولتشغيل الصوت اكتب الكود التالى .

Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Private Sub Command1_Click()
إصدار_الصوت = StrConv(LoadResData(101, "CUSTOM"), 64)
sndPlaySound إصدار_الصوت, 5
End Sub

الاستاذ خليل



الاستاذ خليل