mbMouse

E' un OCX per la gestione della rotellina del mouse in ambiente dBASE. Funziona su tutti gli oggetti presenti nelle forms, simulando la pressione dei tasti freccia giù/freccia su.

mbMouse necessita che il runtime di VB6 sia installato.

Es. di utilizzazione all'interno di una form:

   function form_onOpen
      try
         //Inizializza l'oggetto mbmouse
         form.mbmouse1 = new ACTIVEX(form)
         with (form.mbmouse1)
            classId = "{583DD680-6440-4BD8-B662-DFD18D28B6CD}"
         endwith
         with (form.mbmouse1.nativeObject)
            WheelMoved      = class::NATIVEOBJECT_ONWHEEL
            WheelClick      = class::NATIVEOBJECT_WHEELCLICK
            registration    = "DEMO"
         endwith

         //Controlla se il S.O. supporta la rotellina
         if form.mbmouse1.nativeobject.wheelsupport() = true
            form.mbmouse1.nativeobject.start(form.hwnd)
         else
            form.mbmouse1.release()
            msgbox("Rotellina non supportata...")
         endif
      catch ( Exception e )
         msgbox("Impossbile inizializzare MBMouse")
      endtry
      return

function nativeObject_WheelClick
   //Click
  return

function nativeObject_onWheel(Keys,Direction, xPos, yPos)
   /*
  Keys : 0 = no key pressed
         4 = shift pressed
         8 = ctrl pressed
  
  Direction : "Up" or "Down"
  xpos,ypos : absolute mouse pointer position
  */

  if Direction = "Up"
     keyboard("{UpArrow}")

  elseif Direction = "Down"
     keyboard("{DnArrow}")
  endif
  return
 

Scarica la versione demo

Prezzo del componente : 36,00 € IVA inclusa

Per modalità di registrazione e pagamento

English
Version