FoxPro/Visual FoxPro - Problema con ListBox

   
Vista:

Problema con ListBox

Publicado por Gabriel (406 intervenciones) el 09/01/2008 18:10:04
Que tal amigos :

No logro resolver el problema en el ListBox ( LstSeleccionar ) al momento de mover un Item al 2do. ListBox ( LstProgramado ). Estoy utilizando un boton de comando llamado CmdAgregar que utilizo para mover el ITEM seleccionado al 2do. ListBox( LstProgramado ) solo me muestra el ICONO del picture asociado mas no aparece visible el ITEM...

Aqui muestro el codigo que estoy utilizando en el boton de comando.

cCurso = Thisform.LstSeleccionar.Value
nCurso = Thisform.LstSeleccionar.ListIndex
If Thisform.LstSeleccionar.ListCount > 0 Then
Thisform.LstProgramado.AddItem(cCurso) && Aqui el
problema
Thisform.LstSeleccionar.RemoveItem(nCurso)
Thisform.LstSeleccionar.ListIndex = 0
Thisform.CmdAgregar.Enabled = .F.
Thisform.LstProgramado.Gotfocus()
Endif
Thisform.Refresh

Y este es el codigo que utilizo para cargar los datos al ListBox

Select 2
SCAN
Thisform.LstSeleccionar.AddListItem(ALLTRIM(PROPER(Ape_Alum)) + ", " + PROPER(nom_alum)
Thisform.LstSeleccionar.Requery()
Thisform.LstSeleccionar.Refresh()
ENDSCAN

Agradezco amigos sus comentarios y/o sugerencias...

Saludos,
GABRIEL
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Problema con ListBox

Publicado por Arturo Garcia Casas (156 intervenciones) el 17/01/2008 20:46:50
la idea es asi...segun te entendi...

list1 && aca estan los elementos...supongamos productos
list2 && aca se ira llenando de acuerdo a los elementos del list1

olvidemos el boton..seamos mas practicos

pon el siguiente codigo en el
evento DBLCLICK del list1 (evento doble click del list1)

local numele,nompro
store 0 to numele
store "" to nompro

with thisform
numele=.list1.listindex && extrae el numero de posicion que tiene el producto
nompro=.list1.list(numele) && extrae el producto de la posicion
.list2.additem(nompro) && agrega el producto en list2
.list1.removeitem(numele) && quita de list1 el elemento anexado en list2
endwith

listo mi cuate eso es todo...ahora si deseas regresarlo...has lo mismo en el list2 solo cambia el codigo ya que es lo mismo.

saludos desde veracruz, ver. mexico
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar