+ سورس کد تعویض پنل با مولتی تاچ

[keramat98 82]

سلام . من توی یکی از سایت های خارجی یک سورس کد تعویض پنل با مولتی تاچ مثل بازار و ... پیدا کردم :

Sub Process_Globals
   Dim FILL_PARENT As Int : FILL_PARENT = -1
   Dim WRAP_CONTENT As Int : WRAP_CONTENT = -2
   Dim CurrentPage As Int : CurrentPage = 0
   Dim gPageNumber As Int : gPageNumber = 0
End Sub
Sub Globals
   Dim container As AHPageContainer ,fixedTabs As AHViewPagerFixedTabs,pager As AHViewPager
   Dim spTheme As Spinner , bg As BitmapDrawable , pan As Panel,line As Panel , lab As Label
End Sub
Sub Activity_Create(FirstTime As Boolean)
   container.Initialize
   For i = 0 To 3
       pan = CreatePanel("")
       container.AddPage(pan,"صفحه ")
       gPageNumber = i+1
   Next
   pager.Initialize(container, "Pager")
   fixedTabs.Initialize(pager)
   fixedTabs.UpperCaseTitle = True
   Activity.AddView(fixedTabs, 0, 0, 100%x, 60dip)
   Activity.AddView(pager, 0, 60dip, Activity.Width, Activity.Height-108dip)
End Sub
Sub Activity_Resume
   pager.GotoPage(CurrentPage, False)
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub CreatePanel(Title As String) As Panel
   pan.Initialize("")
   bg.initialize (LoadBitmap(File.DirAssets,"bg.jpg"))
   pan.Background = bg
   lab.Initialize("")
   lab.Text = Title
   lab.TextSize = 16
   lab.Gravity = Gravity.CENTER
   pan.AddView(lab, 0, 0, FILL_PARENT, FILL_PARENT)
   Return pan
End Sub

اولین اینکه گذاشتم بقیه هم استفاده کنن و بعد خودمم یک مشکلاتی دارم . اونم اینه که چجوری واسه هر پنل چیزی اضافه کنم و اینکه اون نام بالا که صفحه است واسه هر کدوم چگونه نام جدید بزارم که با هم فرق کنه ؟

تصویر :

کتابخانه.rar

[مجید آرتا 5,874]

این قسمت کد رو ببینید :

[b]    For i = 0 To 3
       pan = CreatePanel("")
       container.AddPage(pan,"صفحه ")
       gPageNumber = i+1
   Next[/b]

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

[keramat98 82]

خوب اینجا رو میدونم اما خودم که اضافه میکنم برنامه تا باز میکنم بسته میشه *laugh2* . میشه یک مثال بزنید برای همین منو بالا ؟

[مجید آرتا 5,874]

اینجوری نمیشه شما سورس رو پوست کنید بنده عملا تست کنم به شما بگم *herher*

[keramat98 82]

خوب الان

container.Initialize

       pan = CreatePanel("")
       container.AddPage(pan,"صفحه اصلی")
       container.AddPage(pan,"آخرین ارسالی ها")
       container.AddPage(pan,"درباره ما")

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