كيف نتعامل مع الليست بوكس؟

[عبدالعزيز محمد]

السلام عليكم ورحمة الله وبركاته

في الليست بوكس كيف يمكننا عمل ما يأتي:

1-الانتقال إلى آخر سطر-أول سجل.كما الانتقال الى أول سطر 

2- هل يمكننا عد الأسطر التي بالليست بوكس؟

3-وكذلك هل يمكننا القيام بعمليات مثل الجمع فأحيانا نجد أن الليست بوكس يحتوي على عدة أعمدة ونود جمع احد الاعمدة؟

نأمل من عنده مرجع في الموضوع بالعربي فلا يحرمنا منه 

[أبو حنــــين]

السلام عليكم

كل هذا ممكن :

للإنتقال الى أول سطر في الليست بوكس نكتب : ListBox1.ListIndex = 0

للإنتقال الى آخر سطر في الليست بوكس نكتب : ListBox1.ListIndex = ListBox1.ListCount - 1

لحساب عدد الأسطر نكتب : TextBox1 = ListBox1.ListCount

لجمع عمود معين و ليكن العمود الرابع مثلا مع العلم ان بداية حساب الاعمدة تبدأ من الصفر و ليس الواحد نكتب ما يلي :

Dim i As Long
TextBox1 = ""
For i = 0 To ListBox1.ListCount - 1
TextBox1.Value = Val(TextBox1) + Val(ListBox1.List(i, 4))
Next

 

 

[عبدالعزيز محمد]

بارك الله فيك

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

تم تعديل يونيو 12, 2016 بواسطه عبدالعزيز محمد-محب البرمجة

[أبو حنــــين]

لتنسيق مربع النص بنمط معين نكتب التالي :

TextBox1 = Format(TextBox1, "......")

ثم مكان النقاط ".........." نكتب التنسيق الذي نريده مثلا للتاريخ يصبح شكل الكود كالآتي :

TextBox1 = Format(TextBox1, "dd-mm-yyyy")

و هكذا مع بقية انواع التنسيقات

[محسن33]

الأخ أبو حنين

السلام عليكم

ياليت مثال على الكود

Dim i As Long

TextBox1 = ""

For i = 0 To ListBox1.ListCount - 1

TextBox1.Value = Val(TextBox1) + Val(ListBox1.List(i, 4)) Next

NEXT

 

[أبو حنــــين]

هذا مثال على كل ما طلبت في ملف واحد

 

مثال.rar

[عبدالعزيز محمد]

بارك الله فيك أوحنين وهذا هو المطلوب بقية كيف نضيف علامة العملة الدينار مثلا

ياريت لو أجد مرجع العربي يتحدث عن أودوات الفورم وخصائصها وطرق تنسيقها