设置光标的闪动间隔
时 间:2008-02-20 08:00:44
作 者:andymark ID:1350 城市:深圳
摘 要:设置光标的闪动间隔
正 文:
新建一个窗体,在窗体里面任意新建一个文本框.
把下面代码复制到窗体的代码区, 保存并运行窗体,点击文本框就会看到效果:
'判断插入符光标的闪烁频率
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
'判断插入符光标的闪烁频率
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
Access软件网官方交流QQ群 (群号:54525238) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 【Access高效办公】统计当...(06.30)
- 【Access高效办公】用复选...(06.24)
- 根据变化的日期来自动编号的示例...(06.20)
- 【Access高效办公】按日期...(06.12)
- 合并列数据到一个文本框的示例;...(05.06)
- 通过命令按钮让Access列表...(04.24)
- 【Access高效办公】统计当...(03.11)
- 【Access Inputbo...(03.03)
- 按回车键后光标移动到下一条记录...(02.12)

学习心得
最新文章
- Access快速开发平台--执行有...(07.03)
- 【Access高效办公】统计当月之...(06.30)
- 【Access高效办公】用复选框控...(06.24)
- 根据变化的日期来自动编号的示例;根...(06.20)
- Access快速开发平台--Acc...(06.16)
- 【Access高效办公】按日期区间...(06.12)
- Access快速开发平台--生成复...(06.07)
- 仓库管理实战课程(25)-导航菜单...(06.06)
- 仓库管理实战课程(24)-库存月结...(06.05)
- 分享一个简单的X氏家谱小示例(06.04)