Solução de como fazer o menu da wvw abrir via comando.

[edmarfrazao]

Graças ao FabioNery (desenv@graphosinformatica.com.br)

me passou e repasso como fazer o menu da wvw se abrir via codigo.

para que criou o menu da wvw bom base no exemplo

.. comando do menu

Código: Selecionar todos

 SETINKEYAFTERBLOCK({|nkey| nAfterInkey(nkey)})

 F_VKEYBOARD( VK_MENU, 0x080 )   // ALT => HEX = 12, DEC = 18
 F_VKEYBOARD( "C" )  // Menu de cadastro com a letra c em destaque


 do while !((ch:=inkey(0))==K_ESC)
 enddo

acrecente o arquivo xhbfunc.c em anexo e tudo funcionara bem.

O menu ficara aberto no menu que você especificar.

teste com xharbour comercial

aquivo em c.

Código: Selecionar todos

#include "windows.h"
#include "hbapi.h"

#pragma BEGINDUMP

HB_FUNC( F_VKEYBOARD )
{
  BYTE  bScanCode = ISNIL(2) ? 0 : hb_parni(2);
  DWORD dwFlags   = ISNIL(3) ? 0 : hb_parni(3);
  BYTE  Tecla;

  if ISCHAR(1)
  {
     Tecla = VkKeyScan( hb_parni(1) );
  }
  else
  {
     Tecla = hb_parni(1);
  }

  keybd_event( Tecla, bScanCode, dwFlags, 0 );

  keybd_event( Tecla, bScanCode, KEYEVENTF_KEYUP, 0 );

}

#pragma ENDDUMP

[angeiras]

Ola,

Muito boa a solucao. Ja vinha tentando fazer essa alteracao mas estava sem tempo e, principalmente, estava sem ideia de como resolver o problema

[]s
Manoel Angeiras

[edmarfrazao]

faltou a exemplicação da função

Código: Selecionar todos

/* F_VKeyBoard( Tecla, bScanCode, dwFlags )
* Parametros:
*  1 - Tecla     - tecla virtual a ser pressionada ex: VK_MENU, 0x012, "A", "1" etc
*  2 - bScanCode - (opcional) - vide funcao keybd_event na internet
*  3 - dwflags   - (opcional) - vide funcao keybd_event na internet
*/

outra alteração quando clickar em uma opção e executada o loop do do while então altereia para

Código: Selecionar todos

F_VKEYBOARD( VK_MENU, 0x080 )   // ALT => HEX = 12, DEC = 18
   F_VKEYBOARD( "C" )

   do while .T. //!((ch:=inkey(0))==K_ESC)
       ch:=inkey()
       *IF vSairMenu
       *   EXIT
       *ENDIF     
      F_VKEYBOARD( VK_MENU, 0x080 )   // ALT => HEX = 12, DEC = 18
      F_VKEYBOARD( "C" )

      ch:=inkey(0)
      if CH=K_ESC
         EXIT
      ENDIF
   enddo