Pregunta sobre el combobox

[emr]

Hola saludos a todos mi pregunta es la siguiente

si en un combobox tengo en el gotfocus KEYBOARD "{x41A0}" esto es
para que me despliegue los items que tengo en el combobox cuando toma
el foco, la pregunta es por que si le doy click al combobox no me deja
seleccionar con el mouse, se abre y se cierra inmediatamente, que
tengo que hacer para poder seleccionar tambien con el mouse.

De antemano muchas gracias por su ayuda.

Saludos

Enrique Martinez Regalado
Puerto Vallarta, Jalisco México

[ultraton500]

Parece que no hay caso, hice algunas pruebas pero nada. Lo que observé
es que, una vez que se le da un click cuando el combo está desplegado,
el mouse over vuelve a funcionar normalmente aunque se lo despliegue
por teclado (real o simulado). Veamos si a alguien se le ocurre algo
aunque lamentablemente pareciera que no tenemos control sobre esto.
Saludos,
Javier.

[Fabricio]

Puedes intentar con este truco, crea un propiedad en el combo, en el
formulario o una variable, en el evento MouseEnter del combo
asignale .T. a la propiedad en mención, por ejemplo ConMouse=.T., en
el evento MouseLeave asignale .F.

Ahora en el evento GotFocus
If !ConMouse
KEYBOARD "{x41A0}"
EndIf

En teoría, si das click no se ejecuta la instrucción KeyBoard, pero si
entras al combo por medio del teclado si se ejecutará.

Saludos

Fabricio

On 24 mar, 19:57, emr <emr99...@gmail.com> wrote:

[Enrique Martinez]

Fabricio

Muchisimas gracias es exactamente lo que necesitaba, lo probé y
funcionó a la perfección.

de Nuevo gracias por tu ayuda.

Saludos

Enrique Martinez

El día 25 de marzo de 2011 13:52, Fabricio
<fabricio...@hotmail.com> escribió:

[Enrique Martinez]

Gracias Javier

Saludos

Enrique Martinez

[Jairo Miranda]

Buenas tardes..
Por favor alguien a trabajado con tablas de fox 2.5 ? conocen alguna función
que me permita convertir esa tabla de 2.5 a fox 9.0 en tiempo de ejecución
ya que el programa dice que no encuentra dicha tabla .

Jairo

[Azael Allan Malvaez Monterrubio]

hola amigo oye yo tengo una duda, como puedo hacer para que en un combo tenga un listado de palabras y al momento de posicionarme pueda teclear la primera letra de una palabra y me de la palabra completa?, no se si me explique, desde ya muchas gracias!!!!

Azael Allan

 
> Date: Fri, 25 Mar 2011 15:50:52 -0600
> Subject: Re: [vfp] Re: Pregunta sobre el combobox
> From: emr9...@gmail.com
> To: publice...@googlegroups.com

[Luis Maria Guayan]

Debes abrirla en exclusivo desde VFP9 y listo. Allí te preguntará la página de códigos

 

Luis María Guayán
Tucumán, Argentina
_________________________
http://www.PortalFox.com

Nada corre como un zorro
_________________________

[Walter R. Ojeda Valiente]

Azael, lo que tú pides se llama "búsqueda incremental", a medida que el usuario va escribiendo letras le muestra el primer nombre que empieza con esas letras. Es muy útil, les facilita la vida a los usuarios y por lo tanto les gusta mucho.

Saludos.

Walter.

---

From: azael_...@hotmail.com
To: publice...@googlegroups.com
Subject: RE: [vfp] Re: Pregunta sobre el combobox
Date: Fri, 25 Mar 2011 23:05:26 +0000

[Jairo Miranda]

Allan la que te indica walter es la que mas se usa,  también se puede hacer con dos objetos

Un textbox y un listbox .

 

1.       En un  textbox.: A medida que escribes aparcen las ucurrenicias  , no olvides poner el set exact en off

                En el interactiveChange del textbox

 

InInsercionp=This.SelStart

lcBuscarstr=ALLTRIM(Substr(This.value,1,InInsercionp))

IF !EMPTY(lcBuscarstr)

   WITH Thisform

    SELECT MAE_PROD

    SET ORDER TO tag codigoID

    IF SEEK(lcBuscarstr)

       This.Value = cod_prod

    ELSE

      THIS.VALUE=lcBuscarstr

    ENDIF

   ENDWITH

ELSE

   THIS.VALUE=SPACE(0)

ENDIF

THIS.SELSTART=InInsercionp

 

2.       En un texbox y un listbox

               En el interactiveChange del textbox

LOCAL nIndex

WITH Thisform.gframes1.Page1 

 

.List2.visible = .T.

 

FOR nIndex  = 1 TO .List2.ListCount

       IF UPPER( .List2.ListItem(nIndex)) = UPPER( ALLTRIM( this.Value ) )

            .List2.ListIndex  =  nIndex

             EXIT

       ENDIF

ENDFOR

.List2.Refresh

ENDWITH

 

En el Click del Listbox  - crear un entorno de datos ordenado por el codigoID

 

   WITH Thisform

    SELECT MAE_PROD

    SET ORDER TO tag codigoID

    IF SEEK(This.value)

       This.Value = cod_prod

    ELSE

      THIS.VALUE=lcBuscarstr

    ENDIF

   ENDWITH

 

this.Visible = .F.

 

      

Espero te sirva