Public Class frmQuickAccessManager

    Sub New()
        InitializeComponent()
    End Sub

    Private Sub frmQuickAccessManager_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
        ' frmMain.LoadMenuItems()
    End Sub

    Private Sub frmImageManager_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        RefreshData()
    End Sub

    Private Sub RefreshData()
        ImageTableAdapter.Connection.ConnectionString = MyConnectionString
        Me.ImageTableAdapter.Fill(Me.DD_DMSDataSet.TBPMO_FORM_CONSTRUCTOR)
    End Sub

    Private Sub btnSelectImage_Click(sender As Object, e As EventArgs) Handles btnSelectImage.Click
        OpenFileDialog1.Filter = "PNG Bilder|*.png"

        If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
            Dim path As String = OpenFileDialog1.FileName
            pbNew.ImageLocation = path
            btnSaveImage.Enabled = True
        End If
    End Sub

    Private Sub btnSaveImage_Click(sender As Object, e As EventArgs) Handles btnSaveImage.Click
        Try
            Dim image As Bitmap = CType(Drawing.Image.FromFile(pbNew.ImageLocation, True), Bitmap)
            Dim bimage() As Byte = BitmapToByteArray(image)
            Dim guid As String = gvMainView.GetFocusedRowCellValue(gvMainView.Columns(0).FieldName)

            Dim SQL As String = "UPDATE TBPMO_FORM_CONSTRUCTOR SET MENU_IMG = @MENU_IMG WHERE GUID = @GUID"
            Dim conn As SqlClient.SqlConnection = New SqlClient.SqlConnection(MyConnectionString)
            Dim cmd As SqlClient.SqlCommand = New SqlClient.SqlCommand(SQL, conn)

            cmd.Parameters.Add("@MENU_IMG", SqlDbType.VarBinary).Value = bimage
            cmd.Parameters.Add("@GUID", SqlDbType.Int).Value = guid

            conn.Open()
            cmd.ExecuteNonQuery()
            conn.Close()

            pbNew.Image = Nothing

            btnSaveImage.Enabled = False

            RefreshData()
        Catch ex As Exception
            MsgBox("Fehler beim Speichern des Icons:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
        End Try
    End Sub

    Private Sub btnDeleteImage_Click(sender As Object, e As EventArgs) Handles btnDeleteImage.Click
        Try
            Dim SQL As String = "UPDATE TBPMO_FORM_CONSTRUCTOR SET MENU_IMG = @MENU_IMG WHERE GUID = @GUID"
            Dim conn As SqlClient.SqlConnection = New SqlClient.SqlConnection(MyConnectionString)
            Dim cmd As SqlClient.SqlCommand = New SqlClient.SqlCommand(SQL, conn)
            Dim guid As String = gvMainView.GetFocusedRowCellValue(gvMainView.Columns(0).FieldName)

            cmd.Parameters.Add("@MENU_IMG", SqlDbType.VarBinary).Value = DBNull.Value
            cmd.Parameters.Add("@GUID", SqlDbType.Int).Value = guid

            conn.Open()
            cmd.ExecuteNonQuery()
            conn.Close()

            btnSaveImage.Enabled = False

            RefreshData()
        Catch ex As Exception
            MsgBox("Fehler beim Löschen des Icons:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
        End Try
    End Sub

    Private Sub btnRefresh_Click(sender As Object, e As EventArgs) Handles btnRefresh.Click
        RefreshData()
    End Sub

    Private Sub ToolStrip1_ItemClicked(sender As Object, e As ToolStripItemClickedEventArgs) Handles ToolStrip1.ItemClicked

    End Sub
End Class