ComboBox

[Marcos Godoy]

Amigos, tengo un cliente que quiere que un combo box, en el evento
click, muestre mas filas, se puede manejar esto, en mi caso solo
muestra 7 elementos de unos 14 que hay en la lista.

[Luis Maria Guayan]

Aumenta la cantidad con la propiedad DisplayCount del ComboBox. Si el valor es 0 (cero) muestra el valor predeterminado que es 7 items

Luis María Guayán
Tucumán, Argentina
_________________________
http://www.PortalFox.com
Nada corre como un zorro
_________________________

[Luis Maria Guayan]

Aumenta la cantidad con la propiedad DisplayCount del ComboBox. Si el valor es 0 (cero) muestra el valor predeterminado que es 7 elementos

Luis María Guayán
Tucumán, Argentina
_________________________
http://www.PortalFox.com
Nada corre como un zorro
_________________________

El 04/09/2012 10:11, Marcos Godoy escribió:

[FidelJ]

**********************

[Init del Formulario]

Select Tabla

Count to nRegis

go top

lnMax=Min(nRegis,18)

thisform.addproperty("mirow","2")

ni=0

with thisform.combo2

.FontName="Arial"

.FontSize=8

.Width=54

.RowSourceType=0

.ControlSource='thisform.Mirow'

.Boundcolumn=2

for i=2 to lnMax

ni=ni+1

.AddListItem(Transform(i,"99"),ni,1)

.AddListitem(ltrim(str(i)),ni,2)

next

.requery

.refresh

endwith

[Método Click de Combo1]

nitem=this.listitemId

lnEspacio=32   && Determinar espacio entre al pie del Formulario

if nitem#0

lnRows=Val(this.Listitem(nitem,2))

*lnRows = Cantidad de Filas que se quieren mostrar.

with thisform

.GRid1.Height=.Grid1.HeaderHeight+lnRows*.Grid1.RowHeight

                .Height=.Grid1.top+.Grid1.height + lnEspacio

                 && Ver si es necesario mover el Combo1

endwith

endif

[Marcos Godoy]

Muchas Gracias !!!!, un lujo

--
 
 
 

[Walter R. Ojeda Valiente]

Contando todos los caracteres que ocupa cada opción no se pueden superar los 256 caracteres por combobox, esa es una limitante para usar combobox con muchas opciones.

Saludos.

Walter.

> Date: Tue, 4 Sep 2012 10:11:37 -0300
> Subject: [vfp] ComboBox
> From: mar...@nominasrh.com
> To: publice...@googlegroups.com

>
> Amigos, tengo un cliente que quiere que un combo box, en el evento
> click, muestre mas filas, se puede manejar esto, en mi caso solo
> muestra 7 elementos de unos 14 que hay en la lista.
>

> --
>
>
>

[Mario Oviedo]

[Método Click de Combo1]

nitem=this.listitemId

lnEspacio=32   && Determinar espacio entre al pie del Formulario

if nitem#0

lnRows=Val(this.Listitem(nitem,2))

*lnRows = Cantidad de Filas que se quieren mostrar.

with thisform

.GRid1.Height=.Grid1.HeaderHeight+lnRows*.Grid1.RowHeight

                .Height=.Grid1.top+.Grid1.height + lnEspacio

                 && Ver si es necesario mover el Combo1

endwith

endif

don walter creo que esto es la repuesta a un problema que me paso.

mi combo tenia como 25 items

pero cuando le coloque

que me desplegara todos los items

este combo se me me escondia del form

no se veian los primeros 4 items

tos esto lo coloco en el combo

para que no se me pierda el combo

--