Projektdateien hinzufügen.

Aviso/frmBarcodeGenerator.vb

@@ -0,0 +1,29 @@
+Public Class frmBarcodeGenerator
+
+    Dim cProgramFunctions As New cProgramFunctions
+    Private Sub btnGenBar_Click(sender As Object, e As EventArgs) Handles btnGenBar.Click
+        ' Dim BC As New Barcode
+        'pic.Image = BC.GenerateBarcodeImage(800, 140, TextBoxBarcode.Text)
+        pic.Image = Code128Rendering.MakeBarcodeImage(TextBoxBarcode.Text, 2, True)
+
+    End Sub
+
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+
+        Dim i As Image = cProgramFunctions.TakeScreenShot(pic)
+        '   If Not My.Computer.FileSystem.DirectoryExists(My.Computer.FileSystem.SpecialDirectories.Desktop) Then
+        'My.Computer.FileSystem.CreateDirectory(My.Computer.FileSystem.SpecialDirectories.Desktop)
+        '  End If
+
+        '      Dim s As String = My.Computer.FileSystem.SpecialDirectories.Desktop & "\Barcode.png"
+        '   i.Save(s, Drawing.Imaging.ImageFormat.Png)
+
+
+        Dim s As String = My.Computer.FileSystem.SpecialDirectories.Desktop & "\Barcode.jpeg"
+        i.Save(s, Drawing.Imaging.ImageFormat.Jpeg)
+
+        s = My.Computer.FileSystem.SpecialDirectories.Desktop & "\Barcode.Tiff"
+        i.Save(s, Drawing.Imaging.ImageFormat.Tiff)
+
+    End Sub
+End Class