수다닷컴

네이버 맵처럼 픽쳐박스를 드래그하면 그 안의 그림이 옮겨지는 거를 구현하려고 합니다.
우선 제가 소스를 짰는데요... 잘 안되네여..
Private Sub picMap_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
Dim ClearIDisp As IPictureDisp
If (MapMove_ClickOK = False) And (Button = 1) Then
MapMove_ClickOK = True
PicMap_Backup.Picture = picMap.Picture
End If
If (MapMove_ClickOK = True) And (Button = 1) Then
Call BitBlt(picMap.hdc, x, y, picMap.Width, picMap.Height, PicMap_Backup.hdc, 0, 0, vbSrcCopy)
End If
If (MapMove_ClickOK = True) And (Button = 0) Then
MapMove_ClickOK = False
End If
End Sub

PicMap은 보이게 해놨고,
PicMap_Backup은 보이지 않게 해놨습니다.
뭐 드래그하면.....

-----------------------------------------------수정합니다-----------------------------
Call BitBlt(picMap.hdc, (x - MapMove_StartX), (y - MapMove_StartY), picMap.Width, picMap.Height, PicMap_Backup.hdc, 0, 0, vbSrcCopy)
picMap.Refresh

이렇게 해서 제가 원하는 데로 한 50%정도 되긴 하는데
이미지가 깜빡거립니다.
bitblt 전에 Picmap.cls을 해도 먹통입니다. 이건... 왜그런지는 모르겠지만 LoadPicture으로 불러와서 그런거 같습니다.
이제 픽쳐박스를 지울 방법만 알면 되는데...

신청하기