سلکت کردن 10 آیت اول لیست ویو

[iranam 4]

سلام دوستان 

من یه برنامه نوشتم که از دیتا بیس اطلاعاتا میگیره و تو لیست ویو نشون میده

حالا هر تعدادی که باشه

مشکلی که هست اینکه میخوام رنگ 10 آیتم اول  مثلا قرمز بشه  و بقیه آیتم ها مثل قبل باشه 

چیکار باید بکنم؟

حتی توی جدول یه ستون اضافه کردم و مقدار اون 10 تای اولی را گذاشتم 1 و بقیه را 0 ولی اصلا اعمال نمیکنه

ممنون میشم راهنمایی کنید

[پژمان نیکروان 6,054]

سلام

والا فکر نکنم همچین امکانی باشه برای لیست ویو معمولی.

شما جستجو کنید: آلتیمیت لیست ویو، یا آریا لیست ویو و ازاین قبایل چون امکانات اختصاصی کردنشون وجود داره.

[iranam 4]

در 13 ساعت قبل، پژمان نیکروان گفته است :

سلام

والا فکر نکنم همچین امکانی باشه برای لیست ویو معمولی.

شما جستجو کنید: آلتیمیت لیست ویو، یا آریا لیست ویو و ازاین قبایل چون امکانات اختصاصی کردنشون وجود داره.

نه دوست عزیز اینکارا انجام دادم 10 آیتم اولیا قرمز میکنه آیتم 11 میشه آبی و به یکباره بعدش همه آیتم ها آبی میشه تا یه حدی جلو رفتم میدونم که میشه

[softir 459]

در 14 ساعت قبل، iranam گفته است :

نه دوست عزیز اینکارا انجام دادم 10 آیتم اولیا قرمز میکنه آیتم 11 میشه آبی و به یکباره بعدش همه آیتم ها آبی میشه تا یه حدی جلو رفتم میدونم که میشه

راحته شرط بنویس اینجوری

اگر از حلقه اسفاده داری می کنی بنویس <<<

 

اگر I کمتر از 10 پس بیا رنگ رو بکن قرمز

در قیر این صورت بکن آبی

 

[iranam 4]

در 7 ساعت قبل، softir گفته است :

راحته شرط بنویس اینجوری

اگر از حلقه اسفاده داری می کنی بنویس <<<

 

اگر I کمتر از 10 پس بیا رنگ رو بکن قرمز

در قیر این صورت بکن آبی

 

دوست عزیز میشه زحمت بکشی نمونه این سورس که میگی بنویسی

من اینجوری مینویسم  یه ستون مثلا به اسم ("laye") به جدول اضافه کردم و مقدار 10 تای اولی را گذاشتم 1 و بقیه را 0 

بعد داخل حلقه فور به اینصورت نوشتم

dim sd as string

("sd=cur.getstring("laye

if sd<10 then

listviwe.singlelinelayot.lable.color=colors.red

else

listviwe.singlelinelayot.lable.color=colors.blue

end if

اینجوری همونطور که گفتم 10 تای اولی را قرمز میکنه  شماره 11 هم آبی میشه ولی بعدش به کل همه را آبی میکنه

بازم ممنون از پاسخگوییتون

 

 

[محمدرضا شاهپیری 5,302]

کدهای حلقتونو بزارید عزیز

[iranam 4]

در 2 ساعت قبل، محمدرضا شاهپیری گفته است :

کدهای حلقتونو بزارید عزیز

درود بر شما دوست عزیز

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

Sub buuton1_Click
  
    Activity.RemoveAllViews
    "(Activity.LoadLayout("linfo
    infotbl.Enabled=True
    infotbl.Visible=True
    
    
    Dim stronvan As String
   ("cur=sql1.ExecQuery("SELECT * FROM Tbltest
    For i =0 To cur.RowCount-1
        cur.Position=i
       (" stronvan=cur.GetString("Name
        (("infotbl.AddSingleLine2(stronvan,cur.GetString("ID
    Next
    
    infotbl.SingleLineLayout.Label.TextColor=Colors.RGB(13,13,127)
    infotbl.SingleLineLayout.Label.Gravity=Gravity.CENTER
    infotbl.SingleLineLayout.Label.TextSize=25
    infotbl.SingleLineLayout.ItemHeight=150
    
        Dim myfont As Typeface
        myfont=Typeface.LoadFromAssets("qhoma.TTF")
        infotbl.SingleLineLayout.Label.Typeface=myfont
    Dim bit1 As BitmapDrawable
    bit1.Initialize(LoadBitmap(File.DirAssets,"backitmes.png"))
    infotbl.SingleLineLayout.Background=bit1

End Sub

این نمونه کد یکی از آیتم های منه اینم بگم با کاستوم لیست ویو تونستم این کاری که میخوام انجام بدم ولی سرعتش نسبت به لیست ویو معمولی افتضاحه نزدیک 20 ثانیه طول میکشه تا بتونه یه لیست 200 آیتمی را لود کنه

[محمدرضا شاهپیری 5,302]

ببینید هموطن این چیزا خیلی ساده ان. منتها تلاش نمیکنید و خلاقیتتون رو به کار نمیگیرید

شما میخواین مثلا دهتای اول یه لیست ویویی که مقادیرش توی یه آرایه داده میشه رو مثلا قرمز کنید. 

خب این کجاش سخته. اعداد حلقه رو که دارین کافیه چک کنین کمتر از ده باشه.

dim lbl as lable=infotbl.SingleLineLayout.Label
for i=0 to cur.RowCount-1
if i<=9 then
        lbl.textColor=Colors.Red
        ' یا هر بلایی که میخوای سر اون دهتا اول بیاری اینجا انجام بده
        else
        lbl.textColor=Colors.Black
  End If

Next

 

[iranam 4]

در 36 دقیقه قبل، محمدرضا شاهپیری گفته است :

ببینید هموطن این چیزا خیلی ساده ان. منتها تلاش نمیکنید و خلاقیتتون رو به کار نمیگیرید

شما میخواین مثلا دهتای اول یه لیست ویویی که مقادیرش توی یه آرایه داده میشه رو مثلا قرمز کنید. 

خب این کجاش سخته. اعداد حلقه رو که دارین کافیه چک کنین کمتر از ده باشه.

dim lbl as lable=infotbl.SingleLineLayout.Label
for i=0 to cur.RowCount-1
if i<=9 then
        lbl.textColor=Colors.Red
        ' یا هر بلایی که میخوای سر اون دهتا اول بیاری اینجا انجام بده
        else
        lbl.textColor=Colors.Black
  End If

Next

 

دوست عزیز من کلا یک ماهه شروع کردم  به برنامه نویسی برا همین هنوز برنامه نویسیا کامل درک نکردم ببخشید اگه سوالام کمی ابتداییه

دوست عزیز اینکارا قبلا انجام دادم  میاد 10 تای اولی را قرمز میکنه  بعد 11 همی را مشکی میکنه و به یکباره همشونا مشکی میکنه واقعا دیگه گیج شدم اگه میدونید آریا لیست ویو یا ویو دیگه ای این کارا انجام میده بهم معرفی کنید فقط با کاستوم تونستم این کارا بکنم که اونم سرعتش خیلی پایینه و برا 1000 آیتم 20 ثانیه طول میکشه حتی لیمیت هم کردم ولی تا لیمیت تموم میشه دوباره از اول لود میکنه مثل یه حلقه بینهایت شاید هم لیمیت من اشتباه باشه  بی زحمت راهنماییم کنیید ممنونم

[iranam 4]

در 14 ساعت قبل، iranam گفته است :

دوست عزیز من کلا یک ماهه شروع کردم  به برنامه نویسی برا همین هنوز برنامه نویسیا کامل درک نکردم ببخشید اگه سوالام کمی ابتداییه

دوست عزیز اینکارا قبلا انجام دادم  میاد 10 تای اولی را قرمز میکنه  بعد 11 همی را مشکی میکنه و به یکباره همشونا مشکی میکنه واقعا دیگه گیج شدم اگه میدونید آریا لیست ویو یا ویو دیگه ای این کارا انجام میده بهم معرفی کنید فقط با کاستوم تونستم این کارا بکنم که اونم سرعتش خیلی پایینه و برا 1000 آیتم 20 ثانیه طول میکشه حتی لیمیت هم کردم ولی تا لیمیت تموم میشه دوباره از اول لود میکنه مثل یه حلقه بینهایت شاید هم لیمیت من اشتباه باشه  بی زحمت راهنماییم کنیید ممنونم

دوستان ممنون از وقتی که برای مشکل من گذاشتید بلاخره تونستم حلش کنم  با استفاده از کاستوم لیست ویو و لیمیت دادن به برنامه مشکلم حل شد ممنون