▶ 뭉충닷컴
 
mungchung.com login
Site Search
My Space
주절주절...
공부방
쥔장소개
Board
자유게시판
유용한 정보
자료실
Programming
강좌 & Articles
Spring 3.0
프로그래밍 Tip
   -ASP
   -PHP
   -JavaScript
   -HTML
   -Java/JSP
   -Database
   -Crystal Report
   -Visual Basic
   -이클립스
   -리눅스
   -기타
Windows API (VB)
Spread Sheet 7.0
컴퓨터활용 Tip
Other things
StarCraft 전략
StarCraft 문서
김용(金庸)
Son Q & Dieda

마우스(Mouse) 이동

조회 수 4600 추천 수 0 2005.05.24 22:07:23
뭉충닷컴 *.101.175.159
참고로 원문 소스가 잘못 되어 있어서 데브피아에서 글 보고 조금 수정했다.


'-------------------------------------------------------------------------------------------
// 마우스를 화면 최상된 왼쪽 끝으로 이동
'-------------------------------------------------------------------------------------------
Private Type POINTAPI
    x As Long
    y As Long
End Type
Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Dim pt As POINTAPI

Private Sub Command1_Click()
    SetCursorPos 0, 0
End Sub


'-------------------------------------------------------------------------------------------
// 마우스의 현재좌표구해서 오른쪽으로 10만큼 이동하도록
'-------------------------------------------------------------------------------------------
Private Type POINTAPI
    x As Long
    y As Long
End Type
Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Dim pt As POINTAPI

Private Sub Command1_Click()
    GetCursorPos pt
    SetCursorPos pt.x + 10, pt.y
End Sub





Source Page : http://www.mentalis.org/tips/tip019.shtml
문서 첨부 제한 : 0Byte/ 2.00MB
파일 크기 제한 : 2.00MB (허용 확장자 : *.*)
List of Articles
번호 제목 글쓴이 날짜 조회 수
공지 본 게시물들은 AllAPI.net 에서 퍼온것을 수정한겁니다. 뭉충닷컴 2005-05-24 7603