Sub setShadowLayer(lbl As View, Radius As Float, dx As Float, dy As Float, Color As Int)
Dim jo = lbl As JavaObject
jo.RunMethod("setShadowLayer", Array(Radius, dx, dy , Color))
End Sub
از این کد استفاده می کنم
Sub SeekBar1_ValueChanged (Value As Int, UserChanged As Boolean)
setShadowLayer(lblTest2, Value, 3, 3, Colors.Red)
End Sub
سوال
naeini89 30
سلام ،
من یه مشکل با سایه دادن به متن دارم
Sub setShadowLayer(lbl As View, Radius As Float, dx As Float, dy As Float, Color As Int) Dim jo = lbl As JavaObject jo.RunMethod("setShadowLayer", Array(Radius, dx, dy , Color)) End Sub
از این کد استفاده می کنم
Sub SeekBar1_ValueChanged (Value As Int, UserChanged As Boolean) setShadowLayer(lblTest2, Value, 3, 3, Colors.Red) End Sub
اما در گوشیای مدل پایین فورس کلوز میده
مشکل از کجاست؟
چطوری باید اصلاحش کنم؟
لینک ارسال
به اشتراک گذاری در سایت های دیگر
1 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.