طبعا يوجد عدة طرق للتعامل مع الاصوات في VB.NET .
1) عن طريق أدوات جاهزة خاصة بقراءة الاصوات وعادة ما تكون أداة Windows Media Player أو RealPlayer . (( مستحسن في المقاطع الطويلة! )) .
2) عن طريق استدعاء جمل API (( مستحسن في المقاطع القصيرة! ))
طبعا سأعرض لك هنا الطريقة الاخيرة وهي الصعب لأن الطريقة الاولى تعتمد على الاداة حيث لا عليك سوى تحديد مسار الملف (( و في اغلب الادوات تكون الخاصية url )) و التحكم بها عن طريق play , stop كما تتحكم في اي برنامج صوتي .
الطريقة الاخير :-
أولا استدعاء الدوال اللازمة من النظام .
كود:
' flag values for wFlags parameter
Private Const SND_SYNC As Short = &H0S
Private Const SND_ASYNC As Short = &H1S ' play asynchronously
Private Const SND_NODEFAULT As Short = &H2S ' don't use default sound
Private Const SND_NOSTOP As Short = &H10S
ثانيا انشاء اجراء للتعامل مع دوال النظام
كود:
Private Sub PlayMsgSound(ByRef fFile As String)
Dim wFlags, r As Integer
wFlags = SND_ASYNC Or SND_NOSTOP
r = sndPlaySound(fFile, wFlags)
End Sub
أما ثالثا استدعاء الاجراء :-
كود:
PlayMsgSound("C:\WINDOWS\Media\ringout.wav")
طبعا PlayMsgSound("هنا مسار الملف المطلوب تشغيله")
و هذه الطريقة تساعدك في الاصوات ذلت المقاطع القصيرة و التي قد تحتاجها في عرض بعض رسائل التنبيه .
المفضلات