mega888 تبدیل ایکن فونت به بیتمپ – سامانه اموزشی کویک سافت

تبدیل ایکن فونت به بیتمپ

Sub TextToBitmap (s As String, FontSize As Float , colorr As Int) As BitmapDrawable
	Dim bmp As Bitmap
	bmp.InitializeMutable(32dip, 32dip)
	Dim cvs As Canvas
	cvs.Initialize2(bmp)
	Dim h As Double = cvs.MeasureStringHeight(s, Typeface.MATERIALICONS, FontSize)
	cvs.DrawText(s, bmp.Width / 2, bmp.Height / 2 + h / 2, Typeface.MATERIALICONS, FontSize, colorr, "CENTER")
	
	
	Dim bd As BitmapDrawable
	bd.Initialize(bmp)
	bd.Gravity = Gravity.FILL
	
	
	Return bd
End Sub

 

دیدگاه خود را بنویسید