سلام دوستان راستش میخواستم با انیمیشن به اکتیویتی هام جلوه های زیبا بدم ولی در کد ماژول موجودم به خط 6 ارور میده
در پروژه خط 10 هست
Sub Process_Globals
End Sub
Sub SetAnimation(InAnimation As String, OutAnimation As String)
Dim r As Reflector
Dim package As String
Dim In, out As Int
package = r.GetStaticField("anywheresoftware.b4a.BA", "packageName") In = r.GetStaticField(package & ".R$anim", InAnimation) <------- به این خط ارور میده
out = r.GetStaticField(package & ".R$anim", OutAnimation)
r.Target = r.GetActivity
r.RunMethod4("overridePendingTransition", Array As Object(In, out), Array As String("java.lang.int", "java.lang.int"))
End Sub
اینم اروری که میدا
البته یه فایل دانلود کردم بدون ایرادی کار کرد ولی دقیقا کپی همونو نوشتم و فایل هارو در جاهایی که لازم بود ریختم ولی بازم ارور داد راستی تو یه سایتی نوشته بود فایلهای پوشه انیم رو read only کنید
سوال
alibaike 2
سلام دوستان راستش میخواستم با انیمیشن به اکتیویتی هام جلوه های زیبا بدم ولی در کد ماژول موجودم به خط 6 ارور میده
در پروژه خط 10 هست
Sub Process_Globals
End Sub
Sub SetAnimation(InAnimation As String, OutAnimation As String)
Dim r As Reflector
Dim package As String
Dim In, out As Int
package = r.GetStaticField("anywheresoftware.b4a.BA", "packageName")
In = r.GetStaticField(package & ".R$anim", InAnimation) <------- به این خط ارور میده
out = r.GetStaticField(package & ".R$anim", OutAnimation)
r.Target = r.GetActivity
r.RunMethod4("overridePendingTransition", Array As Object(In, out), Array As String("java.lang.int", "java.lang.int"))
End Sub
اینم اروری که میدا
البته یه فایل دانلود کردم بدون ایرادی کار کرد ولی دقیقا کپی همونو نوشتم و فایل هارو در جاهایی که لازم بود ریختم ولی بازم ارور داد راستی تو یه سایتی نوشته بود فایلهای پوشه انیم رو read only کنید
نمیدونم چطوری
اینم فایل دانلودیم که کار کرد
http://s6.picofile.com/file/8391877442/Project_Files.rar.html
واقعا ممنون میشم کمکم کنید
لینک ارسال
به اشتراک گذاری در سایت های دیگر
11 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.