senderについて

環境/言語:[XP]
分類:[.NET]

こんばんは。

Private Sub txt_Validating(ByVal sender As Object, ByVal e As system.ComponentModel.CancelEventArgs) Handles txtN0.Validating,txtN1.Validating

Dim TextHIN As Control = DirectCast(sender, TextBox)
If IsNumeric(TextHIN.Text) = False Then
MsgBox("err")
e.Cancel = True
End If
End Sub

NETにて、FormにTextBoxが2つあります。
上記のコードを
Dim TextHIN As Control = DirectCast(sender, TextBox)を
作成しないで、同じようなチェックができますか？

どなたかわかる方、よろしくお願いいたします。

> Dim TextHIN As Control = DirectCast(sender, TextBox)を
> 作成しないで、同じようなチェックができますか？

VBだったらsender.Textとしても遅延バインディングになるだけで，チェックできますよ。
あまりおすすめはしませんが。

■No20357に返信(WONさんの記事)
> NETにて、FormにTextBoxが2つあります。
> 上記のコードを
> Dim TextHIN As Control = DirectCast(sender, TextBox)を
> 作成しないで、同じようなチェックができますか？

それだけのことであれば、イベントを共有しないほうがいいですよ。
イベントを分けなければ txt.Text でチェックできますし　まさに　いっせきにちょう。

3 つ以上であればメソッド化を検討することはあります。
それ以外は業務ロジックはそのまま書いてしまうことが多いです。

回答ありがとうございます。