ダブルクリック時間の取得と設定          <TOP>


マウスのダブルクリック時間の取得と設定を実行します。

GetDoubleClickTime ダブルクリック時間の取得

SetDoubleClickTime ダブルクリック時間の設定

 

私の環境では遅くで900、速くで200でした。

 

 

'================================================================
'= ダブルクリック時間の取得と設定
'=    (DoubleClickTime.bas)
'================================================================
#include "Windows.bi"

' ダブルクリック時間の取得
Declare Function Api_SetDoubleClickTime& Lib "user32" Alias "SetDoubleClickTime" (ByVal wCount&)

' ダブルクリック時間の取得
Declare Function Api_GetDoubleClickTime& Lib "user32" Alias "GetDoubleClickTime" ()

Var Shared Text2 As Object
Text2.Attach GetDLgItem("Text2")
Text2.SetFontSize 14

Var Shared Dct As Long                    'ダブルクリック時間

'================================================================
'=
'================================================================
Declare Sub Button1_on edecl ()
Sub Button1_on()
    Dct = Api_GetDoubleClickTime        'ダブルクリック時間取得
    Text2.SetWindowText Str$(Dct)
End Sub

'================================================================
'=
'================================================================
Declare Sub Button2_on edecl ()
Sub Button2_on()
    Var Ret As Long

    Dct = val(GetDlgItemText("Edit1"))

    If Dct = 0 Then Exit Sub
    Ret = Api_SetDoubleClickTime(Dct)    'ダブルクリック時間設定
    Text2.SetWindowText ""
End Sub

'================================================================
'=
'================================================================
While 1
    WaitEvent
Wend
Stop
End