谢谢各位了

解决方案 »

  1.   

    函数功能:该函数检取光标的位置,以屏幕坐标表示。    函数原型:BOOL GetCursorPos(LPPOlNT IpPoint);    参数:    IpPint:POINT结构指针,该结构接收光标的屏幕坐标。    返回值:如果成功,返回值非零;如果失败,返回值为零。若想获得更多错误信息,请调用GetLastError函数。    备注:光标的位置通常以屏幕坐标的形式给出,它并不受包含该光标的窗口的映射模式的影响。该调用过程必须具有对窗口站的WINSTA_READATTRIBUTES访问权限。    速查:Windows NT:3.1及以上版本:Windows:95及以上版本;Windows CE:不支持;头文件:winuser.h;库文件:user32.lib。
      

  2.   

    type pointapi
       x as long
       y as long
    end type declare function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
      

  3.   

    private a as pointapisub Timer_timer()
    getcursorpos a
    debug.print a.x,a.yend sub
      

  4.   

    GetCursorPos VB声明 
    Declare Function GetCursorPos Lib "user32" Alias "GetCursorPos" (lpPoint As POINTAPI) As Long 
    说明 
    获取鼠标指针的当前位置 
    返回值 
    Long,非零表示成功,零表示失败。会设置GetLastError 
    参数表 
    参数 类型及说明 
    lpPoint POINTAPI,随同指针在屏幕像素坐标中的位置载入的一个结构 
      

  5.   

    Declare Function GetCursorPos Lib "user32" Alias "GetCursorPos" (lpPoint As POINTAPI) As Long 
    为什么该定义总是出错在引用里面田间USER32.DLL也不行望高手解答,谢谢!
      

  6.   

    楼上 请定义函数的 作用范围 Private