画图怎的处理鼠标，鼠标不能越界

画图怎样处理鼠标，鼠标不能越界
比如在picturebox上画图形，如果鼠标超过picturebox的范围，但是画得图不能出去，怎么处理？

VB code

Dim x1, y1 As LongPrivate Sub Command1_Click()Picture1.ClsEnd SubPrivate Sub Picture1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)If Button Thenx1 = x: y1 = yEnd IfEnd SubPrivate Sub Picture1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)If Button ThenPicture1.DrawWidth = 3Picture1.ClsPicture1.Circle (x1, y1), Sqr((x1 - x) ^ 2 + (y1 - y) ^ 2)End IfEnd Sub

[解决办法]
加上判定试试啊


if X <= Picture1.width and Y <= Picture1.height

Picture1.Circle (x1, y1), Sqr((x1 - x) ^ 2 + (y1 - y) ^ 2)

end if
[解决办法]
超过picturebox的范围么, 就不存在咯. 好比你桌上一张白纸, 你拿笔在纸外面画画, 这纸上当然不会有痕迹.

如果有报错, 那么针对报错的地方改一下代码就可以啦.
[解决办法]
是的加越界判定语句就可以了。

查看更多 下一篇