Activity without animation?

[Petrus]

Hi!
I want to switch between two Activitys - without animation.

Activity1(Main) to Activity2(Optionen)
and
Activity2(Optionen) to Activity1(Main)

How does it work? The following code works only on the first ad:

Sub Button1_Click
   'to Activity Optionen:
    Dim Act2 As Intent
   Act2.Initialize("", "")
   Act2.SetComponent("combib.b4a.activitytest/.optionen")
   Act2.Flags = 0X00010000
   StartActivity(Act2)   
End Sub

greeting
Petrus

 

[Erel]

You do not need to create an intent to start your own activity.

You can probably create a solution based on this tutorial: http://www.b4x.com/forum/basic4andr...transitions-between-activities.html#post85444

 

[Petrus]

Hi Erel,
But I want to display no animation - is the possible?
greeting
Petrus

 

[Erel]

Try to create an animation with duration of 0.

 

[Petrus]

How do I change it?

Sub Button1_Click()
   StartActivity(optionen)
   SetAnimation("zoom_enter", "zoom_exit")
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

greeting
Petrus

 

[Erel]

Read the tutorial. It is done in the XML file.

 

[Petrus]

Hi Erel,
Now I understand it. By changing the XML-files it works well.

Thank you for the help!
Petrus