아래 코드를 복사한 후 실행하면 시스템 전체의 더블클릭시간이 10초로 변경된다. 시험해보고 싶다면 아래코드 실행한후에 다른 폴더를 더블클릭할때 첫번째 클릭과 두번째 클릭 간격을 5초후에 해도 폴더가 열림을 볼 수 있다. 이 더클클릭시간 원상태로 되돌리고 싶다면 [제어판]-[마우스]로 가서 더블클릭 시간을 변경해 주면 된다.
이 코드 실행하면 자동적으로 제어판에 있는 마우스의 더블클릭시간 설정 항목이 바뀔줄 알았는데 안바꼈다. 아래 코드는 마우스 등록정보와는 상관없이 돌아가는듯하다.
참고로 SetDoubleClickTime 안의 클릭 시간은 1/1000초 값을 적어주면 된다.
Private Declare Function SetDoubleClickTime Lib "user32" (ByVal wCount As Long) As Long
Private Sub Command1_Click()
SetDoubleClickTime (10000)
End Sub
Source Page : http://www.mentalis.org/tips/tip013.shtml
