[alsalamoni]

(07-02-20, 08:05 PM)ابو روضة كتب :

السلام عليكم ورحمة الله وبركاته

أخوتى معايا هذا الكود لجلب عناصر داخل الليست بوكس وأريدهم  أن يكونوا داخل ال الليست فيو

كود :

Dim dir As String = Application.StartupPath & "\files\"
       Dim sss As String = dir
       For Each fil In System.IO.Directory.GetFiles(sss)
           ListBox1.Items.Add(System.IO.Path.GetFileNameWithoutExtension(fil))
           lst.Add(fil)
       Next

وهى ملفات html أقمت بتحميلها من مواقع وبقوم بقرائتها داخل الويب براوزر وبجلبها من مجلد اسمه files..

فما هو الكود الذى يضعه هذه الملفات داخل الليست فيو بحيث لما أضغط

على موضوع مثلا يتم قرائته داخل الويب براوزر ؟ 

فحينما أجلبهم داخل الليست بوكس هكذا

واقوم بالنقر على أى اسم موضوع ينقلنى اليها مباشرة داخل الويب براوزر

ما رايك تبقى على ListBox وتستغني عن lst بهذه الطريقه المختصرة
كود قراءة الملفات وتعبئة الليست بوكس

كود :

Dim items =
   From x As String In IO.Directory.GetFiles(Application.StartupPath & "\files\")
   Select New With {.Title = IO.Path.GetFileNameWithoutExtension(x), .Filename = x}
ListBox1.DataSource = items.ToArray
ListBox1.DisplayMember = "Title"
ListBox1.ValueMember = "Filename"
ListBox1.SelectedIndex = -1

حدث الاختيار من الليست بوكس

كود :

Private Sub ListBox1_MouseClick(sender As Object, e As MouseEventArgs) Handles ListBox1.MouseClick
   Dim filename = ListBox1.SelectedValue
   If filename IsNot Nothing Then
       WebBrowser1.Navigate(filename)
   End If
End Sub

اذا كنت تريد ListView لاسباب اخرى فقم بتوضيحها

اذا كان هذا الكود صعب عليك اخبرني لاقوم بتغييره