[سعود]

(14-01-21, 09:24 AM)ابو روضة كتب :

أخى سعود لو سمحت :-

هو انا بجيب السور من أين بالتحديد ؟

لان لدى مجلد به سور القرءان ولما بختاره لا يجلب اى شيئ .

ممكن توضح لو سمحت ؟

اول شيء يخزن مسار المجلد في الـMysettings في قائمة Myfolder

ضمن زر جديد مكتوب الكود:

PHP كود :

 Dim fbd As New FolderBrowserDialog
        If fbd.ShowDialog = DialogResult.OK Then
            My.Settings.myfolder.Add(fbd.SelectedPath)
            My.Settings.Save()
            gd()
        End If 


اجراء gd  هو اللي يجلب المجلدات اللي اخترتهم وخزنتهم في Myfolder ضمن Mysettings

PHP كود :

Private Sub gd()
        lst.Clear()
        lst2.Clear()
        ListBox1.Items.Clear()
        ComboBox1.Items.Clear()
        If My.Settings.myfolder.Count > 0 Then
            For Each h As String In My.Settings.myfolder
                If h.Trim <> "" Then
                    ComboBox1.Items.Add(IO.Path.GetFileName(h))
                    lst.Add(h)
                End If
            Next
        End If
        Dim t As String = My.Settings.Appdes
        If t.Trim <> "" Then
            lbltitle.Text = t
        End If
    End Sub