نشان ندادن ایتم های لیست ویو

[rezakakaei 15]

سلام  و خسته نباشید

 دوستان یک لیست ویو به برنانه اضافه کردم دستور اضافه کردن هم نشوتم تا یک ایتم بهش اضافه کنه ولی نشون نمیده هیچ ایتمی را

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

 

ممنون از همه دوستان

r.rar

[shahab.es 5,429]

سلام دوستم

شما کدهاتو بذار

اگه درخواست سورس شد بعد قرار بده

این کدهای شماس

حالا ارور داری؟

Sub Process_Globals

End Sub

Sub Globals
	Dim navi As AHNavigationDrawer
	Dim pCantent As Panel
	Private ListView1 As ListView
	Private Lmain As ListView
End Sub

Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("main")
Lmain.AddTwoLinesAndBitmap("گالری فیلم","",LoadBitmap(File.DirAssets,"mo.png"))
Lmain.AddTwoLinesAndBitmap("گالری عکس","",LoadBitmap(File.DirAssets,"ph.png"))
Lmain.AddTwoLinesAndBitmap("مطالب","",LoadBitmap(File.DirAssets,"book.png"))
'Lmain.AddTwoLinesAndBitmap("item 10","",LoadBitmap(File.DirAssets,"s.png"))
Lmain.ScrollingBackgroundColor=Colors.Transparent
Lmain.TwoLinesAndBitmap.Label.TextColor=Colors.Black
Lmain.TwoLinesAndBitmap.Label.Gravity=Gravity.CENTER
slide

ListView1.AddTwoLinesAndBitmap("مطالب ","",LoadBitmap(File.DirAssets,"s.png"))
ListView1.AddTwoLinesAndBitmap("گالری","",LoadBitmap(File.DirAssets,"s.png"))
ListView1.AddTwoLinesAndBitmap("علاقه مندی ها ","",LoadBitmap(File.DirAssets,"s.png"))
ListView1.AddTwoLinesAndBitmap("تماس با ما","",LoadBitmap(File.DirAssets,"s.png"))
ListView1.AddTwoLinesAndBitmap("درباره ما","",LoadBitmap(File.DirAssets,"s.png"))
ListView1.AddTwoLinesAndBitmap("item 6","",LoadBitmap(File.DirAssets,"s.png"))
ListView1.AddTwoLinesAndBitmap("item 7","",LoadBitmap(File.DirAssets,"s.png"))
ListView1.AddTwoLinesAndBitmap("item 8","",LoadBitmap(File.DirAssets,"s.png"))
ListView1.AddTwoLinesAndBitmap("item 9","",LoadBitmap(File.DirAssets,"s.png"))
ListView1.AddTwoLinesAndBitmap("item 10","",LoadBitmap(File.DirAssets,"s.png"))
ListView1.ScrollingBackgroundColor=Colors.Transparent
ListView1.TwoLinesAndBitmap.Label.TextColor=Colors.Black
ListView1.TwoLinesAndBitmap.Label.Gravity=Gravity.CENTER
End Sub

Sub Activity_Resume

End Sub
Sub ListView1_ItemClick (Position As Int, Value As Object)
	Position=Position+1
	ToastMessageShow("روی آیتم "&Position&" کلیک شد!",False)
	navi.CloseDrawer2(navi.GRAVITY_RIGHT)
End Sub
Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub Button1_Click
	navi.OpenDrawer2(navi.GRAVITY_RIGHT) 'باز کردن از سمت راست
	
End Sub
Sub	slide 
'	navi.Initialize2("navi",Activity,75%x,navi.GRAVITY_LEFT)'برای چپ چین بودن
	navi.Initialize2("navi",Activity,75%x,navi.GRAVITY_RIGHT)' جهت راس چین بودن ساید بار
	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

[rezakakaei 15]

نه دوست من هیچ مشکل و اروری این کد نداره برنامه ران میشه ولی با این مشکل که Lmain من الان 3 ایتم داره

ولی داخل برنامه این 3 ایتم را نشون داده نمیشه

کلا صفحه سفید هستش ایمیج ویو قشنگ نشان داده میشه ولی ایتم های Lmain نشون داده نمیشه

[shahab.es 5,429]

شما این خط رو حذف کن

Lmain.ScrollingBackgroundColor=Colors.Transparent

این خط رو هم رنگ رو قرمز کن

 

Lmain.TwoLinesAndBitmap.Label.TextColor=Colors.Red

 

مشکل سینتکسی ندیدم توش

یکم ور برو باهاش

خط دوم لیست ویو هم یه بار بنویس و تست کن

[rezakakaei 15]

همه کاری کردم فایده نداره واقعا نمیدونم چرا این جوریه

Lmain.TwoLinesAndBitmap.Label.TextColor=Colors.Red

این هم قرمز کردم ولی فایده نداره