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

一杯清茶几行代码 2003-12-15 06:46:52
需要在图片框实现数据录入,请问如何在图片框中实现鼠标闪烁的效果,象文本框那样?有什么api函数可以实现么?
...全文
38 1 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
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

7,785

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧