VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)

VB爱好者乐园(VBGood)

 找回密码
 立即注册
搜索
查看: 816|回复: 3

[分享] 很好看的小手图标——真没想到,百度上根本找不到!

[复制链接]
发表于 2018-4-11 14:04:03 | 显示全部楼层 |阅读模式
鼠标指针-小手的图标文件。

这个文件在百度上不太容易找到!

Hand.rar

203 Bytes, 下载次数: 72

解压后为ICO文件

评分

参与人数 1威望 +1 人气 +1 收起 理由
SPHINX + 1 + 1 很给力

查看全部评分

发表于 2018-4-14 14:54:47 | 显示全部楼层
这个不用自己找,系统自带
  1. Option Explicit

  2. Private Declare Function SetCursor Lib "user32" (ByVal hCursor As Long) As Long
  3. Private Declare Function LoadCursorBynum& Lib "user32" Alias "LoadCursorA" (ByVal hInstance As Long, ByVal lpCursorName As Long)
  4. Private Const IDC_HAND = 32649&
  5. Private Const IDC_APPSTARTING = 32650&
  6. Private Const IDC_BZ_ICON = 601
  7. Private Const IDC_ARROW = 32512&
  8. Private Const IDC_BZ_MESSAGE1 = 602
  9. Private Const IDC_BZ_RETRY = 600
  10. Private Const IDC_BZ_SWITCHTO = 604
  11. Private Const IDC_CROSS = 32515&
  12. '..................
  13. Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  14.     Static hCursor As Long
  15.     If hCursor = 0 Then hCursor = LoadCursorBynum&(0&, IDC_HAND)
  16.     SetCursor hCursor
  17. End Sub
复制代码
回复 支持 1 反对 0

使用道具 举报

发表于 2018-5-21 20:11:43 | 显示全部楼层
zzyong00 发表于 2018-4-14 14:54
这个不用自己找,系统自带

回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

文字版|手机版|小黑屋|VBGood  

GMT+8, 2018-10-15 18:11

VB爱好者乐园(VBGood)
快速回复 返回顶部 返回列表