MouseMove Funktion und Module

Ich habe ein Programm für die Schule zu erstellen und die Mausbewegung Funktion nehmen viel Platz und macht es zu einem chaotischen Projekt. Meine Frage, gibt es eine Möglichkeit, die Funktionen in ein Modul zu verschieben?MouseMove Funktion und Module

Dies sind nur einige der Funktionen Move:

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

Vielen Dank für die Hilfe. :)

Quelle

2016-06-24 Talal Abdoh

I don eine Zeile Code zu ersetzen, Ich habe kein Problem mit diesem Code, aber Sie könnten versuchen, den Statustext in die Eigenschaft "Tag" der Steuerelemente zu schreiben. Sie könnten dann eine einzelne Methode verwenden, die ein Steuerelement als Parameter akzeptiert, einen Fehlerhandler hat, falls das Steuerelement keine 'Tag'-Eigenschaft zum Lesen hat, das 'Tag' liest und den Text in StatusBar1.SimpleText schreibt. Das wird immer noch dazu führen, dass Sie Ihre Methode von jedem Mausevent-Ereignis aus aufrufen und Sie wenig gewinnen. Wenn du dich wirklich ehrgeizig fühlst, kannst du deine eigene Textbox-Steuerung schreiben und dein eigenes Event veranstalten. – jac

Das sind vordefinierte Ereignisse, die zu dem Formular gehören. Sie können sie nicht aus dem Formular in ein Modul verschieben.

Sie erstellen ein Modul mit einer StatusBarUpdate Funktion, die Sie jedes Mal aufgerufen Sie die Statusleiste ändern wollte ... aber ... das hardley scheint lohnenswert mit einer Zeile Code

Quelle

2016-06-24 22:15:52 dbmitch

Vielen Dank für die Hilfe. Behalte einfach die Status-Barcodes unten, damit sie die anderen Codes nicht stören. –

Antwort

Verwandte Themen