شخصی سازی اسنک بار

[Hayperapp 18]

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

وقتی ازش استفاده کردم دیدم که خیلی جالب نیست پس یکم تغییرات روش انجام دادم .. خوب شد گفتم واسه شما هم قرار بردم شاید مفید باشه :

اول کتابخانه DesignSupport رو تیک بزنید بعد یک متغییر از نوع این ایجاد کنید DSSnackbar مانند زیر :

Dim snake As DSSnackbar

بعدش باید اونو Initialize کنیم مثل زیر :

 

snake.Initialize("snake2",Activity,"متن نمونه",snake.DURATION_LONG)

 

برای نمایش اسنک بار هم این کد رو باید نوشت :   snake.Show

خوب تا این جا رو خیلی جا ها شاید باشه اما حالا نحوه شخصی سازی اسنک بار به این شکله که ابتدا یک متغییر از نوع ویو تعریف میکنیم بعد این ویو رو با  snake.View برابر میکنیم و رنگ ویو رو بهش میدیم مثل زیر :

	Dim v As View
		v = snake.View
		v.Color = Colors.White

بعد یک پنل تعریف میکنیم و این رو هم با snake.View برابر میکنیم بعد با فور ایچ ویو ها رو تشخیص میدیم و میگیم که اگر ویو برابر با لیبل بود بیا این کارا رو انجام بده مثل کد زیر :

 

For Each v As View In p.GetAllViewsRecursive
			If v Is Label Then
				Dim textv As Label
				textv = v
				textv.TextColor = (0xFFC60303)
				textv.Typeface = Typeface.LoadFromAssets("byekan.ttf")
				textv.TextSize = 16
				textv.Gravity = Gravity.RIGHT
				Exit
			End If
		Next

حالا دیگه میتونید سایز متن , رنگ متن , گرویتی , فونت , و بک گراند اسنک بار رو تغییر بدید ...... امیدوارم که مفید واقع بشه