Buenas, hoy me han acabado los exámenes y la mejor forma de celebrarlo es empezar a programar no?
Pues he empezado muy ilusionado, pues creí que todo sería mucho más como el VisualBasic pero parece que me equivoque. No consigo hacer las cosas más fáciles. Estoy intentando programar una aplicación con varias guías y no consigo ni que al clickar en un botón me lleve a la guía. Lo mejor es que os ponga el code y así lo podéis ver.
Esto es lo que llevo de código, como veis me he estado guiando por unos tutoriales en ingles. Ahora lo que quiero hacer es que cada vez que pulse por ejemplo "Prueba 1" me lleve a una especie de hoja nueva donde estará toda la guia con sus imágenes y tal. ¿Como podría hacerlo?
Un saludo
PS:Hay algún tipo de guía en el que pueda aprender lo básico en el b4a?
Pues he empezado muy ilusionado, pues creí que todo sería mucho más como el VisualBasic pero parece que me equivoque. No consigo hacer las cosas más fáciles. Estoy intentando programar una aplicación con varias guías y no consigo ni que al clickar en un botón me lleve a la guía. Lo mejor es que os ponga el code y así lo podéis ver.
B4X:
Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.
End Sub
Sub Globals
'These global variables will be redeclared each time the activity is created.
'These variables can only be accessed from this module.
Dim ListView1 As ListView
End Sub
Sub Activity_Create(FirstTime As Boolean)
ListView1.Initialize("ListView1")
ListView1.FastScrollEnabled = True
ListView1.SingleLineLayout.ItemHeight = 60dip
ListView1.SingleLineLayout.Label.TextSize = 30
ListView1.SingleLineLayout.Label.TextColor = Colors.Blue
ListView1.SingleLineLayout.Label.Gravity = Gravity.NO_GRAVITY
For i = 1 To 1
ListView1.AddSingleLine("Prueba1")
ListView1.AddSingleLine("Prueba2")
ListView1.AddSingleLine("Prueba3")
ListView1.AddSingleLine("Prueba4")
ListView1.AddSingleLine("Prueba5")
ListView1.AddSingleLine("Prueba6")
ListView1.AddSingleLine("Prueba7")
ListView1.AddSingleLine("Prueba8")
ListView1.AddSingleLine("Prueba9")
Next
Activity.AddView(ListView1, 0, 0, 100%x, 100%y)
Dim GD As GradientDrawable
GD.Initialize("TR_BL", Array As Int(Colors.Gray, Colors.LightGray))
Activity.Background = GD
ListView1.ScrollingBackgroundColor = Colors.Transparent
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub ListView1_ItemClick (Position As Int, Value As Object)
Activity.Title = Value
End Sub
Esto es lo que llevo de código, como veis me he estado guiando por unos tutoriales en ingles. Ahora lo que quiero hacer es que cada vez que pulse por ejemplo "Prueba 1" me lleve a una especie de hoja nueva donde estará toda la guia con sus imágenes y tal. ¿Como podría hacerlo?
Un saludo
PS:Hay algún tipo de guía en el que pueda aprender lo básico en el b4a?