函数参考

_WinAPI_SetCaretBlinkTime

设置插入符得闪烁时间.

#Include <WinAPIEx.au3>
_WinAPI_SetCaretBlinkTime ( $iDuration )

参数

$iDuration

新闪烁时间的毫秒值.如果此参数为 -1, 插入符号不闪烁.

返回值

成功:	返回先前闪烁时间的毫秒值.
失败:	返回 0,并设置@error标志为非 0 值.

注意/说明

用户可以使用控制面板设置闪烁时间,应用程序应尊重用户的选择设置.
函数仅使用允许用户设置闪烁时间的应用程序,例如一个控制面板小程序.

详情参考

在MSDN中搜索

示例/演示

#Include <APIConstants.au3>
#Include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#Include <WinAPIEx.au3>

Opt('MustDeclareVars', 1)

Global $hForm, $Msg, $Input, $Button, $Duration = Default, $hBitmap = _WinAPI_CreateSolidBitmap(0, 0x00AEFF, 10, 14)

OnAutoItExitRegister('OnAutoItExit')

$hForm = GUICreate('MyGUI', 400, 93)
$Input = GUICtrlCreateInput('', 20, 20, 360, 20)
$Button = GUICtrlCreateButton('Exit', 165, 59, 70, 23)
GUIRegisterMsg($WM_COMMAND, 'WM_COMMAND')
GUISetState()

While 1
    $Msg = GUIGetMsg()
    Switch $Msg
        Case $GUI_EVENT_CLOSE, $Button
            ExitLoop
    EndSwitch
WEnd

Func WM_COMMAND($hWnd, $iMsg, $wParam, $lParam)
Switch $hWnd
Case $hForm
Switch _WinAPI_LoWord($wParam)
Case $Input
Switch _WinAPI_HiWord($wParam)
Case $EN_KILLFOCUS
_WinAPI_HideCaret($lParam)
_WinAPI_DestroyCaret()
_WinAPI_SetCaretBlinkTime($Duration)
$Duration = Default
Case $EN_SETFOCUS
$Duration = _WinAPI_SetCaretBlinkTime(-1)
_WinAPI_CreateCaret($lParam, $hBitmap)
_WinAPI_ShowCaret($lParam)
EndSwitch
EndSwitch
EndSwitch
    Return $GUI_RUNDEFMSG
EndFunc   ;==>WM_COMMAND

Func OnAutoItExit()
_WinAPI_DeleteObject($hBitmap)
If Not IsKeyword($Duration) Then
_WinAPI_SetCaretBlinkTime($Duration)
EndIf
EndFunc   ;==>OnAutoItExit

函数参考

_WinAPI_SetCaretBlinkTime

参数

返回值

注意/说明

相关

详情参考

示例/演示