نشان ندادن عنوان تب هاست نوشته شده با ahviewpager

[amir mahdizadeh 109]

سلام به همه

من طبق اموزش این برنامه رو انجام دادم اما عنوان تب ها رو نشون نمیده ممنون میشم کمکم کنید

Sub Globals
	'These global variables will be redeclared each time the activity is created.
	'These variables can only be accessed from this module.
	Dim con As AHPageContainer
	Dim pager As AHViewPager
	Dim tabs As AHViewPagerTabs
	
	Dim id_page1 As Int = 1
	Dim id_page2 As Int = 2
	Dim id_page3 As Int = 3
End Sub

Sub Activity_Create(FirstTime As Boolean)
	'Do not forget to load the layout file created with the visual designer. For example:
	'Activity.LoadLayout("Layout1")
	con.Initialize
	
	Dim i As Int
	For i = 1 To 3	
		Dim pan As Panel	

		Select Case i
			Case 1
				
				pan = createpanel(id_page1)
				con.AddPage(pan,"page1")
				
			Case 2
				pan = createpanel(id_page2)
				con.AddPage(pan,"page2")
			Case 3 
				pan = createpanel(id_page3)
				con.AddPage(pan,"page3")
		End Select
	Next
	pager.Initialize(con,"pager")
	tabs.Initialize(pager)
	Activity.AddView(tabs,0,0,-1,-2)
	Activity.AddView(pager,0,0,100%x,100%y)
End Sub

Sub Activity_Resume

End Sub

Sub createpanel(typepanel As Int) As Panel
	Dim p As Panel
	p.Initialize("")
	p.Color = Colors.DarkGray
	Dim lab As Label
	lab.Initialize("lab")
	lab.Color = Colors.Blue			
	Select Case typepanel
		Case id_page1			
			lab.Text = "salam"
			p.AddView(lab,0,20%y,30%x,75%y)		
		Case id_page2
			lab.Text = "22chetori"	
			p.AddView(lab,0,20%y,30%x,75%y)			
		Case id_page3
			lab.Text = "khubam"
			p.AddView(lab,0,20%y,30%x,75%y)	
		End Select
	Return p
End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

منظورم همون قسمتیه که page1,page2,page3 رو نوشتم

[amir mahdizadeh 109]

سلام

این اموزش رو ببینید :

http://answercenter.ir/topic/7838-%D8%A2%D9%85%D9%88%D8%B2%D8%B4-%D8%AA%D8%B5%D9%88%DB%8C%D8%B1%DB%8C-%DA%A9%D8%A7%D8%B1-%D8%A8%D8%A7-ahviewpager/

خیلی ممنون مجید جان اما من دقیقا از همین اموزش استفاده کردم همه چیز رو هم دقیقا عین اموزش انجام دادم اما نمی دونم این مشکل چیه ؟!!

ممنون میشم کمکم کنید

[پژمان نیکروان 6,055]

سلام

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

این سورس رو یه نگاه بندازید متوجه میشید.

http://s6.picofile.com/file/8239891742/_ViewPager.zip.html

[amir mahdizadeh 109]

سلام

من طبق این آ»وزش هم جلو رفتم اما بازم نشد و عنوان ها رو نشون نمیده

روی 3 تا گوشی تست کردم روی یکی نشون داد اما روی دو تای دیگه همچنان نشون نمیده؟؟؟

چرا اینطوریه؟؟

باید چکتر کنم لطفال کمکم کنید

Sub Activity_Create(FirstTime As Boolean)

	   Dim Pan(3) As Panel
				
				Pan(0).Initialize("")
				Pan(1).Initialize("")
				Pan(2).Initialize("")
				'Initialize the panels we use for the pages and put them in the container
	   Container.Initialize
				
				Pan(0).LoadLayout("tab1")
				Container.AddPageAt(Pan(0), "آزمایش ادرار", 0)
				
				Pan(1).LoadLayout("tab1")
				Container.AddPageAt(Pan(1), "آزمایش مدفوع " , 1)
				
				Pan(2).LoadLayout("tab1")
				Container.AddPageAt(Pan(2), "آزمایش خون", 2)
				
	   'Now we have a container with our panels just add it to the pager object
	   Pager.Initialize(Container, "Pager")
	
	   'As we want to show the tabs page indicator, we initialize it
	   Tabs.Initialize(Pager)
	   Tabs.LineHeight = 20dip
				Tabs.LineColorCenter = Colors.Red	
				Tabs.TextColor = Colors.Black
				Tabs.TextColorCenter = Colors.Blue
				Tabs.TextSize=20

				Activity.AddView(Tabs, 0dip, 60dip, 100%x, 100%y)
				
	   'We add a line below the tab page indicator because it looks good
	   Dim Col As ColorDrawable
	
	   Col.Initialize(Colors.Green, 0)
	
	   Line.Initialize("")
	   Line.Background = Col
	
	   Activity.AddView(Line, 0dip, 35dip, Activity.Width, 2dip)				
	
	   'Now we can add the pager to the activity
	   Activity.AddView(Pager, 0dip, 90dip, Activity.Width, Activity.Height - 30dip)
				
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause(UserClosed As Boolean)

End Sub

'##########################
'######## Routines ########
'##########################

Sub Pager_PageChanged(Position As Int)

				ToastMessageShow(Position, False)

End Sub

'This event gets called when the ViewPager instantiates the page. In this sub you can update the content
'of the page or even load a layout.
'Have a look in the logs to see when Pager_PageCreated and Pager_PageDestroyed are called.
Sub Pager_PageCreated(Position As Int, Page As Object)
				
End Sub

'This event gets called when the ViewPager destroys the page. Here you can free large bitmaps etc to save memory.
Sub Pager_PageDestroyed (Position As Int, Page As Object)

End Sub

این هم  از کد هام

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

سلام

این اموزش رو ببینید :

http://answercenter.ir/topic/7838-%D8%A2%D9%85%D9%88%D8%B2%D8%B4-%D8%AA%D8%B5%D9%88%DB%8C%D8%B1%DB%8C-%DA%A9%D8%A7%D8%B1-%D8%A8%D8%A7-ahviewpager/