Lê e seta o intervalo do duplo clique

[ℛiqu∊ 13]

Private Declare Function GetDoubleClickTime Lib "user32" () As Long

Private Declare Function SetDoubleClickTime Lib "user32" (ByVal wCount As Long) As Long

 

Private Sub Command1_Click()

s = GetDoubleClickTime

MsgBox s

End Sub

 

Private Sub Command2_Click()

s = SetDoubleClickTime(500) ' 500 milisegundos.

End Sub

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se