كيف اعمل ربط بين لست بوكس وتشغيل الصوت

لا زلت انتظر كم اخوتي الاعزاء

السلام عليكم ورحمة الله وبركاته

يمكنك استخدام هذا الكود

Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

Private Sub List1_DblClick()
sndPlaySound List1.List(List1.ListIndex), 1
End Sub

اخي الفاضل

هل هذا ما تريد ؟؟

Dim strsound0 As String  '1
Dim strsound1 As String '2
Dim strsound2 As String '3

Private Sub Check1_Click()

If (Check1.Value = Checked) Then
List1.Enabled = False
List1.ListIndex = 0
MediaPlayer1.Play
Timer1.Enabled = True
Else

List1.Enabled = True
MediaPlayer1.Stop
MediaPlayer1.CurrentPosition = 0
Timer1.Enabled = False
 For x = 0 To List1.ListCount - 1
     List1.Selected(x) = (Check2.Value = Checked)
 Next

End If
End Sub





Private Sub Form_Load()
Timer1.Enabled = False
'===========================================

   List1.AddItem "ÇáÍãÏ ááå ÑÈ ÇáÚÇáãíä"
   List1.AddItem "ÇáÑÍãä ÇáÑÍíÜÜã " '2
   List1.AddItem "ãÜÇáß íæã ÇáÏíä" '3
   '=====================================
   strsound0 = App.Path & "\sound\F1002.WAV" '1
strsound1 = App.Path & "\sound\F1003.WAV" '2
strsound2 = App.Path & "\sound\F1004.WAV" '3


End Sub

Private Sub List1_Click()
Select Case List1.ListIndex
Case 0
MediaPlayer1.FileName = strsound0
Case 1
MediaPlayer1.FileName = strsound1
Case 2
MediaPlayer1.FileName = strsound2
End Select

End Sub

Private Sub Timer1_Timer()
Dim idx As Integer
Dim cdx As Integer
idx = List1.ListIndex
cdx = List1.ListCount - 1
If idx >= cdx Then Exit Sub
If MediaPlayer1.CurrentPosition = MediaPlayer1.Duration Then

List1.ListIndex = List1.ListIndex + 1
End If

End Sub

مثال

Fateha.zip

توضيح بسيط نسيت ان اقوله عند كتابتى للكود وهو ان الكود الذى كتبته لايعمل الا مع الملفات ذات الامتداد WAV. لذا يمكنك الاعتماد على اداة MediaPlayer كما هو موضح فى المشاركة السابقة فهو يعمل مع كل ملفات الميديا وانا اسف على هذا الخطأ :(

ملحوظة على الكود الموجود فى المشاركة السابقة

يمكن اختصار الكود الى كود بسيط جدا

Private Sub List_DblClick()
MediaPlayer1.OpenUrl List1.List(List1.ListIndex)
End Sub

والله اعلم

شكرا لكم على الاجابة ساجرب الاكواد التي تفضلتم بها وسانقل الملاحظات لكم فيما بعد وفقكم الله لكل خير

اقتباس

Private Sub List_DblClick()

MediaPlayer1.OpenUrl List1.List(List1.ListIndex)

End Sub

شكرا جزيلا اخي الفاضلGHOST2010

لقد اضفت لي كود جديد لا اعرفه من قبل

شكرا لكم على الاجابةالكريمة من جميع الاخوةالافاضل واسال الله ان يوفقكم لكل خير

اخواني

سوال اخر بنفس الموضوع

كيف اربط الصوت باداة الشجرة

مع الشكر