مشکل با اسلاید منو

[mostafaHD 44]

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

توی برنامم از مولتی پنل استفاده کردم نمیدونم ربط داره یا نه

مشکل از چی میتونه باشه؟

Sub Globals
	'These global variables will be redeclared each time the activity is created.
	'These variables can only be accessed from this module.
	Dim navi As AHNavigationDrawer
	Dim pCantent As Panel
	Dim market As AriaMarkets
	Dim s As Picasso 
	Dim ht As HttpJob
	Private ScrollView1 As ScrollView
	Private Label1 As Label
	Private Label2 As Label
	Private Panel1 As Panel
	Private p As Panel
	Private load As Int = 3%y
	Dim p2 As Intent
	Private ImageView1 As ImageView
	Dim ret As Int
	Private Button1 As Button
End Sub

Sub Activity_Create(FirstTime As Boolean)
	'Do not forget to load the layout file created with the visual designer. For example:
	slide
	ht.Initialize("ht",Me)
	ht.Download("http://parsprog.ir/apps_manage/tabadol/show.php")
End Sub

Sub	slide 
'	navi.Initialize2("navi",Activity,75%x,navi.GRAVITY_LEFT)'برای چپ چین بودن
	navi.Initialize2("navi",Activity,75%x,navi.GRAVITY_LEFT)' جهت راس چین بودن ساید بار
	navi.NavigationPanel.Color = Colors.ARGB(150,236,239,241) ' برای تغییر میزان مرئی بودن ساید بار 150 را تغییر دهید
	navi.NavigationPanel.LoadLayout("menu")
	pCantent.Initialize("")
	navi.ContentPanel.AddView(pCantent,0,0,100%x,100%y)
	pCantent.SendToBack	
	pCantent.LoadLayout("main")
	pCantent.Color = Colors.RGB(234,234,234)
End Sub
Sub Panelmenu_Touch (Action As Int, X As Float, Y As Float) 'اینو ایجاد میکنیم تا روی پنل منو کلیک شد ، ویو های زیرش عکس العمل نشون ندن
	
End Sub
Sub Activity_Resume

End Sub
Sub Activity_Pause (UserClosed As Boolean)

End Sub
Sub jobdone (job As HttpJob)
	If job.Success Then
	Private a As String
	a = job.GetString
	Private b() As String = Regex.Split("<br>",a)
	For i = 0 To b.Length-1
	Private n() As String = Regex.Split("#",b(i))
	p.Initialize("p")
	ScrollView1.Panel.AddView(p,0,load,100%x,100%y)
	load = load + 22%y
	p.LoadLayout("11")
	Label1.Text = n(1)
	Label2.Text = n(2)
	Panel1.Tag = n(4)
	s.Initialize
	s.LoadUrl(n(3)).Fit.IntoImageView(ImageView1)
	ImageView1.Gravity = Gravity.Fill
	ScrollView1.Panel.Height = load
	Next
	Else
	ToastMessageShow("خطا در ارتباط با سرور لطفا ساعاتی دیگر امتحان کنید.",False)
	End If
End Sub

Sub panel1_Click
	Dim iz As Panel
	iz = Sender
	p2.Initialize(p2.ACTION_VIEW,iz.tag)
	StartActivity(p2)
End Sub

 

[mostafa.kasiri 115]

هیچ مشکلی نداره اگر میتونید سورس پیوست کنید تا درست کنم

[mostafaHD 44]

سورس رو پخ کردم براتون

[mostafa.kasiri 115]

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