mbMouse

is an OCX that enables the mouse wheel in dBASE. This component works with all present objects in a form; during scrool mbMouse simulates keys up/down.

mbMouse needs  VB6 runtime installed.

Example:

   function form_onOpen
      try
         //Start 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

         //Check wheel support
         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
 

Download demo

Component price : 36,00 €

Info, payment and registration :