النتائج 1 إلى 2 من 2

الموضوع: VB سؤال

  1. #1


    أريد أن أعمل برنامج يستعرض ملفات الصوت في الكمبيوتر WAV,MID ويشغلها وأريد الطريقة لو سمحتم

    ------------------
    رحم الله امرئ تكلم فغنم أو سكت فسلم






    ولد المدينة غير متواجد حالياً


  2. #2
    عضو نشيط
    تاريخ التسجيل
    Jan 2000
    المشاركات
    43


    <BLOCKQUOTE><font size="1" face=" Arial">code:</font><HR><pre>
    'This project needs :
    '- a common dialog box, named CDbox
    ' (To add the Common Dialog Box to your tools menu, go to Project-&gt;Components (or press CTRL-T)
    ' and select Microsoft Common Dialog control)
    '-a button
    Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
    Private Declare Function waveOutGetNumDevs Lib "winmm.dll" () As Long
    Const SND_ASYNC = &H1
    Const SND_NODEFAULT = &H2
    Private Sub Command1_Click()

    'Get the number of installed waveout devices
    ret& = waveOutGetNumDevs
    If ret& &gt; 0 Then
    'Set the CommonDialogBox' filter
    CDBox.Filter = "Wave-files (*.wav)|*.wav|All Files (*.*)|*.*"
    'Set the CommonDialogBox' title
    CDBox.DialogTitle = "Choose your wave-file ..."
    'Show the 'Open File'-dialog
    CDBox.ShowOpen
    'Play the selected sound
    sndPlaySound CDBox.filename, SND_ASYNC Or SND_NODEFAULT
    Else
    MsgBox "No soundcard detected !"
    End If
    End Sub
    Private Sub Form_Load()
    Command1.Caption = "Load WAV"
    End Sub
    [/code]
    الصق البرنامج

    [b]<small><small>[ تم تعديل الموضوع بواسطة &nbsp; M-006 &nbsp; يوم &nbsp; 30-01-2000]





    M-006 غير متواجد حالياً





ضوابط المشاركة

  • لا تستطيع إضافة مواضيع جديدة
  • لا تستطيع الرد على المواضيع
  • لا تستطيع إرفاق ملفات
  • لا تستطيع تعديل مشاركاتك
  •  

أضف موقعك هنا| اخبار السيارات | حراج | شقق للايجار في الكويت | بيوت للبيع في الكويت | دليل الكويت العقاري | مقروء | شركة كشف تسربات المياه | شركة عزل اسطح بالرياض | عزل فوم بالرياض| عزل اسطح بالرياض | كشف تسربات المياة بالرياض | شركة عزل اسطح بالرياض