VB6 利用API设置鼠标的双击间隔速度2023年5月6日 19:25
新建From1（窗体），新建Command1（按钮CommandButton），代码：
Private Declare Function SetDoubleClickTime Lib "user32.dll" (ByVal wCount As Long) As Long
Private Sub Command1_Click()
Dim ret As Long
ret = SetDoubleClickTime(1000)
MsgBox "鼠标双击速度现在设置为1秒（1000毫秒）。"
End Sub
全部回复（0）