본문 바로가기
IT정보/비주얼베이직

[비주얼베이직] 키보드, 마우스 잠그기

by 곰사랑 2011. 7. 25.

비베를 실행시켜주세요

일반을 눌러주세요



Private Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long 을 선언해주세요



실행시키자마자 마우스를 잠그려면 폼로드에 BlockInput True 입력하세요

커맨드를 눌렀을때 마우스를 잠그려면 커맨드에  BlockInput True  입력하시오



예)
Private Sub Form_Load()
BlockInput True
End Sub

댓글9