چرخش تمامی ویوها

[حاج حسین 2,098]

با سلام 

یکی از دوستان خواسته بودند که چه جوری متن رو کج یا زوایه داد 

باید بگم با کد زیر شما میتونید تمامی ویوها رو بچرخونید (اسکرول ویو لیست ویو باتن و..)

فقط باید کتابخانه JavaObject تیک بخوره 

Sub setRotation(v As View, Angle As Float)
    Dim jo = v As JavaObject
    jo.RunMethod("setRotation", Array As Object(Angle))
End Sub

چه جوری استفاده کنیم؟؟ 

تو هر جای خواستی ساب setRotation رو میزاری بعد به جای v نام ویو و زاویه که یه عدد 

حالا هر مقدار که میخاد باشه 

میخاد 90 درجه بچرخه و..

اینم یه نمونه که با سیک باره 

Sub SeekBar1_ValueChanged (Value As Int, UserChanged As Boolean)
setRotation(Button1,Value)
End Sub

والسلام