سورس تب هاست با قابلیت اسکرول و سوآیپ در بیسیک فور اندروید

[MR.B4A 252]

اگر پروژه تان دارای صفحات مختلفی است که تمایل ندارید کاربر از این اکتیویتی به آن اکتیویتی برود، میتوانید از این سورس استفاه کنید.

با استفاده از سورس زیر میتوانید یک تب هاست بسیار کاربردی برای پروژه خود پیاده سازی کنید.

ویژگی ها
سوآیپ کردن
اسکرول کردن
قابلیت اضافه کردن تب های متعدد

کدها:

Sub Process_Globals
	Private t_char As Timer
End Sub

Sub Globals
	Private TabStrip1 As TabStrip
	Private B4XPageIndicator1 As B4XPageIndicator
	
	Private x_char,y_char As Int
	
	Private ScrollView1 As ScrollView
	Private Button2 As Button
	Private ListView1 As ListView
	Private img_run As ImageView
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("page1_main")

	t_char.Initialize("t_char",500)
	
	TabStrip1.LoadLayout("Page1", "pictures")
	TabStrip1.LoadLayout("Page2", "scrolling")
	TabStrip1.LoadLayout("Page3", "AND PAGE 3")

	Activity.AddMenuItem("Jump to page 1", "mnu1")
	Activity.AddMenuItem("Jump to page 2", "mnu2")
	Activity.AddMenuItem("Jump to page 3", "mnu3")
	
	ScrollView1.Panel.LoadLayout("scrolling_page")
	ScrollView1.Panel.Height = Button2.Top + Button2.Height + 15dip
	
	ListView1.Color=Colors.RGB(123, 31, 162)
	ListView1.SingleLineLayout.Label.TextColor=Colors.Black
	ListView1.SingleLineLayout.Label.TextSize=20
	ListView1.AddSingleLine("BASIC4ANDROID")
	ListView1.AddSingleLine("BASIC4ANDROID")
	ListView1.AddSingleLine("BASIC4ANDROID")
	ListView1.AddSingleLine("BASIC4ANDROID")
	ListView1.AddSingleLine("BASIC4ANDROID")
	ListView1.AddSingleLine("BASIC4ANDROID")
	ListView1.AddSingleLine("BASIC4ANDROID")
	ListView1.AddSingleLine("BASIC4ANDROID")
	ListView1.AddSingleLine("BASIC4ANDROID")
	ListView1.AddSingleLine("BASIC4ANDROID")
	ListView1.AddSingleLine("BASIC4ANDROID")
	ListView1.AddSingleLine("BASIC4ANDROID")
	ListView1.AddSingleLine("BASIC4ANDROID")
	ListView1.AddSingleLine("BASIC4ANDROID")
	ListView1.AddSingleLine("BASIC4ANDROID")
	ListView1.AddSingleLine("BASIC4ANDROID")
	ListView1.AddSingleLine("BASIC4ANDROID")
End Sub

Private Sub t_char_Tick
	x_char=Rnd(0,75%x)
	y_char=Rnd(3%y,65%y)
	
	img_run.Left=x_char
	img_run.Top=y_char
End Sub

Sub mnu1_Click
	TabStrip1.ScrollTo(0, True)
End Sub

Sub mnu2_Click
	TabStrip1.ScrollTo(1, True)
End Sub

Sub mnu3_Click
	TabStrip1.ScrollTo(20, True)
End Sub

Sub TabStrip1_PageSelected (Position As Int)
	B4XPageIndicator1.CurrentPage = Position
	
	If Position=2 Then
		t_char.Enabled=True
		
	Else
		t_char.Enabled=False
	End If
End Sub

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

تهیه و تنظیم 
مرتضی صباغی  
MR.B4A