Question

关于VB中mousemove事件的问题

这样的一个程序，用256个相同大小（300×300）的label组成了一个16×16的矩阵。想通过mousemove事件模拟成一个LED画图的软件。

想请教如何设置mousemove的参数或者是别的什么地方，可以实现仅当鼠标的左键为按下状态的时候，鼠标移过的label变成黑色。

PS：现在只能实现鼠标移过就变黑，好像没办法捕捉到鼠标左键按下的状态再作出响应。

Answer 1

你首先定义两个变量，用来存储mouse的起始位置，在mousedown事件中写入代码，把当前的位置存储下来（我没测试，你自己按照这个思路搞搞吧）。

然后在mousemove事件中，再通过返回的坐标值，去判断画图的区域，把区域内的都设置为黑色。

可以使用for （所有的lable（））变成黑色。

总的来说，你需要在两个事件中插入代码。

1. mousedown事件，获得mouse的起始位置。
2. mousemove事件，获得当前的mouse移动到的位置。一个循环判断语句，每次获得新的位置之后执行，用以把需要的lable置成黑色，这里需要判断新位置是在原来位置的左边还是右边，上边还是下边。

Answer 2

Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.BackColor = RGB(0, 0, 0)
End Sub