01-05-21, 06:53 PM (آخر تعديل لهذه المشاركة : 02-05-21, 01:10 AM {2} بواسطة Amir_Alzubidy.
تعديل السبب: تعديل العنوان
)
اخواني ربي يسعدكم مشروع كلام الله المطلوب وليس امرا وضع الاكواد للتالي : عند اختيار القارىء من ال (ComboBox1) واختيار السورة من ال (ListBox1) يتم تشغيل الملف في ال (AxWindowsMediaPlayer1) الملفات مرفقة داخل المشروع الملف الاول باسم : Maher Al-Muaiqly الملف الثاني باسم : Fares_Abbad الرجاء عدم جلب ملفات سور من النت او من قاعدة بيانات فقط تشغيل الملفات المرفق من داخل المشروع ولكم من محبه
حلول الموضوع السابق ليست المطلوبة
اريد تشغيل الملفات من داخل المشروع
بااخي انا ارفق الملفات وانتم تضعون ملفات خارجية من النت
انا لااريد ملفات من النت او من قاعدة بيانات
حلول الموضوع السابق ليست المطلوبة
اريد تشغيل الملفات من داخل المشروع
بااخي انا ارفق الملفات وانتم تضعون ملفات خارجية من النت
انا لااريد ملفات من النت او من قاعدة بيانات
بعد اذنك وريني وين الملفات اللي ارفقتها !!!!!!!!!!!!
حلول الموضوع السابق ليست المطلوبة
اريد تشغيل الملفات من داخل المشروع
بااخي انا ارفق الملفات وانتم تضعون ملفات خارجية من النت
انا لااريد ملفات من النت او من قاعدة بيانات
بعد اذنك وريني وين الملفات اللي ارفقتها !!!!!!!!!!!!
اضفت موديول باسم a.vb وذلك لمعرفة اسم السورة من خلال الرقم.
شكرا لك اخي
ولكن تاتي هذه الرساله كم ترى ولاتشتغل السور
لعل هذا التعديل يحل مشكلة الرسالة
PHP كود :
Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged If ListBox1.Items.Count = 0 Then Exit Sub Dim fn = (From x As String In row Where x.Split(";")(1).Equals(ListBox1.Text) Select x.Split(";")(0)).FirstOrDefault & ".mp3" Dim url = apath.FullName & "\" & ComboBox1.Text.Replace(" ", "_") & "\" & fn AxWindowsMediaPlayer1.URL = url End Sub
اضفت موديول باسم a.vb وذلك لمعرفة اسم السورة من خلال الرقم.
شكرا لك اخي
ولكن تاتي هذه الرساله كم ترى ولاتشتغل السور
لعل هذا التعديل يحل مشكلة الرسالة
PHP كود :
Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged If ListBox1.Items.Count = 0 Then Exit Sub Dim fn = (From x As String In row Where x.Split(";")(1).Equals(ListBox1.Text) Select x.Split(";")(0)).FirstOrDefault & ".mp3" Dim url = apath.FullName & "\" & ComboBox1.Text.Replace(" ", "_") & "\" & fn AxWindowsMediaPlayer1.URL = url End Sub
02-05-21, 11:26 PM (آخر تعديل لهذه المشاركة : 02-05-21, 11:27 PM {2} بواسطة asmarsou.)
(02-05-21, 12:38 PM)ابوامجد كتب :
(02-05-21, 05:56 AM)أسعد كتب :
(02-05-21, 02:30 AM)ابوامجد كتب :
(01-05-21, 11:55 PM)سعود كتب :
التعديل مرفق
اضفت موديول باسم a.vb وذلك لمعرفة اسم السورة من خلال الرقم.
شكرا لك اخي
ولكن تاتي هذه الرساله كم ترى ولاتشتغل السور
لعل هذا التعديل يحل مشكلة الرسالة
PHP كود :
Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged If ListBox1.Items.Count = 0 Then Exit Sub Dim fn = (From x As String In row Where x.Split(";")(1).Equals(ListBox1.Text) Select x.Split(";")(0)).FirstOrDefault & ".mp3" Dim url = apath.FullName & "\" & ComboBox1.Text.Replace(" ", "_") & "\" & fn AxWindowsMediaPlayer1.URL = url End Sub
شكرا جزيلا وبارك الله في من تريد
الان الامور تمام والمشروع اشتغل
السلام عليكم و رحمة الله و بركاته
اخي الكريم اسمح لي بهذا التعديل و بعد اذنكم جميعا اخواني الاعزاء
لاظهار اسم المقرء و اسم السورة في التكست بوكس الخاص بكليهما
ليصبح الكود كما يلي
كود :
Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
If ComboBox1.Items.Count = 0 Then Exit Sub
ListBox1.Items.Clear()
Dim fold As New DirectoryInfo(apath.FullName & "\" & ComboBox1.Text.Replace(" ", "_"))
For Each fl As FileInfo In fold.GetFiles
If IO.Path.GetExtension(fl.Name).ToString.ToLower = ".mp3" Then
Dim sn As String = GetNameBynumber(fl.Name)
ListBox1.Items.Add(sn)
' ListBox1.Items.Add(fl.Name)
End If
Next
TextBox2.Text = ComboBox1.SelectedItem
End Sub
Private Sub ListBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs) Handles ListBox1.SelectedIndexChanged
If ListBox1.Items.Count = 0 Then Exit Sub
Dim fn = (From x As String In row Where x.Split(";")(1).Equals(ListBox1.Text) Select x.Split(";")(0)).FirstOrDefault & ".mp3"
Dim url = apath.FullName & "\" & ComboBox1.Text.Replace(" ", "_") & "\" & fn
AxWindowsMediaPlayer1.URL = url
TextBox1.Text = ListBox1.SelectedItem
End Sub
(02-05-21, 11:26 PM)asmarsou كتب :
(02-05-21, 12:38 PM)ابوامجد كتب :
(02-05-21, 05:56 AM)أسعد كتب :
(02-05-21, 02:30 AM)ابوامجد كتب :
(01-05-21, 11:55 PM)سعود كتب :
التعديل مرفق
اضفت موديول باسم a.vb وذلك لمعرفة اسم السورة من خلال الرقم.
شكرا لك اخي
ولكن تاتي هذه الرساله كم ترى ولاتشتغل السور
لعل هذا التعديل يحل مشكلة الرسالة
PHP كود :
Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged If ListBox1.Items.Count = 0 Then Exit Sub Dim fn = (From x As String In row Where x.Split(";")(1).Equals(ListBox1.Text) Select x.Split(";")(0)).FirstOrDefault & ".mp3" Dim url = apath.FullName & "\" & ComboBox1.Text.Replace(" ", "_") & "\" & fn AxWindowsMediaPlayer1.URL = url End Sub
شكرا جزيلا وبارك الله في من تريد
الان الامور تمام والمشروع اشتغل
السلام عليكم و رحمة الله و بركاته
اخي الكريم اسمح لي بهذا التعديل و بعد اذنكم جميعا اخواني الاعزاء
لاظهار اسم المقرء و اسم السورة في التكست بوكس الخاص بكليهما
ليصبح الكود كما يلي