تبدیل 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)