vb.netできれいで短いコードを作る方法

Question

私はここでかなり新しいStack Overflowです。これは私の初めての質問です。この質問が愚かなものであれば、私に親切にしてください。

私はこれらのコードをどのように短くすることができますか知っていますか？これらのコードをすべて1行に入れたいと思います。以下のコードをご覧ください。そのように呼ばれ

Public Shared Sub SetUpButton(btn As Button, normalImage As Image, hoverImage as Image) 

    AddHandler btn.MouseLeave, Sub(o, e) btn.Image = normalImage 
    AddHandler btn.MouseHover, Sub(o, e) btn.Image = hoverImage 

End Sub 

：

Private Sub PB_SearchP_MouseHover(sender As Object, e As EventArgs) Handles PB_SearchP.MouseHover 
    PB_SearchP.Image = My.Resources.search1 
End Sub 

Private Sub PB_SearchP_MouseLeave(sender As Object, e As EventArgs) Handles PB_SearchP.MouseLeave 
    PB_SearchP.Image = My.Resources.search 
End Sub 

Private Sub PB_AddP_MouseHover(sender As Object, e As EventArgs) Handles PB_AddP.MouseHover 
    PB_AddP.Image = My.Resources.add_1_iconhover 
End Sub 

Private Sub PB_AddP_MouseLeave(sender As Object, e As EventArgs) Handles PB_AddP.MouseLeave 
    PB_AddP.Image = My.Resources.add_1_icon 
End Sub 

Private Sub PB_New_MouseHover(sender As Object, e As EventArgs) Handles PB_New.MouseHover 
    PB_New.Image = My.Resources.newhover 
End Sub 

Private Sub PB_New_MouseLeave(sender As Object, e As EventArgs) Handles PB_New.MouseLeave 
    PB_New.Image = My.Resources.neww 
End Sub 

Private Sub PB_Save_MouseHover(sender As Object, e As EventArgs) Handles Btn_Save.MouseHover 
    Btn_Save.Image = My.Resources.savehover 
End Sub 

Private Sub PB_Save_MouseLeave(sender As Object, e As EventArgs) Handles Btn_Save.MouseLeave 
    Btn_Save.Image = My.Resources.save 
End Sub 

Private Sub PB_Update_MouseHover(sender As Object, e As EventArgs) Handles BTN_QUpdate.MouseHover 
    BTN_QUpdate.Image = My.Resources.edithover 
End Sub 

Private Sub PB_Update_MouseLeave(sender As Object, e As EventArgs) Handles BTN_QUpdate.MouseLeave 
    BTN_QUpdate.Image = My.Resources.edit 
End Sub 

Answer 1

簡単な解決策は、設定アップラムダ関数をイベントハンドラとしての機能を使用することである

SetUpButton(Btn_Save, My.Resources.save, My.Resources.savehover) 
SetUpButton(Btn_Update, My.Resources.update, My.Resources.updatehover) 
SetUpButton(Btn_New, My.Resources.new, My.Resources.newhover) 

などを...

C＃では、構文比較のため：

public static void SetUpButton(Button btn, Image normalImage, Image hoverImage) { 
    btn.MouseLeave += (o,e) => btn.Image = normalImage; 
    btn.MouseHover += (o,e) => btn.Image = hoverImage; 
}