재질문, 마우스 드래그로 버튼 옮기기(6.0소스를 .net로)
헤벌심
2023.04.01
실행된 폼내에서 커맨드 버튼을 마우스 드래그로 옮기는 소스입니다.6.0에서 구동되는 소스이며 .net로 옮겼을시볼트체로 표시한 부분에서 에러가 납니다.
Private Declare Function ReleaseCapture Lib user32.dll () As LongPrivate Declare Function SendMessage Lib user32.dll Alias SendMessageA (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByRef lParam AsAny) As Long
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Then ReleaseCapture SendMessage Command1.hWnd, &HA1, 2, ByVal 0& End IfEnd Sub
=======================================================================================
답변달아주신 두분 말씀을 듣고 수정하였는데 이런 문제가 발생하였습니다.
디버깅 실행 후
form1에 있는 button1을 드래그 했을때 에러가 납니다.
