تبدیل Int به dip

⌛ زمان مطالعه < 1 دقیقه

تبدیل Int به dip
گاهی ممکنه عددی رو توی دیتابیس یا… داشته باشید و قصد دارید بعنوان سایز یک ویو بصورت dip قرار بدید.
با این تابع میتونید عدد رو تبدیل به dip کنید.

Sub IntToDIP(Integer As Int) As Int
Dim r As Reflector
Dim scale As Float
r.Target = r.GetContext
r.Target = r.RunMethod(“getResources”)
r.Target = r.RunMethod(“getDisplayMetrics”))
scale = r.GetField(“density”)

Dim DIP As Int
DIP = Integer * scale + 0.5
Return DIP
End Sub

مثال:
panel1.height=IntToDIP(220)

نکته: به غیر استفاده از تابع بالا، یکی از راه های دیگه برای حل این مسئله ضرب عدد در دیتابیس در ۱dip هست.

امتیاز
فهرست