25-02-13, 02:23 PM
Easy 4ever كتب :لنفرض انك وضعت كل قارء في مجلد مستقل وليكن لدينا اثنان
الأول الشيخ عبدالرحمن السديس اسم المجلد Sudais
والثاني الشيخ عبدالباسط اسم المجلد Abdalbasit
الأن في البرنامج ضع اسماء الشيوخ في ComboBox
وأجعل عند أختيار اسم يقوم بتخزين اسم المجلد المقابل له مثال على هذا
عرف متغير بالأعلى من نوع نص وليكن NameFile
كود :
[SIZE=4]Dim NameFile As String[/SIZE]
في حدث SelectedIndexChanged لـ أداة ComboBox1
أكتب الكود التالي
كود :
[SIZE=4]If ComboBox1.Text = "عبدالرحمن السديس" Then
NameFile = "Sudais"
ElseIf ComboBox1.Text = "عبدالباسط" Then
NameFile = "Abdalbasit"
End If[/SIZE]
وبالتالي مسار سورة الفاتحة ستكون كتالي
كود :
[SIZE=4]Application.StartupPath & "\" & Namefile & "\Al_Fatiha.mp3"[/SIZE]
سواء كان للقارئ الشيخ عبدالرحمن السديد أو الشيخ عبدالباسط
ممكن مثال اخي الكريم ؟
سوي برنامج واعطيني المشروع
