21 lines
629 B
VB.net
21 lines
629 B
VB.net
Imports PdfSharp.Pdf
|
|
Imports PdfSharp.Pdf.Annotations
|
|
Imports PdfSharp.Pdf.IO
|
|
Imports PdfSharp.Drawing
|
|
Public Class frmAnnotations
|
|
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
|
|
|
Try
|
|
Me.Cursor = Cursors.WaitCursor
|
|
ClassAnnotation.Annotate_PDF(txttitle.Text, txtcontent.Text, txtSeitenzahl.Text, True)
|
|
Me.Cursor = Cursors.Default
|
|
Me.Close()
|
|
Catch ex As Exception
|
|
LOGGER.Error(ex)
|
|
MsgBox(ex.Message, MsgBoxStyle.Critical)
|
|
Me.Cursor = Cursors.Default
|
|
End Try
|
|
|
|
|
|
End Sub
|
|
End Class |