FoxPro/Visual FoxPro - No muestra combobox visual foxpro 5

   
Vista:

No muestra combobox visual foxpro 5

Publicado por Pierre (1 intervención) el 24/04/2014 19:02:05
Hola a todos, tengo una consulta, sé que para algunos sonará un poco raro, pero no tengo experiencia previa en foxpro.
Sucede que he creado un formulario, y he colocado algunos combobox (o cuadro combinado como se llama en el foxpro) y cuando deseo colocar items en la lista no aparece ninguno, lo hice con la sintaxis que provee microsoft en su wizard de ayuda, pero aún así no me muestra nada de nada.

Mi formulario se llama Form1

El combobox es Combo1 y en el procedimiento "AddItem" coloco lo siguiente

LPARAMETERS cItem

Control.AddItem("Hola")

ó

Control.AddItem("Hola",1)

ó

Form1.Combo1.AddItem("Hola",1,1)

ó

This.AddItem('xyz',1)

Y no me muestra nada de nada, espero sus respuestas, gracias de antemano.
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
Imágen de perfil de Mauricio Antonio

No muestra combobox visual foxpro 5

Publicado por Mauricio Antonio (1368 intervenciones) el 24/04/2014 20:09:35
Hazlo sencillo: estando en el combobox, dale clic derecho y escoges la opcion "Generador", son 4 pasos sencillos, siguelos y luego cuentas.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar
Imágen de perfil de Pierre

No muestra combobox visual foxpro 5

Publicado por Pierre (79 intervenciones) el 24/04/2014 21:08:56
¡Genial! Muchas gracias, y yo rompiéndome la cabeza. A seguir entonces :)
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
Imágen de perfil de Yogui

No muestra combobox visual foxpro 5

Publicado por Yogui (79 intervenciones) el 29/04/2014 05:30:38
Pensé que te había respondido, genial, gracias :)
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

No muestra combobox visual foxpro 5

Publicado por Fidel José (558 intervenciones) el 24/04/2014 20:17:41
pierre
Additem no es un procedimiento, sino un método que se utiliza para agregar items al combobox (o listbox).
Para llenar un combobox o un listbox, lo puedes hacer:
a) En el evento Init del objeto
b) En el evento Init del formulario
c) En un método de usuario al que puedes llamar desde cualquier sitio del form. (recomendado)

Para empezar, puedes poner en el Evento Init del combobox algo como lo que sigue: yo prefiero trabajar con ControlSource, por lo que se necesita agregar una propiedad al formulario.
Al asignar un ControlSource al combobox, sabes desde cualquier lado del form qué valor tiene el objeto, según el BoundColumn asignado.

No te enredes con las referencias:
Control. es solamente para el manual y se refiere a un objeto (TExtbox, EditBox, Combobox, etc.)

Thisform Hace referencia a cualquier objeto, propiedad o método sobre el formulario
This Hace referencia a cualquier objeto, propiedad o método del objeto en el que se coloca (que puede ser un formulario, un container, un pageframe o cualquier otro objeto).
This.Parent Hace referencia al objeto sobre el que está insertado el objeto This. Por ejemplo, para un combobox que está colocado sobre un form (desde cualquier evento o método del combobox), this.Parent == Thisform
Si agregas un Container a un form, y al Container le agregas un combobox, la referencia This.Parent será igual que Thisform.Container. Y así sucesivamente. Esto se utiliza mucho en bibliotecas vcx.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
*<Combo1.Init>
ADDPROPERTY(thisform,"miselec","")
WITH this
	.Clear
	.ControlSource='thisform.miselec'
	.BoundColumn=2		&& Columna que corresonde al valor de Thisform.Miselec
	.RowSourceType= 0	&& para trabajar con AddItem o AddListItem
	.Style= 2			&& no permite agregar valores directamente
	.SpecialEffect= 1	&& borde plano
	.BorderColor= RGB(114,136,141)
	.FontSize=8
	.AddListItem("(Seleccione Opción)",1,1)
	.AddListItem("",1,2)
	.AddListItem("Hola",2,1)
	.AddListItem("H",2,2)
	.AddListItem("Chau",3,1)
	.AddListItem("C",3,2)
	.AddListItem("Adiós",4,1)
	.AddListItem("A",4,2)
	.Requery
	.Refresh
ENDWITH
*</Combo1.Init>
 
*<Combo1.InteractiveChange>
* La respuesta a la acción del usuario se puede tomar también en Click
* Según el tipo de respuesta, puede convenir uno u otro.
LOCAL lnItem
lnItem=this.ListItemId
IF !EMPTY(lnItem)
	MESSAGEBOX("Ha Seleccionado "+this.ListItem(lnItem,1)+CHR(13);
		+"Opción Correspondiente="+this.ListItem(lnItem,2))
ENDIF
*</Combo1.InteractiveChange>
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar
Imágen de perfil de Yogui

No muestra combobox visual foxpro 5

Publicado por Yogui (79 intervenciones) el 29/04/2014 05:31:06
Muchas gracias, ambos me sirvieron :)
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