Visual Basic

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

b-rad311 wrote:

Does anyone know how to save an image from the clipboard as a picture