lunes, 16 de mayo de 2011

 

Listbox en (POwerBuilder 11.0)



 DISEÑAR EL SIGUIENTE FORMULARIO
ü Listado de países.


ü Codigo fuente

CODIGO:
v Boton mostrar:
lb_lista1.additem(sle_pais.text)
sle_pais.text=""
mostar()
v Boton delete:
if lb_lista2.selectedIndex()=-1 then
//if lb_lista1.selectedIndex()=-1 and lb_lista2.selectedIndex()  = -1 then
            messagebox("error","selecciona un elemento")
else
           
//lb_lista1.deleteitem(lb_lista1.selectedindex())
lb_lista2.deleteitem(lb_lista2.selectedindex())
end if
mostar()

 

v Boton <<:
Integer i
For i=1 To lb_lista2.totalitems()
            lb_lista2.selectitem(i)
            lb_lista1.additem(lb_lista2.selecteditem())
Next
lb_lista2.reset()
mostar()

v  Boton <:
If lb_LISTA2.selectedindex() < 0 Then
            Messagebox("Error","Seleccione un Registro")
Else
            lb_lista1.additem(lb_lista2.selecteditem())
            lb_lista2.deleteitem(lb_lista2.selectedindex())
End If
mostar()
v  Boton >>:
//Script Clicked del boton >>
Integer i
For i=1 To lb_lista1.totalitems()
            lb_lista1.selectitem(i)
            lb_lista2.additem(lb_lista1.selecteditem())
Next
lb_lista1.reset()
mostar()
v  Boton >:
If lb_LISTA1.selectedindex() < 0 Then
            Messagebox("Error","Seleccione un Registro")
Else
            lb_lista2.additem(lb_lista1.selecteditem())
            lb_lista1.deleteitem(lb_lista1.selectedindex())
End If
mostar()
v  Nuevo:
lb_lista1.reset()
lb_lista2.reset()
mostar()

*Recuerda si no entiendes deja tu mensaje en los comentarios
Share:

0 comentarios:

Publicar un comentario

Dudas y sugerencias aqui