MouseMove 函数和模块

Question

我有一个要为学校创建的程序，鼠标移动功能占用了很多 space 并使它成为一个混乱的项目。我的问题是，有没有办法将函数移动到模块中？

这些只是一些 MouseMove 函数：

Private Sub Frame4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
   StatusBar1.SimpleText = "Ready..."
End Sub

Private Sub Text2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
StatusBar1.SimpleText = "First Name of Student"
End Sub

Private Sub Text3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
StatusBar1.SimpleText = "Last Name of Student"
End Sub

非常感谢您的帮助。 :)

Answer 1

那些是属于表单的预定义事件。您不能将它们从表单中移出到模块中。

您创建了一个带有 StatusBarUpdate 函数的模块，每次您想要更改状态栏时都会调用该函数...但是...hardley 似乎值得用一行代码替换一行代码

MouseMove 函数和模块

MouseMove Function and Modules

vb6

module

mousemove