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

مشکل در محدود کردن لیست موضوعات


msms

سوال

سلام دوستان لطفا کمکم کنید.

لیست موضوعات من تو اسکرول ویو با این کدها شروع میشه


    'لیست شروع
    Dim h As Int
    
    If File.Exists (File.DirInternal,"all.db") = False Then
        File.Copy(File.DirAssets,"all.db",File.DirInternal,"all.db")
    End If
    
    If s.IsInitialized=False Then
        s.Initialize (File.DirInternal,"all.db",True)
    End If
    
    Dim cur As Cursor
    cur = s.ExecQuery ("SELECT * FROM Main")
    
        
    h= 1%y
    For i = 0 To cur.RowCount-1
        cur.Position = i
        Dim btn As Button
        btn.Initialize("Btn")
        btn.Text = cur.GetString("onvan")
        btn.TextColor = Colors.Black
        btn.Typeface = Typeface.LoadFromAssets("tahoma.ttf")
        btn.Tag  = cur.GetInt("ID")
        Dim b As BitmapDrawable
        b.Initialize(LoadBitmap(File.DirAssets,"button1.png"))
        btn.Background=b
        ScrollView1.Panel.AddView(btn,2%x,h,ScrollView1.Width-4%x,ScrollView1.Height)
        btn.Height = 12%y
        anim.playAnimationObject(btn,"translate",1000,0.5)
        h=h+13%y
    Next
    ScrollView1.Panel.Height = h
    'لیست پایان


    حالا من چطور این لیست رو محدود کنم یعنی چطور کد نویسی کنم برای درون پرداخت؟

(برای لیست ویو بلدم ولی برای این نوع لیست کردن نه؟)   

Dim a As Int
    Position = Position
    If (Position>15) And (File.Exists(File.DirInternalCache,"buy.text") =False) Then
    
        a=Msgbox2("این قسمت در نسخه اصلی","پیام سیستم","الان می خرمش","","پول ندارم",Null)
        If a = DialogResponse.POSITIVE Then
            StartBuy
        End If
        If a = DialogResponse.NEGATIVE Then
    
        End If
    Else
    
        StartActivity("ََa_matn")
    
    End If

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

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

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

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

هنوز برای این سوال پاسخی ارسال نشده است

بایگانی شده

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

مهمان
این موضوع برای عدم ارسال قفل گردیده است.
  • کاربران آنلاین در این صفحه   0 کاربر

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