الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

سؤال في أداه Checkedlstbox في الفيجوال بيسك.نت 2008

بدأه cio في 6 يونيو 2009 · 4 رد · 490 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم ورحمه الله

أريد المساعدة في مسألة ...إن شاء الله سهله عليكم

لأن عقلي توقف عن التفكير حالياً :D

فأنا برمجت أداه

To Do List

زي المفكرة الالكترونية يدون فيها المستخدم ما يريد

الحمد لله أنا تقريبا انتهيت من عمل هذه الأداه بشكل بسيط على مستواي

طبعا بدون استخدام الداتا بيس لحفظ المهام بعد الاغلاق ..لأني لم ادرسها بعد

ولكن بقي لي شيئين لم أستطع عملهما

وأريد مساعدتكم

لا حرمكم الله الأجر

وهما:

انني استخدمت أداه

checked list box

وعملت عداد يعد كل مهمه أُدخلت ...وعند عمل

check

على احدى المهمات ينقص العداد بواحد1 ...وهذا تمام!!ولكن عند عمل تشيك على المهمه نفسها اكثر من مرة

يفضل ينقص العداد الى الصفر0 ...لا اعرف مالحل صراحة

لأني لا أعرف كيف أتعامل مع هذه الاداه

والشيء الثاني لو اردت ان أتراجع عن هذا

check

المفروض العداد يزيد ب1 ويرجع زي اول

؟؟

فحاولت اسوي الكود ب

if

ولكن لم ينجح معي

--------------------

أتمنى أن يكون سؤالي واضح.... والرد سريع

مع شكري

:)

#2

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

فهمت من سؤالك أن عدد المهمات هو بعدد الـ checked list box وان كان كذلك فأرى أن افضل طريقة لعد المهمات التي أنجزت هو عمل دوارة مثل For ...... Next تعد الـ Checked List Box التي تم اختيارها ويكون هذا في الحدث الخاص بـ إختيار الـ Checked List Box . أتمنى أن يكون الموضوع واضح وإن لم يكن فرد عليا هنا .

#3

أهلا أخي ...وشكرا على الرد

أنا بشرح لك وش سويت بالكود وإذا ما فهمت أرسلك الملف كله وانت تشوف

أولا : أنا عرفت العداد كـ Label واعطيته قيمه ابتدائية بصفر ...يعني شكل العداد كذا 0\0 أي label1 label2 label3

>>طريقه تفكير بسيطة جدا :blush:

بعدين حطيت هذا الكود

Private Sub CheckedListBox1_ItemCheck(ByVal sender As Object, ByVal e As System.Windows.Forms.ItemCheckEventArgs) Handles CheckedListBox1.ItemCheck
		If Label1.Text > 0 Then
			Label1.Text -= 1
		End If
	End Sub

يعني إذا كان label1 اكبر من الصفر معناته نقص لأني في كود الاضافه كتبت انه بعد الاضافه زود العداد

Private Sub Add_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Add.Click

		CheckedListBox1.Items.Add(TextBox1.Text)
		Label1.Text += 1
		Label3.Text += 1
		TextBox1.Clear()

	End Sub

أتمنى أكون وضحت المطلوب ...

#4

لا أحد يعرف!!!

:(

#5

مرحباً أخي, أختي الكريمـ(ـة),

لمعرفة عدد العناصر الموجودة في الـ( CheckedListBox ) يمكنك الإستعلام عن ذلك بقراءة قيمة الخاصية ( Count ) للـ( Items ) أي :

Label1.Text = "We got " + CheckedListBox1.Items.Count + " task(s)"

ولمعرفة عدد العناصر المراد التذكير بها أي قيمة الخاصية ( Checked ) لذلك العنصر ( Item ) تساوي ( True ) فيمكن الإستعلام عن ذلك بقراءة الخاصية ( Count ) للـ( CheckedItems ) اي :

Label.Text = "We got " + CheckListBox1.CheckedItems.Count + " task(s) to do"

لإستفارات أخرى, أرجو الشرح بشكل أدق, وشكراً .

بالتوفيق

تم تعديل هذه المشاركة بواسطة Bashar Rabat في 7 يونيو 2009 في 00:33

The important thing is not so much

that every child should be taught,

as that every child should be given the wish to learn.

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…