منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

الصفحات : 1 2

كود :

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

الخاصية DataSource

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

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

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

كود :

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

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

مبدع
بورك فيك

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

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

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

الصفحات : 1 2

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

Blue Sky

Blue Sky

نسمة الفجر

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

فارس جراح