[RaggiTech]

كاتب الموضوع : AhmedEssawy

هذا الكود يقوم بإخبارك هل يوجد كرت صوت أم لا ، وهو ما قد تستفيد منه في منع أو السماح بتشغيل الأصوات في برنامجك .

الكود منقول من المنتدى القديم ..

ضع هذا الكود في الموديل Module :

كود :

Declare Function waveOutGetNumDevs Lib "winmm.dll" () As Long

اضف زر Command وضع فيه الكود التالي

كود :

Dim i As Integer
i = waveOutGetNumDevs()
If i > 0 Then
MsgBox "بالإمكان تشغيل ملفات الأصوات في جهازك", _
vbInformation, "التأكد من وجود كرت الصوت"
Else
MsgBox "ليس بالإمكان تشغيل ملفات الأصوات في جهازك", _
vbInformation, "التأكد من وجود كرت الصوت"
End If