86 lines
3.3 KiB
VB.net
86 lines
3.3 KiB
VB.net
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 |