[RaggiTech]

كود :

ListBox1.BeginUpdate()

Dim x As Integer
For x = 1 To 4999
ListBox1.Items.Add("Item " & x.ToString())
Next x

ListBox1.EndUpdate()

سنقوم باضافة 4999 عنصر داخل الأداة ListBox1


قمنا بعمل حلقة For دليلها متغير اسمه X

وجعلنا الخاصية Add التابعة للخاصية Item تقوم بالاضافة باسم العنصر عبارة عن كلمة Item بجانب رقم الدليل الحالي للحلقة For


ولكن دائما ما ننصح باستخدام الخاصية BeginUpdate لتعلم المترجم أنه بدأ التحديث

والخاصية EndUpdate لتعلم المترجم أنه انتهى التحديث

[RaggiTech]

الخاصية DataSource


يمكن أن تحمل أسماء ملفات من مسار محدد

هنا سنحمل كل الملفات ذات الامتداد txt من القرص المحلي C

عن طريق الخاصية DataSource

كود :

ListBox1.DataSource = System.IO.Directory.GetFiles("C:\", "*.txt")

راجع هذا الدرس

http://www.vb4arab.com/vb/showthread.php?t=3413

الخاص بالأداة FolderBrowserDialog


للتعامل معها وتستفيد بها مع الأداة ListBox