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

おかげで助けのためにたくさん：

これらは、ちょうどのMouseMove機能の一部です。 :)

出典

2016-06-24 Talal Abdoh

Iドンの1行に1行のコードを置き換えるために価値があると思われますこのコードに問題がありますが、ステータステキストをコントロールの 'Tag'プロパティに入れてみることができます。コントロールとしてパラメータを取る単一のメソッドを使うことができます。コントロールに 'Tag'プロパティがない場合にエラーハンドラがあり、' Tag'を読み込んでテキストをStatusBar1.SimpleTextに書き込みます。それはまだ各コントロールのMouseMoveイベントからメソッドを呼び出すことを余儀なくされ、少ししか得られません。あなたが本当に野心的だと感じたら、あなた自身のテキストボックスコントロールを書いて自分のイベントを起こすことができます。 – jac

これらは、フォームに属する事前定義されたイベントです。フォームからモジュールに移動することはできません。

あなたは、あなたがステータスバーを変更したい毎回呼ばStatusBarUpdate機能を持つモジュールを作成して...しかし...そのhardleyはコード

出典

2016-06-24 22:15:52 dbmitch

助けてくれてありがとう、ステータスバーコードを下にしておくと、他のコードに干渉しないようにするだけです。 –

MouseMoveファンクションとモジュール

答えて

関連する問題