Add Sound

[unknown_hcr]

سلام

چطور مي شه به رويداد مورد نظر در كنترل مشخصي (مثلا به رويداد كليك Command Button يا رويداد Form_Load ) يك فايل صوتي مثل صداي تيك براي دكمه ها يا هر فايل صوتي ديگه اضافه كرد؟

[ajlajlajl]

با توابع api مثل PlaySound ميتونيد توي رويداد مورد نظرتون يه فايل صوتي رو پخش كنيد.

[unknown_hcr]

مي شه بيشتر توضيح بديد يا سورس برنامه رو بذاريد؟

[Di Di]

اينم سورس


  Play%20Sound%20By%20Res.zip (اندازه: 5.44 KB / تعداد دفعات دریافت: 101)

[m_vb66]

با اجازه اساتيد از اين هم ميتوني استفاده كني البته به سليقه خودتون ميتونيد تغيرش بدين

کد:

'This project needs a Common Dialog box, named 'CDBox'
'  (To add the Common Dialog Box to your tools menu, go to Project->Components (or press CTRL-T)
'   and select Microsoft Common Dialog control)
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Dim Alias As String
Private Sub Form_Load()
    'KPD-Team 1998
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net
    Const PlayTime = 10
    'Set the common dialog box' title
    CDBox.DialogTitle = "Choose your midi-file"
    'Set the fliter
    CDBox.fliter = "Midi-files (*.mid)|*.mid"
    'Show the 'Open File'-dialog
    CDBox.ShowOpen
    'Extract an alias from the file
    Alias = Left$(CDBox.FileTitle, Len(CDBox.FileTitle) - 4)

    'play midi
    R% = mciSendString("OPEN " + CDBox.filename + " TYPE SEQUENCER ALIAS " + Alias, 0&, 0, 0)
    R% = mciSendString("PLAY " + Alias + " FROM 0", 0&, 0, 0)
    R% = mciSendString("CLOSE ANIMATION", 0&, 0, 0)

    'play midi for 10 secs
    t = Timer
    Do: DoEvents: Loop Until Timer > t + PlayTime

    'stop midi and close it
    R% = mciSendString("OPEN " + CDBox.filename + " TYPE SEQUENCER ALIAS " + Alias, 0&, 0, 0)
    R% = mciSendString&("STOP " + Alias, 0&, 0, 0)
    R% = mciSendString&("CLOSE ANIMATION", 0&, 0, 0)
End Sub