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

[rohullah guwhaei 0]

سلام عزیزان

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

اول 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

 

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

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

سلام عزیزان

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

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

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

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

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

تشکر

 

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

[rohullah guwhaei 0]

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

If offset >= list1.Size Then

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

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