如何用vba控制windows的鼠标单击锁定功能？

ehomenhn2017

不知道有没有适用的api函数来实现：打开excel的时候关闭鼠标的单击锁定功能（也就是长安鼠标左键松开后就可以锁定左键）

ehomenhn2017

顶一下6666666666666

admin3354

通过修改注册表 HKEY_CURRENT_USER\Control Panel\Desktop\UserPreferencesMask 的二进制值可以控制这个勾，但是是重启生效，所以这条路几乎走不通。

参考 https://learn.microsoft.com/en-us/previous-versions/windows/it-pro/windows-2000-server/cc957204(v=technet.10)

sj15627581616

1. <span style="background-color: rgb(255, 255, 255);">自己在这个基础上 进行扩展调整吧</span>

复制代码

sj15627581616

sj15627581616 发表于 2024-12-8 08:42

1. Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
   
2. Private Declare PtrSafe Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Long
   
3. Const VK_NUMLOCK = &H90
   
4. Sub SetMouseClickLock()
   
5.     Dim shellApp As Object
   
6.     Dim state As Long
   
7.     Set shellApp = CreateObject("Shell.Application")
   
8.     shellApp.ShellExecute "control.exe", "mouse", "", "open", 1
   
9.     Sleep 2000
   
10.     SendKeys "^t", True
    
11.     Sleep 1000
    
12.     SendKeys "%{F4}", True
    
13.     state = GetKeyState(VK_NUMLOCK)
    
14.     If (state And 1) = 0 Then SendKeys "{NUMLOCK}" '
    
15. End Sub
    

复制代码

看起来论坛二次编辑代码有点问题，自己在这个基础上进行扩展开发吧

perfect131

UserPreferencesMask  更改以后确实没效果
用句柄方法

ehomenhn2017

perfect131 发表于 2024-12-8 13:28
UserPreferencesMask  更改以后确实没效果
用句柄方法

是了下，已经实现这个功能了，非常感谢大家，蛇年发财发财！