07-02-20, 09:13 PM
(07-02-20, 08:59 PM)ابو روضة كتب :(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 لاسباب اخرى فقم بتوضيحها
اذا كان هذا الكود صعب عليك اخبرني لاقوم بتغييره
بارك الله فيك أخى الكريم وجزاك كل خير...بالنسبة لليست بوكس فالكود الذى كتبته أنا فوق مختصر أكثر من هذا كما أنه أسرع فى التنفيذ لآن الطريقتينأعرفهم بفضل الله....بالنسبة لليست فيو فأنا فعلا أريدها كى أضع أيقونة بحانب كل مووضوع...والتوضيح فأنا موضح فى الأعلى " أريد جلب هذه العناصر داخل الليست فيو بدلاً من الليست بوكس "
قد يبدو بالكتابة ان كودك مختصر، ويبدو ان الاختصار على ما تعود عليه المبرمج،
الكود الذي يستخدم Linq أسرع، وهو الذي استخدمته انا.
عموما هذا كود الاضافة في الليست فيو
كود :
ListView1.Items.Add(New ListViewItem({System.IO.Path.GetFileNameWithoutExtension(fil)}))
