Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) MsgBox "经过"End Sub
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) if abs(x-x0)<100 and abs(y-y0)<100 then MsgBox "经过"End Sub
Private Sub Map1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) ' 显示什么 End Sub
窗体里加个PictureBox Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) me.caption = "鼠标位置 X:" & X & " Y:" & Y End SubF5运行,鼠标在picturebox上移动的时候窗体的标题就会显示坐标。
//MSDN MouseMove 事件 此事件在移动鼠标时发生。语法Private Sub Form_MouseMove(button As Integer, shift As Integer, x As Single, y As Single)Private Sub MDIForm_MouseMove(button As Integer, shift As Integer, x As Single, y As Single)Private Sub object_MouseMove([index As Integer,] button As Integer, shift As Integer, x As Single, y As Single)MouseMove 事件语法包含下列部分:部分 描述 object 一个对象表达式,其值是“应用于”列表中的一个对象。 index 一个整数,用来唯一地标识一个在控件数组中的控件。 button 一个整数,它对应鼠标各个按钮的状态,如果某个按钮按下,其中就有一个二进制位被设置。button 参数是具有相应于左按钮(位 0),右按钮(位 1),以及中间按钮(位 2)的一个位字段。这些位的值分别等于 1,2,和 4。它指示这些鼠标按钮的整体状态;三个二进制位中的一些、全部、或一个也没有被设置,指示这些按钮中的一些、全部、或一个也没有被按下。 shift 一个整数,该整数相应于 SHIFT,CTRL,和 ALT 键的状态。某键被按下使得一个二进制位被设置。shift 参数是具有相应于 SHIFT 键(位 0),CTRL 键(位 1),以及 ALT 键(位 2)最少二进制位的一个位字段。这些位的值分别等于 1,2,和 4。shift 参数指示这些键的状态。这些位中可能有一些、全部、或者一个也没有被设置,指示这些键中的一些、全部、或者一个也没有被按下。例如,CTRL 和 ALT 键都被按下,则 shift 的值就是 6。 x, y 一个指定鼠标指针当前位置的数。x 和 y 的值所表示的总是通过该对象 ScaleHeight, ScaleWidth, ScaleLeft,和 ScaleTop 属性所建立的坐标系统的方式。 说明MouseMove 事件伴随鼠标指针在对象间移动时连续不断地产生。除非有另一个对象捕获了鼠标,否则,当鼠标位置在对象的边界范围内时该对象就能接收 MouseMove 事件。要测试 button 或 shift 参数,可使用对象浏览器中的 Visual Basic (VB) 对象库中所列出的常数,用来定义该参数中的各个位: 常数(按钮) 值 描述 vbLeftButton 1 左按钮按下。 vbRightButton 2 右按钮按下。 vbMiddleButton 4 中间按钮按下。 常数(换挡) 值 描述 vbShiftMask 1 SHIFT 键按下。 vbCtrlMask 2 CTRL 键按下。 vbAltMask 4 ALT 键按下。 然后这些常数用作位屏蔽,对于按钮的各种组合,无须计算出各个组合的唯一的位字段值即可进行检测。要测试某一条件,首先将各个结果赋给一个临时整型变量然后再与一个位屏蔽的 button 或 shift 参数进行比较。测试应当用各个参数进行 And 运算,若结果大于零,则说明该键或按钮被按下。其操作如下:LeftDown = (Button And vbLeftButton) > 0 CtrlDown = (Shift And vbCtrlMask) > 0然后,接下去可对结果的各种组合进行检测,其操作如下:If LeftDown And CtrlDown Then注意 为了对鼠标按钮按下和释放所引起的事件进行处理,可使用 MouseDown 和 MouseUp 事件过程。MouseMove 事件的 button 参数与 MouseDown 和 MouseUp 事件的 button 参数是不同的。对于 MouseMove 事件来说,button 参数指示的是所有按钮当前的状态;一个 MouseMove 事件可指示某些、全部或没有一个按钮被按下。对于 MouseDown 和 MouseUp 事件来说,button 参数在每个事件精确地指示一个按钮。在 MouseMove 事件中任何时侯移动窗口,都能引起层叠事件。当该窗口移动到指针下面时 MouseMove 事件将产生。即使是鼠标完全不动 MouseMove 事件也能产生。
至于改变鼠标的图标 可以在MOUSEICON里指定自己需要的图标就好了
今天中午时我给你看看 MapX中不是有个捕捉功能吗?
MouseMove (OLE Dispatch ID -606) :用户移动鼠标。可用于显示“状态栏”中的光标坐标。你先看看MouseMove 和光标坐标 能不能用 捕捉功能是捕捉一个图层上的图元,不适用特定的图元
'为了当用户在地图上移动鼠标和在其它点停止时捕获结束点,在 MouseMove 事件中编写了以下代码: Private Sub Map1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Dim MapCoordX As Double, MapCoordY As Double
If Map1.CurrentTool = RULERTOOLID And Button = vbLeftButton Then Map1.MapUnit = miUnitMile Map1.ConvertCoord X, Y, MapCoordX, MapCoordY, miScreenToMap fMainForm.sbStatusBar.SimpleText = Map1.Distance(XDown, YDown, MapCoordX, MapCoordY) & " miles" End If End Sub 看看这段代码还有用
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) MsgBox "经过"End Sub
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) if abs(x-x0)<100 and abs(y-y0)<100 then MsgBox "经过"End Sub
' 显示什么
End Sub
Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
me.caption = "鼠标位置 X:" & X & " Y:" & Y
End SubF5运行,鼠标在picturebox上移动的时候窗体的标题就会显示坐标。
MouseMove 事件
此事件在移动鼠标时发生。语法Private Sub Form_MouseMove(button As Integer, shift As Integer, x As Single, y As Single)Private Sub MDIForm_MouseMove(button As Integer, shift As Integer, x As Single, y As Single)Private Sub object_MouseMove([index As Integer,] button As Integer, shift As Integer, x As Single, y As Single)MouseMove 事件语法包含下列部分:部分 描述
object 一个对象表达式,其值是“应用于”列表中的一个对象。
index 一个整数,用来唯一地标识一个在控件数组中的控件。
button 一个整数,它对应鼠标各个按钮的状态,如果某个按钮按下,其中就有一个二进制位被设置。button 参数是具有相应于左按钮(位 0),右按钮(位 1),以及中间按钮(位 2)的一个位字段。这些位的值分别等于 1,2,和 4。它指示这些鼠标按钮的整体状态;三个二进制位中的一些、全部、或一个也没有被设置,指示这些按钮中的一些、全部、或一个也没有被按下。
shift 一个整数,该整数相应于 SHIFT,CTRL,和 ALT 键的状态。某键被按下使得一个二进制位被设置。shift 参数是具有相应于 SHIFT 键(位 0),CTRL 键(位 1),以及 ALT 键(位 2)最少二进制位的一个位字段。这些位的值分别等于 1,2,和 4。shift 参数指示这些键的状态。这些位中可能有一些、全部、或者一个也没有被设置,指示这些键中的一些、全部、或者一个也没有被按下。例如,CTRL 和 ALT 键都被按下,则 shift 的值就是 6。
x, y 一个指定鼠标指针当前位置的数。x 和 y 的值所表示的总是通过该对象 ScaleHeight, ScaleWidth, ScaleLeft,和 ScaleTop 属性所建立的坐标系统的方式。
说明MouseMove 事件伴随鼠标指针在对象间移动时连续不断地产生。除非有另一个对象捕获了鼠标,否则,当鼠标位置在对象的边界范围内时该对象就能接收 MouseMove 事件。要测试 button 或 shift 参数,可使用对象浏览器中的 Visual Basic (VB) 对象库中所列出的常数,用来定义该参数中的各个位: 常数(按钮) 值 描述
vbLeftButton 1 左按钮按下。
vbRightButton 2 右按钮按下。
vbMiddleButton 4 中间按钮按下。 常数(换挡) 值 描述
vbShiftMask 1 SHIFT 键按下。
vbCtrlMask 2 CTRL 键按下。
vbAltMask 4 ALT 键按下。
然后这些常数用作位屏蔽,对于按钮的各种组合,无须计算出各个组合的唯一的位字段值即可进行检测。要测试某一条件,首先将各个结果赋给一个临时整型变量然后再与一个位屏蔽的 button 或 shift 参数进行比较。测试应当用各个参数进行 And 运算,若结果大于零,则说明该键或按钮被按下。其操作如下:LeftDown = (Button And vbLeftButton) > 0
CtrlDown = (Shift And vbCtrlMask) > 0然后,接下去可对结果的各种组合进行检测,其操作如下:If LeftDown And CtrlDown Then注意 为了对鼠标按钮按下和释放所引起的事件进行处理,可使用 MouseDown 和 MouseUp 事件过程。MouseMove 事件的 button 参数与 MouseDown 和 MouseUp 事件的 button 参数是不同的。对于 MouseMove 事件来说,button 参数指示的是所有按钮当前的状态;一个 MouseMove 事件可指示某些、全部或没有一个按钮被按下。对于 MouseDown 和 MouseUp 事件来说,button 参数在每个事件精确地指示一个按钮。在 MouseMove 事件中任何时侯移动窗口,都能引起层叠事件。当该窗口移动到指针下面时 MouseMove 事件将产生。即使是鼠标完全不动 MouseMove 事件也能产生。
可以在MOUSEICON里指定自己需要的图标就好了
MapX中不是有个捕捉功能吗?
捕捉功能是捕捉一个图层上的图元,不适用特定的图元
Private Sub Map1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim MapCoordX As Double, MapCoordY As Double
If Map1.CurrentTool = RULERTOOLID And Button = vbLeftButton Then
Map1.MapUnit = miUnitMile
Map1.ConvertCoord X, Y, MapCoordX, MapCoordY, miScreenToMap
fMainForm.sbStatusBar.SimpleText = Map1.Distance(XDown, YDown, MapCoordX, MapCoordY) & " miles"
End If
End Sub
看看这段代码还有用