NEU

Aviso/Anhänge/usrCntlSendungAnhangElement.vb

@@ -7,7 +7,7 @@ Public Class usrCntlSendungAnhangElement
 
     ' Property FILE_NAME = ""
     Property FILE_PATH
-    Property FILE_TYPE
+    'Property FILE_TYPE
 
     Property FILE_PAGES
     Property FILE_DOCID
@@ -15,6 +15,7 @@ Public Class usrCntlSendungAnhangElement
 
 
     Public Event ME_CLICK()
+    Public Event ME_DELETE(FILE_DOCID, FILE_ANHID)
 
 
     'Public Event PropertyChanged As PropertyChangedEventHandler Implements INotifyPropertyChanged.PropertyChanged
@@ -61,6 +62,31 @@ Public Class usrCntlSendungAnhangElement
         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 Sub pic_Click(sender As Object, e As EventArgs) Handles pic.Click, lbl.Click, Me.Click
         RaiseEvent ME_CLICK()
     End Sub
@@ -69,6 +95,47 @@ Public Class usrCntlSendungAnhangElement
     End Sub
 
     Private Sub pic_doubleClick(sender As Object, e As EventArgs) Handles pic.DoubleClick, lbl.DoubleClick, Me.DoubleClick
-        Process.Start(Me.FILE_PATH)
+        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
+        Dim bez = InputBox("Bitte geben Sie den neuen Dateinamen ein:")
+        If bez <> "" Then
+            Try
+                Dim ANH As New VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge(FILE_ANHID)
+                ANH.anh_Name = bez
+                ANH.SAVE()
+                FILE_NAME = bez
+            Catch ex As Exception
+                MsgBox(ex.Message)
+            End Try
+        End If
+    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
+        CLICK_Me()
     End Sub
 End Class