Question

VB.NET 如何把鼠标移动事件写在模块中,并跟写在窗体中一样有效。

MouseUp 鼠标弹起事件 --产生效果
MouseEnter 鼠标进入事件 --
MouseLeave 鼠标离开事件
MouseHover鼠标停放时发生
MouseMove 鼠标进入移动事件

比如说此类，由于控件太多，都写在窗体里非常的杂和乱。写在模块里面该如何实现？

Answer 1

这个还是要放在窗体中，因为是窗体发生的事件，我猜你觉得乱的原因是你每个控件都写好几个鼠标进入、离开之类的事件？其实很多类似的控件，可以合并成一个事件，只要handle后面带上多个控件名称即可。

追问

比如说怎么合并, 举个例子。 现在有3个图片控件 名字假设为1 ，2，3 mouseenter 事件为 msgbox"测试成功" 代码该怎么写

追答

窗体上现在有3个图片控件 名字假设为PictureBox1 ，PictureBox2，PictureBox3：
Private Sub PictureBox1_MouseEnter(sender As Object, e As System.EventArgs) Handles _
PictureBox1.MouseEnter, PictureBox2.MouseEnter, PictureBox3.MouseEnter
Dim p As PictureBox = CType(sender, PictureBox)
MsgBox(p.Name & "测试成功")
End Sub

追问

Dim p As PictureBox = CType(sender, PictureBox) 什么意思，

追答

就是把sender这个对象，转换为PictureBox类型