Visual Basic

private void textBox1_KeyPress(object sender, KeyPressEventArgs e)
       {
           if (e.KeyChar == (char)(0x0D))
               MessageBox.Show("Enter Pressed");

       }

Private Sub txtTest_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtTest.KeyDown

        If e.KeyCode = Keys.Enter Then
            MsgBox("You pressed the Enter Key")
        End If

    End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    Dim response As MsgBoxResult = MsgBox("the prompt", MsgBoxStyle.MsgBoxHelp + MsgBoxStyle.Information + MsgBoxStyle.YesNo, "The Title")

    MsgBox(response)

End Sub

Private Sub FormMain_HelpRequested(ByVal sender As Object, ByVal hlpevent As System.Windows.Forms.HelpEventArgs) Handles Me.HelpRequested
    MsgBox("help Requested")
End Sub

    Private helpTopic as integer =0

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        helpTopic = 1
        Dim response As MsgBoxResult = MsgBox("the prompt", MsgBoxStyle.MsgBoxHelp + MsgBoxStyle.Information + MsgBoxStyle.YesNo, "The Title")

        If response = vbYes Then
            'User Selects Yes
        Else
            'Do something else if anything
        End If

    End Sub

    Private Sub FormMain_HelpRequested(ByVal sender As Object, ByVal hlpevent As System.Windows.Forms.HelpEventArgs) Handles Me.HelpRequested

        Select Case helpTopic
            Case 1
                'User want help with topic 1

            Case Else
                'User called help for something else

        End Select
    End Sub

Private Sub Button3_Click(...)
  AddHandler Me.HelpRequested, AddressOf Me.MsgBoxHelpRequested

  Select Case MessageBox.Show("Text","Title", MessageBoxButtons.YesNoCancel, _
                              MessageBoxIcon.Question, MessageBoxDefaultButton.Button2, 0, True)

  End Select
End Sub

Private Sub MsgBoxHelpRequested(...)
   MessageBox.Show("got here")
End Sub

Public Class FormMain

    Private helpTopic As Integer = 0
    
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        helpTopic = 1
        Dim response As MsgBoxResult = MsgBox("the prompt", MsgBoxStyle.MsgBoxHelp + MsgBoxStyle.Information + MsgBoxStyle.YesNo, "The Title")

        If response = vbYes Then
            'User Selects Yes
        Else
            'Do something else if anything
        End If

    End Sub

    Private Sub FormMain_HelpRequested(ByVal sender As Object, ByVal hlpevent As System.Windows.Forms.HelpEventArgs) Handles Me.HelpRequested

        Select Case helpTopic
            Case 1
                'User want help with topic 1

            Case Else
                'User called help for something else

        End Select
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        AddHandler Me.HelpRequested, AddressOf Button2Help

        MessageBox.Show("The text", "The caption", MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button1, 0, True)

    End Sub

    Private Sub Button2Help()
        MsgBox("Some help please")
    End Sub
End Class

Trevortni wrote:

Private Function MethodName() As Boolean

Me.Activate()

  AddHandler Me.HelpRequested, AddressOf Me.MsgBoxHelpRequested
  Select Case MessageBox.Show("Text", "Title", MessageButtons.YesNoCancel, _
            MessageBoxIcon.Question, MessageBoxDefaultButton.Button2, 0, True)
    Case MsgBoxResult.Yes
      ' Do stuff
    Case MsgBoxResult.No
      ' Do stuff
    Case MsgBoxResult.Cancel
      RemoveHandler Me.HelpRequested, AddressOf Me.MsgBoxHelpRequested
      Return False
  End Select
  RemoveHandler Me.HelpRequested, AddressOf Me.MsgBoxHelpRequested
End Function
'
'
Private Sub MsgBoxHelpRequested(ByVal sender As Object, _
            ByVal hlpevent As System.Windows.Forms.HelpEventArgs)
  ' Breakpoint that finally gets hit
  ' More code
End Sub