검색어 입력폼

[비주얼베이직]비주얼베이직 마우스 이벤트

저작시기 2006.05 |등록일 2006.07.08 파일확장자압축파일 (zip) | 가격 500원

*해당 문서는 미리보기가 지원되지 않습니다.

소개글

화면에 여백을 클릭하면 현재 좌표와 왼쪽버튼으로 클릭하였는지 오른쪽버튼을 클릭하였는지 메시지박스로 보여주는 프로그램입니다.
화면에 있는 그림을 클릭하면 현재좌표와 그림을 클릭하였다는 메시지를 보여줍니다.

컴파일 실행환경

visual basic

본문내용

If judge = 1 Then `클릭한게 폼이면.

Select Case intButton

Case vbKeyLButton
MsgBox "왼쪽 버튼을 클릭하였습니다." + vbCr + vbLf + "X = " + _
Str(P_X) + ", Y = " + Str(P_Y)

Case vbKeyRButton
MsgBox "오른쪽 버튼을 클릭하였습니다." + vbCr + vbLf + "X = " + _
Str(P_X) + ", Y = " + Str(P_Y)

Case vbKeyMButton
MsgBox "가운데 버튼을 클릭하였습니다." + vbCr + vbLf + "X = " + _
Str(P_X) + ", Y = " + Str(P_Y)
End Select

ElseIf judge = 2 Then `클릭한게 이미지이면

Select Case intButton

Case vbKeyLButton
MsgBox "그림을 왼쪽 버튼으로 클릭하였습니다." + vbCr + vbLf + "X = " + _
Str(P_X) + ", Y = " + Str(P_Y)

압축파일내 파일목록

1번과제.frm
1번과제.exe
다운로드 맨위로