FoxPro/Visual FoxPro - AddItem

   
Vista:

AddItem

Publicado por kong (681 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 (406 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