edv/AVISO
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

PDF Druck Lizenz; Vermerke

Browse Source
This commit is contained in:
Andreas Luxbauer
2024-09-09 08:17:57 +02:00
parent b1ba5c9700
commit eefa50eaf5
8 changed files with 48 additions and 91 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
Aviso/Anhänge/usrCntlSendungAnhangElement.vb
View File

@@ -109,7 +109,7 @@ Public Class usrCntlSendungAnhangElement
'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
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 Or My.Computer.Keyboard.ShiftKeyDown))
End If
@@ -118,7 +118,7 @@ Public Class usrCntlSendungAnhangElement
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
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
@@ -194,4 +194,6 @@ Public Class usrCntlSendungAnhangElement
Private Sub KomprimierenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles KomprimierenToolStripMenuItem.Click
RaiseEvent ME_COMPRESS(FILE_DOCID, FILE_ANHID)
End Sub
End Class