Private Sub LoadClv
Dim bview As B4XView = xui.CreatePanel("")
bview.SetLayoutAnimated(100,0,0,100%x,190dip)
bview.LoadLayout("Lyt_Clv")
bview.Color = xui.Color_Transparent
Label1.Text= " 1 Ecoja Parada a viajar "
Label2.Text= " PARADAS"
Label3.Text= "Pulse en el recuado y escoja la parada donde desea viajar ahora"
ImageView1.Bitmap = LoadBitmap(File.DirAssets,"lista.png")
ImageView2.Bitmap = LoadBitmap(File.DirAssets,"1.png")
Clv.Add(bview,1)
Dim bview As B4XView = xui.CreatePanel("")
bview.SetLayoutAnimated(100,0,0,100%x,190dip)
bview.LoadLayout("Lyt_Clv")
bview.Color = xui.Color_Transparent
Label1.Text= " 2 Ecoja Proximo horario disponible "
Label2.Text= "HORARIOS"
Label3.Text= "Pulse aqui para escojer el horario que desea viajar "
ImageView1.Bitmap = LoadBitmap(File.DirAssets,"eh.png")
ImageView2.Bitmap = LoadBitmap(File.DirAssets,"2.png")
Clv.Add(bview,2)
Dim bview As B4XView = xui.CreatePanel("")
bview.SetLayoutAnimated(50,0,0,100%x,370dip)
bview.LoadLayout("Pagar")
bview.Color = xui.Color_Transparent
Label1lvc.Text= " Falta Información del billete "
Clv.Add(bview,3)
Dim bview As B4XView = xui.CreatePanel("")
bview.SetLayoutAnimated(100,0,0,100%x,210dip)
bview.LoadLayout("info")
bview.Color = xui.Color_Transparent
Labelpago.Text = "Información de pago "
EditText1.Text = "codigos"
Clv.Add(bview,4)
Dim jo As JavaObject = Clv.sv
jo.RunMethod("setVerticalScrollBarEnabled", Array(False))
ShowScrollbar(Clv.sv)
End Sub
Sub ShowScrollbar(ScrollView1 As ScrollView)
Dim jo = ScrollView1 As JavaObject
jo.RunMethod("setScrollBarFadeDuration", Array As Object (14000))
End Sub
Private Sub clv_ItemClick (Index As Int, Value As Object)
Dim escojido As Int = Value
' Log( "Opcion escojida "& Value)
Clv.AsView.BringToFront
If escojido ="1 Then
' B4XPages.ShowPage("tarifa")
End If
If escojido ="2" Then
B4XPages.ClosePage(Me)
End If
If escojido ="3" Then
B4XPages.ShowPage("Horario")
End If
If escojido ="1" Then
B4XPages.ShowPage("Parada")
End If
End Sub