示例应用于
此事件在移动鼠标时发生。
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事件也能产生。
MouseMove 事件示例
本例演示一个简单的绘图应用程序。当任鼠标按钮按下并拖动时，MouseDown 事件过程和一个相关的 MouseMove 事件协同工作以启动绘图。 MouseUp 事件过程禁止绘图。 要尝试这个例子，可将代码粘贴到一个窗体的声明部分，然后按 F5 键，单击窗体并在鼠标按钮按下时移动鼠标。
Dim PaintNow As Boolean ' 声明变量.Private Sub Form_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)PaintNow = True ' 启动绘图。 End SubPrivate Sub Form_MouseUp (Button As Integer, X As Single, Y As Single)PaintNow = False ' 关闭绘图。 End SubPrivate Sub Form_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)If PaintNow ThenPSet (X, Y) ' 画一个点。 End IfEnd SubPrivate Sub Form_Load ()DrawWidth = 10 ' 使用更宽的刷子。 ForeColor = RGB(0, 0, 255) ' 设置绘图颜色。 End Sub
应用于：
CheckBox 控件
CommandButton 控件
Data 控件
DirListBox 控件
Form 对象、Forms 集合
Frame 控件
Image 控件
Label 控件
ListBox 控件
MDIForm 对象
OLE容器控件
OptionButton 控件
PictureBox 控件
PropertyPage 对象
TextBox 控件
UserControl 对象
相关知识
$firstVoiceSent
- 来自原声例句