shu/OnDoc
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Update 20250130

Browse Source
This commit is contained in:
Stefan Hutter
2025-01-30 20:59:46 +01:00
parent 6558c21a9d
commit f1f74f8cc5
48 changed files with 24 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
vbBarcodes/Class1.vb
View File

@@ -65,15 +65,15 @@ Public Class vbarcodes
Dim barcodeImage2of5 As System.Drawing.Image
Private Sub ins_Barcode()
Dim Barcode2of5 As New BarcodeLib.clsBarI25()
barcodeImage2of5 = Barcode2of5.GetBarI25(Color.Black, Color.White, docdata.Dokumentid.Substring(6, 16), "Bar 25i c HR", 36, 350, 50, " U", "Futur Book", 8, 0)
barcodeImage2of5.Save(Temppath + "a_" + docdata.Dokumentid + ".png", System.Drawing.Imaging.ImageFormat.Png)
'barcodeImage2of5 = Barcode2of5.GetBarI25(Color.Black, Color.White, docdata.Dokumentid.Substring(6, 16), "Bar 25i c HR", 36, 350, 50, " U", "Futur Book", 8, 0)
'barcodeImage2of5.Save(Temppath + "a_" + docdata.Dokumentid + ".png", System.Drawing.Imaging.ImageFormat.Png)
'barcodeImage2of5 = Barcode.Get_LinerBarcode(Barcoded.Symbology.I2of5, docdata.Dokumentid.Substring(6, 16), docdata.Dokumentid.Substring(6, 16) + docdata.barcode_zusatz, docdata.barcode_textposition, docdata.Zusatz_Font, Convert.ToInt32(docdata.Zusatz_FontSize), 0)
'barcodeImage2of5 = ScaleImage(barcodeImage2of5,
' 30)
'barcodeImage2of5.Save(Temppath + "a_" + docdata.Dokumentid + ".png", System.Drawing.Imaging.ImageFormat.Png)
BarcodeFormatn =
BarcodeFormatn = docdata.barcode_formatn
BarcodeBeschriftung = docdata.barcode_text
Kantenlaenge = docdata.barcode_kantenlaenge
BarcodeContent = docdata.barcode_content
@@ -82,6 +82,8 @@ Public Class vbarcodes
datamatrix_generator()
End If
Dim xname As String
Dim i As Integer
Dim pages As Long