본문 바로가기

DEV/VB

윈도우 마우스 포인트 좌표 가져오기

반응형
' 선언부

' ### 커서/아이콘 관련
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
반응형

'DEV > VB' 카테고리의 다른 글

Visual Basic 현재 날짜 가져 오기  (2) 2010.09.15
VisualBasic ODBC를 이용한 DB접속  (0) 2010.04.08
VisualBasic 파일 입출력  (0) 2010.04.08
VisualBasic 폼의 투명도 설정하기  (0) 2010.04.08
VisualBasic 폼을 원으로 만들기  (0) 2010.04.08
댓글