[ابو روضة]

(07-02-20, 08:49 PM)alsalamoni كتب : ما رايك تبقى على 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 لاسباب اخرى فقم بتوضيحها

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

بارك الله فيك أخى الكريم وجزاك كل خير...

بالنسبة لليست بوكس فالكود الذى كتبته أنا فوق مختصر أكثر من هذا كما أنه أسرع فى التنفيذ لآن الطريقتين 

أعرفهم بفضل الله....

بالنسبة لليست فيو فأنا فعلا أريدها كى أضع أيقونة بحانب كل مووضوع...

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