クラスやモジュールで纏める方法ありますか？

質問

説明が非常にへたくそなので、プログラムをそのまま書きます・・・・
スイマセン

Private Sub TextBox1_2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1_2.KeyPress
If e.KeyChar = Chr(Keys.Enter) Then
Me.SelectNextControl(sender, True, True, True, True)
e.Handled = True
End If
End Sub

Private Sub TextBox1_4_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1_4.KeyPress
If (e.KeyChar < "0"c Or e.KeyChar > "9"c) And e.KeyChar <> vbBack Then
e.Handled = True
End If
If e.KeyChar = Chr(Keys.Enter) Then
Me.SelectNextControl(sender, True, True, True, True)
e.Handled = True
End If
End Sub

Private Sub TextBox1_5_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1_5.KeyPress
If (e.KeyChar < "0"c Or e.KeyChar > "9"c) And e.KeyChar <> vbBack And e.KeyChar <> ","c Then
e.Handled = True
End If
If e.KeyChar = Chr(Keys.Enter) Then
Me.SelectNextControl(sender, True, True, True, True)
e.Handled = True
End If
End Sub

上記のプログラム、TextBox○○○_5.KeyPressの○○○の部分が１から100まであるのですが、あまりにも行数が多くなって長くなるので、ほかのクラスやモジュールにまとめる方法ってありませんか？

よろしくお願いしますｍ（＿＿）ｍ

回答No.2

toro-nekomata · ベストアンサー

イベント内の処理がみな，中身が同じであるなら，
各TextBoxのKeyPressイベントを
その同じイベント処理用のメソッドを割り当てれば，複数書かなくても済むんじゃ？
VBだと，プロシージャっていうんでしたっけ．

カンマ区切りで，
・・・Handles TextBox1_4.KeyPress, TextBox1_5.KeyPress
って感じで割り当てられるでしょう．

お礼

こんなに簡単な方法があったのですね^o^
ありがとうございました。

回答No.1

todo36

TextBoxを継承して、OnKeyPressをOverrideする

http://homepage1.nifty.com/rucio/main/VBdotNet/Advance/Advance2.htm

お礼

僕のレベルでは少し難しいですが、今後必ず必要になる事だと思いましたので勉強していきます。m(__)m