Visual Basic

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

Imports System.Data.SqlClient
Public Class Form1
    Private MyConnection As String

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        MyConnection = "Integrated Security=SSPI;" + "Initial Catalog=;" + "Data Source=.\SQLEXPRESS;" 'mydb

        Dim mySQL As String = "IF EXISTS (SELECT * FROM sys.databases WHERE name = 'MyDatabase')" & _
            "DROP DATABASE [MyDatabase];CREATE DATABASE [MyDatabase]"

        Try
            Dim conn As New SqlConnection(MyConnection)
            Dim myCmd As New SqlCommand(mySQL, conn)

            ' Open the connection, execute the command, and close the connection. It is more efficient to 
            '  ExecuteNonQuery when data is not being returned.

            If conn.State <> ConnectionState.Open Then conn.Open()

            myCmd.ExecuteNonQuery()
            conn.Close()

            ' Data has been successfully submitted

            MessageBox.Show("New Database has been ' successfully created !", _
                            " Database Creation Completed", MessageBoxButtons.OK, _
                            MessageBoxIcon.Information)
        Catch sqlExc As SqlException
            MessageBox.Show(sqlExc.ToString, "SQL Exception Error!", _
            MessageBoxButtons.OK, MessageBoxIcon.Error)

        Catch exc As Exception
            'If mstrConn = MyConnection Then
            '    ' Couldn't connect to SQL Server.  Now try MSDE.
            '    mstrConn = MY_MSDE_CONNECTION_STRING
            '    'Connecting to MSDE
            'Else
            '    ' Unable to connect to SQL Server or MSDE
            '    MessageBox.Show("SQL Or MSDE Connection Failed", _
            '         "Connection Failed!", MessageBoxButtons.OK, MessageBoxIcon.Error)
            '    End
            'End If
        End Try
    End Sub
End Class