Question

vfp中如何使用mousemove

设计一个表单，其中的选项按钮组中有红、蓝、绿三色选择按钮，选择其中的一种颜色后，可以在表单上用此种颜色绘图（只用鼠标左键），“清除”按钮用于清除所作的图，“退出”按钮结束表单运行。求求求！！！！！！！！！！

Answer 1

Private Sub MSFlexGrid1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single) Dim i As Integer Dim j As Long For i =,vnAocZ

Answer 2

当用户在一个对象上移动鼠标时发生。

PROCEDURE Object.MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
参数
必须在事件过程中包含 LPARAMETERS 或 PARAMETERS 语句，并且为每个参数指定一个名称。Visual FoxPro 按下列顺序传递参数到 MOUSEMOVE 事件:

nButton
包含一个指明在鼠标移动时哪一键被按下, 如下表列出:
nButton 的鼠标键值

键 nButton 值
左鼠标键 1
右鼠标键 2
中鼠标键 4

如果鼠标移动时多于一个的鼠标键被按下, nButton 包含了鼠标键值的和。例如, 如果左和右鼠标键被按下, nButton 的值是 3。

nShift
存放一个数，它指定当按下用 nButton 指定的键时， SHIFT、CTRL 和 ALT 键的状态。
下表列出了单独修改键在 nShift 中返回的值。

nShift 的修改键值

Windows 键 值
SHIFT 1
CTRL 2
ALT 4

如果按下了一个键，就设置一个位，nShift 参数是这些位的和。低位对应于 SHIFT 键 (0 位)， CTRL 键 (1 位)， ALT 键 (2 位)，这些位分别对应于 1，2 和 4。nShift 参数表明这些键的状态。部分、全部或没有设置三个位，表明部分、全部或没有按下三个键。例如，如果 CTRL 和 ALT 键全部按下，那么 nShift 的值为 6。

nXCoord, nYCoord
存放表单中鼠标指针当前的水平 (nXCoord) 和垂直 (nYCoord) 位置。这些坐标总是以 ScaleMode 属性设置值为度量单位，按照指定表单的坐标系统表达的。
当鼠标指针在对象之间移动时，连续触发 MOUSEMOVE 事件。

注意 可以用 MouseDown 和 MouseUp 事件响应由按下和释放鼠标键引起的事件。MouseMove 使用的 nButton 参数与 MouseDown 和 MouseUp 使用的 nButton 参数不同。对于 MouseMove，nButton 参数表明了所有键的当前状态；一个单独的 MOUSEMOVE 事件可以表明部分、全部或没有按下任何键；对于 MouseDown 或 MouseUp，每个事件中 nButton 参数确切地指明一个键。要避免在 MOUSEMOVE 事件过程中移动一个窗口，这会引起级联事件并产生运行错误，例如堆栈溢出。当窗口在指针下移动时会触发 MOUSEMOVE 事件。这样即使鼠标静止时也会触发一个 MOUSEMOVE 事件。