AVISO/Aviso/Anhänge/usrCntlSendungAnhangElement.vb

Imports System.ComponentModel

Public Class usrCntlSendungAnhangElement
    ' Implements INotifyPropertyChanged



    ' Property FILE_NAME = ""
    Property FILE_PATH
    'Property FILE_TYPE

    Property FILE_PAGES
    Property FILE_DOCID
    Property FILE_ANHID


    Public Event ME_CLICK(STRG_PRESSED, SHIFT_PRESSED)
    Public Event ME_DELETE(FILE_DOCID, FILE_ANHID)
    Public Event ME_COMPRESS(FILE_DOCID, FILE_ANHID)


    'Public Event PropertyChanged As PropertyChangedEventHandler Implements INotifyPropertyChanged.PropertyChanged

    'Private Sub NotifyPropertyChanged(ByVal info As String)
    '    RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs(info))
    'End Sub


    Private ACTIVE_Value As Boolean = False
    Public Property ACTIVE As Boolean
        Get
            Return Me.ACTIVE_Value
        End Get

        Set(ByVal value As Boolean)
            If Not (value = ACTIVE) Then
                Me.ACTIVE_Value = value
                ' NotifyPropertyChanged("ACTIVE")
            End If

            If value Then
                Me.BackColor = Color.FromArgb(0, 54, 128)
                Me.lbl.ForeColor = Color.White
            Else
                Me.BackColor = Color.White
                Me.lbl.ForeColor = Color.Black
            End If
        End Set
    End Property


    Private FILE_NAME_Value As String = False
    Public Property FILE_NAME As String
        Get
            Return Me.FILE_NAME_Value
        End Get

        Set(ByVal value As String)
            If Not (value = FILE_NAME) Then
                Me.FILE_NAME_Value = value
                Me.lbl.Text = value
                ' NotifyPropertyChanged("FILE_NAME")
            End If
        End Set
    End Property



    Private FILE_TYPE_Value As String = False
    Public Property FILE_TYPE As String
        Get
            Return Me.FILE_TYPE_Value
        End Get

        Set(ByVal value As String)
            If Not (value = FILE_TYPE) Then
                Me.FILE_TYPE_Value = value

                Select Case value
                    Case "PDF" : pic.BackgroundImage = My.Resources.pdf
                    Case "EXCEL" : pic.BackgroundImage = My.Resources.Excel_2013_logo_155x110
                    Case "WORD" : pic.BackgroundImage = My.Resources.word
                    Case "BILD" : pic.BackgroundImage = My.Resources.ImageIcon
                    Case "TEXT" : pic.BackgroundImage = My.Resources.android_note
                    Case Else : pic.BackgroundImage = My.Resources.docAllgemein
                End Select
                ' NotifyPropertyChanged("FILE_TYPE")
            End If
        End Set

    End Property


    Private FILE_SIZE_Value As String = False
    Public Property FILE_SIZE As String
        Get
            Return Me.FILE_SIZE_Value
        End Get

        Set(ByVal value As String)
            If Not (value = FILE_SIZE) Then
                Me.FILE_SIZE_Value = value
                Me.lblSize.Text = value
                ' NotifyPropertyChanged("FILE_NAME")
            End If
        End Set
    End Property

    'Private Sub pic_Click(sender As Object, e As EventArgs) Handles pic.Click, lbl.Click, Me.Click
    '    RaiseEvent ME_CLICK(My.Computer.Keyboard.CtrlKeyDown)
    'End Sub
    Private Sub pic_Click(sender As Object, e As MouseEventArgs) Handles pic.MouseClick, lbl.MouseClick, Me.MouseClick, lblSize.MouseClick
        If e.Button = MouseButtons.Left Then
            RaiseEvent ME_CLICK(My.Computer.Keyboard.CtrlKeyDown, My.Computer.Keyboard.ShiftKeyDown)
        End If
    End Sub
    Public Sub CLICK_Me()
        RaiseEvent ME_CLICK(False, False) 'My.Computer.Keyboard.CtrlKeyDown Or My.Computer.Keyboard.ShiftKeyDown))
    End Sub

    Private Sub pic_doubleClick(sender As Object, e As EventArgs) Handles pic.DoubleClick, lbl.DoubleClick, Me.DoubleClick, lblSize.DoubleClick
        If IO.File.Exists(Me.FILE_PATH) Then
            Process.Start(Me.FILE_PATH) 'damit Orginial bearbeitet werden kann
        End If
        Exit Sub

        'Dim p = New System.Diagnostics.Process()
        'p.StartInfo.FileName = Me.FILE_PATH
        '' p.StartInfo.Arguments = "/c echo Foo && echo Bar"
        'p.StartInfo.RedirectStandardOutput = False
        'p.StartInfo.UseShellExecute = False
        'p.StartInfo.CreateNoWindow = True
        'p.Start()

        Exit Sub

        Dim ds As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(FILE_DOCID)
        If ds IsNot Nothing Then
            ds.OPEN_SINGLE()
        End If

    End Sub

    Private Sub UmbenennenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles UmbenennenToolStripMenuItem.Click
        Try

            Dim ANH As New VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge(FILE_ANHID)
            Dim f As New frmSendungAnhangUmbenennenUmkateg(FILE_NAME, ANH.anh_Art)
            If f.ShowDialog = DialogResult.OK Then
                Dim ext As String = IO.Path.GetExtension(originalName)

                Dim name As String = f.txtBezeichnung.Text
                If String.IsNullOrWhiteSpace(IO.Path.GetExtension(name)) AndAlso ext <> "" Then ' prüfen ob Benutzer schon eine Endung eingegeben hat
                    name &= ext
                End If

                ANH.anh_Name = name
                ANH.anh_Art = f.cboArt._value
                ANH.SAVE()
                FILE_NAME = f.txtBezeichnung.Text

            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

    Private Sub LöschenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles LöschenToolStripMenuItem.Click
        RaiseEvent ME_DELETE(FILE_DOCID, FILE_ANHID)
    End Sub

    Private Sub cntxt_Opening(sender As Object, e As CancelEventArgs) Handles cntxt.Opening
        If Not Me.ACTIVE Then  CLICK_Me()
    End Sub

    Private Sub AnhängeVerschiebenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AnhängeVerschiebenToolStripMenuItem.Click
        Try
            Dim f As frmSendungAnhangImport = Me.FindForm
            f.AnhangVerschieben_Markierte(Me)
        Catch ex As Exception
            MsgBox(ex.Message & ex.StackTrace)
        End Try
    End Sub

    Private Sub PDFsZusammenführenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PDFsZusammenführenToolStripMenuItem.Click
        Try
            Dim f As frmSendungAnhangImport = Me.FindForm
            f.PDFszusammenfuehren_Markierte(Me)
        Catch ex As Exception
            MsgBox(ex.Message & ex.StackTrace)
        End Try
    End Sub

    Private Sub usrCntlSendungAnhangElement_Load(sender As Object, e As EventArgs) Handles Me.Load
        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMINFUNCTIONS", "SDL") Then
            KomprimierenToolStripMenuItem.Visible = True
        End If
    End Sub

    Private Sub KomprimierenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles KomprimierenToolStripMenuItem.Click
        RaiseEvent ME_COMPRESS(FILE_DOCID, FILE_ANHID)
    End Sub


End Class