クラスやモジュールで纏める方法ありますか?
説明が非常にへたくそなので、プログラムをそのまま書きます・・・・
スイマセン
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の○○○の部分が1から100まであるのですが、あまりにも行数が多くなって長くなるので、ほかのクラスやモジュールにまとめる方法ってありませんか?
よろしくお願いしますm(__)m
お礼
ありがとうございまーす。
補足
If e.Control And e.KeyCode = Keys.X Then e.Handled = True End If これで試してみたのですが、やはり切り取り機能が可能なままです。 VB.NETになるんですが、切り取り機能を無効にすることは 実際にできるものなのでしょうか? デバックで止めるとHandledは、確かにTrueを返しています。