Desactivar teclas dentro de ComboBox

[Roberto Lemos]

Buenas Tardes a todos, Cómo hago para deshabilitar todas las teclas
excepto, Flecha Arriba, Abajo, Esc y Enter dentro de un ComboBox (Al
entrar a un ComboBox)

[Hugo C.]

En el evento KeyPress del ComboBox inteneta
con algo como esto

IF NOT INLIST(TRANSFORM(nKeyCode), '5', '24', '27', '13')
NODEFAULT
ENDIF

Saludos.

[Roberto Lemos]

Gracias, era lo que necesitaba

Saludos

Roberto Lemos

-----Mensaje original-----
From: Hugo C.
Sent: Wednesday, November 02, 2011 2:38 PM
To: Comunidad de Visual Foxpro en Espa�ol
Subject: [vfp] Re: Desactivar teclas dentro de ComboBox

En el evento KeyPress del ComboBox inteneta
con algo como esto

IF NOT INLIST(TRANSFORM(nKeyCode), '5', '24', '27', '13')
NODEFAULT
ENDIF

Saludos.

On 2 nov, 12:25, Roberto Lemos <lemos....@gmail.com> wrote:

> Buenas Tardes a todos, C�mo hago para deshabilitar todas las teclas

[zelimott]

¿Podría ser los mismo esto ?

IF NOT INLIST( nKeyCode, 5, 24, 27, 13)
NODEFAULT
ENDIF

[Hugo C.]

Sip.

Saludos.

> > > entrar a un ComboBox)- Ocultar texto de la cita -
>
> - Mostrar texto de la cita -

[Roberto Lemos]

Una consulta, estoy haciendo lo siguiente,

Tengo un textbox, donde ingreso el texto que deseo buscar, según lo
ingresado se habilita un ListBox, donde me muestra los registros que
cumplen la condicion, hasta aqui todo bien, el problema es al salir
del ListBox, tengo el siguiente codigo en el KeyPress:

If nKeCode=13
ThisForm.TxtDescripcion.Value=Valor Seleccionado
ThisForm.TxtDescripcion.SetFocus
EndIf

Sin embargo, cuando salgo el enfoque me da al siguiente Text, no al
que le indico,

> > - Mostrar texto de la cita -- Ocultar texto de la cita -

[GeoSys Diseño de Software]

Y si puebas así:
If nKeCode=13
 nodefault && No ejecuto el enter por omisión. 
ThisForm.TxtDescripcion.Value=

Valor Seleccionado
 ThisForm.TxtDescripcion.SetFocus
EndIf

--
José Anthony Contreras Peralta

GeoSys Costa Rica.

[Roberto Lemos]

Funciono, gracias, a que se debe esto?

[GeoSys Diseño de Software]

NODEFAULT lo que hacer es que no ejecuta la tecla por omisión, en este caso nKeyCode=13 significa un ENTER, pero si le asignas que al presionar ENTER te haga NODEFAULT, entoces no ejecuta la tecla por defecto, o sea si presionas ENTER NO SALTARÁ AL SIGUIENTE CONTROL.

si no que se quedará sin saltar y hará lo que tengas en el código siguiente.

Puedes ver en la ayuda NODEFAULT