list count تعداد رکورد های یک لیست باکس

[hackershz]

با سلام وخسته نباشید به دوستان
من میخوام توی یک لیبل تعداد رکورد هایی که از لیست باکسم پاک شده رو بنویسه
مثلا من یک لیست باکس دارم به فرض مثال د ه تا اسم داره وقتی 5 تا از این اسم ها پاک بشه
لیبلی که مشخصی کردم بشه عدد 5 یعنی 5 تا از لیست پاک شده کسی نیست راهنمایی کنه ؟:اشتباه:

[sh2007]

شما بايد اول تعداد آيتمهاي ليست ا رو توي يه متغير بريزي بعد از اينكه آيتمها حذف شد تعداد ايتمهاي ليست رو از قبلي كم كني تعداد ايتمهاي حذف شده دست مي آيد

[Babak.Hassanpour]

سلام دوست عزیز
اگه تعداد آیتم های لیست از قبل مشخصه و پس از حذف دوباره بهش چیز جدیدی اضافه نمیشه، کافیه یه متغیر تعریف کنی و بعد از هر بار کلیک دکمه حذف یکی به مقدار متغیر اضافه کنی سپس این مقدار رو از تعداد کل آیتم ها کم کنی


ولی اگه اضافه میشه باید به ازای هر آیتم اضافه شده جدید یکی از مقدار متغیر تعریف شده بالا کم کنی و حاصل رو هم از تعداد کل آیتم های لیست باکس کم کنی

[hackershz]

مشخص نیست یه بار 100 رکورد داره یه بار 50 تا داره مثلا من هر بار روی دکمه کلیک میکنم یه تعدا اسم پیدا میشه که نا مشخص است چه جوری بفهمم که چقدر از این لیست حذف کردم میشه یه مثالی بزنی؟

[sh2007]

مي توني برنامه تو بذاري تا تكميلش كنم

[hackershz]

دوست عزیز من فقط از شما یه سوال کردم قرار نیست که پروجه ی خودمو به شما بدم اگه میتونید یه مثال بزنید همین که چه جوری یه اسم رو که از لیست پاک میکنم تعداد پاک کرده ها رو بزنه

[sh2007]

دوست من سلام
كي گفته شما پروژه هات رو روي سايت بذاري !!!!!
ما معمولا مشكلي در يك قسمت برنامه داريم بخاطر ابنكه بتونيم روي اون تمركز كنيم اونو به يه برنامه بسيار كوچيك تبديل مي كنيم و تمام روش خطا و آزمون رو روي اون انجام مي ديدم بعد از موفقيت براحتي كدها رو روي برنامه اصلي پيدا مي كنيم . دوست عزيز منظور من از برنامه اين بود نه پروژه شما چون اصولا ما و دوستان به پروژه هاي ديگران نياز نداريم بلكه هدف اصلي مباحث ايجاد تكنيكها و شگردهاي برنامه نويسي مي باشد
اما درباره چون من خلاصه برنامه ات رو ندارم اينو مي نويسم شايد مشكلت حل شد
Dim intDel as Integer
توي رويداد ليست كليك يا هر رويدادي ديگر
intDel=List1.ListCount
-----------------------------------
توي رويدادي كه از ليست حذف مي شه :
label1.Caption = intDel - list1.listCount

[M_P_1374]

ببخشید ولی به نظر من کد جناب sh2007 نیاز به یه ویرایش داره

این رو بذار جای کدی که توی رویدادی که از لیست حذف میشه و کدش در پست بالا هست


intDel = GetSetting(App.Title,"List Box","Deleted Items",List1.ListCount)
Label1.Caption = intDel - List1.ListCount
SaveSetting App.Title,"List Box","Deleted Items",List1.ListCount

[hackershz]

میشه یه مثال تو وی بی بزنید متوجه نشدم ممنونم از شما دوست عزیز

[xxxxx_xxxxx]

سلام
يك Label رو فرم بزاريد و كپشن رو 0 كنيد.
هر جاي برنامه تون كه RemoveItem داريد بعدش بنويسيد:


Label1.Caption = Val(Label1.Caption) + 1

موفق باشيد/