主页

如何在图片框中实现鼠标闪烁的效果，象文本框那样

csdnzm 东莞市电子计算中心信息技术 2003-12-15 06:46:52

需要在图片框实现数据录入，请问如何在图片框中实现鼠标闪烁的效果，象文本框那样？有什么api函数可以实现么？

...全文

1 条回复

切换为时间正序

请发表友善的回复…

发表回复

rainstormmaster 2003-12-15

需要的函数声明：
Option Explicit
Private Declare Function GetCaretBlinkTime Lib "user32" _
() As Long
Private Declare Function SetCaretBlinkTime Lib "user32" _
(ByVal wMSeconds As Long) As Long
Private Declare Function GetCaretPos Lib "user32" _
(lpPoint As POINTAPI) As Long
Private Declare Function SetCaretPos Lib "user32" _
(ByVal X As Long, ByVal Y As Long) As Long
Private Declare Function DestroyCaret Lib "user32" () _
As Long
Private Declare Function CreateCaret Lib "user32" _
(ByVal hwnd As Long, ByVal hBitmap As Long, _
ByVal nWidth As Long, ByVal nHeight As Long) _
As Long
Private Declare Function ShowCaret Lib "user32" (ByVal _
hwnd As Long) As Long
Private Type POINTAPI
X As Long
Y As Long
End Type

回复赞

发动态

发帖子

VB基础类

创建于2007-09-28

加入

7451

社区成员

19.7w+

社区内容

VB 基础类

申请成为版主

社区公告

暂无公告