neu

Aviso/Anhänge/usrCntlSendungAnhangElement.vb

@@ -14,7 +14,7 @@ Public Class usrCntlSendungAnhangElement
     Property FILE_ANHID
 
 
-    Public Event ME_CLICK()
+    Public Event ME_CLICK(STRG_PRESSED)
     Public Event ME_DELETE(FILE_DOCID, FILE_ANHID)
 
 
@@ -87,11 +87,16 @@ Public Class usrCntlSendungAnhangElement
         End Set
 
     End Property
-    Private Sub pic_Click(sender As Object, e As EventArgs) Handles pic.Click, lbl.Click, Me.Click
-        RaiseEvent ME_CLICK()
+    '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
+        If e.Button = MouseButtons.Left Then
+            RaiseEvent ME_CLICK((My.Computer.Keyboard.CtrlKeyDown Or My.Computer.Keyboard.ShiftKeyDown))
+        End If
     End Sub
     Public Sub CLICK_Me()
-        RaiseEvent ME_CLICK()
+        RaiseEvent ME_CLICK(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
@@ -140,6 +145,24 @@ Public Class usrCntlSendungAnhangElement
     End Sub
 
     Private Sub cntxt_Opening(sender As Object, e As CancelEventArgs) Handles cntxt.Opening
-        CLICK_Me()
+        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
 End Class