Spanish Como crear una ventana de Splash

Sub ventana
Dim p As Panel
Dim l(2) As Label

p.Initialize("p")
l(0).Initialize("")
l(1).Initialize("")
Activity.AddView(p,50dip,25%y,(100%x-100dip),50%y)
p.AddView(l(0),0,0,p.Width,p.Height/2)
p.AddView(l(1),0,l(0).Height,l(0).Width,l(0).Height)
p.Color=Colors.DarkGray
l(0).Text = "Hola"
l(1).Text = "Esto es una prueba"
l(0).Gravity = Gravity.CENTER
l(1).Gravity =l(0).Gravity
wait(5)
p.Visible = False
p.RemoveAllViews
p.RemoveView
End Sub
Sub wait(segundos As Int)
Dim ti As Long
ti = DateTime.Now + (segundos * 1000)
Do While DateTime.Now < ti
DoEvents
Loop
End Sub

Click to expand...

irda said:

Intentaré esa solución, lo de poner un ImageView me esta dando el siguiente error:
java.lang.RuntimeException: Object should first be initialized (ImageView).

pongo el código por si sirve de algo:

B4X:

Sub Activity_Create(FirstTime As Boolean)

   Activity.LoadLayout("Formuno")
   If FirstTime = True Then
      ventana
   End If
   
End Sub


Sub ventana
   Dim p As Panel
   Dim b1 As ImageView
   b1.Initialize("")      '<-- Faltó Esto
   b1.Bitmap = LoadBitmap(File.DirAssets, "logocolor.gif")
   p.Initialize("p")

   Activity.AddView(p,50dip,25%y,(100%x-100dip),50%y)
   p.AddView(b1, 1, 1, 75%x, 75%y)
   p.Color=Colors.DarkGray
   wait(5)
   p.Visible = False
   p.RemoveAllViews
   p.RemoveView
End Sub

Ya se nota que soy un novato pero este mundillo me esta pareciendo muy interesante.

Click to expand...