با سلام و سپاس خدمت کاربران عزیز وب سایت یاهو ۹۸ YAHOO

 

راست چین یا RTL کردن چک باکس و ویوهای دیگر

 

۱- کد زیر رو به منیفست اضافه کنید:

 

SetApplicationAttribute(android:supportsRtl, "true")

 

۲- تابع های زیر رو به ماژول خودتون اضافه کنید:

 

Sub ForseRtlSupported
Dim j,jo As JavaObject
jo.InitializeStatic ("android.view.View")
If j.InitializeStatic ("android.os.Build$VERSION").GetField ("SDK_INT") > 16 Then
j.InitializeContext.RunMethodJO("getWindow",Null).RunMethodJO("getDecorView",Null).RunMethod ("setLayoutDirection",Array(jo.GetField ("LAYOUT_DIRECTION_RTL")))
End If
End Sub

 

راست چین کردن

 

Sub ForceRtlSupported4View(View As View)
Dim jA,jos As JavaObject
jos.InitializeStatic ("android.view.View")
If jA.InitializeStatic ("android.os.Build$VERSION").GetField ("SDK_INT") > 16 Then
jA = View
jA.RunMethod ("setLayoutDirection",Array(jos.GetField ("LAYOUT_DIRECTION_RTL")))
End If
End Sub

 

۳- راست چین کردن ویو:

 

ForceRtlSupported4View(checkbox1)