رفتن به مطلب
برای استفاده از انجمن و عضـویت کلیک کنید.

پست های پیشنهاد شده

سجاد مروی    338

دپارتمان مدیریت

سلام دوستان در این آموزش " https://learn-net.ir/topic/1237-%D8%A2%D9%85%D9%88%D8%B2%D8%B4-%D9%85%D8%AA%D8%B1%DB%8C%D8%A7%D9%84-%D8%A8%D8%A7-%D8%AF%DB%8C%D8%B2%D8%A7%DB%8C%D9%86-%D8%B3%D8%A7%D9%BE%D9%88%D8%B1%D8%AA/ " فهمیدیم که چطور با ahviewpager تب هاسست بسازیم . ولی چطوری در هر صفحه یک لایوت را فراخوانی کنیم ؟ اصلا چه کدی و در کجا ؟

پیشاپیش ممنون

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


لینک به ارسال
محمد جنگجو    469

دپارتمان مدیریت

سلام اول یک پنل بساز (حالا میتونی توی لایوت اصلی پنل رو بسازی یا هم کد زیر رو به activaty_create اضافه کنی )

Dim p As Panel
p.Initialize("p")

و بعد لایوت مورد نطر رو توی پنل load کن

p.LoadLayout("layout_morednazar")

و بعد کد زیر رو رو اضافه کن

pc.AddPage(P,"تب اول")

واسه هر کردوم از لایوت ها ی پنل جدا بساز و لایوت رو داخلش لود کن و طبق کد اخر اضافش کن 

 

 

*************************

Sub Globals
​Private pc As AHPageContainer
end sub

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

  • پسندیدم 1

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


لینک به ارسال

برای ارسال دیدگاه یک حساب کاربری ایجاد کنید یا وارد حساب خود شوید

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

ایجاد یک حساب کاربری

برای حساب کاربری جدید در سایت ما ثبت نام کنید. عضویت خیلی ساده است !

ثبت نام یک حساب کاربری جدید

ورود به حساب کاربری

دارای حساب کاربری هستید؟ از اینجا وارد شوید

ورود به حساب کاربری

  • مطالب مشابه

    • توسط qwe1
      سلام
      یه برنامه دارم میخوام tabhost رو اسکرول افقی و AHviewpager رو اسکرول عمودی (البته ویوهایی که در  AHviewpager قرار میگره رو میگم و منظورم اسکرول عمودی اون لایوتی که در AHviewpager لود میشه هست) بکنم
      لطفا کمک کنید...
      این هم سورسش...
      لینک دانلود
    • توسط سجاد مروی
      سلام دوستان

      من در یک تاپیک دیگه این مشکل رو مطرح کردم که نتیجه ای نداشت!

       

      گفتم تو یک تاپیک مخصوص مطرح کنم اساتید بلاخره حلش کنند.

       

      من با ahviewpager چند تا پتل ساختم که تو همش یک لایوت حاوی scrollview تمام صفحه ، لود میشه.

      در اسکرول ویو هم با دستور زیر یک lable ادد میکنم:


      scrollview1.panel.addview(lable1,0,0,100%x,100%y)
      scrollview1.heaght = 100%y
      scrollview1.withe = 100%x

      و به لیبل هم یک متن طولانی میدم!تا اینجا همچی منطقی و باید در هر صفحه متن طولانی اسکرول بخوره!

      ولی نمیشه! متن اسکرول نمیخوره ! (نمایش داده میشه)

       

      این هم کد های اکتیویتی کریت :


      Sub Activity_Create(FirstTime As Boolean)
      'Do not forget to load the layout file created with the visual designer. For example:
      Activity.LoadLayout("reading_part")

      'Initialize a PageContainer Object with 3 pages. Each page contains a panel with different color
      PC.Initialize
      For i = 0 To 4
      Dim p As Panel

      p.Initialize("")
      p.Color = Colors.White
      p.LoadLayout("scroll_view")
      matn_roman.Initialize("")
      sv.Panel.AddView(matn_roman,0,0,100%x,100%y)
      tx.LongText(matn_roman,matn_roman.Text,16,sv,30)




      matn_roman.TextColor = Colors.Black



      Select i




      Case 0


      If fehrest_fasl.fasl = "fasl1" Then
      matn_roman.Text = File.ReadString(File.DirAssets , "fasl1-part5.txt")

      Else If fehrest_fasl.fasl = "fasl2" Then
      matn_roman.Text = "متن قسمت 5 از فصل 2"

      Else If fehrest_fasl.fasl = "fasl3" Then
      matn_roman.Text = "متن قسمت 5 از فصل 3"

      Else If fehrest_fasl.fasl = "fasl4" Then
      matn_roman.Text = "متن قسمت 5 از فصل 4"

      End If
      PC.AddPage(p,"قسمت 5")


      '-----------------------------------------------------------


      Case 1

      If fehrest_fasl.fasl = "fasl1" Then
      matn_roman.Text = File.ReadString(File.DirAssets , "fasl1-part4.txt")

      Else If fehrest_fasl.fasl = "fasl2" Then
      matn_roman.Text = "متن قسمت 4 از فصل 2"

      Else If fehrest_fasl.fasl = "fasl3" Then
      matn_roman.Text = "متن قسمت 4 از فصل 3"

      Else If fehrest_fasl.fasl = "fasl4" Then
      matn_roman.Text = "متن قسمت 4 از فصل 4"

      End If
      PC.AddPage(p,"قسمت 4")


      '-----------------------------------------------------------


      Case 2

      If fehrest_fasl.fasl = "fasl1" Then
      matn_roman.Text = File.ReadString(File.DirAssets , "fasl1-part3.txt")

      Else If fehrest_fasl.fasl = "fasl2" Then
      matn_roman.Text = "متن قسمت 3 از فصل 2"

      Else If fehrest_fasl.fasl = "fasl3" Then
      matn_roman.Text = "متن قسمت 3 از فصل 3"

      Else If fehrest_fasl.fasl = "fasl4" Then
      matn_roman.Text = "متن قسمت 3 از فصل 4"

      End If
      PC.AddPage(p,"قسمت 3")


      '-----------------------------------------------------------


      Case 3

      If fehrest_fasl.fasl = "fasl1" Then
      matn_roman.Text = File.ReadString(File.DirAssets , "fasl1-part2.txt")

      Else If fehrest_fasl.fasl = "fasl2" Then
      matn_roman.Text = "متن قسمت 2 از فصل 2"

      Else If fehrest_fasl.fasl = "fasl3" Then
      matn_roman.Text = "متن قسمت 2 از فصل 3"

      Else If fehrest_fasl.fasl = "fasl4" Then
      matn_roman.Text = "متن قسمت 2 از فصل 4"

      End If
      PC.AddPage(p,"قسمت 2")


      '-----------------------------------------------------------


      Case 4

      If fehrest_fasl.fasl = "fasl1" Then
      matn_roman.Text = File.ReadString(File.DirAssets , "fasl1-part1.txt")

      Else If fehrest_fasl.fasl = "fasl2" Then
      matn_roman.Text = "متن قسمت 1 از فصل 2"

      Else If fehrest_fasl.fasl = "fasl3" Then
      matn_roman.Text = "متن قسمت 1 از فصل 3"

      Else If fehrest_fasl.fasl = "fasl4" Then
      matn_roman.Text = "متن قسمت 5 از فصل 4"

      End If

      PC.AddPage(p,"قسمت 1")


      '-----------------------------------------------------------

      End Select
      Next






      'Set the PageContainer for the ViewPager
      VP.PageContainer = PC
      VP.GotoPage(4,False)

      'Set colors. The indicator color defaults to "colorAccent"
      Dim ac As AppCompat
      TabLayout.Color = Colors.RGB(233,30,99)
      TabLayout.TabIndicatorColor = Colors.White
      ToolBar.Color = Colors.RGB(233,30,99)
      TabLayout.SetTabTextColors(Colors.White , Colors.White)
      'TabLayot.TabIndicatorColor = Colors.White

      'Connect the TabLayout with the Viewpager.
      'This will create the tabs and will keep tabs and pages
      'in sync and creates a nice indicator animation.
      TabLayout.SetViewPager(VP)


      ToolBar.Title = ""

      End Sub

       ممنون میشم دوستان این مشکلو برای همه حل کنید.

      با تشکر!

    • توسط viki0028
      درودی دوباره به تمامی اساتید
       
      درخواست تب هاست راست چین شده را دارم
       
      متاسفانه آموزش کاملی در این مورد در سطح اینترنت من پیدا نکردم . هرچی هم هست دست و پا شکسته است
       
      اگه برای اساتید بخش آموزش مقدور هست در این زمینه یه فیلم آموزشی قرار دهید
       
      فقط اینو میدونم که با appcompat  و اضافه کردن یک خط کد در مانیفست میشه این کار رو انجام داد ولی خوب نحوه انجامش رو هنوز ندیدم کسی پیاده کنه
       
      به عنوان مثال در یک تب هاست که از 3 تا تب استفاده میکنه چیکار باید انجام بدیم که شروع صفحه از تب سمت راست باشه........نه از تب سمت چپ
       
       
      با سپاس و خسته نباشید
    • توسط hamidmatris
      سلام دوسنان من سمپل کتابخانه AHViewPager  رو از سایت خودتون دانلود کردم و مئقع کمپایل برنامه این خطا رو میده
       

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

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

×