[AccessD] Mouse pointer

MastercafeCTV mastercafe at ctv.es
Thu May 15 10:26:53 CDT 2003


MessageYou need indicate MOUSE MOVE to send the function that put the new
picture over mouse position
Check the frmMainMenuList and taking one textbox look the mouse Events

Regards

Juan
  -----Mensaje original-----
  De: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com]En nombre de Roz Clarke
  Enviado el: jueves, 15 de mayo de 2003 16:11
  Para: 'accessd at databaseadvisors.com'
  Asunto: RE: [AccessD] Mouse pointer


  OK I have inserted the sample code into a module and tried to change the
mouse pointer using one of the constants. Nothing happens. Stepping through
the code

  Public Const IDC_CROSS = 32515&

  Declare Function LoadCursorBynum Lib "user32" Alias "LoadCursorA" _
    (ByVal hInstance As Long, ByVal lpCursorName As Long) As Long

  Declare Function SetCursor Lib "user32" _
    (ByVal hCursor As Long) As Long

  Function MouseCursor(CursorType As Long)
    Dim lngRet As Long
    lngRet = LoadCursorBynum(0&, CursorType)
    lngRet = SetCursor(lngRet)
  End Function

  having called it as so -> MouseCursor(IDC_CROSS), with a watch on lngRet
I'm finding that the value of lngRet = 0 at all times. I'm inept at API to
say the least - what am I missing here?

  Roz
    -----Original Message-----
    From: MastercafeCTV [mailto:mastercafe at ctv.es]
    Sent: 15 May 2003 14:24
    To: accessd at databaseadvisors.com
    Subject: RE: [AccessD] Mouse pointer


    Check http://www.mvps.org/access/index.html you can see some samples and
its application have the main cursor setting. I recommend you download and
check the sample.

    Regards

    Juan
      -----Mensaje original-----
      De: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com]En nombre de Roz Clarke
      Enviado el: jueves, 15 de mayo de 2003 15:02
      Para: 'accessd at databaseadvisors.com'
      Asunto: [AccessD] Mouse pointer


      Does anyone know how to set a custom mouse pointer? I want to use the
mouse to indicate a drill-down field and none of the mouse settings listed
in the VB help file (normal, hourglass, insert, resize) are suitable.

      TIA

      Roz
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://databaseadvisors.com/pipermail/accessd/attachments/20030515/773f78a4/attachment-0001.html>


More information about the AccessD mailing list