Office中国论坛/Access中国论坛

标题: 设置光标的闪动间隔 [打印本页]

作者: andymark 时间: 2008-2-17 15:21
标题: 设置光标的闪动间隔
　把下面复制到窗体, 点击文本框就会看到效果

'判断插入符光标的闪烁频率
Private Declare Function GetCaretBlinkTime Lib "user32" () As Long
'指定插入符（光标）的闪烁频率
Private Declare Function SetCaretBlinkTime Lib "user32" (ByVal wMSeconds As Long) As Long
Dim OldBlinkTime As Long, Retval As Long

Private Sub Form_Load()
'保存初始值
OldBlinkTime = GetCaretBlinkTime
'设置光标闪烁间隔，以毫秒为单位
Call SetCaretBlinkTime(500)
End Sub

Private Sub Form_Unload(Cancel As Integer)
'恢复初始状态
Call SetCaretBlinkTime(OldBlinkTime)
End Sub

作者: fswxs 时间: 2008-2-17 15:59
很好玩呢，设时间短点，呵呵

作者: tmtony 时间: 2008-2-18 09:57
收藏了

作者: chinj 时间: 2008-5-11 10:03
很不错。

作者: chinj 时间: 2008-5-11 10:03
支持了。

作者: chinj 时间: 2008-5-11 12:30
收藏，备用。

作者: chaojianan 时间: 2009-9-27 10:40
支持，收藏了。

作者: xie62 时间: 2011-3-2 10:28
支持，收藏了。

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)