![](https://iknow-base.cdn.bcebos.com/lxb/notice.png)
vb使用api获取鼠标双击速度信息?
展开全部
【API使用】
DeclareFunction GetProfileInt Lib "kernel32" Alias"GetProfileIntA" (ByVal lpAppName As String, ByVal lpKeyName AsString, ByVal nDefault As Long) As Long
【使用实例】
OptionExplicit
DeclareFunction GetProfileInt Lib "kernel32" Alias"GetProfileIntA" (ByVal lpAppName As String, ByVal lpKeyName AsString, ByVal nDefault As Long) As Long
Sub Main()
Dim speed As Long
speed = GetProfileInt("windows","DoubleClickSpeed", 0)
MsgBox "[windows]" & vbCrLf& "DoubleClickSpeed = " & speed, , "GetProfileInt"
EndSub
DeclareFunction GetProfileInt Lib "kernel32" Alias"GetProfileIntA" (ByVal lpAppName As String, ByVal lpKeyName AsString, ByVal nDefault As Long) As Long
【使用实例】
OptionExplicit
DeclareFunction GetProfileInt Lib "kernel32" Alias"GetProfileIntA" (ByVal lpAppName As String, ByVal lpKeyName AsString, ByVal nDefault As Long) As Long
Sub Main()
Dim speed As Long
speed = GetProfileInt("windows","DoubleClickSpeed", 0)
MsgBox "[windows]" & vbCrLf& "DoubleClickSpeed = " & speed, , "GetProfileInt"
EndSub
![](https://ecmb.bdimg.com/tam-ogel/68fbe88b0a8f632a86bb01d6623d9be0_60_60.jpg)
2023-05-10 广告
您好!建议咨 深圳市微测检测有限公司,已建立起十余个专业实验室,企业通过微测检测就可以获得一站式的测试与认 证解决方案;(EMC、RF、MFi、BQB、QI、USB、安全、锂电池、快充、汽车电子EMC、汽车手机互 联、语音通话质量),认证遇...
点击进入详情页
本回答由微测检测5.10提供
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询