如何打开键盘上的大写锁定，SendKeys "{CAPSLOCK}"行不通

桑特容易额

1 2 3 4 5 6 7 8 9 10 11 12

Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer Private Const VK_CAPITAL As Long = &H14 Private Const VK_NUMLOCK As Long = &H90 Private Const VK_SHIFT = &H10 Sub aaa() If GetKeyState(VK_CAPITAL) Mod &HFF80 = 1 Then     MsgBox "当前处于大写状态" Else     SendKeys "{CAPSLOCK}" End If End Sub

smsn

smsn

1. #If VBA7 Then
   
2.     Declare PtrSafe Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As LongPtr)
   
3. #Else
   
4.     Declare Sub keybd_event Lib "user32" Alias "keybd_event" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
   
5. #End If
   
6. 
   
7. Const KEYEVENTF_KEYUP = &H2
   
8. Const VK_CAPITAL As Long = &H14
   
9. 
   
10. Sub CAP()
    
11.     '按下
    
12.     keybd_event VK_CAPITAL, 0, 0, 0
    
13.     '释放
    
14.     keybd_event VK_CAPITAL, 0, KEYEVENTF_KEYUP, 0
    
15. End Sub

复制代码

其他按键

1. Private Const VK_ADD As Long = &H6B          '加号键
   
2. Private Const VK_APPS As Long = &H5D         'Applications 键（相当于鼠标右键）
   
3. Private Const VK_BACK As Long = &H8          'BackSpace 键
   
4. Private Const VK_CAPITAL As Long = &H14      'Caps Lock 键（大小写转换键）
   
5. Private Const VK_CANCEL As Long = &H3        'Ctrl + Break 过程
   
6. Private Const VK_CONTROL As Long = &H11
   
7. Private Const VK_DECIMAL As Long = &H6E      '小数点号键
   
8. Private Const VK_DELETE As Long = &H2E
   
9. Private Const VK_DIVIDE As Long = &H6F       '除号键
   
10. Private Const VK_DOWN As Long = &H28
    
11. Private Const VK_END As Long = &H23
    
12. Private Const VK_ESCAPE As Long = &H1B
    
13. Private Const VK_F1 As Long = &H70
    
14. Private Const VK_F10 As Long = &H79
    
15. Private Const VK_F11 As Long = &H7A
    
16. Private Const VK_F12 As Long = &H7B
    
17. Private Const VK_F2 As Long = &H71
    
18. Private Const VK_F3 As Long = &H72
    
19. Private Const VK_F4 As Long = &H73
    
20. Private Const VK_F5 As Long = &H74
    
21. Private Const VK_F6 As Long = &H75
    
22. Private Const VK_F7 As Long = &H76
    
23. Private Const VK_F8 As Long = &H77
    
24. Private Const VK_F9 As Long = &H78
    
25. Private Const VK_HOME As Long = &H24
    
26. Private Const VK_INSERT As Long = &H2D
    
27. Private Const VK_LCONTROL As Long = &HA2
    
28. Private Const VK_LEFT As Long = &H25
    
29. Private Const VK_LMENU As Long = &HA4        '左 Alt 键
    
30. Private Const VK_LSHIFT As Long = &HA0
    
31. Private Const VK_LWIN As Long = &H5B
    
32. Private Const VK_MENU As Long = &H12         'Alt 键
    
33. Private Const VK_MULTIPLY As Long = &H6A     '乘号键
    
34. Private Const VK_NEXT As Long = &H22         '下翻页键
    
35. Private Const VK_NUMLOCK As Long = &H90
    
36. Private Const VK_NUMPAD0 As Long = &H60
    
37. Private Const VK_NUMPAD1 As Long = &H61
    
38. Private Const VK_NUMPAD2 As Long = &H62
    
39. Private Const VK_NUMPAD3 As Long = &H63
    
40. Private Const VK_NUMPAD4 As Long = &H64
    
41. Private Const VK_NUMPAD5 As Long = &H65
    
42. Private Const VK_NUMPAD6 As Long = &H66
    
43. Private Const VK_NUMPAD7 As Long = &H67
    
44. Private Const VK_NUMPAD8 As Long = &H68
    
45. Private Const VK_NUMPAD9 As Long = &H69
    
46. Private Const VK_PAUSE As Long = &H13
    
47. Private Const VK_PRINT As Long = &H2A
    
48. Private Const VK_PRIOR As Long = &H21        '上翻页键
    
49. Private Const VK_RCONTROL As Long = &HA3
    
50. Private Const VK_RETURN As Long = &HD        '回车键
    
51. Private Const VK_RIGHT As Long = &H27
    
52. Private Const VK_RMENU As Long = &HA5        '右 Alt 键
    
53. Private Const VK_RSHIFT As Long = &HA1
    
54. Private Const VK_RWIN As Long = &H5C
    
55. Private Const VK_SCROLL As Long = &H91       'Scroll Lock 键
    
56. Private Const VK_SEPARATOR As Long = &H6C    '小键盘上的回车键
    
57. Private Const VK_SHIFT As Long = &H10
    
58. Private Const VK_SLEEP As Long = &H5F        '休眠键
    
59. Private Const VK_SNAPSHOT As Long = &H2C     'Print Screen 键
    
60. Private Const VK_SPACE As Long = &H20
    
61. Private Const VK_SUBTRACT As Long = &H6D     '减号键
    
62. Private Const VK_TAB As Long = &H9
    
63. Private Const VK_UP As Long = &H26

复制代码

桑特容易额

smsn 发表于 2022-12-6 21:49

测试 可行