[Blue Sky]

كود :

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 لتعلم المترجم أنه انتهى التحديث

[Blue Sky]

الخاصية DataSource

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

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

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

كود :

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

منقول عن العضو BaderMedia

[نسمة الفجر]

مبدع
بورك فيك

[العواد الصغير]

جزاك الله  خيرا

[فارس جراح]

مجهود رائع تسلم ايدك لكن طريقة حفظ النص المكتوب داخل ListBox في مستند نصي 

ياريت تتكرم علي بشرحها