MouseMove功能和模塊

我有一個程序來創建學校和鼠標移動功能佔用了大量的空間，並使其成爲一個雜亂的項目。我的問題，有沒有辦法將函數移動到模塊？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

非常感謝您的幫助。 :)

來源

2016-06-24 Talal Abdoh

我不一行來代替一行代碼這段代碼沒有問題，但你可以嘗試將狀態文本放入控件的'Tag'屬性中。然後，您可以使用將控件作爲參數的單個方法，在控件沒有要讀取的「Tag」屬性的情況下具有錯誤處理程序，讀取「Tag」並將文本寫入StatusBar1.SimpleText。這仍然會讓你從每個控件的MouseMove事件調用你的方法，並且獲得一點點收益。如果你真的感覺雄心勃勃，你可以編寫自己的文本框控件，並提出自己的事件。 – jac

這些屬於表單的預定義事件。您無法將它們從表單移出到模塊中。

你創建你叫你想改變狀態欄每次一個StatusBarUpdate功能的模塊......但是......那個hardley似乎是值得用的代碼

來源

2016-06-24 22:15:52 dbmitch

非常感謝您的幫助，只是將狀態條碼保留在底部，以免影響其他代碼。 –

MouseMove功能和模塊

回答

相關問題