FoxPro/Visual FoxPro - AddItem

 
Vista:
sin imagen de perfil
Val: 4
Ha aumentado su posición en 2 puestos en FoxPro/Visual FoxPro (en relación al último mes)
Gráfica de FoxPro/Visual FoxPro

AddItem

Publicado por kong (682 intervenciones) el 25/01/2008 05:43:22
Saludos otra vez.
Por favor, como hago para hacer un AddItem en un Cuadro de Lista con 2 columnas.
Text1, Text2, List1(con dos columnas)
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

AddItem

Publicado por Gabriel (427 intervenciones) el 25/01/2008 17:06:53
Utiliza la propiedad ListItem, puedes utilizar la propiedad ListIndex para
que te devuelva el item actualmente seleccionado.

oForm = CREATEOBJECT("MyFOrm")
oForm.Show()
DEFINE CLASS myForm AS Form
ADD OBJECT MyListBox as ListBox WITH ColumnCount=2
ADD OBJECT MyCommand AS CommandButton WITH ;
Caption="Valor",Left=100,Height=30
PROCEDURE INIT
WITH This.MyListBox
.AddListItem("Hola",1,1)
.AddListItem("Mundo",1,2)
.AddListItem("Como",2,1)
.AddListItem("Estas?",2,2)
ENDWITH
ENDPROC
PROCEDURE MyCommand.Click
WITH Thisform.MyListBox
MESSAGEBOX("Valor:"+.ListItem(.ListIndex,2))
ENDWITH
ENDPROC
ENDDEFINE

Copia y Pega el codigo anterior en tu command Window, seleccionalo y
presiona ENTER, veras el uso...
Espero te sirva.

Saludos,

Gabriel
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