鼠标速度问题

Question

如何用程序修改控制面板上鼠标的移动速度?
我试过修改注册表的MOUSE但好像没什么效果.
请各位高手指教...
谢谢!!!

Answer 1

修改注册表-〉HKEY_CURRNT_USER\Control Panel\Mouse\MOuseSpeedTop

Answer 2

有这个MouseSpeedTop吗?我找不到这个.
只有MouseSpeed这个.我已经改了.但是没有作用.有其他的吗?
谢谢!!!

Answer 3

是没有用，我试过。你可以使用SystemParameterInfo函数来设置鼠标的速度   
  BOOL   SystemParametersInfo(   
      UINT   uiAction,     //   该参数在这里应该设置为SPI_SETMOUSESPEED   
      UINT   uiParam,       //   depends   on   action   to   be   taken   
      PVOID   pvParam,     //   该参数应该设置为1~20之间的整数   1为最慢   20为最快   
      UINT   fWinIni         //   user   profile   update   option   
  );   
  把第一个参数设置为SPI_SETMOUSESPEED   
    
  MSDN   中的说明   
    
  Windows   98/Me,   Windows   2000/XP:   Sets   the   current   mouse   speed.   The   pvParam   parameter   is   an   integer   between   1   (slowest)   and   20   (fastest).   A   value   of   10   is   the   default.   This   value   is   typically   set   using   the   mouse   control   panel   application.

Answer 4

当然没问题，请看：Option Explicit   
Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA"   (ByVal uAction As Long,ByVal uParam As Long,ByRef lpvParam As Any,ByVal fuWinIni As Long) As   Long   
Const SPI_GETMOUSESPEED=112   
Const SPI_SETMOUSESPEED=113   
Const SPIF_UPDATEINIFILE=&H1   
Const SPIF_SENDWININICHANGE=&H2   
    
SystemParametersInfo SPI_SETMOUSESPEED, 0,8&, SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE   
    
  以上代码设置鼠标速度为8   
  注意：&符号必不可少。

Answer 5

谢谢chenjl1031这么热心!!!!
问题还没有解决.....
期待解决方法................
谢谢!!!

Answer 6

问题已解决!!!!
把Const   SPI_GETMOUSESPEED=112       
Const   SPI_SETMOUSESPEED=113       
Const   SPIF_UPDATEINIFILE=&H1       
Const   SPIF_SENDWININICHANGE=&H2    
设为public就可以了..
谢谢 chenjl1031 !!!!!!  

Answer 7

我已经调试过了，改一个地方就可以了（改成值传送，问题解决了）：Option Explicit       
Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA"       (ByVal uAction As Long,ByVal uParam As Long,ByRef lpvParam As Any,ByVal fuWinIni As Long)As  Long       
Const SPI_GETMOUSESPEED=112       
Const SPI_SETMOUSESPEED=113       
Const SPIF_UPDATEINIFILE=&H1       
Const SPIF_SENDWININICHANGE=&H2       
        
private sub command1_click()
        SystemParametersInfo SPI_SETMOUSESPEED, 0,ByVal 1&, SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE
end sub      

Answer 8

我已经调试过了，改一个地方就可以了（改成值传送，问题解决了）：Option Explicit       
Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA"       (ByVal uAction As Long,ByVal uParam As Long,ByRef lpvParam As Any,ByVal fuWinIni As Long)As  Long       
Const SPI_GETMOUSESPEED=112       
Const SPI_SETMOUSESPEED=113       
Const SPIF_UPDATEINIFILE=&H1       
Const SPIF_SENDWININICHANGE=&H2       
        
private sub command1_click()
        SystemParametersInfo SPI_SETMOUSESPEED, 0,ByVal 1&, SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE
end sub      

Answer 9

我已经调试过了，改一个地方就可以了（改成值传送，问题解决了）：Option Explicit       
Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA"       (ByVal uAction As Long,ByVal uParam As Long,ByRef lpvParam As Any,ByVal fuWinIni As Long)As  Long       
Const SPI_GETMOUSESPEED=112       
Const SPI_SETMOUSESPEED=113       
Const SPIF_UPDATEINIFILE=&H1       
Const SPIF_SENDWININICHANGE=&H2       
        
private sub command1_click()
        SystemParametersInfo SPI_SETMOUSESPEED, 0,ByVal 1&, SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE
end sub      

Answer 10

我已经调试过了，改一个地方就可以了（改成值传送，问题解决了）：Option Explicit       
Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA"       (ByVal uAction As Long,ByVal uParam As Long,ByRef lpvParam As Any,ByVal fuWinIni As Long)As  Long       
Const SPI_GETMOUSESPEED=112       
Const SPI_SETMOUSESPEED=113       
Const SPIF_UPDATEINIFILE=&H1       
Const SPIF_SENDWININICHANGE=&H2       
        
private sub command1_click()
        SystemParametersInfo SPI_SETMOUSESPEED, 0,ByVal 1&, SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE
end sub      

Answer 11

我已经调试过了，改一个地方就可以了（改成值传送，问题解决了）：Option Explicit       
Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA"       (ByVal uAction As Long,ByVal uParam As Long,ByRef lpvParam As Any,ByVal fuWinIni As Long)As  Long       
Const SPI_GETMOUSESPEED=112       
Const SPI_SETMOUSESPEED=113       
Const SPIF_UPDATEINIFILE=&H1       
Const SPIF_SENDWININICHANGE=&H2       
        
private sub command1_click()
        SystemParametersInfo SPI_SETMOUSESPEED, 0,ByVal 1&, SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE
end sub      

Answer 12

我已经调试过了，改一个地方就可以了（改成值传送，问题解决了）：Option Explicit       
Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA"       (ByVal uAction As Long,ByVal uParam As Long,ByRef lpvParam As Any,ByVal fuWinIni As Long)As  Long       
Const SPI_GETMOUSESPEED=112       
Const SPI_SETMOUSESPEED=113       
Const SPIF_UPDATEINIFILE=&H1       
Const SPIF_SENDWININICHANGE=&H2       
        
private sub command1_click()
        SystemParametersInfo SPI_SETMOUSESPEED, 0,ByVal 1&, SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE
end sub      

Answer 13

这个程序我了前以未试过，只是作为自己的存档资料保存。今天下班回家以后，正如你说的怎么弄也不行。最后，将1&改为ByVal 1&，结果问题解决了！