Help Translate Code From C# to VBNet

Question

Please help me to translate C# code below to Vb Net:

private void AssosiateAndRaiseViewEvents()
{
btnSearch.Click += delegate{searchEvent?.Invoke(this, EventArgs.Empty);};
txtSearch.KeyDown += (s, e) =>
{
if (e.KeyCode == Keys.Enter)
SearchEvent?.Invoce(this, EventArgs.Empty);
};

}

Answer 1

Hi @pthsoon pthsoon ,
Please check if the follwing code works for you.

    Private Sub AssosiateAndRaiseViewEvents()  
        AddHandler btnSearch.Click, AddressOf btnSearch_Click  
        AddHandler txtSearch.KeyDown, AddressOf txtSearch_KeyDown  
    End Sub  
  
    Private Sub btnSearch_Click()  
        searchEvent?.Invoke(Me, EventArgs.Empty)  
    End Sub  
    Private Sub txtSearch_KeyDown(sender As Object, e As KeyEventArgs)  
        If e.KeyCode = Keys.Enter Then SearchEvent?.Invoce(Me, EventArgs.Empty)  
    End Sub  

Best Regards.
Jiachen Li

----------

If the answer is helpful, please click "Accept Answer" and upvote it.
Note: Please follow the steps in our documentation to enable e-mail notifications if you want to receive the related email notification for this thread.

Answer 2

Thank you Jiachen Li @Jiachen Li-MSFT reply with you help and this website

https://stackoverflow.com/questions/1013048/determine-if-an-event-has-been-attached-to-yet

i manage make to code as below from C# to VB

Pubic Event SearchEvent As EventHandler  

Private Sub AssociateAndRaiseEvent()  
    AddHandler btnSearch.Click, AddressOf btnSearch_Click  
    AddHandler txtSearch.KeyDown, AddressOf txtSearch_KeyDown  
End Sub  

Private Sub btnSearch_Click()  
    If SearchEventEvent IsNot Nothing Then  
        SearchEventEvent.Invoke(Me, EventArgs.Empty)  
    End If  

End Sub  
Private Sub txtSearch_KeyDown(sender As Object, e As KeyEventArgs)  
    If e.KeyCode = Keys.Enter Then  
        If SearchEventEvent IsNot Nothing Then  
            SearchEventEvent.Invoke(Me, EventArgs.Empty)  
        End If  
    End If  
      
End Sub