لود کردن صفحه التیمت دار

[muhammad_rad 2]

با سلام دوستان ببخشید یک سوال داشتم

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

    PC.Initialize

    For i =0 To 2

        P.Initialize("")

        P.Color = Colors.White

        If i = 1 Then P.LoadLayout("lytm")

            PC.AddPage(P,"")

        If i = 0 Then p.LoadLayout("settings")

        Next

        AHViewPager1.GotoPage(1,False)

        codes.color(DSTabLayout1)

        AHViewPager1.PageContainer = PC

        AHViewPager1.GotoPage(1,False)

        DSTabLayout1.SetViewPager(AHViewPager1)

        DSTabLayout1.TabIndicatorColor = Colors.White

        DSTabLayout1.SetTabIcon(0,xml.GetDrawable("ic_settings_white_24dp"))

        DSTabLayout1.SetTabIcon(1,xml.GetDrawable("ic_home_white_24dp"))

        DSTabLayout1.SetTabIcon(2,xml.GetDrawable("ic_heart_white_24dp"))

 

به همین دلیل در رویداد پیچ چینج تب کد زیر را نوشتم که اگر به صفحه اول رفت التیمت را لود کنه اما نمیتونم بگم در کدام صفحه لود بشه برای همین همیشه در صفحه اخر لود میشه لطفا کدی بگید که در بالا قرار بدم یا کدی بدید که در پایین بهش بگم که صفحه مورد نظرم را لود بکنه.

 

Sub AHViewPager1_PageChanged (Position As Int)

    Log("pageCehnge=" & Position)

    Log("k="&k)

         If Position = 1 Then

            P.LoadLayout("list")

            crs4 = sq1.ExecQuery ("SELECT * FROM tblTitr WHERE number = 1")

            'اضافه کردن لی اوت به التیمیت

            UL1.AddLayout("newlayout1","ul1_LayoutCreator","ul1_ContentFiller",72dip,True)

            UL1.Color = Colors.Transparent

            'برای رنگی شدن هنگام کلیک

            Dim bk1 As ColorDrawable

            bk1.Initialize(Colors.LightGray,0)

            UL1.PressedDrawable = bk1

            'برای اضافه کردن ایتم به التیمت

            For d = 0 To  crs4.RowCount- 1

            UL1.AddItem("newlayout1",d)

            Next

                  

    End If

End Sub

 

 

ببخشید اگر بد توضیح دادم

اگر سوالی است که متوجه نشدید در خدمتم