如何控制一个picturebox在另一个picturebox上跟随者鼠标移动而移动
如何控制一个picturebox在另一个picturebox上跟随者鼠标移动而移动,鼠标按下选中,然后随着鼠标移动而移动,松开鼠标,就停止移动!
是要换鼠标图案吧?然后再让点中的图跟着动?鼠标在图上图案会变~其实预设有可选~Picture1.MousePointer
或自订图形~
Picture1.MouseIcon =LoadPicture("Path")
先
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
'Get到鼠标原始位置
End Sub
再到~
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'鼠标现在位置-鼠标原始位置=图案移动位置
End Sub
大概是这样做吧~