Update 20250107

vbBarcodes/Class1.vb

@@ -3,6 +3,7 @@ Imports Microsoft.Office.Interop.Word
 Imports Model
 Imports System.Drawing
 Imports Database
+Imports System.Runtime.CompilerServices
 
 Public Class vbarcodes
 
@@ -18,18 +19,29 @@ Public Class vbarcodes
     Dim docdata As New clsDocData
     Dim connectionstring As String = ""
     Dim Temppath As String = ""
-    Public Function GenerateBarcodes(ByRef word As Microsoft.Office.Interop.Word.Application, ByRef ddata As clsDocData, connectionstring As String)
+    Public Function GenerateBarcodes(ByRef word As Microsoft.Office.Interop.Word.Application, ByRef ddata As clsDocData, connectionstring As String, temppath As String)
+        Logging.Logging.Debug("Generate Barcodes Start", "vbBarcodes", docdata.Dokumentid)
         Public_barcodeleft = ddata.barcode_left
         Public_barcodetop = ddata.barcode_top
         Public_barcodewidth = ddata.barcode_width
         Public_barcodeheight = ddata.barcode_height
+        Me.Temppath = temppath
         docdata = ddata
         docWord = word.ActiveDocument
         objWord = word
+        objWord.WindowState = WdWindowState.wdWindowStateMinimize
+        objWord.Visible = True
+
         Me.connectionstring = connectionstring
-        delete_Textfelder()
+        Logging.Logging.Debug("Delete Textfelder", "vbBarcodes", docdata.Dokumentid)
+        'delete_Textfelder()
+        Logging.Logging.Debug("Insert Textfelder", "vbBarcodes", docdata.Dokumentid)
         Insert_TextFelder()
+        Logging.Logging.Debug("Ins Barcode", "vbBarcodes", docdata.Dokumentid)
         ins_Barcode()
+        objWord.Visible = False
+        objWord.WindowState = WdWindowState.wdWindowStateNormal
+
     End Function
 
     Dim BarcodeBeschriftung As String = ""
@@ -80,11 +92,56 @@ Public Class vbarcodes
             objWord.ActiveWindow.ActivePane.View.SeekView = Microsoft.Office.Interop.Word.WdSeekView.wdSeekMainDocument
         Next i
     End Sub
+    Sub Insert_Datamatrix()
+        Dim Form
+        Dim strsel As String
+        Dim strresult
+        Dim s As String
+        Dim dmposition As Integer
+        ' Selection.ShapeRange.Select
+
+        Try
+            Form = objWord.Selection.HeaderFooter.Shapes.Item(Textboxes(Textboxesi))
+            Form.Select()
+            Form = objWord.Selection.HeaderFooter.Shapes.Item(Textboxes(Textboxesi))
+            Form.Select()
+            objWord.Selection.TypeText(Text:="")
+            Dim Zeichen As String
+            Zeichen = " U"
+            Select Case BarcodeFormatn
+                Case 0
+                    objWord.Selection.ParagraphFormat.Alignment = Microsoft.Office.Interop.Word.WdParagraphAlignment.wdAlignParagraphRight
+                    objWord.Selection.HomeKey(Unit:=Microsoft.Office.Interop.Word.WdUnits.wdLine, Extend:=Microsoft.Office.Interop.Word.WdMovementType.wdExtend)
+                    objWord.Selection.Delete(Unit:=Microsoft.Office.Interop.Word.WdUnits.wdCharacter, Count:=1)
+                    objWord.Selection.InlineShapes.AddPicture(Temppath + "\a_" + docdata.Dokumentid.ToString + ".png", LinkToFile:=False, SaveWithDocument:=True)
+                Case 1
+                    objWord.Selection.ParagraphFormat.Alignment = Microsoft.Office.Interop.Word.WdParagraphAlignment.wdAlignParagraphLeft
+                    objWord.Selection.HomeKey(Unit:=Microsoft.Office.Interop.Word.WdUnits.wdLine, Extend:=Microsoft.Office.Interop.Word.WdMovementType.wdExtend)
+                    objWord.Selection.Delete(Unit:=Microsoft.Office.Interop.Word.WdUnits.wdCharacter, Count:=1)
+                    objWord.Selection.InlineShapes.AddPicture(Temppath + "\a_" + docdata.Dokumentid.ToString + ".png", LinkToFile:=False, SaveWithDocument:=True)
+                Case 2
+                    objWord.Selection.ParagraphFormat.Alignment = Microsoft.Office.Interop.Word.WdParagraphAlignment.wdAlignParagraphLeft
+                    objWord.Selection.HomeKey(Unit:=Microsoft.Office.Interop.Word.WdUnits.wdLine, Extend:=Microsoft.Office.Interop.Word.WdMovementType.wdExtend)
+                    objWord.Selection.Delete(Unit:=Microsoft.Office.Interop.Word.WdUnits.wdCharacter, Count:=1)
+                    objWord.Selection.InlineShapes.AddPicture(Temppath + "\a_" + docdata.Dokumentid.ToString + ".png", LinkToFile:=False, SaveWithDocument:=True)
+                Case 3
+                    objWord.Selection.ParagraphFormat.Alignment = Microsoft.Office.Interop.Word.WdParagraphAlignment.wdAlignParagraphLeft
+                    objWord.Selection.HomeKey(Unit:=Microsoft.Office.Interop.Word.WdUnits.wdLine, Extend:=Microsoft.Office.Interop.Word.WdMovementType.wdExtend)
+                    objWord.Selection.Delete(Unit:=Microsoft.Office.Interop.Word.WdUnits.wdCharacter, Count:=1)
+                    objWord.Selection.InlineShapes.AddPicture(Temppath + "\a_" + docdata.Dokumentid.ToString + ".png", LinkToFile:=False, SaveWithDocument:=True)
+
+            End Select
+            Form = Nothing
+            System.IO.File.Delete(Temppath + "\a_" + docdata.Dokumentid.ToString + ".png")
+            Exit Sub
+        Catch ex As Exception
+        End Try
+    End Sub
     Private Sub insert_Barcode(ByVal x As Integer)
-        'If Me.BarcodeType <> 0 Then
-        '    Insert_Datamatrix()
-        '    Exit Sub
-        'End If
+        If docdata.barcode_type <> 0 Then
+            Insert_Datamatrix()
+            Exit Sub
+        End If
 
 
         Dim Form
@@ -308,10 +365,11 @@ eh:
     Sub Generage_BarcodeImage()
         Dim FontColor As Color = Color.Black
         Dim BackColor As Color = Color.White
-        Dim FontName As String = docdata.barcode_font
-        Dim FontSize As Integer = docdata.barcode_fontsize
+        Dim FontName As String = docdata.Zusatz_Font
+        Dim FontSize As Integer = docdata.Zusatz_FontSize
         Dim Height As Integer = 0
         Dim Width As Integer = 0
+        Logging.Logging.Debug(FontName + FontSize.ToString(), "vbbarcodes", docdata.Dokumentid)
         Dim objFont As New Drawing.Font(FontName, FontSize)
         Dim image1bmp As New Bitmap(400, 400)
         Dim image1 As Bitmap = Datamatrix_Generator_1(Height, Width)