シグネチャと遅延バインディング

質問

お世話になります。
vb.net2005のウィンドウアプリにて下記のような文を書くと

Private Sub sender_GotFocus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles a.GotFocus, b.GotFocus, c.GotFocus
sender.SelectAll()
End Sub

遅延バインディングが起こる可能性があると警告（エラー）がでます。
なので senderの引数をobjectではなくa,b,cがinputmanのエディット
でしたのでGrapeCity.Win.Input.Editとしたのですが
これだと各コントロールのシグネチャと異なるとエラーが
出てしまいます。

この警告（エラー）を消すためにはどのようにすれば
よろしいでしょうか？
よろしくおねがいいたします。

回答No.1

himajin100000 · ベストアンサー

GrapeCity使用未経験者です

Private Sub sender_GotFocus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles a.GotFocus, b.GotFocus, c.GotFocus
DirectCast(sender,GrapeCity.Win.Input.Edit).SelectAll()
End Sub

だとどうなりますか？

お礼

お返事ありがとう御座います。

DirectCastで警告はでなくなり、動作もOKでした。
ありがとう御座います。