RoutedEventHandlerを実行できません

Question

ボタンの列を作成するためのループがありますが、今はすべてのボタンにイベントハンドラを実装したいのに機能しません。

ボタン

For e As Integer = 0 To 19 
       btnFriday(e) = New Button() 
       btnFriday(e).Height = 23 
       btnFriday(e).Width = 150 
       btnFriday(e).SetValue(Grid.ColumnProperty, 9) 
       btnFriday(e).SetValue(Grid.RowProperty, e + 1) 
       btnFriday(e).Click += New RoutedEventHandler(AddressOf btnBookSlot_Click) 
       LayoutRoot.Children.Add(btnFriday(e)) 
    Next 

の列を作成するために、反復btnFridayの1がBookslot

Private Sub btnBookSlot_Click(sender As Object, e As RoutedEventArgs) 
    Dim btn As Button = DirectCast(sender, Button) 
    Dim bookSlot As New BookSlot() 
    bookSlot.show() 

End Sub 

と呼ばchildwindow開いて、以下のイベントを実行し、次にクリックしたときに、私は好きですしたいです

と私は Sとして

Publicイベントをクリックして（オブジェクトとして送信者、電子のようなエラーが表示されますystem.Windows.RoutedEventArgs） 'はイベントであり、 と直接呼び出すことはできません。イベントを発生させるために 'RaiseEvent'ステートメントを使用してください。

ほとんどのソリューションはSilverlightでC＃を使用して構築されており、うまく動作しているようです。私はVB.NETとSilverlightを使用することで問題を抱えていますが、どんな考えですか？

Answer 1

私はあなたが変更する必要があるすべてがあると信じて：

btnFriday(e).Click += New RoutedEventHandler(AddressOf btnBookSlot_Click) 

へ：

AddHandler btnFriday(e).Click, AddressOf btnBookSlot_Click