عندما أضغط على حفظ التاريخ يقوم بإدراج التاريخ إلى List

أخي الكريم ، هل التنسيق الموضح بالصورة هي مجموعة من الأدوات المنسقة ( Combo-Option-Text ) بواسطتك ، أم أنها آداة جاهزة ؟؟؟؟؟

فإذا كانت آداة جاهزة ومشكلتك في التعرف علي جلب التاريخ فأتمني من إرفاق البرنامج كي تطضح الصورة للجميع . أما إذا كان مجموعة من الأدوات العامة فإليك الكود :

أخي الكريم ، بوجة عام إذا أحببت إضافة أي قيمة بآداة ListBox أو ComboBox يمكنك بإستخدام الأمر التالي :

List1.AddItem "عنصر 1"
List1.AddItem "عنصر 2"
List1.AddItem "عنصر 3"

وإذا كنت ترغب في تحديث عنصر معين ، علي سبيل المثال ( عنصر 2 ) يمكنك بالكود التالي :

List1.List(1) = "Ahmed"

حيث أن الرقم ( 1 ) يمثل موقع العنصر الذي يحتوي علي مجموعة من العناصر التي تبدأ من صفر حتي عدد العناصر - 1 ، بمعني أدق قمنا بإضافة ثلاثة عناصر ( عنصر1 - عنصر2 - عنصر3 ) ، يبدأ من 0 وينتهي بالقيمة 2 .

أما إذا كنت ترغب في حذف عنصر فبالأمر RemoveItem ، أما إذا كنت ترغب في مسح كافة العناصر فبالأمر Clear .

أما بالنسبة لمتطلباتك فالأمر أبسط مما تتخيل :

نفترض أن الكومبو الذي يعرض السنة تحت إسم cmbYear ، أما الكومبو الذي يعرض الشهر تحت إسم cmbMonth ، أما بالنسبة لبقية الأدوات فهي مجموعة من الـ Options وقمت بإضافة متغير لحمل قيمة اليوم الشهري مثلاً intDay ، ويتم ضبطها من خلال حدث Click بمربعات الإختيار Options .. المطلوب كيفية الربط بين العنصرين والمتغير ( intDay ) :

Dim strDate As String

strDate = Trim(CStr(intDay)) & " "
strDate = strDate & cmbMonth.Text & ","
strDate = strDate & cmbYear.Text

List1.AddItem strDate
List1.ListIndex = List1.ListCount - 1

أتمني أن أكون وضحت لك الفكرة بوجة عام

وشكراً