[ابوامجد]

(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 


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

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