달력

10

« 2019/10 »

  •  
  •  
  • 1
  • 2
  • 3
  • 4
  • 5
  • 6
  • 7
  • 8
  • 9
  • 10
  • 11
  • 12
  • 13
  • 14
  • 15
  • 16
  • 17
  • 18
  • 19
  • 20
  • 21
  • 22
  • 23
  • 24
  • 25
  • 26
  • 27
  • 28
  • 29
  • 30
  • 31
  •  
  •  
' 선언부

' ### 커서/아이콘 관련
Private Declare Function GetIconInfo Lib "user32.dll" (ByVal hIcon As Long, ByRef piconinfo As ICONINFO) As Long
Private Declare Function GetCursorInfo Lib "user32.dll" (ByRef pci As CURSORINFO) As Long
Private Declare Function DrawIconEx Lib "user32.dll" ( _
    ByVal hdc As Long, _
    ByVal xLeft As Long, _
    ByVal yTop As Long, _
    ByVal hIcon As Long, _
    ByVal cxWidth As Long, _
    ByVal cyWidth As Long, _
    ByVal istepIfAniCur As Long, _
    ByVal hbrFlickerFreeDraw As Long, _
    ByVal diFlags As Long _
) As Long

'사용 시

Dim ci As CURSORINFO, ii As ICONINFO, pt As POINTAPI, rc As RECT, rcForm As RECT, rcIntersect As RECT, cx As Long, cy As Long

ci.cbSize = Len(ci)
GetCursorInfo ci ' ### 마우스 커서 정보를 얻는다.
GetIconInfo ci.hCursor, ii ' ### 마우스 커서의 아이콘 정보를 얻는다.
pt = ci.ptScreenPos
Posted by 현자

댓글을 달아 주세요