Sub Globals
Dim iv1,iv2 As ImageView
Dim b1,b2 As Button
End Sub
Sub Activity_Create(FirstTime As Boolean)
b1.Initialize("b1")
Activity.AddView(b1,20%x,50%y,15%x,15%x)
b1.Text = 1
b2.Initialize("b2")
Activity.AddView(b2,65%x,50%y,15%x,15%x)
b2.Text = 2
iv1.initialize("")
iv2.Initialize("")
Activity.AddView(iv1, 25%x,5%y,50%x,35%x)
Activity.AddView(iv2, 25%x,5%y,50%x,35%x)
iv1.SetBackgroundImage(LoadBitmap(File.DirAssets,"28.jpg"))
iv2.SetBackgroundImage(LoadBitmap(File.DirAssets,"29.jpg"))
iv1.Gravity = Gravity.FILL
iv2.Gravity = Gravity.FILL
End Sub
Sub b1_click
iv1.SetVisibleAnimated(4000,True)
iv2.SetVisibleAnimated(4000,False)
End Sub
Sub b2_click
iv1.SetVisibleAnimated(4000,False)
iv2.SetVisibleAnimated(4000,True)
End Sub