[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 


شكرا جزيلا وبارك الله في من تريد

الان الامور تمام والمشروع اشتغل

السلام عليكم و رحمة الله و بركاته
اخي الكريم اسمح لي بهذا التعديل و بعد اذنكم جميعا اخواني الاعزاء
لاظهار اسم المقرء و اسم السورة في التكست بوكس الخاص بكليهما
ليصبح الكود كما يلي