طلب بسيط

[-The-Ghost-]

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

كيف أنفذ أمر معين عند اختيار شئ من اليست مرتبط باختياري من الكومبو

أنا عارف انكم مش فاهمني

أعتقد الصورة دي هتوضح أكثر


http://img44.imageshack.us/img44/1152/6172009121954am.png

[-The-Ghost-]

أنا عارف انها ممكن تكون كده
if combo1.text="سعد بن سعيد الغامدي" and list1.text = "سورة الفاتحة" then
'مجموعة أوامر
end if


لكن كده الكود هيبقى طوووويل
ممكن طريقة تانية ؟

[محمد صادق]

تفضل أخي الكريم و لكن تذكر انه لازم تخلي الملفات الصوتية في مجلدات تحتوي على ارقام
مثلا القارئ ماهر المعيقلي في مجلد رقم واحد و العفاسي في مجلد رقم 2 و .....

المشروع في الملف المرفق اتمنى أن تفيدك ان شاء الله

http://gostshare.com/download.php?id=353

'نسألكم الدعاء
Private Sub Form_Load()
fill_Combo
fill_List
Combo1.ListIndex = 0
End Sub

Private Sub List1_Click()
Dim cmb As Integer
Dim i As Integer
Dim masar As String
cmb = Combo1.ListIndex
i = List1.ListIndex
masar = App.Path + "\" + Trim(str(cmb + 1)) + "\" + "sorat" + Trim(str(i + 1)) + ".mp3"
lblMasar.Caption = masar
End Sub

Public Sub playme(ByVal i As Integer, ByVal cmb As Integer)
MsgBox "\" + Trim(str(cmb + 1)) + "\" + "sorat" + Trim(str(i + 1)) + ".mp3"
End Sub
Private Sub fill_Combo()
Combo1.Clear
Combo1.AddItem "ماهر المعيقلي"
Combo1.AddItem "مشاري العفاسي"
Combo1.AddItem "سعد الغامدي"
Combo1.AddItem "احمد العجمي"
Combo1.AddItem "صلاح الهاشم"
End Sub

Private Sub fill_List()
List1.AddItem "سورة الفاتحة"
List1.AddItem "سورة البقرة"
List1.AddItem "سورة أل عمران"
List1.AddItem "سورة النساء"
List1.AddItem "سورة المائدة"
List1.AddItem "سورة الأنعام"
List1.AddItem "سورة الأعراف"

End Sub

[-The-Ghost-]

شكرا جزيلا أخي الكريم
جزاك الله كل خير على هذا الاهتمام الشديد
ألف ألف ألف شكر

[visual pro]

شكر أخي محمد صادق:)

[visual pro]

شكر أخي محمد صادق:)