|
分類:[VB.NET]
2006/08/31(Thu) 00:40:33 編集(投稿者)
VB.NETですよね? AddHandleする方法もありますが、もっと単純に
Private Sub TextBox1_Validating(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) _ Handles _ TextBox1.Validating, _ TextBox2.Validating, _ TextBox3.Validating, _ TextBox4.Validating, _ TextBox5.Validating
という感じで、Handlesの後ろに複数のイベントを指定するだけで1メソッドでできると思いますよ。
TextBoxの内容は
Dim tbxTarget As TextBox = CType(sender, TextBox)
というように内容をキャストしてやれば、同じチェックがまとめて出来ると思いますよ。
ついでに、ソースをまとめると・・・
Private Sub TextBox1_Validating(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) _ Handles _ TextBox1.Validating, _ TextBox2.Validating, _ TextBox3.Validating, _ TextBox4.Validating, _ TextBox5.Validating Dim tbxTarget As TextBox = CType(sender, TextBox) If IsValidHoge(tbxTarget.Text) Then MessageBox.Show(String.Format("{0}がエラーです", tbxTarget.Name), "Error") End If End Sub
こんな感じでしょうか・・・。
|