أريد أن أعمل برنامج يستعرض ملفات الصوت في الكمبيوتر WAV,MID ويشغلها وأريد الطريقة لو سمحتم
------------------
رحم الله امرئ تكلم فغنم أو سكت فسلم
أريد أن أعمل برنامج يستعرض ملفات الصوت في الكمبيوتر WAV,MID ويشغلها وأريد الطريقة لو سمحتم
------------------
رحم الله امرئ تكلم فغنم أو سكت فسلم
<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->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& > 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>[ تم تعديل الموضوع بواسطة M-006 يوم 30-01-2000]