کتابخانه AI_BottomView

[محمد مهدی کمالی 19]

سلام

کار این کتابخونه به طور کلی به UI مربوط میشه.
سه تا کلاس مختلف داره:
1- IA_bottom_menu
این کلاس برای ایجاد منو  هست

	Dim iam As IA_bottom_menu

	iam.Initialize(Me,"IA",Colors.White,False,True,font)
	iam.Add_Header("Privacy","User and Application Rules",0xff2a2e31,Colors.DarkGray,font)
	iam.Add_Item("گفتگو",Null,"a1.png","1")
	iam.Add_Item("تماس",Null,"a2.png","item2")
	iam.Add_Item("سوالات متداول","مشاهده سوالات پرتکرار کاربران","a3.png","3")
	iam.Add_Cancel_Btn("Close",0xff4f91e7,0xffedf4fc,font)
	iam.Show_Menu

 

2- IA_bottom_text
این کلاس برای ایجاد ویو مناسب متن های طولانی مثل "درباره ما" یا "متن حریم خصوصی" و ... هستش

Dim iat As IA_bottom_text
Dim txt As String = "متن تست طولانی "

	iat.Initialize(Colors.White,2,False)
	iat.Add_Header("Privacy","User and Application Rules",0xff2a2e31,Colors.DarkGray,font)
	iat.Add_Text(txt,Colors.Gray,13,font,Bit.Or(Gravity.RIGHT,Gravity.CENTER_VERTICAL),1.2,True)
	iat.Add_Cancel_Btn("Close",0xff4f91e7,0xffedf4fc,font)
	iat.Show_Text

 

3- IA_bottom_panel
کلاس آخر برای ایجاد یک پنل دلخواه هست.به این صورت که یک پنل با تمامی اجزا تعریف و به ویو داده میشه تا اون رو نمایش بده.

Dim iap As IA_bottom_panel
Dim pnl As Panel

	pnl.Initialize("")

	Dim img(3) As ImageView
	Dim left As Int =10%x
	For i=0 To 2
		img(i).Initialize("img")
		img(i).Gravity=Gravity.FILL
		img(i).Bitmap=LoadBitmap(File.DirAssets,"a"&(i+1)&".png")
		pnl.AddView(img(i),left,2%y,20%x,20%x)
		left=left+30%x
	Next
	
	iap.Initialize(pnl,Colors.White,4%y+20%x,True)
	iap.Add_Header("Privacy","User and Application Rules",0xff2a2e31,Colors.DarkGray,font)
	iap.Add_Cancel_Btn("Close",0xff4f91e7,0xffedf4fc,font)
	iap.Show_Panel

دانلود کتابخانه

برای دریافت کتابخانه و سورس هاس آموزشی بیشتر میتونید به کانال مرجع مراجعه کنید
لینک کانال تلگرام