MC3000

[ramirezosvaldo]

Estimados Colegas

Por fin hemos podido activar el escaner de la MC3000 usando codigo "C" dentro de harbour para Windows CE.

Bueno pues hay una funcion a la cual le indico la ventana donde se va a ir dicho valores scaneados..

Mis preguntas son ...

Como atrapar los eventos dentro de la instruccion "Activate" ?
Como atrapar ese evento y el valor que viene con el ?
Como tener siempre un Get con el focus, apesar de que se valide y debera regresar a ese focus ?

Saludos
Osvaldo Ramirez

[Antonio Linares]

Osvaldo,

El handle de la ventana está en el dato hWnd:

Code: Select all  Expand view  RUN

   oWnd:hWnd

Para acceder a un determinado mensaje que no sea de los estandards de Windows, tienes que crear una nueva clase a partir de TWindow:

Code: Select all  Expand view  RUN

CLASS TMyWindow FROM TWindow
   METHOD HandleEvent( nMsg, nWParam, nLParam )
ENDCLASS

METHOD HandleEvent( nMsg, nWParam, nLParam )

   do case
        case nMsg == ...
               ... código ...
               return ...
   endcase

return Super:HandleEvent( nMsg, nWParam, nLParam )


De todas formas por correo privado te ayudamos para que te funcione correctamente.

Si quieres que un GET no pierda el foco, simplemente haz que su VALID devuelva falso:

Code: Select all  Expand view  RUN

  VALID ( ... código ..., .F. )