لود layout در AHview

[hamedgn 30]

سلام بر دوستان

 

میخاستم در َAHview یه لااوت لود کنم لطفا کمک کنید اینم کد قسمت اد کردن ahview

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

Sub Globals
	Dim sv As CustomListView
	Dim b1 As SlidingMenu
	Private Label1 As Label
	Private panel1 As Panel
	Private ghjk As Panel
	Dim contain As AHPageContainer
	Dim page As AHViewPager
	'Dim page2 As AHViewPager
	Dim tab1 As AHViewPagerTabs
	
	Private pnlshow As Panel
	End Sub


Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("Home")
	b1.Initialize("")
	b1.BehindOffset=115dip
	b1.Mode=b1.RIGHT
	b1.Menu.LoadLayout("am")
	ToastMessageShow("Test Version",True)
	Label1.Typeface=Typeface.LoadFromAssets("Mj_Yalda.ttf")
	'TabHost1.AddTab("Home","bm")
	'TabHost1.AddTab("Bookmark","bm")
	contain.Initialize
	For t=0 To 3
		Dim p7 As Panel
		p7.Initialize("")
		p7.LoadLayout("bm")
		contain.AddPage(p7,"پایگاه شهید خوشه چین")
	Next
	page.Initialize(contain,"page")
	tab1.Initialize(page)
	tab1.LineColorCenter=Colors.White
	tab1.LineHeight=7dip
	tab1.TextColor=Colors.Gray
	tab1.TextColorCenter=Colors.White
	tab1.TextSize=20
	tab1.Color=Colors.RGB(55,110,113)
	Activity.AddView(tab1,5dip,100dip,100%x-100dip,100%y)
	Activity.AddView(page,5dip,90dip,100%x-90dip,100%y-5dip)
End Sub

 

 

در واقع میخاستم لیست ویوو جداگانه در هر صفحه لود کنم

sv.Initialize(Me,"sv")
panel1.AddView(sv.AsView,0,0,100%x,100%y)
Dim p2 As Panel
p2.Initialize("")
sv.Add(p2,300dip,1)
'load esm paygah
p2.LoadLayout("esm")
For i=0 To 50
Dim p1 As Panel
p1.Initialize("")
sv.Add(p1,155dip,i)
'load khabar ha
p1.LoadLayout("card")
ghjk.Color=Colors.RGB(Rnd(100,255),Rnd(100,255),Rnd(100,255))
Next
'fff


Activity.AddMenuItem("Site","hello")

Activity.AddMenuItem("showtxt","hi")

لطفا کمک کنید

[hamedgn 30]

دوستان كسي نيست كه راهنمايي كنه؟؟