• فيجوال بيسك
  • 2153
  • 20-3-2008
    • الملتميديا - تشغيل الصوت دون أدوات درس اليوم هو عبارة عن طريقة تشغيل ملف صوت WAV عن طريق برنامجك دون ان تحتاج إلى وضع عنصر تحكم جاهز أضف فورم ووحدة نمطية Module انسخ الأسطر التالية إلى الوحدة النمطية Module
    Declare Function sndPlaySound Lib \'winmm.dll\' Alias \'sndPlaySoundA\' (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
    Global Const SND_ASYNC = &H1

    أضف الكود التالي إلى زر أمر Command
    rc = sndPlaySound(إسم ملف الصوت هنا, SND_ASYNC)
    لاتنسى تبديل ماهو مكتوب باللون الأزرق إلى عنوان الملف كاملاً لاحظ أنه لايشغل التنسيقات الضخمة مثل mp3 وأحيانأ ملفات الصوت الضخمة أيضاً هناك طريقة أخرى أيضاً ضع هذه الأسطر في فسم التصريحات General
    Private Declare Function sndPlaySound Lib \'winmm.dll\' Alias \'sndPlaySoundA\' (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
    Const SND_ALIAS = &H10000
    Const SND_ASYNC = &H1
    Const SND_SYNC = &H0
    Const SND_NOWAIT = &H2000
    Const SND_LOOP = &H8 Sub SoundCheck()
    Dim lRetVal As Long
    lRetVal = sndPlaySound(\'عنوان الملف هنا\', SND_SYNC)
    End Sub
    أضف السطر التالي إلى زر الأمر Command
    SoundCheck
    ولاتنسى تكتب مسار الملف كامل
    ولاتنسى تدعيلنا بالتوفيق
    كن أول من يقيم الموضوع
    12345