设置光标的闪动间隔
时 间: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群 (群号:483923997) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 【Access小作品】简单的待...(04.30)
- 【Access窗体导出PDF】...(04.08)
- 【Access窗体导出PDF】...(04.07)
- Access两种方式实现即时更...(03.01)
- Access隐藏与显示lacc...(01.12)
- 【Access高效办公】将每个...(12.23)
- Access21点游戏源代码(12.13)
- 【Access窗体导出Exce...(11.15)
- 【Access开发】Acces...(11.14)
学习心得
最新文章
- 【Access小作品】简单的待办任...(04.30)
- 从另一个ACCESS数据库批量导入...(04.29)
- Access日期格式的数据导出Ex...(04.28)
- ACCESS精华集锦资料.CHM(04.25)
- Access VBA语句If Me...(04.24)
- 【Access修改记录示例】编辑选...(04.22)
- 【Access表名称命名建议】将A...(04.20)
- Access学习笔记--用Acce...(04.19)
- 【Access重复项查询示例】将A...(04.17)
- Access快速开发平台企业版--...(04.16)