Post on 10-Feb-2018
7/22/2019 DISEAR EL SIGUIENTE FORMULARIO power builder
1/4
DISEAR EL SIGUIENTE FORMULARIO
Listado de pases.
Codigo fuente
CODIGO:
Boton mostrar:
lb_lista1.additem(sle_pais.text)
sle_pais.text=""
mostar()
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()
http://2.bp.blogspot.com/-Sbl_v_CHhmA/TdGpRAuezuI/AAAAAAAAAFw/GZs9zbhoFbw/s1600/Dibujo.JPG7/22/2019 DISEAR EL SIGUIENTE FORMULARIO power builder
2/4
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()
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 Ifmostar()
Nuevo:
lb_lista1.reset()
lb_lista2.reset()
mostar()
7/22/2019 DISEAR EL SIGUIENTE FORMULARIO power builder
3/4
PRACTICA 03 (Signo Zodiacal en power builder)
Codigo Fuente:
Botn apply:intdia,mes,ao,szodiaco
string zdatefec
dia=integer(sle_dia.text)mes=integer(sle_mes.text)ao=integer(sle_ao.text)fec=today()szodiaco=integer(right(string(fec),4))ifdia>=21 and mes=3 or dia=20 and mes=4 or dia=21 and mes=5 or dia=21 and mes=6 or dia=23 and mes=7 or dia=23 and mes=8 or dia=23 and mes=9 or dia
7/22/2019 DISEAR EL SIGUIENTE FORMULARIO power builder
4/4
elseifdia>=23 and mes=10 or dia=22 and mes=11 or dia=21 and mes=12 or dia=20 and mes=1 or dia=19 and mes=2 or dia