如何在VB.NET中切换Caps Lock?
发布时间:2020-12-17 00:05:53 所属栏目:大数据 来源:网络整理
导读:使用VB.NET,如何切换Caps Lock的状态? 来自: http://www.vbforums.com/showthread.php?referrerid=61394t=537891 Imports System.Runtime.InteropServicesPublic Class Form2 Private Declare Sub keybd_event Lib "user32" ( _ ByVal bVk As Byte,_ ByVal
使用VB.NET,如何切换Caps Lock的状态?
来自:
http://www.vbforums.com/showthread.php?referrerid=61394&t=537891
Imports System.Runtime.InteropServices Public Class Form2 Private Declare Sub keybd_event Lib "user32" ( _ ByVal bVk As Byte,_ ByVal bScan As Byte,_ ByVal dwFlags As Integer,_ ByVal dwExtraInfo As Integer _ ) Private Const VK_CAPITAL As Integer = &H14 Private Const KEYEVENTF_EXTENDEDKEY As Integer = &H1 Private Const KEYEVENTF_KEYUP As Integer = &H2 Private Sub Button1_Click( _ ByVal sender As System.Object,_ ByVal e As System.EventArgs _ ) Handles Button1.Click ' Toggle CapsLock ' Simulate the Key Press keybd_event(VK_CAPITAL,&H45,KEYEVENTF_EXTENDEDKEY Or 0,0) ' Simulate the Key Release keybd_event(VK_CAPITAL,KEYEVENTF_EXTENDEDKEY Or KEYEVENTF_KEYUP,0) End Sub End Class (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |