Ankunftsanzeige, VOCS AbfArten

VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb

@@ -6,6 +6,7 @@ Imports System.Text
 Imports System.Windows.Forms
 Imports ClosedXML.Excel
 Imports Microsoft.Office.Interop
+Imports ThoughtWorks.QRCode.Codec
 Imports VERAG_PROG_ALLGEMEIN.TESTJSON
 
 Public Class cProgramFunctions
@@ -615,7 +616,7 @@ BindingFlags.Instance Or BindingFlags.NonPublic, Nothing, [Control], New Object(
 
     Public Function MakeScreenshot()
         Dim form As New Form
-        form = form.ActiveForm
+        form = Form.ActiveForm
         Dim bounds As Rectangle
         Dim screenshot As System.Drawing.Bitmap
         Dim graph As Graphics
@@ -643,6 +644,45 @@ BindingFlags.Instance Or BindingFlags.NonPublic, Nothing, [Control], New Object(
         Return tmpImg
     End Function
 
+
+    Shared Function getQRCode(QRtext As String, Optional QZSize As Integer = 4, Optional QRVersion As Integer = 7, Optional CorrectionLevel As QRCodeEncoder.ERROR_CORRECTION = QRCodeEncoder.ERROR_CORRECTION.M, Optional encoding As QRCodeEncoder.ENCODE_MODE = QRCodeEncoder.ENCODE_MODE.BYTE) As Image
+        Dim qrCodeEncoder As QRCodeEncoder = New QRCodeEncoder()
+
+        qrCodeEncoder.QRCodeEncodeMode = encoding
+
+        Try
+            Dim scale As Integer = Convert.ToInt16(QZSize)
+            qrCodeEncoder.QRCodeScale = scale
+        Catch ex As Exception
+            MessageBox.Show("Invalid size!")
+            Return Nothing
+        End Try
+
+        Try
+            Dim version As Integer = Convert.ToInt16(QRVersion)
+            qrCodeEncoder.QRCodeVersion = version
+        Catch ex As Exception
+            MessageBox.Show("Invalid version !")
+        End Try
+
+        Dim errorCorrect As String = CorrectionLevel
+
+        qrCodeEncoder.QRCodeErrorCorrect = CorrectionLevel
+
+        Dim image As Image
+        Dim data As String = QRtext
+        image = qrCodeEncoder.Encode(data)
+        Return image
+    End Function
+
+    Shared Function getBARCODEAviso(AvisoID As String) As Image
+        Dim barcode As Image = Code128Rendering.MakeBarcodeImage("/" & AvisoID & "/", 1, True, 25)
+        '  barcode.RotateFlip(RotateFlipType.Rotate90FlipNone)
+
+        Return barcode
+    End Function
+
+
 End Class