رفتن به مطلب
  • 0

custom List View کاستوم لیستویو


rohullah guwhaei

سوال

سلام عزیزان

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

اول 3 تا آیتیم را لود میکنه بعد 3 تای دیگه 

اما مشکل این جاست که وقتی دیتابیس به آخر رسید دوباره اون سه تای آخر را هر چه قدر که بری پایین  تکرار میکنه

من میخوام وقتی دیتابس به آخر رسید دیگه تکرار نکنه 

لطفا کمکم کنید

تشکر

    For i=0 To 2
    
        Dim t1 As tSMS
        t1.Initialize
        
        Try
        t1= list1.Get(i)
        Catch
        Return
        End Try
    
        Dim p1 As Panel
        p1.Initialize("")
        scrol1.Add(p1,195dip,"")
        p1.LoadLayout("LBody")
        
        Dim t1 As tSMS
        t1.Initialize
        
        t1= list1.Get(i)
        lblBody.Text = t1.Scontent
        
    Next
    offset = 3
End Sub

Sub scrol1Event_Position(position As Int)

    If offset = list1.Size Then
    Return
    End If
    
    If position+scrol1.Height >=scrol1.PanelHeight Then
        For i=offset To offset+2
        
        Dim t1 As tSMS
        t1.Initialize
        
        Try
        t1= list1.Get(i)
        Catch
        Return
        End Try
        
        Dim p1 As Panel
        p1.Initialize("")
        scrol1.Add(p1,195dip,"")
        p1.LoadLayout("LBody")        
        lblBody.Text = t1.Scontent
        
    Next
    offset = offset +3
    End If
End Sub

 

لینک ارسال
به اشتراک گذاری در سایت های دیگر

2 پاسخ به این سوال تاکنون داده شده است

ارسال‌های توصیه شده

در 4 دقیقه قبل، rohullah guwhaei گفته است :

سلام عزیزان

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

اول 3 تا آیتیم را لود میکنه بعد 3 تای دیگه 

اما مشکل این جاست که وقتی دیتابیس به آخر رسید دوباره اون سه تای آخر را هر چه قدر که بری پایین  تکرار میکنه

من میخوام وقتی دیتابس به آخر رسید دیگه تکرار نکنه 

لطفا کمکم کنید

تشکر

 

این قسمت رو If offset = list1.Size Then  به این صورت تغییر بدین If offset >= list1.Size Then ببینید تغییری میکنه یا نه

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

If offset >= list1.Size Then

محمد رضا جان تشکر

یک دنیا ممنونم حل شد

لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.

  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...