| 把下面复制到窗体, 点击文本框就会看到效果 '判断插入符光标的闪烁频率 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详细内容：http://www.office-cn.net/forum.php?mod=viewthread&tid=59685 |
|站长邮箱|小黑屋|手机版|Office中国/Access中国
( 粤ICP备10043721号-1 )
GMT+8, 2024-4-29 07:47 , Processed in 0.111662 second(s), 16 queries .
Powered by Discuz! X3.3
© 2001-2017 Comsenz Inc.
