|   FOROS      |     Tutoriales    |     KIO4 |      
   Inicio B4A (Basic4Android) App inventor 2 Arduino
   Elastix - VoIP Cosas de Windows Webs interesantes  Telecomunicaciones

 


Nuevo concurso para España, Argentina, Brasil, Chile, Colombia, Ecuador, México, Perú y Portugal.

Nueva sección en esta web: Elastix - VoIP

¿Qué es esto?

- Monta un servidor telefónico en tu ordenador para poderte comunicar mediante tu móvil con otros móviles que estén en tu red Wifi. Parecido a Skipe o Whatsapp-teléfono, pero en este caso tú controlas al servidor.

- Si sabes abrir puertos del router, también puedes comunicarte con tu móvil de una red Wifi a teléfonos de otra red Wifi.

- También puedes comunicarte con teléfonos "normales", pero para eso necesitas un dispositivo que vale unos 60 €.

- Es muy recomendable aprender el funcionamiento de este servidor telefónico Asterisk-Elastix.

 Elastix - VoIP

 

B4A en español - Juan Antonio Villalpando
(BASIC4Android)

-- Tutorial de B4A --

Volver al índice del tutorial                    Return to index tutorial

____________________________

Basic4Android.

26C.- CustomListView.

Tutoriales. CustomListView.

Presentación

 

CustomListView es un Módulo de clase donde mediante ScrollView y Paneles podemos simular un ListView en donde podemos configurar las filas.

El Módulo de Clase CustomListView se puede bajar del foro oficial como CustomListView.zip.

Como ejemplo aporto el siguiente en el que cada fila del ListView tiene varias columnas.

 

Cambiamos el módulo Main con el código indicado y
creamos un nuevo Class Module con el nombre CustomListView con el contenido indicado en CustomListView.zip.

Código del programa en Basic4Android. Módulo Main.

Sub Process_Globals

End Sub

Sub Globals
    Dim clv1 As CustomListView
    Dim Panel1 As Panel
End Sub

Sub Activity_Create(FirstTime As Boolean)

      ' Crea Panel1
    Panel1.Initialize("Panel1")
    Panel1.Color=Colors.Magenta
    Activity.AddView(Panel1, 5dip, 60dip, 100%x, 80%y)
    
    ' CLV
    clv1.Initialize(Me, "clv1")
    Panel1.AddView(clv1.AsView, 0, 0, Panel1.Width, Panel1.Height)
    
    For i = 1 To 20
        clv1.Add(CreateListItem("id " & i, "nombre", "apellido", "edad", clv1.AsView.Width, 50dip), 50dip, "Registro #" & i)
    Next
    
End Sub

Sub clv1_ItemClick (Index As Int, Value As Object)
    Activity.Title = Value
End Sub

Sub CreateListItem(Text1 As String, Text2 As String, Text3 As String, Text4 As String, Width As Int, Height As Int) As Panel
    Dim p As Panel
    p.Initialize("")
    p.Color = Colors.Black
        Dim lbl As Label
    lbl.Initialize("")
    lbl.Gravity = Bit.OR(Gravity.CENTER_VERTICAL, Gravity.LEFT)
    lbl.Text = Text1
    lbl.TextSize = 16
    lbl.TextColor = Colors.White
        Dim lbl2 As Label
    lbl2.Initialize("")
    lbl2.Gravity = Bit.OR(Gravity.CENTER_VERTICAL, Gravity.LEFT)
    lbl2.Text = Text2
    lbl2.TextSize = 16
    lbl2.TextColor = Colors.blue
        Dim lbl3 As Label
    lbl3.Initialize("")
    lbl3.Gravity = Bit.OR(Gravity.CENTER_VERTICAL, Gravity.LEFT)
    lbl3.Text = Text3
    lbl3.TextSize = 16
    lbl3.TextColor = Colors.red
            Dim lbl4 As Label
    lbl4.Initialize("")
    lbl4.Gravity = Bit.OR(Gravity.CENTER_VERTICAL, Gravity.LEFT)
    lbl4.Text = Text4
    lbl4.TextSize = 16
    lbl4.TextColor = Colors.green

    p.AddView(lbl, 5dip, 2dip, 50dip, Height - 4dip) 
    p.AddView(lbl2, 60dip, 2dip, 150dip, Height - 4dip)
    p.AddView(lbl3, 150dip, 2dip, 150dip, Height - 4dip)
    p.AddView(lbl4, 260dip, 2dip, 50dip, Height - 4dip)
    Return p
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

___________________________________

- Aquí podemos ver un código para poner un ListView con dos columnas.
Se puede utilizar
ListView1.TwoLinesLayout.Label.
ListView2.TwoLinesLayout.SecondLabel.

Para crear dos columnas.

_________________________________

- Completo ejemplo de ListView en el foro

ScrollViewList.zip

________________________________

Si quieres que este tutorial se mantenga y lo actualice con más programas, escríbeme un correo a Juan Antonio: juana1991@yahoo.com

- Mi correo:
juana1991@yahoo.com
- KIO4.COM - Política de cookies. Textos e imágenes propiedad del autor:
© Juan A. Villalpando
No se permite la copia de información ni imágenes.
Usamos cookies propias y de terceros que entre otras cosas recogen datos sobre sus hábitos de navegación y realizan análisis de uso de nuestro sitio.
Si continúa navegando consideramos que acepta su uso. Acepto    Más información