_WSetPort( ) (Rutina de biblioteca API)

Establece la ventana especificada como la ventana de resultado para el usuario.

WHANDLE _WSetPort(WHANDLE wh)
WHANDLE wh;            /* Window handle. */

Observaciones

_WSetPort( ) devuelve el controlador de la ventana de resultado anterior del usuario.

Nota   Si la rutina cambia la ventana de resultado para el usuario, asegúrese de restaurar dicha ventana antes de volver a Visual FoxPro.

Para obtener más información acerca de cómo crear una biblioteca API e integrarla con Visual FoxPro, vea Acceso a la API de Visual FoxPro.

Ejemplo

El ejemplo siguiente crea una ventana y la convierte en el puerto de salida. Escriba texto en esta ventana antes de volver a cambiar al puerto de salida original.

Código Visual FoxPro

SET LIBRARY TO WSETPORT

Código C

#include <pro_ext.h>

void putLong(long n, int width)
{
   Value val;

   val.ev_type = 'I';
   val.ev_long = n;
   val.ev_width = width;

   _PutValue(&val);
}

FAR Example(ParamBlk FAR *parm)
{

   WHANDLE wh;
   WHANDLE oldPort;

   wh = _WOpen(2,10,23,70,WEVENT | CLOSE,WINDOW_SCHEME,(Scheme FAR *)0,
      WO_SYSTEMBORDER);
   _WShow(wh);

   _PutStr("\n1) _WGetPort() ="); putLong(_WGetPort(), 10);

   oldPort = _WSetPort(wh);
   _PutStr("\n2) _WSetPort(wh) ="); putLong(oldPort, 10);

   _PutStr("\n3) _WGetPort() ="); putLong(_WGetPort(), 10);

   oldPort = _WSetPort(oldPort);
   _PutStr("\n4) _WSetPort(oldPort) =");  putLong(oldPort, 10);

   _PutStr("\nShould be back where we started.");
}

FoxInfo myFoxInfo[] = {
   {"ONLOAD", (FPFI) Example, CALLONLOAD, ""},
};
FoxTable _FoxTable = {
   (FoxTable FAR *) 0, sizeof(myFoxInfo)/sizeof(FoxInfo), myFoxInfo
};

Vea también

_WGetPort( ) (Rutina de biblioteca API) | _PutStr( ) (Rutina de biblioteca API) | _WShow( ) (Rutina de biblioteca API) | Entrada y salida