با سلام و سپاس 

 

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

 

امروز یکی از کاربران تکه کد سایه دادن به text ها رو برای ما ارسال کرده که به آن می پردازیم :

 

این کد ساده و ساب ساده به نوشته های درون یک ویو مثل لیبل سایه خیلی زیبایی رو میده 
که میتونید مقدار جا و رنگ سایه رو هم تنظیم کنید و عالی 

موفق باشید.

 

Sub SetTextShadow(pView As View, pRadius As Float, pDx As Float, pDy As Float, pColor As Int)
   Dim ref As Reflector
  
   ref.Target = pView
   ref.RunMethod4("setShadowLayer", Array As Object(pRadius, pDx, pDy, pColor), Array As String("java.lang.float", "java.lang.float", "java.lang.float", "java.lang.int"))
End Sub