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

 

امروز براتون یه تکه کد کاربردی مهیا کرده ایم که امیدواریم مورد قبول شما عزیزان قرار بگیره.

 

برای متوقف کردن یه اکتیویتی در b4a از اکتیویتی های دیگه میتونید از کد زیر استفاده کنید :

 

Sub FinishActivity (ActivityName  As String)
Dim Jo As JavaObject
Jo.InitializeStatic(Application.PackageName&"."&ActivityName.ToLowerCase)
Jo=Jo.GetField("previousOne")
If Jo<> Null then
Jo=Jo.RunMethod("get",Null)
If Jo<>Null Then
Jo.RunMethod("finish",Null)
LogColor(ActivityName & " Finished!",Colors.Red)
End if
End if
End sub