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

Initial commit

Browse Source
This commit is contained in:
Stefan Hutter
2020-10-21 10:43:18 +02:00
commit 56bd02798f
5848 changed files with 2659025 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
Datamatrix_Test/Datamatrix_Test.jmconfig Normal file
View File

@@ -0,0 +1 @@
<?xml version="1.0" encoding="utf-8"?><Configuration xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"><DontShowAgainInSolution>false</DontShowAgainInSolution></Configuration>

22
Datamatrix_Test/Datamatrix_Test.sln Normal file
View File

@@ -0,0 +1,22 @@
Microsoft Visual Studio Solution File, Format Version 12.00
# Visual Studio 2013
VisualStudioVersion = 12.0.30110.0
MinimumVisualStudioVersion = 10.0.40219.1
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Datamatrix_Test", "Datamatrix_Test\Datamatrix_Test.vbproj", "{7DBA810A-DD98-4FC4-A1FB-7871D5C0A91B}"
EndProject
Global
GlobalSection(SolutionConfigurationPlatforms) = preSolution
Debug|Any CPU = Debug|Any CPU
Release|Any CPU = Release|Any CPU
EndGlobalSection
GlobalSection(ProjectConfigurationPlatforms) = postSolution
{7DBA810A-DD98-4FC4-A1FB-7871D5C0A91B}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
{7DBA810A-DD98-4FC4-A1FB-7871D5C0A91B}.Debug|Any CPU.Build.0 = Debug|Any CPU
{7DBA810A-DD98-4FC4-A1FB-7871D5C0A91B}.Release|Any CPU.ActiveCfg = Release|Any CPU
{7DBA810A-DD98-4FC4-A1FB-7871D5C0A91B}.Release|Any CPU.Build.0 = Release|Any CPU
EndGlobalSection
GlobalSection(SolutionProperties) = preSolution
HideSolutionNode = FALSE
EndGlobalSection
EndGlobal

BIN
Datamatrix_Test/Datamatrix_Test.v11.suo Normal file
View File

Binary file not shown.

BIN
Datamatrix_Test/Datamatrix_Test.v12.suo Normal file
View File

Binary file not shown.

161
Datamatrix_Test/Datamatrix_Test/Datamatrix_Test.vbproj Normal file
View File

@@ -0,0 +1,161 @@
<?xml version="1.0" encoding="utf-8"?>
<Project ToolsVersion="12.0" DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<Import Project="$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props" Condition="Exists('$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props')" />
<PropertyGroup>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<ProjectGuid>{7DBA810A-DD98-4FC4-A1FB-7871D5C0A91B}</ProjectGuid>
<OutputType>WinExe</OutputType>
<StartupObject>Datamatrix_Test.My.MyApplication</StartupObject>
<RootNamespace>Datamatrix_Test</RootNamespace>
<AssemblyName>Datamatrix_Test</AssemblyName>
<FileAlignment>512</FileAlignment>
<MyType>WindowsForms</MyType>
<TargetFrameworkVersion>v3.5</TargetFrameworkVersion>
<TargetFrameworkProfile />
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<PlatformTarget>AnyCPU</PlatformTarget>
<DebugSymbols>true</DebugSymbols>
<DebugType>full</DebugType>
<DefineDebug>true</DefineDebug>
<DefineTrace>true</DefineTrace>
<OutputPath>bin\Debug\</OutputPath>
<DocumentationFile>Datamatrix_Test.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<PlatformTarget>AnyCPU</PlatformTarget>
<DebugType>pdbonly</DebugType>
<DefineDebug>false</DefineDebug>
<DefineTrace>true</DefineTrace>
<Optimize>true</Optimize>
<OutputPath>bin\Release\</OutputPath>
<DocumentationFile>Datamatrix_Test.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
</PropertyGroup>
<PropertyGroup>
<OptionExplicit>On</OptionExplicit>
</PropertyGroup>
<PropertyGroup>
<OptionCompare>Binary</OptionCompare>
</PropertyGroup>
<PropertyGroup>
<OptionStrict>Off</OptionStrict>
</PropertyGroup>
<PropertyGroup>
<OptionInfer>On</OptionInfer>
</PropertyGroup>
<ItemGroup>
<Reference Include="BarcodeLib.Barcode.WinForms, Version=5.0.0.30712, Culture=neutral, PublicKeyToken=ef1bae04ecfd0461, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>bin\Debug\BarcodeLib.Barcode.WinForms.dll</HintPath>
</Reference>
<Reference Include="BarcodeX">
<HintPath>C:\Program Files (x86)\BarcodeX.Net\BarcodeX.dll</HintPath>
</Reference>
<Reference Include="DataMatrix.net">
<HintPath>..\..\..\..\_Demos\Barcode\Datamatrix.Net\DataMatrixTest\bin\Debug\DataMatrix.net.dll</HintPath>
</Reference>
<Reference Include="KeepAutomation.Barcode.Windows, Version=6.0.0.40124, Culture=neutral, PublicKeyToken=328a3e27e1d51b95, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>bin\Debug\KeepAutomation.Barcode.Windows.dll</HintPath>
</Reference>
<Reference Include="Microsoft.Office.Interop.Word, Version=15.0.0.0, Culture=neutral, PublicKeyToken=71e9bce111e9429c, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<EmbedInteropTypes>True</EmbedInteropTypes>
<HintPath>..\..\..\..\_Demos\WordTester\WordTester\bin\Debug\Microsoft.Office.Interop.Word.dll</HintPath>
</Reference>
<Reference Include="Microsoft.Vbe.Interop, Version=15.0.0.0, Culture=neutral, PublicKeyToken=71e9bce111e9429c, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<EmbedInteropTypes>True</EmbedInteropTypes>
<HintPath>..\..\..\..\_Demos\WordTester\WordTester\bin\Debug\Microsoft.Vbe.Interop.dll</HintPath>
</Reference>
<Reference Include="MW6.SDK">
<HintPath>..\..\..\..\_Demos\Barcode\MW6\SDK\MW6.SDK.dll</HintPath>
</Reference>
<Reference Include="Office, Version=15.0.0.0, Culture=neutral, PublicKeyToken=71e9bce111e9429c, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<EmbedInteropTypes>True</EmbedInteropTypes>
<HintPath>..\..\..\..\_Demos\WordTester\WordTester\bin\Debug\Office.dll</HintPath>
</Reference>
<Reference Include="System" />
<Reference Include="System.Data" />
<Reference Include="System.Deployment" />
<Reference Include="System.Drawing" />
<Reference Include="System.Windows.Forms" />
<Reference Include="System.Xml" />
<Reference Include="System.Core" />
<Reference Include="System.Xml.Linq" />
<Reference Include="System.Data.DataSetExtensions" />
</ItemGroup>
<ItemGroup>
<Import Include="Microsoft.VisualBasic" />
<Import Include="System" />
<Import Include="System.Collections" />
<Import Include="System.Collections.Generic" />
<Import Include="System.Data" />
<Import Include="System.Drawing" />
<Import Include="System.Diagnostics" />
<Import Include="System.Windows.Forms" />
<Import Include="System.Linq" />
<Import Include="System.Xml.Linq" />
</ItemGroup>
<ItemGroup>
<Compile Include="Form1.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Form1.Designer.vb">
<DependentUpon>Form1.vb</DependentUpon>
<SubType>Form</SubType>
</Compile>
<Compile Include="My Project\AssemblyInfo.vb" />
<Compile Include="My Project\Application.Designer.vb">
<AutoGen>True</AutoGen>
<DependentUpon>Application.myapp</DependentUpon>
</Compile>
<Compile Include="My Project\Resources.Designer.vb">
<AutoGen>True</AutoGen>
<DesignTime>True</DesignTime>
<DependentUpon>Resources.resx</DependentUpon>
</Compile>
<Compile Include="My Project\Settings.Designer.vb">
<AutoGen>True</AutoGen>
<DependentUpon>Settings.settings</DependentUpon>
<DesignTimeSharedInput>True</DesignTimeSharedInput>
</Compile>
</ItemGroup>
<ItemGroup>
<EmbeddedResource Include="Form1.resx">
<DependentUpon>Form1.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="My Project\Resources.resx">
<Generator>VbMyResourcesResXFileCodeGenerator</Generator>
<LastGenOutput>Resources.Designer.vb</LastGenOutput>
<CustomToolNamespace>My.Resources</CustomToolNamespace>
<SubType>Designer</SubType>
</EmbeddedResource>
</ItemGroup>
<ItemGroup>
<None Include="app.config">
<SubType>Designer</SubType>
</None>
<None Include="My Project\Application.myapp">
<Generator>MyApplicationCodeGenerator</Generator>
<LastGenOutput>Application.Designer.vb</LastGenOutput>
</None>
<None Include="My Project\Settings.settings">
<Generator>SettingsSingleFileGenerator</Generator>
<CustomToolNamespace>My</CustomToolNamespace>
<LastGenOutput>Settings.Designer.vb</LastGenOutput>
</None>
</ItemGroup>
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
<!-- To modify your build process, add your task inside one of the targets below and uncomment it.
Other similar extension points exist, see Microsoft.Common.targets.
<Target Name="BeforeBuild">
</Target>
<Target Name="AfterBuild">
</Target>
-->
</Project>

604
Datamatrix_Test/Datamatrix_Test/Form1.Designer.vb generated Normal file
View File

@@ -0,0 +1,604 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Form1
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.Label1 = New System.Windows.Forms.Label()
Me.lblScanType = New System.Windows.Forms.Label()
Me.txtDokumentID = New System.Windows.Forms.TextBox()
Me.txtScanType = New System.Windows.Forms.TextBox()
Me.FormularNr = New System.Windows.Forms.Label()
Me.cbboxFormualrNr = New System.Windows.Forms.ComboBox()
Me.Label2 = New System.Windows.Forms.Label()
Me.txtAuth = New System.Windows.Forms.TextBox()
Me.txtBPNr = New System.Windows.Forms.TextBox()
Me.Label3 = New System.Windows.Forms.Label()
Me.txtpnr1 = New System.Windows.Forms.TextBox()
Me.Label4 = New System.Windows.Forms.Label()
Me.txtpnr2 = New System.Windows.Forms.TextBox()
Me.Label5 = New System.Windows.Forms.Label()
Me.txtPnr3 = New System.Windows.Forms.TextBox()
Me.Label6 = New System.Windows.Forms.Label()
Me.txtPnr4 = New System.Windows.Forms.TextBox()
Me.Label7 = New System.Windows.Forms.Label()
Me.lbl = New System.Windows.Forms.Label()
Me.Label8 = New System.Windows.Forms.Label()
Me.Label9 = New System.Windows.Forms.Label()
Me.Label10 = New System.Windows.Forms.Label()
Me.txtBCTop = New System.Windows.Forms.TextBox()
Me.TXTBCLeft = New System.Windows.Forms.TextBox()
Me.TXTBCWidth = New System.Windows.Forms.TextBox()
Me.TXTBCHeight = New System.Windows.Forms.TextBox()
Me.ComboBox2 = New System.Windows.Forms.ComboBox()
Me.Label11 = New System.Windows.Forms.Label()
Me.Label12 = New System.Windows.Forms.Label()
Me.cbboxFormuar = New System.Windows.Forms.ComboBox()
Me.Button1 = New System.Windows.Forms.Button()
Me.txtDelimiter = New System.Windows.Forms.TextBox()
Me.Label13 = New System.Windows.Forms.Label()
Me.Button2 = New System.Windows.Forms.Button()
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.ProgressBar1 = New System.Windows.Forms.ProgressBar()
Me.txtFormular = New System.Windows.Forms.TextBox()
Me.Button3 = New System.Windows.Forms.Button()
Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog()
Me.Label14 = New System.Windows.Forms.Label()
Me.FontDialog1 = New System.Windows.Forms.FontDialog()
Me.cbboxFont = New System.Windows.Forms.ComboBox()
Me.cbboxfontsize = New System.Windows.Forms.ComboBox()
Me.Label15 = New System.Windows.Forms.Label()
Me.btnSaveParam = New System.Windows.Forms.Button()
Me.Label17 = New System.Windows.Forms.Label()
Me.txtbckantenlänge = New System.Windows.Forms.TextBox()
Me.Label16 = New System.Windows.Forms.Label()
Me.lbltextboxgroesse = New System.Windows.Forms.Label()
Me.Label18 = New System.Windows.Forms.Label()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(25, 64)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(67, 13)
Me.Label1.TabIndex = 0
Me.Label1.Text = "DokumentID"
'
'lblScanType
'
Me.lblScanType.AutoSize = True
Me.lblScanType.Location = New System.Drawing.Point(25, 38)
Me.lblScanType.Name = "lblScanType"
Me.lblScanType.Size = New System.Drawing.Size(56, 13)
Me.lblScanType.TabIndex = 1
Me.lblScanType.Text = "ScanType"
'
'txtDokumentID
'
Me.txtDokumentID.Location = New System.Drawing.Point(133, 61)
Me.txtDokumentID.Name = "txtDokumentID"
Me.txtDokumentID.Size = New System.Drawing.Size(181, 20)
Me.txtDokumentID.TabIndex = 2
'
'txtScanType
'
Me.txtScanType.Location = New System.Drawing.Point(133, 35)
Me.txtScanType.Name = "txtScanType"
Me.txtScanType.Size = New System.Drawing.Size(76, 20)
Me.txtScanType.TabIndex = 3
Me.txtScanType.Text = "imaq"
'
'FormularNr
'
Me.FormularNr.AutoSize = True
Me.FormularNr.Location = New System.Drawing.Point(25, 97)
Me.FormularNr.Name = "FormularNr"
Me.FormularNr.Size = New System.Drawing.Size(58, 13)
Me.FormularNr.TabIndex = 4
Me.FormularNr.Text = "FormularNr"
'
'cbboxFormualrNr
'
Me.cbboxFormualrNr.FormattingEnabled = True
Me.cbboxFormualrNr.Items.AddRange(New Object() {"0001", "0002", "0003", "0004"})
Me.cbboxFormualrNr.Location = New System.Drawing.Point(133, 89)
Me.cbboxFormualrNr.Name = "cbboxFormualrNr"
Me.cbboxFormualrNr.Size = New System.Drawing.Size(81, 21)
Me.cbboxFormualrNr.TabIndex = 5
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(25, 128)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(103, 13)
Me.Label2.TabIndex = 6
Me.Label2.Text = "AVQ_Auth_Extl_Ref"
'
'txtAuth
'
Me.txtAuth.Location = New System.Drawing.Point(133, 125)
Me.txtAuth.Name = "txtAuth"
Me.txtAuth.Size = New System.Drawing.Size(110, 20)
Me.txtAuth.TabIndex = 7
Me.txtAuth.Text = "9876543210"
'
'txtBPNr
'
Me.txtBPNr.Location = New System.Drawing.Point(133, 151)
Me.txtBPNr.Name = "txtBPNr"
Me.txtBPNr.Size = New System.Drawing.Size(110, 20)
Me.txtBPNr.TabIndex = 9
Me.txtBPNr.Text = "029207573"
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(25, 154)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(35, 13)
Me.Label3.TabIndex = 8
Me.Label3.Text = "BP-Nr"
'
'txtpnr1
'
Me.txtpnr1.Location = New System.Drawing.Point(133, 177)
Me.txtpnr1.Name = "txtpnr1"
Me.txtpnr1.Size = New System.Drawing.Size(110, 20)
Me.txtpnr1.TabIndex = 11
Me.txtpnr1.Text = "110032777"
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Location = New System.Drawing.Point(25, 180)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(54, 13)
Me.Label4.TabIndex = 10
Me.Label4.Text = "PersNrKD"
'
'txtpnr2
'
Me.txtpnr2.Location = New System.Drawing.Point(133, 203)
Me.txtpnr2.Name = "txtpnr2"
Me.txtpnr2.Size = New System.Drawing.Size(110, 20)
Me.txtpnr2.TabIndex = 13
Me.txtpnr2.Text = "100327771"
'
'Label5
'
Me.Label5.AutoSize = True
Me.Label5.Location = New System.Drawing.Point(25, 206)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(60, 13)
Me.Label5.TabIndex = 12
Me.Label5.Text = "PersNrKD1"
'
'txtPnr3
'
Me.txtPnr3.Location = New System.Drawing.Point(133, 229)
Me.txtPnr3.Name = "txtPnr3"
Me.txtPnr3.Size = New System.Drawing.Size(110, 20)
Me.txtPnr3.TabIndex = 15
Me.txtPnr3.Text = "100327772"
'
'Label6
'
Me.Label6.AutoSize = True
Me.Label6.Location = New System.Drawing.Point(25, 232)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(60, 13)
Me.Label6.TabIndex = 14
Me.Label6.Text = "PersNrKD2"
'
'txtPnr4
'
Me.txtPnr4.Location = New System.Drawing.Point(133, 255)
Me.txtPnr4.Name = "txtPnr4"
Me.txtPnr4.Size = New System.Drawing.Size(110, 20)
Me.txtPnr4.TabIndex = 17
Me.txtPnr4.Text = "100327773"
'
'Label7
'
Me.Label7.AutoSize = True
Me.Label7.Location = New System.Drawing.Point(25, 258)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(53, 13)
Me.Label7.TabIndex = 16
Me.Label7.Text = "PersNrBV"
'
'lbl
'
Me.lbl.AutoSize = True
Me.lbl.Location = New System.Drawing.Point(25, 339)
Me.lbl.Name = "lbl"
Me.lbl.Size = New System.Drawing.Size(46, 13)
Me.lbl.TabIndex = 18
Me.lbl.Text = "BC_Top"
'
'Label8
'
Me.Label8.AutoSize = True
Me.Label8.Location = New System.Drawing.Point(25, 362)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(45, 13)
Me.Label8.TabIndex = 19
Me.Label8.Text = "BC_Left"
'
'Label9
'
Me.Label9.AutoSize = True
Me.Label9.Location = New System.Drawing.Point(26, 385)
Me.Label9.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(55, 13)
Me.Label9.TabIndex = 20
Me.Label9.Text = "BC_Width"
'
'Label10
'
Me.Label10.AutoSize = True
Me.Label10.Location = New System.Drawing.Point(26, 411)
Me.Label10.Name = "Label10"
Me.Label10.Size = New System.Drawing.Size(58, 13)
Me.Label10.TabIndex = 21
Me.Label10.Text = "BC_Height"
'
'txtBCTop
'
Me.txtBCTop.Location = New System.Drawing.Point(133, 336)
Me.txtBCTop.Name = "txtBCTop"
Me.txtBCTop.Size = New System.Drawing.Size(56, 20)
Me.txtBCTop.TabIndex = 22
'
'TXTBCLeft
'
Me.TXTBCLeft.Location = New System.Drawing.Point(133, 362)
Me.TXTBCLeft.Name = "TXTBCLeft"
Me.TXTBCLeft.Size = New System.Drawing.Size(56, 20)
Me.TXTBCLeft.TabIndex = 23
'
'TXTBCWidth
'
Me.TXTBCWidth.Location = New System.Drawing.Point(133, 388)
Me.TXTBCWidth.Name = "TXTBCWidth"
Me.TXTBCWidth.Size = New System.Drawing.Size(56, 20)
Me.TXTBCWidth.TabIndex = 24
'
'TXTBCHeight
'
Me.TXTBCHeight.Location = New System.Drawing.Point(133, 411)
Me.TXTBCHeight.Name = "TXTBCHeight"
Me.TXTBCHeight.Size = New System.Drawing.Size(56, 20)
Me.TXTBCHeight.TabIndex = 25
'
'ComboBox2
'
Me.ComboBox2.FormattingEnabled = True
Me.ComboBox2.Items.AddRange(New Object() {"Horizontal - Barcode rechts", "Horizontal - Barcode links", "Vertikal - Barcode oben", "Vertikal - Barcode unten"})
Me.ComboBox2.Location = New System.Drawing.Point(429, 33)
Me.ComboBox2.Name = "ComboBox2"
Me.ComboBox2.Size = New System.Drawing.Size(188, 21)
Me.ComboBox2.TabIndex = 26
'
'Label11
'
Me.Label11.AutoSize = True
Me.Label11.Location = New System.Drawing.Point(321, 36)
Me.Label11.Name = "Label11"
Me.Label11.Size = New System.Drawing.Size(76, 13)
Me.Label11.TabIndex = 27
Me.Label11.Text = "Barcodeformat"
'
'Label12
'
Me.Label12.AutoSize = True
Me.Label12.Location = New System.Drawing.Point(322, 142)
Me.Label12.Name = "Label12"
Me.Label12.Size = New System.Drawing.Size(47, 13)
Me.Label12.TabIndex = 28
Me.Label12.Text = "Formular"
'
'cbboxFormuar
'
Me.cbboxFormuar.FormattingEnabled = True
Me.cbboxFormuar.Items.AddRange(New Object() {"Basisvertrag", "Zeichnungsregelung", "Vollmacht"})
Me.cbboxFormuar.Location = New System.Drawing.Point(429, 139)
Me.cbboxFormuar.Name = "cbboxFormuar"
Me.cbboxFormuar.Size = New System.Drawing.Size(165, 21)
Me.cbboxFormuar.TabIndex = 29
Me.cbboxFormuar.Visible = False
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(623, 164)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(75, 21)
Me.Button1.TabIndex = 30
Me.Button1.Text = "Erstellen"
Me.Button1.UseVisualStyleBackColor = True
'
'txtDelimiter
'
Me.txtDelimiter.Location = New System.Drawing.Point(133, 297)
Me.txtDelimiter.Name = "txtDelimiter"
Me.txtDelimiter.Size = New System.Drawing.Size(25, 20)
Me.txtDelimiter.TabIndex = 32
Me.txtDelimiter.Text = "$"
'
'Label13
'
Me.Label13.AutoSize = True
Me.Label13.Location = New System.Drawing.Point(25, 300)
Me.Label13.Name = "Label13"
Me.Label13.Size = New System.Drawing.Size(47, 13)
Me.Label13.TabIndex = 31
Me.Label13.Text = "Delimiter"
'
'Button2
'
Me.Button2.Location = New System.Drawing.Point(656, 32)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(19, 23)
Me.Button2.TabIndex = 33
Me.Button2.Text = "Button2"
Me.Button2.UseVisualStyleBackColor = True
Me.Button2.Visible = False
'
'PictureBox1
'
Me.PictureBox1.Location = New System.Drawing.Point(325, 218)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(370, 313)
Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
Me.PictureBox1.TabIndex = 34
Me.PictureBox1.TabStop = False
'
'ProgressBar1
'
Me.ProgressBar1.Location = New System.Drawing.Point(373, 166)
Me.ProgressBar1.Name = "ProgressBar1"
Me.ProgressBar1.Size = New System.Drawing.Size(244, 19)
Me.ProgressBar1.TabIndex = 35
'
'txtFormular
'
Me.txtFormular.Location = New System.Drawing.Point(373, 139)
Me.txtFormular.Name = "txtFormular"
Me.txtFormular.Size = New System.Drawing.Size(244, 20)
Me.txtFormular.TabIndex = 36
'
'Button3
'
Me.Button3.Location = New System.Drawing.Point(623, 137)
Me.Button3.Name = "Button3"
Me.Button3.Size = New System.Drawing.Size(75, 21)
Me.Button3.TabIndex = 37
Me.Button3.Text = "Select"
Me.Button3.UseVisualStyleBackColor = True
'
'OpenFileDialog1
'
Me.OpenFileDialog1.FileName = "OpenFileDialog1"
'
'Label14
'
Me.Label14.AutoSize = True
Me.Label14.Location = New System.Drawing.Point(320, 61)
Me.Label14.Name = "Label14"
Me.Label14.Size = New System.Drawing.Size(84, 13)
Me.Label14.TabIndex = 38
Me.Label14.Text = "Font im Barcode"
'
'cbboxFont
'
Me.cbboxFont.DrawMode = System.Windows.Forms.DrawMode.OwnerDrawFixed
Me.cbboxFont.FormattingEnabled = True
Me.cbboxFont.Location = New System.Drawing.Point(429, 58)
Me.cbboxFont.Name = "cbboxFont"
Me.cbboxFont.Size = New System.Drawing.Size(188, 21)
Me.cbboxFont.TabIndex = 39
'
'cbboxfontsize
'
Me.cbboxfontsize.FormattingEnabled = True
Me.cbboxfontsize.Items.AddRange(New Object() {"6", "7", "8", "9", "10", "11", "12", "13", "14", "15", "16"})
Me.cbboxfontsize.Location = New System.Drawing.Point(429, 85)
Me.cbboxfontsize.Name = "cbboxfontsize"
Me.cbboxfontsize.Size = New System.Drawing.Size(94, 21)
Me.cbboxfontsize.TabIndex = 41
'
'Label15
'
Me.Label15.AutoSize = True
Me.Label15.Location = New System.Drawing.Point(321, 85)
Me.Label15.Name = "Label15"
Me.Label15.Size = New System.Drawing.Size(48, 13)
Me.Label15.TabIndex = 40
Me.Label15.Text = "FontSize"
'
'btnSaveParam
'
Me.btnSaveParam.Location = New System.Drawing.Point(28, 499)
Me.btnSaveParam.Name = "btnSaveParam"
Me.btnSaveParam.Size = New System.Drawing.Size(214, 23)
Me.btnSaveParam.TabIndex = 42
Me.btnSaveParam.Text = "Parameter sichern"
Me.btnSaveParam.UseVisualStyleBackColor = True
'
'Label17
'
Me.Label17.AutoSize = True
Me.Label17.Location = New System.Drawing.Point(24, 447)
Me.Label17.Name = "Label17"
Me.Label17.Size = New System.Drawing.Size(84, 13)
Me.Label17.TabIndex = 44
Me.Label17.Text = "BC-Kantenlägen"
'
'txtbckantenlänge
'
Me.txtbckantenlänge.Location = New System.Drawing.Point(131, 444)
Me.txtbckantenlänge.Name = "txtbckantenlänge"
Me.txtbckantenlänge.Size = New System.Drawing.Size(56, 20)
Me.txtbckantenlänge.TabIndex = 45
'
'Label16
'
Me.Label16.AutoSize = True
Me.Label16.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label16.Location = New System.Drawing.Point(195, 385)
Me.Label16.Name = "Label16"
Me.Label16.Size = New System.Drawing.Size(80, 13)
Me.Label16.TabIndex = 47
Me.Label16.Text = "Max BC-Grösse"
'
'lbltextboxgroesse
'
Me.lbltextboxgroesse.AutoSize = True
Me.lbltextboxgroesse.Location = New System.Drawing.Point(195, 403)
Me.lbltextboxgroesse.Name = "lbltextboxgroesse"
Me.lbltextboxgroesse.Size = New System.Drawing.Size(104, 13)
Me.lbltextboxgroesse.TabIndex = 48
Me.lbltextboxgroesse.Text = "Max Textbox-Grösse"
'
'Label18
'
Me.Label18.AutoSize = True
Me.Label18.Location = New System.Drawing.Point(193, 447)
Me.Label18.Name = "Label18"
Me.Label18.Size = New System.Drawing.Size(21, 13)
Me.Label18.TabIndex = 49
Me.Label18.Text = "cm"
'
'Form1
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(701, 534)
Me.Controls.Add(Me.Label18)
Me.Controls.Add(Me.lbltextboxgroesse)
Me.Controls.Add(Me.Label16)
Me.Controls.Add(Me.txtbckantenlänge)
Me.Controls.Add(Me.Label17)
Me.Controls.Add(Me.btnSaveParam)
Me.Controls.Add(Me.cbboxfontsize)
Me.Controls.Add(Me.Label15)
Me.Controls.Add(Me.cbboxFont)
Me.Controls.Add(Me.Label14)
Me.Controls.Add(Me.Button3)
Me.Controls.Add(Me.txtFormular)
Me.Controls.Add(Me.ProgressBar1)
Me.Controls.Add(Me.PictureBox1)
Me.Controls.Add(Me.Button2)
Me.Controls.Add(Me.txtDelimiter)
Me.Controls.Add(Me.Label13)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.cbboxFormuar)
Me.Controls.Add(Me.Label12)
Me.Controls.Add(Me.Label11)
Me.Controls.Add(Me.ComboBox2)
Me.Controls.Add(Me.TXTBCHeight)
Me.Controls.Add(Me.TXTBCWidth)
Me.Controls.Add(Me.TXTBCLeft)
Me.Controls.Add(Me.txtBCTop)
Me.Controls.Add(Me.Label10)
Me.Controls.Add(Me.Label9)
Me.Controls.Add(Me.Label8)
Me.Controls.Add(Me.lbl)
Me.Controls.Add(Me.txtPnr4)
Me.Controls.Add(Me.Label7)
Me.Controls.Add(Me.txtPnr3)
Me.Controls.Add(Me.Label6)
Me.Controls.Add(Me.txtpnr2)
Me.Controls.Add(Me.Label5)
Me.Controls.Add(Me.txtpnr1)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.txtBPNr)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.txtAuth)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.cbboxFormualrNr)
Me.Controls.Add(Me.FormularNr)
Me.Controls.Add(Me.txtScanType)
Me.Controls.Add(Me.txtDokumentID)
Me.Controls.Add(Me.lblScanType)
Me.Controls.Add(Me.Label1)
Me.Name = "Form1"
Me.Text = "Form1"
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents lblScanType As System.Windows.Forms.Label
Friend WithEvents txtDokumentID As System.Windows.Forms.TextBox
Friend WithEvents txtScanType As System.Windows.Forms.TextBox
Friend WithEvents FormularNr As System.Windows.Forms.Label
Friend WithEvents cbboxFormualrNr As System.Windows.Forms.ComboBox
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents txtAuth As System.Windows.Forms.TextBox
Friend WithEvents txtBPNr As System.Windows.Forms.TextBox
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents txtpnr1 As System.Windows.Forms.TextBox
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents txtpnr2 As System.Windows.Forms.TextBox
Friend WithEvents Label5 As System.Windows.Forms.Label
Friend WithEvents txtPnr3 As System.Windows.Forms.TextBox
Friend WithEvents Label6 As System.Windows.Forms.Label
Friend WithEvents txtPnr4 As System.Windows.Forms.TextBox
Friend WithEvents Label7 As System.Windows.Forms.Label
Friend WithEvents lbl As System.Windows.Forms.Label
Friend WithEvents Label8 As System.Windows.Forms.Label
Friend WithEvents Label9 As System.Windows.Forms.Label
Friend WithEvents Label10 As System.Windows.Forms.Label
Friend WithEvents txtBCTop As System.Windows.Forms.TextBox
Friend WithEvents TXTBCLeft As System.Windows.Forms.TextBox
Friend WithEvents TXTBCWidth As System.Windows.Forms.TextBox
Friend WithEvents TXTBCHeight As System.Windows.Forms.TextBox
Friend WithEvents ComboBox2 As System.Windows.Forms.ComboBox
Friend WithEvents Label11 As System.Windows.Forms.Label
Friend WithEvents Label12 As System.Windows.Forms.Label
Friend WithEvents cbboxFormuar As System.Windows.Forms.ComboBox
Friend WithEvents Button1 As System.Windows.Forms.Button
Private WithEvents txtDelimiter As System.Windows.Forms.TextBox
Private WithEvents Label13 As System.Windows.Forms.Label
Friend WithEvents Button2 As System.Windows.Forms.Button
Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
Friend WithEvents ProgressBar1 As System.Windows.Forms.ProgressBar
Friend WithEvents txtFormular As System.Windows.Forms.TextBox
Friend WithEvents Button3 As System.Windows.Forms.Button
Friend WithEvents OpenFileDialog1 As System.Windows.Forms.OpenFileDialog
Friend WithEvents Label14 As System.Windows.Forms.Label
Friend WithEvents FontDialog1 As System.Windows.Forms.FontDialog
Friend WithEvents cbboxFont As System.Windows.Forms.ComboBox
Friend WithEvents cbboxfontsize As System.Windows.Forms.ComboBox
Friend WithEvents Label15 As System.Windows.Forms.Label
Friend WithEvents btnSaveParam As System.Windows.Forms.Button
Friend WithEvents Label17 As System.Windows.Forms.Label
Friend WithEvents txtbckantenlänge As System.Windows.Forms.TextBox
Friend WithEvents Label16 As System.Windows.Forms.Label
Friend WithEvents lbltextboxgroesse As System.Windows.Forms.Label
Friend WithEvents Label18 As System.Windows.Forms.Label
End Class

126
Datamatrix_Test/Datamatrix_Test/Form1.resx Normal file
View File

@@ -0,0 +1,126 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="OpenFileDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<metadata name="FontDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>159, 17</value>
</metadata>
</root>

983
Datamatrix_Test/Datamatrix_Test/Form1.vb Normal file
View File

@@ -0,0 +1,983 @@
Imports word
'Imports Vintasoft.Barcode
Imports System.Reflection
Imports KeepAutomation.Barcode
Imports DataMatrix.net
Imports System.Drawing.Drawing2D
Imports Fath.BarcodeX
Imports System.Configuration
Imports System.Collections.Generic
Imports System.Text
Imports BarcodeLib.Barcode
Imports MW6.SDK.DataMatrix
Public Class Form1
Dim Pixel = 1.3333333333333
Dim IMGISZE_pOINT As Double = 2.8346456695
Dim Barcodevalue As String
Dim onload As Boolean = True
Dim ObjPointMinus As Integer = 0
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.cbboxFont.DrawMode = DrawMode.OwnerDrawFixed
Me.cbboxfontsize.SelectedIndex = 1
Me.ComboBox2.SelectedIndex = 0
Me.cbboxFormuar.SelectedIndex = 0
Me.cbboxFormualrNr.SelectedIndex = 0
Me.ComboBox2.SelectedIndex = 0
BindCombo()
Me.cbboxFormualrNr.Text = My.Settings.FormNr
Me.ComboBox2.SelectedIndex = My.Settings.Barcodetype
Me.cbboxFont.Text = My.Settings.Fontname
Me.cbboxfontsize.Text = My.Settings.Fontsize
Me.txtDokumentID.Text = "OFFEDK0002014007124275"
Me.txtBCTop.Text = My.Settings.BCTOP
Me.TXTBCLeft.Text = My.Settings.BCLeft
Me.TXTBCWidth.Text = My.Settings.BCWidth
Me.TXTBCHeight.Text = My.Settings.BCHeigh
Me.txtbckantenlänge.Text = My.Settings.BCKante
Me.onload = False
Generage_BarcodeImage()
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim IsProtected As Boolean = False
Me.ProgressBar1.Value = 0
Generage_BarcodeImage()
Me.BarcodeFormatn = Me.ComboBox2.SelectedIndex
objWord = CreateObject("Word.Application")
objWord.Documents.Add(Me.txtFormular.Text)
docWord = objWord.ActiveDocument
If docWord.ProtectionType <> Microsoft.Office.Interop.Word.WdProtectionType.wdNoProtection Then
docWord.Unprotect(Password:="Australia")
IsProtected = True
End If
'Select Case Me.cbboxFormuar.SelectedIndex
' Case 0
' objWord.Documents.Add(Application.StartupPath + "\basisvertrag.docm")
' Case 1
' objWord.Documents.Add(Application.StartupPath + "\zeichnungsregelung.docm")
' Case 2
' objWord.Documents.Add(Application.StartupPath + "\vollmacht.docm")
'End Select
Generate_Barcodes()
If IsProtected Then
Try
docWord.Protect(Type:=Microsoft.Office.Interop.Word.WdProtectionType.wdAllowOnlyFormFields, NoReset:=True, Password:="Australia")
Catch
End Try
End If
Me.ProgressBar1.Value = 100
objWord.Visible = True
objWord.ScreenUpdating = False
objWord.ScreenUpdating = True
objWord = Nothing
End Sub
#Region "Barcode"
Private WithEvents objWord As Microsoft.Office.Interop.Word.Application
Private WithEvents docWord As Microsoft.Office.Interop.Word.Document
Dim Textboxes(100) As String
Dim Textboxesi As Integer
Private Sub Generate_Barcodes()
Me.ProgressBar1.Value = 10
Application.DoEvents()
delete_Textfelder()
Me.ProgressBar1.Value = 25
Application.DoEvents()
Insert_TextFelder()
Me.ProgressBar1.Value = 50
Application.DoEvents()
ins_Barcode()
Me.ProgressBar1.Value = 90
Application.DoEvents()
End Sub
Private Sub delete_Textfelder()
Dim xname As String
Dim i As Integer
Dim i1 As Integer
Dim pages As Long
Dim Prop As Object
objWord.Selection.HomeKey(Unit:=Microsoft.Office.Interop.Word.WdUnits.wdStory)
For Each Prop In objWord.ActiveDocument.BuiltInDocumentProperties
If UCase(Prop.Name) = "NUMBER OF PAGES" Then
pages = Prop.value
End If
Next
For i = 1 To pages
xname = Str(i)
If Microsoft.VisualBasic.Left(xname, 1) = " " Then xname = Microsoft.VisualBasic.Right(xname, Len(xname) - 1)
objWord.Selection.GoTo(What:=Microsoft.Office.Interop.Word.WdGoToItem.wdGoToPage, Name:=xname)
HeaderFooterAnzeigen()
While objWord.Selection.HeaderFooter.Shapes.Count > 0
objWord.Selection.HeaderFooter.Shapes.Item(1).Delete()
End While
' On Error GoTo eh
' ' Resume Next
' For i1 = 1 To objword.Selection.HeaderFooter.Shapes.Count
' objword.Selection.HeaderFooter.Shapes.Item(i1).Delete()
' Next i1
' On Error GoTo 0
objWord.ActiveWindow.ActivePane.View.SeekView = Microsoft.Office.Interop.Word.WdSeekView.wdSeekMainDocument
Next i
Exit Sub
eh:
'MsgBox(Err.Description)
Resume Next
End Sub
Private Sub Insert_TextFelder()
Dim xname As String
Dim i As Integer
Dim pages As Long
Dim prop As Object
For Each prop In objWord.ActiveDocument.BuiltInDocumentProperties
If UCase(prop.Name) = "NUMBER OF PAGES" Then
pages = prop.value
End If
Next
Textboxesi = 1
objWord.Selection.HomeKey(Unit:=Microsoft.Office.Interop.Word.WdUnits.wdStory)
For i = 1 To pages
xname = Str(i)
If Microsoft.VisualBasic.Left(xname, 1) = " " Then xname = Microsoft.VisualBasic.Right(xname, Len(xname) - 1)
objWord.Selection.GoTo(What:=Microsoft.Office.Interop.Word.WdGoToItem.wdGoToPage, Name:=xname)
insert_Textfield()
objWord.ActiveWindow.ActivePane.View.SeekView = Microsoft.Office.Interop.Word.WdSeekView.wdSeekMainDocument
Next i
End Sub
Dim BarcodeType As Integer
Dim BarcodeContent As String
Dim BarcodeFormatn As String
Dim BarcodeBeschriftung As String
Private Sub ins_Barcode()
BarcodeBeschriftung = Me.txtAuth.Text + Chr(11) + Me.txtDokumentID.Text.Substring(6, 16)
datamatrix_generator()
Dim xname As String
Dim i As Integer
Dim pages As Long
Dim prop As Object
Try
For Each prop In objWord.ActiveDocument.BuiltInDocumentProperties
If UCase(prop.Name) = "NUMBER OF PAGES" Then
pages = prop.value
End If
Next
Catch ex As Exception
For Each prop In objWord.ActiveDocument.BuiltInDocumentProperties
If UCase(prop.Name) = "NUMBER OF PAGES" Then
pages = prop.value
End If
Next
End Try
objWord.Selection.HomeKey(Unit:=Microsoft.Office.Interop.Word.WdUnits.wdStory)
Textboxesi = 1
For i = 1 To pages
xname = Str(i)
If Microsoft.VisualBasic.Left(xname, 1) = " " Then xname = Microsoft.VisualBasic.Right(xname, Len(xname) - 1)
objWord.Selection.GoTo(What:=Microsoft.Office.Interop.Word.WdGoToItem.wdGoToPage, Name:=xname)
HeaderFooterAnzeigen()
insert_Barcode(i)
Textboxesi = Textboxesi + 1
objWord.ActiveWindow.ActivePane.View.SeekView = Microsoft.Office.Interop.Word.WdSeekView.wdSeekMainDocument
Next i
End Sub
Private Sub HeaderFooterAnzeigen()
If objWord.ActiveWindow.View.SplitSpecial <> Microsoft.Office.Interop.Word.WdSpecialPane.wdPaneNone Then
objWord.ActiveWindow.Panes.Item(2).Close()
End If
If objWord.ActiveWindow.ActivePane.View.Type = Microsoft.Office.Interop.Word.WdViewType.wdNormalView Or objWord.ActiveWindow.ActivePane.View.Type = Microsoft.Office.Interop.Word.WdViewType.wdOutlineView Then
objWord.ActiveWindow.ActivePane.View.Type = Microsoft.Office.Interop.Word.WdViewType.wdPrintView
End If
objWord.ActiveWindow.ActivePane.View.SeekView = Microsoft.Office.Interop.Word.WdSeekView.wdSeekCurrentPageHeader
If objWord.Selection.HeaderFooter.IsHeader = True Then
objWord.ActiveWindow.ActivePane.View.SeekView = Microsoft.Office.Interop.Word.WdSeekView.wdSeekCurrentPageFooter
Else
objWord.ActiveWindow.ActivePane.View.SeekView = Microsoft.Office.Interop.Word.WdSeekView.wdSeekCurrentPageHeader
End If
End Sub
Dim Public_barcodeleft
Dim Public_barcodetop
Dim Public_barcodewidth#
Dim Public_barcodeheight
Private Sub insert_Textfield()
Try
Public_barcodeleft = Me.TXTBCLeft.Text
Public_barcodetop = Me.txtBCTop.Text
Public_barcodewidth = Me.TXTBCWidth.Text
Public_barcodeheight = Me.TXTBCHeight.Text
HeaderFooterAnzeigen()
objWord.Selection.HeaderFooter.Shapes.AddTextbox(1, Public_barcodeleft, Public_barcodetop, _
Public_barcodewidth#, Public_barcodeheight).Select()
' objword.Selection.ShapeRange.TextFrame.TextRange.Select
'gaga
objWord.Selection.ShapeRange.Line.Visible = Microsoft.Office.Core.MsoTriState.msoFalse
'objWord.Selection.ShapeRange.Line.Visible = Microsoft.Office.Core.MsoTriState.msoTrue
'objword.Selection.ShapeRange.Line.Visible = Microsoft.Office.Core.MsoTriState.msoFalse 'RS:2006-08-22
objWord.Selection.ShapeRange.TextFrame.MarginLeft = 0.0#
objWord.Selection.ShapeRange.TextFrame.MarginRight = 0.0#
objWord.Selection.ShapeRange.TextFrame.MarginTop = 0.0#
objWord.Selection.ShapeRange.TextFrame.MarginBottom = 0.0#
objWord.Selection.Collapse()
Textboxes(Textboxesi) = objWord.Selection.HeaderFooter.Shapes.Item(Textboxesi).Name
Textboxesi = Textboxesi + 1
'System.Windows.Forms.Application.DoEvents()
Exit Sub
Catch ex As Exception
'MsgBox(ex.Message)
End Try
End Sub
Private Sub insert_Barcode(ByVal x As Integer)
Insert_Datamatrix()
End Sub
Dim Tbl As Microsoft.Office.Interop.Word.Table
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"
If System.Configuration.ConfigurationSettings.AppSettings("GenType") = 1 Then
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("h:\tssettings\edoka\a_" + Me.txtDokumentID.Text + ".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("h:\tssettings\edoka\a_" + Me.txtDokumentID.Text + ".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("h:\tssettings\edoka\a_" + Me.txtDokumentID.Text + ".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("h:\tssettings\edoka\a_" + Me.txtDokumentID.Text + ".png", LinkToFile:=False, SaveWithDocument:=True)
End Select
Form = Nothing
Exit Sub
End If
Select Case Me.BarcodeFormatn
Case 0 'Rects
Tbl = objWord.ActiveDocument.Tables.Add(Range:=objWord.Selection.Range, NumRows:=1, NumColumns:=2)
Tbl.Select()
Tbl.Borders.InsideLineStyle = Microsoft.Office.Interop.Word.WdLineStyle.wdLineStyleNone
Tbl.Rows(1).Alignment = Microsoft.Office.Interop.Word.WdRowAlignment.wdAlignRowRight
Tbl.Columns(1).Width = Public_barcodewidth - 10 - Public_barcodeheight
Tbl.Columns(2).Width = Public_barcodeheight + 4
Tbl.Cell(1, 1).VerticalAlignment = Microsoft.Office.Interop.Word.WdCellVerticalAlignment.wdCellAlignVerticalBottom
Tbl.Cell(1, 2).VerticalAlignment = Microsoft.Office.Interop.Word.WdCellVerticalAlignment.wdCellAlignVerticalBottom
Tbl.Select()
objWord.Selection.Font.Name = Me.cbboxFont.Text
objWord.Selection.Font.Size = Me.cbboxfontsize.Text
objWord.Selection.TypeText(Me.BarcodeBeschriftung + Zeichen)
objWord.Selection.HomeKey(Unit:=Microsoft.Office.Interop.Word.WdUnits.wdLine, Extend:=Microsoft.Office.Interop.Word.WdMovementType.wdExtend)
objWord.Selection.MoveUp(Unit:=Microsoft.Office.Interop.Word.WdUnits.wdLine, Count:=1, Extend:=Microsoft.Office.Interop.Word.WdMovementType.wdExtend)
objWord.Selection.ParagraphFormat.Alignment = Microsoft.Office.Interop.Word.WdParagraphAlignment.wdAlignParagraphRight
objWord.Selection.EndKey(Unit:=Microsoft.Office.Interop.Word.WdUnits.wdLine)
objWord.Selection.MoveRight(Unit:=Microsoft.Office.Interop.Word.WdUnits.wdCharacter, Count:=1)
objWord.Selection.InlineShapes.AddPicture("h:\tssettings\edoka\" + Me.txtDokumentID.Text + ".png", LinkToFile:=False, SaveWithDocument:=True)
Case 1 'Links
Tbl = objWord.ActiveDocument.Tables.Add(Range:=objWord.Selection.Range, NumRows:=1, NumColumns:=2)
Tbl.Select()
Tbl.Borders.InsideLineStyle = Microsoft.Office.Interop.Word.WdLineStyle.wdLineStyleNone
Tbl.Rows(1).Alignment = Microsoft.Office.Interop.Word.WdRowAlignment.wdAlignRowRight
Tbl.Columns(2).Width = Public_barcodewidth - 10 - Public_barcodeheight
Tbl.Columns(1).Width = Public_barcodeheight + 4
Tbl.Cell(1, 1).VerticalAlignment = Microsoft.Office.Interop.Word.WdCellVerticalAlignment.wdCellAlignVerticalBottom
Tbl.Cell(1, 2).VerticalAlignment = Microsoft.Office.Interop.Word.WdCellVerticalAlignment.wdCellAlignVerticalBottom
Tbl.Select()
objWord.Selection.Font.Name = Me.cbboxFont.Text
objWord.Selection.Font.Size = Me.cbboxfontsize.Text
objWord.Selection.InlineShapes.AddPicture("h:\tssettings\edoka\" + Me.txtDokumentID.Text + ".png", LinkToFile:=False, SaveWithDocument:=True)
objWord.Selection.EndKey(Unit:=Microsoft.Office.Interop.Word.WdUnits.wdLine)
objWord.Selection.MoveRight(Unit:=Microsoft.Office.Interop.Word.WdUnits.wdCharacter, Count:=1)
objWord.Selection.TypeText(Me.BarcodeBeschriftung + Zeichen)
objWord.Selection.HomeKey(Unit:=Microsoft.Office.Interop.Word.WdUnits.wdLine, Extend:=Microsoft.Office.Interop.Word.WdMovementType.wdExtend)
objWord.Selection.MoveUp(Unit:=Microsoft.Office.Interop.Word.WdUnits.wdLine, Count:=1, Extend:=Microsoft.Office.Interop.Word.WdMovementType.wdExtend)
objWord.Selection.ParagraphFormat.Alignment = Microsoft.Office.Interop.Word.WdParagraphAlignment.wdAlignParagraphLeft
Case 2 'Oben
Tbl = objWord.ActiveDocument.Tables.Add(Range:=objWord.Selection.Range, NumRows:=2, NumColumns:=1)
Tbl.Select()
Tbl.Borders.InsideLineStyle = Microsoft.Office.Interop.Word.WdLineStyle.wdLineStyleNone
Tbl.Rows(1).Height = Public_barcodewidth + 2
Tbl.Rows(2).Height = Public_barcodeheight - Public_barcodewidth - 2
'Tbl.Cell(1, 1).VerticalAlignment = WdCellVerticalAlignment.wdCellAlignVerticalBottom
'Tbl.Cell(2, 1).VerticalAlignment = WdCellVerticalAlignment.wdCellAlignVerticalBottom
Tbl.Rows(2).Select()
objWord.Selection.Orientation = Microsoft.Office.Interop.Word.WdTextOrientation.wdTextOrientationUpward
Tbl.Select()
objWord.Selection.Font.Name = Me.cbboxFont.Text
objWord.Selection.Font.Size = Me.cbboxfontsize.Text
objWord.Selection.InlineShapes.AddPicture("h:\tssettings\edoka\" + Me.txtDokumentID.Text + ".png", LinkToFile:=False, SaveWithDocument:=True)
objWord.Selection.EndKey(Unit:=Microsoft.Office.Interop.Word.WdUnits.wdLine)
objWord.Selection.MoveRight(Unit:=Microsoft.Office.Interop.Word.WdUnits.wdCharacter, Count:=1)
objWord.Selection.TypeText(Me.BarcodeBeschriftung + Zeichen)
objWord.Selection.HomeKey(Unit:=Microsoft.Office.Interop.Word.WdUnits.wdLine, Extend:=Microsoft.Office.Interop.Word.WdMovementType.wdExtend)
objWord.Selection.MoveUp(Unit:=Microsoft.Office.Interop.Word.WdUnits.wdLine, Count:=1, Extend:=Microsoft.Office.Interop.Word.WdMovementType.wdExtend)
objWord.Selection.ParagraphFormat.Alignment = Microsoft.Office.Interop.Word.WdParagraphAlignment.wdAlignParagraphRight
Case 3 'Unten
Tbl = objWord.ActiveDocument.Tables.Add(Range:=objWord.Selection.Range, NumRows:=2, NumColumns:=1)
Tbl.Select()
Tbl.Borders.InsideLineStyle = Microsoft.Office.Interop.Word.WdLineStyle.wdLineStyleNone
Tbl.Rows(2).Height = Public_barcodewidth + 2
Tbl.Rows(1).Height = Public_barcodeheight - 2
'Tbl.Cell(1, 1).VerticalAlignment = WdCellVerticalAlignment.wdCellAlignVerticalBottom
'Tbl.Cell(2, 1).VerticalAlignment = WdCellVerticalAlignment.wdCellAlignVerticalBottom
Tbl.Select()
objWord.Selection.Orientation = Microsoft.Office.Interop.Word.WdTextOrientation.wdTextOrientationUpward
objWord.Selection.Font.Name = Me.cbboxFont.Text
objWord.Selection.Font.Size = Me.cbboxfontsize.Text
objWord.Selection.HomeKey(Unit:=Microsoft.Office.Interop.Word.WdUnits.wdLine)
objWord.Selection.MoveLeft(Unit:=Microsoft.Office.Interop.Word.WdUnits.wdCharacter, Count:=1)
objWord.Selection.TypeText(BarcodeBeschriftung + Zeichen)
objWord.Selection.HomeKey(Unit:=Microsoft.Office.Interop.Word.WdUnits.wdLine, Extend:=Microsoft.Office.Interop.Word.WdMovementType.wdExtend)
objWord.Selection.MoveUp(Unit:=Microsoft.Office.Interop.Word.WdUnits.wdLine, Count:=1, Extend:=Microsoft.Office.Interop.Word.WdMovementType.wdExtend)
objWord.Selection.ParagraphFormat.Alignment = Microsoft.Office.Interop.Word.WdParagraphAlignment.wdAlignParagraphLeft
Tbl.Rows(2).Select()
objWord.Selection.InlineShapes.AddPicture("h:\tssettings\edoka\" + Me.txtDokumentID.Text + ".png", LinkToFile:=False, SaveWithDocument:=True)
End Select
Form = Nothing
Catch ex As Exception
End Try
End Sub
#End Region
#Region "Barcode-Berechnung"
Private BarTextOut As String
Private BarTextIn As String
Private DoCheckSum As Integer
Private TempString As String
Private CharValue As Long
Private II As Integer
Private Sum As Long
Private barcodeout
Private CheckSum As Integer
' Copyright 2001 by Elfring Fonts Inc. All rights reserved. This code
' may not be modified or altered in any way.
'Functions in this file:
' Bar25I(Text) -> convert text to bar code 2/5 interleaved
' Bar25Ics(Text) -> convert text to bar code 2/5 interleaved with checksum
'---------------------------------------------------------------------------
' This function converts a string of digits into a format compatible with Elfring
' Fonts Inc bar codes. It adds the start character, scans and converts digit pairs
' into single ASCII characters, and adds a stop character. Note that non-digits are
' ignored, and if you enter an odd number of digits, a leading zero will be added.
'---------------------------------------------------------------------------
Public Function Bar25I(ByVal BarTextIn As String) As String
' Initialize input and output strings
BarTextOut = ""
BarTextIn = RTrim(LTrim(BarTextIn))
' Throw away non-numeric data
TempString = ""
For II = 1 To Len(BarTextIn)
If IsNumeric(Mid(BarTextIn, II, 1)) Then
TempString = TempString & Mid(BarTextIn, II, 1)
End If
Next II
' If not an even number of digits, add a leading 0
If (Len(TempString) Mod 2) = 1 Then
TempString = "0" & TempString
End If
' Break digit pairs up and convert to characters- build output string
For II = 1 To Len(TempString) Step 2
'Break string into pairs of digits and get value
CharValue = Mid(TempString, II, 2)
'translate value to ASCII and save in BarTextOut
If CharValue < 90 Then
BarTextOut = BarTextOut & Chr(CharValue + 33)
Else
BarTextOut = BarTextOut & Chr(CharValue + 71)
End If
Next II
'Build ouput string, trailing space for Windows rasterization bug
barcodeout = "{" & BarTextOut & "} "
'Return the string
Bar25I = barcodeout
End Function
'---------------------------------------------------------------------------
' This function converts a string of digits into a format compatible with Elfring
' Fonts Inc bar codes. It adds the start character, scans and converts digit pairs
' into single ASCII characters, and adds checksum and a stop character. Note that
' non-digits are ignored, and if you enter an even number of digits, a leading zero
' will be added.
Sub datamatrix_generator()
Exit Sub
Select Case System.Configuration.ConfigurationSettings.AppSettings("BCType")
Case "Vinta"
'BarcodeGlobalSettings.RegisterBarcodeWriter("Stefan Hutter", "info@shub.ch", "eI0lfgRSHfSKaCxwllGhsI0DdLi49dG7yugaUAbFPejLZLJZYkKHYWkLG/ISuSaUDboGC6HprwLoqostx1eX+07Sbt3vRmJuwMqNBYuc8iufRlBKLOW9NAlPCA+n2e/Go/M0LS9kaCE7TZ4LcyMbP+lcJGW4k1rP6iDH434IZ4YY")
'Dim bc As New Vintasoft.Barcode.BarcodeWriter
'bc.Settings.Barcode = Vintasoft.Barcode.BarcodeType.DataMatrix
'bc.Settings.Value = Me.Barcodevalue
'Dim img As Image = bc.GetBarcodeAsBitmap
''Height = img.Height
''Width = img.Width
'bc.GetBarcodeAsBitmap.Save("H:\tssettings\edoka\" + Me.txtDokumentID.Text + ".png", System.Drawing.Imaging.ImageFormat.Png)
'bc = Nothing
Case "Keep"
Dim datamatrix As New KeepAutomation.Barcode.Bean.BarCode
datamatrix.Symbology = KeepAutomation.Barcode.Symbology.DataMatrix
datamatrix.CodeToEncode = Me.Barcodevalue
datamatrix.X = 0
datamatrix.Y = 0
Dim img1 As Bitmap = datamatrix.generateBarcodeToBitmap
'Height = img1.Height
'Width = img1.Width
img1.Save("H:\tssettings\edoka\" + Me.txtDokumentID.Text + ".png", System.Drawing.Imaging.ImageFormat.Png)
Case "Own"
Dim encoder As New DmtxImageEncoder
Dim options As New DmtxImageEncoderOptions
options.ModuleSize = 1
options.MarginSize = 1
options.BackColor = Color.White
options.ForeColor = Color.Black
options.SizeIdx = DmtxSymbolSize.DmtxSymbol12x12
Dim entcodedbitmap As Bitmap = encoder.EncodeImage(Me.Barcodevalue)
'entcodedbitmap.Save("h:\tssettings\bmencoder.png")
Dim img2 As Image = entcodedbitmap
Dim ns As Size
ns.Width = img2.Width / 3 * 2
ns.Height = img2.Height / 3 * 2
'If img2.Size.Width > 114 Then img2 = ResizeImage(img2, ns)
img2 = ResizeImage(img2, ns)
'Width = img2.Width
'Height = img2.Height
img2.Save("H:\tssettings\edoka\" + Me.txtDokumentID.Text + ".png", System.Drawing.Imaging.ImageFormat.Png)
Case "Fath"
Dim fc As New Fath.BarcodeX
fc.Symbology = Fath.bcType.DataMatrix
fc.Data = Me.Barcodevalue
End Select
End Sub
Function Datamatrix_Generator_1(ByRef Height As Integer, ByRef width As Integer) As Image
Dim imgsize As Integer
Select Case Me.ComboBox2.SelectedIndex
Case 0, 1
Try
imgsize = IMGISZE_pOINT * Me.TXTBCHeight.Text
Catch
imgsize = 39
End Try
Case 2, 3
Try
imgsize = IMGISZE_pOINT * Me.TXTBCWidth.Text
Catch
imgsize = 39
End Try
End Select
Select Case System.Configuration.ConfigurationSettings.AppSettings("BCType")
Case "Vinta"
' BarcodeGlobalSettings.RegisterBarcodeWriter("Stefan Hutter", "info@shub.ch", "eI0lfgRSHfSKaCxwllGhsI0DdLi49dG7yugaUAbFPejLZLJZYkKHYWkLG/ISuSaUDboGC6HprwLoqostx1eX+07Sbt3vRmJuwMqNBYuc8iufRlBKLOW9NAlPCA+n2e/Go/M0LS9kaCE7TZ4LcyMbP+lcJGW4k1rP6iDH434IZ4YY")
' Dim bc As New Vintasoft.Barcode.BarcodeWriter
' bc.Settings.Barcode = Vintasoft.Barcode.BarcodeType.DataMatrix
' bc.Settings.Value = Me.Barcodevalue
' imgsize = Me.txtbckantenlänge.Text * 37.795275593333
' Dim img As Image = bc.GetBarcodeAsBitmap
' ' img = AutoSizeImage(img, imgsize, imgsize, True)
' img = AutoSizeImage(img, imgsize, imgsize, True)
' Height = img.Height
' width = img.Width
' Return img
'Case "Keep"
Dim datamatrix As New KeepAutomation.Barcode.Bean.BarCode
datamatrix.Symbology = KeepAutomation.Barcode.Symbology.DataMatrix
datamatrix.CodeToEncode = Me.Barcodevalue
datamatrix.X = 5
datamatrix.Y = 5
Dim img1 As Bitmap = datamatrix.generateBarcodeToBitmap
imgsize = Me.txtbckantenlänge.Text * 37.795275593333
img1 = AutoSizeImage(img1, imgsize, imgsize, True)
Height = img1.Height
width = img1.Width
datamatrix.generateBarcodeToImageFile("h:\tssettings\edoka\keepautomation.png")
Return img1
Case "Own"
Dim encoder As New DmtxImageEncoder
Dim options As New DmtxImageEncoderOptions
options.ModuleSize = 1
options.MarginSize = 1
options.BackColor = Color.White
options.ForeColor = Color.Black
options.SizeIdx = DmtxSymbolSize.DmtxSymbol12x12
Dim entcodedbitmap As Bitmap = encoder.EncodeImage(Me.Barcodevalue)
'entcodedbitmap.Save("h:\tssettings\bmencoder.png")
Dim img2 As Image = entcodedbitmap
img2 = AutoSizeImage(img2, imgsize, imgsize, True)
Dim ns As Size
ns.Width = img2.Width / 3 * 2
ns.Height = img2.Height / 3 * 2
'If img2.Size.Width > 114 Then img2 = ResizeImage(img2, ns)
imgsize = Me.txtbckantenlänge.Text * 37.795275593333
img2 = AutoSizeImage(img2, imgsize, imgsize, True)
width = img2.Width
Height = img2.Height
ObjPointMinus = 3
Return img2
Case "Fath"
Dim fc As New Fath.BarcodeX
fc.Symbology = Fath.bcType.DataMatrix
fc.Data = Me.Barcodevalue
Dim img3 As Image = fc.Image(fc.GetMinimalHeight * 3, fc.GetMinimalWidth * 3)
imgsize = Me.txtbckantenlänge.Text * 37.795275593333
img3 = AutoSizeImage(img3, imgsize, imgsize, True)
width = img3.Width
Height = img3.Height
Return img3
Case "Barcodelib"
Dim bl As New BarcodeLib.Barcode.DataMatrix
bl.Data = Me.Barcodevalue
Dim img4 As Image = bl.drawBarcode
imgsize = Me.txtbckantenlänge.Text * 37.795275593333
img4 = AutoSizeImage(img4, imgsize, imgsize, True)
width = img4.Width
Height = img4.Height
Return img4
Case "MW6"
Dim DMNetCtrl As New MW6.SDK.DataMatrix.DataMatrixNet
DMNetCtrl.Data = Me.Barcodevalue
Dim ActualRows As Integer
Dim ActualCols As Integer
Dim ActualWidth As Integer
Dim ActualHeight As Integer
Dim ExtraWidth As Integer = 0
Dim ExtraHeight As Integer = 0
DMNetCtrl.GetActualRC(ActualRows, ActualCols)
DMNetCtrl.GetActualSize(True, Nothing, ActualWidth, ActualHeight)
DMNetCtrl.SetSize(ActualWidth + ExtraWidth, ActualHeight + ExtraHeight)
Dim MS As System.IO.MemoryStream = New System.IO.MemoryStream
DMNetCtrl.SaveAsMemory(MS, System.Drawing.Imaging.ImageFormat.Png)
Dim img4 As Image
img4 = System.Drawing.Image.FromStream(MS)
If Me.txtbckantenlänge.Text = "" Then Me.txtbckantenlänge.Text = 2
imgsize = Me.txtbckantenlänge.Text * 37.795275593333
img4 = AutoSizeImage(img4, imgsize, imgsize, True)
width = img4.Width
Height = img4.Height
Return img4
MS.Close()
End Select
End Function
Public Shared Function ResizeImage(ByVal image As Image, ByVal size As Size, Optional ByVal preserveAspectRatio As Boolean = True) As Image
Dim newWidth As Integer
Dim newHeight As Integer
If preserveAspectRatio Then
Dim originalWidth As Integer = image.Width
Dim originalHeight As Integer = image.Height
Dim percentWidth As Single = CSng(size.Width) / CSng(originalWidth)
Dim percentHeight As Single = CSng(size.Height) / CSng(originalHeight)
Dim percent As Single = If(percentHeight < percentWidth,
percentHeight, percentWidth)
newWidth = CInt(originalWidth * percent)
newHeight = CInt(originalHeight * percent)
Else
newWidth = size.Width
newHeight = size.Height
End If
Dim newImage As Image = New Bitmap(newWidth, newHeight)
Using graphicsHandle As Graphics = Graphics.FromImage(newImage)
graphicsHandle.InterpolationMode = InterpolationMode.HighQualityBicubic
graphicsHandle.DrawImage(image, 0, 0, newWidth, newHeight)
End Using
Return newImage
End Function
#End Region
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Generage_BarcodeImage()
End Sub
Sub Generage_BarcodeImage()
Dim numbc As String
Dim s As String
s = s + Me.txtScanType.Text + txtDelimiter.Text
If Me.txtDokumentID.Text.Length < 22 Then
Dim x As String
x = Me.txtDokumentID.Text.Substring(6, Me.txtDokumentID.Text.Length - 6)
While x.Length < 16
x = x + "?"
End While
numbc = x
s = s + x
Else
s = s + Me.txtDokumentID.Text.Substring(6, 16) + txtDelimiter.Text
numbc = Me.txtDokumentID.Text.Substring(6, 16)
End If
s = s + Me.cbboxFormualrNr.Text + txtDelimiter.Text
s = s + Me.txtAuth.Text + txtDelimiter.Text
s = s + Me.txtBPNr.Text + txtDelimiter.Text
s = s + Me.txtpnr1.Text + txtDelimiter.Text
s = s + Me.txtpnr2.Text + txtDelimiter.Text
s = s + Me.txtPnr3.Text + txtDelimiter.Text
s = s + Me.txtPnr4.Text
BarcodeContent = s
Barcodevalue = s
Me.BarcodeFormatn = Me.ComboBox2.SelectedIndex
BarcodeBeschriftung = Me.txtAuth.Text + vbCrLf + numbc + " /U"
's = Me.txtDokumentID.Text.Substring(6, 16)
'BarcodeBeschriftung = Me.txtDokumentID.Text.Substring(6, 16) + " /U"
'BarcodeContent = s
'Barcodevalue = s
Dim FontColor As Color = Color.Black
Dim BackColor As Color = Color.White
Dim FontName As String = Me.cbboxFont.Text
Dim FontSize As Integer = Me.cbboxfontsize.Text
Dim Height As Integer = 0
Dim Width As Integer = 0
Dim objFont As New Font(FontName, FontSize)
Me.Public_barcodewidth = Me.TXTBCWidth.Text
Dim image1 As Bitmap = Datamatrix_Generator_1(Height, Width)
Dim image1bmp As New Bitmap(Height, Width)
image1.Save("h:\tssettings\img1.png")
Dim objFontsize As Graphics = Graphics.FromImage(image1bmp)
Dim sf = objFontsize.MeasureString(BarcodeBeschriftung, objFont)
Select Case BarcodeFormatn
Case 0, 2
If image1.Width < 70 Then Width = sf.Width + 10 + image1.Width Else Width = image1.Width * 3
Case 1, 3
If image1.Width < 70 Then Width = sf.Width + 10 + image1.Width Else Width = image1.Width * 3
Case 22
If image1.Height < 70 Then Height = sf.Height + 10 + image1.Height Else Height = image1.Height * 3
Case 33
If image1.Height < 70 Then Height = sf.Height + 10 + image1.Height Else Height = image1.Height * 3
End Select
Dim objBitmap As New Bitmap(Width + 25, Height + 25)
Dim objGraphics As Graphics = Graphics.FromImage(objBitmap)
Dim objBrushForeColor As New SolidBrush(FontColor)
Dim objBrushBackColor As New SolidBrush(BackColor)
Dim objColor As Color
Me.BarcodeFormatn = Me.ComboBox2.SelectedIndex
Select Case BarcodeFormatn
Case 0 'rechts
Dim stringFormat As New StringFormat()
stringFormat.Alignment = StringAlignment.Far
stringFormat.LineAlignment = StringAlignment.Near
objGraphics.FillRectangle(objBrushBackColor, 0, 0, Width + 25, Height + 25)
Dim objPoint As New PointF(Width - image1.Width - 10, Height - sf.Height - ObjPointMinus)
objGraphics.DrawString(BarcodeBeschriftung, objFont, objBrushForeColor, objPoint, stringFormat)
objGraphics.DrawImage(image1, New Point(Width - image1.Width, 0))
Me.lbltextboxgroesse.Text = Math.Round((Me.txtbckantenlänge.Text * 3 * IMGISZE_pOINT * 10), 0).ToString + " * " + Math.Round((Me.txtbckantenlänge.Text * IMGISZE_pOINT * 10), 0).ToString
Case 1 'links
objGraphics.FillRectangle(objBrushBackColor, 0, 0, Width + 26, Height + 26)
Dim objPoint As New PointF(image1.Width + 10, (Height - sf.Height - ObjPointMinus) + 13)
objGraphics.DrawString(BarcodeBeschriftung, objFont, objBrushForeColor, objPoint)
objGraphics.DrawImage(image1, New Point(0, 13))
Me.lbltextboxgroesse.Text = Math.Round((Me.txtbckantenlänge.Text * 3 * IMGISZE_pOINT * 10), 0).ToString + " * " + Math.Round((Me.txtbckantenlänge.Text * IMGISZE_pOINT * 10), 0).ToString
Case 2 'links
objGraphics.FillRectangle(objBrushBackColor, 0, 0, Width, Height)
Dim objPoint As New PointF(image1.Width + 10, Height - sf.Height - ObjPointMinus)
objGraphics.DrawString(BarcodeBeschriftung, objFont, objBrushForeColor, objPoint)
objGraphics.DrawImage(image1, New Point(0, 0))
objBitmap.RotateFlip(RotateFlipType.Rotate90FlipNone)
Me.lbltextboxgroesse.Text = Math.Round((Me.txtbckantenlänge.Text * IMGISZE_pOINT * 10), 0).ToString + " * " + Math.Round((Me.txtbckantenlänge.Text * 3 * IMGISZE_pOINT * 10), 0).ToString
Case 3
Dim stringFormat As New StringFormat()
stringFormat.Alignment = StringAlignment.Far
stringFormat.LineAlignment = StringAlignment.Near
objGraphics.FillRectangle(objBrushBackColor, 0, 0, Width, Height)
Dim objPoint As New PointF(Width - image1.Width - 10, Height - sf.Height - ObjPointMinus)
objGraphics.DrawString(BarcodeBeschriftung, objFont, objBrushForeColor, objPoint, stringFormat)
objGraphics.DrawImage(image1, New Point(Width - image1.Width, 0))
objBitmap.RotateFlip(RotateFlipType.Rotate90FlipNone)
Me.lbltextboxgroesse.Text = Math.Round((Me.txtbckantenlänge.Text * IMGISZE_pOINT * 10), 0).ToString + " * " + Math.Round((Me.txtbckantenlänge.Text * 3 * IMGISZE_pOINT * 10), 0).ToString
Case 3
Case 22 '
objGraphics.FillRectangle(objBrushBackColor, 0, 0, Width, Height)
objGraphics.DrawImage(image1, New Point(0, 0))
Dim objStringBrushBackColor As New SolidBrush(Color.White)
Dim objStringBitmap As New Bitmap(Width, Height)
Dim objStringGraphics As Graphics = Graphics.FromImage(objStringBitmap)
objStringGraphics.FillRectangle(objStringBrushBackColor, 0, 0, Height, Width)
Insert_text(BarcodeBeschriftung, objStringGraphics)
objGraphics.DrawImage(objStringBitmap, New Point(-0, image1.Height + 5))
Case 33
objGraphics.FillRectangle(objBrushBackColor, 0, 0, Width, Height)
objGraphics.DrawImage(image1, New Point(0, image1.Height * 2 - 1))
Dim objStringBrushBackColor As New SolidBrush(Color.White)
Dim objStringBitmap As New Bitmap(Width, Height)
Dim objStringGraphics As Graphics = Graphics.FromImage(objStringBitmap)
objStringGraphics.FillRectangle(objStringBrushBackColor, 0, 0, Height, Width)
Insert_text(BarcodeBeschriftung, objStringGraphics)
objGraphics.DrawImage(objStringBitmap, New Point(-0, image1.Height - image1.Height / 2))
End Select
image1 = Nothing
objBitmap.Save("H:\tssettings\edoka\a_" + Me.txtDokumentID.Text + ".png", System.Drawing.Imaging.ImageFormat.Png)
Me.PictureBox1.Width = objBitmap.Width
Me.PictureBox1.Height = objBitmap.Height
Me.PictureBox1.Image = objBitmap
Me.PictureBox1.SizeMode = PictureBoxSizeMode.Zoom
objBitmap = Nothing
End Sub
Function Insert_text(ss As String, ByRef g As Graphics)
Dim Word As String = ss
'Dim FontType As String = "Arial"
'Dim FontSize As Integer = 11
Dim FontType As String = Me.cbboxFont.Text
Dim FontSize As Integer = Me.cbboxfontsize.Text
Dim Angle As Integer = 270
Dim X As Single = 30
Dim Y As Single = 50
Dim WordDimention As Drawing.SizeF = g.MeasureString(Word, New Font(FontType, FontSize))
Dim Width As Single = WordDimention.Width
Dim Height As Single = WordDimention.Height * 2
Dim string_format As New StringFormat
string_format.Alignment = StringAlignment.Near
string_format.LineAlignment = StringAlignment.Near
Dim layout_rect As New RectangleF(X, Y, Width, Height)
' Dim InitialState As Drawing2D.GraphicsState = G.Save()
Dim sf As SizeF = g.MeasureString(ss, New Font(FontType, FontSize), FontStyle.Regular, string_format)
' Translate to the origin, rotate, and translate back.
g.TranslateTransform(-Width \ 2 - X, -Height \ 2 - Y, System.Drawing.Drawing2D.MatrixOrder.Append)
g.RotateTransform(Angle, System.Drawing.Drawing2D.MatrixOrder.Append)
g.TranslateTransform(Width \ 2 + X, Height \ 2 + Y, System.Drawing.Drawing2D.MatrixOrder.Append)
' Draw the text and layout rectangle.
g.TextRenderingHint = System.Drawing.Text.TextRenderingHint.AntiAliasGridFit
g.DrawString(Word, New Font(FontType, FontSize), Brushes.Black, layout_rect, string_format)
'G.Restore(InitialState)
End Function
Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox2.SelectedIndexChanged
If onload Then Exit Sub
Button2_Click(sender, e)
End Sub
Private Sub txtDelimiter_TextChanged(sender As Object, e As EventArgs) Handles txtScanType.TextChanged, txtPnr4.TextChanged, txtPnr3.TextChanged, txtpnr2.TextChanged, txtpnr1.TextChanged, txtDokumentID.TextChanged, txtDelimiter.TextChanged, txtBPNr.TextChanged, txtAuth.TextChanged, cbboxFormualrNr.TextChanged, cbboxFont.TextChanged, cbboxfontsize.TextChanged, TXTBCHeight.TextChanged, TXTBCWidth.TextChanged, txtbckantenlänge.TextChanged
If onload Then Exit Sub
Button2_Click(sender, e)
End Sub
Private Sub cbboxFormualrNr_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbboxFormualrNr.SelectedIndexChanged
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
Me.OpenFileDialog1.Filter = "Word-Dokumente(|*.doc;*.docx;*docm;*.dotm"
Me.OpenFileDialog1.FileName = ""
Me.OpenFileDialog1.ShowDialog()
If Me.OpenFileDialog1.FileName <> "" Then Me.txtFormular.Text = OpenFileDialog1.FileName
End Sub
#Region "Font"
Private Sub BindCombo()
cbboxFont.DrawMode = DrawMode.OwnerDrawFixed
cbboxFont.Font = New Font("Microsoft Sans Serif, 9.25pt", 11.25)
'cbboxFont.ItemHeight = 20
Dim objFontFamily As FontFamily
Dim objFontCollection As System.Drawing.Text.FontCollection
Dim tempFont As Font
objFontCollection = New System.Drawing.Text.InstalledFontCollection()
For Each objFontFamily In objFontCollection.Families
cbboxFont.Items.Add(objFontFamily.Name)
Next
End Sub
Private Sub ComboBox1_DrawItem(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles cbboxFont.DrawItem
e.DrawBackground()
If (e.State And DrawItemState.Focus) <> 0 Then
e.DrawFocusRectangle()
End If
Dim objBrush As Brush = Nothing
Try
objBrush = New SolidBrush(e.ForeColor)
Dim _FontName As String = cbboxFont.Items(e.Index)
Dim _font As Font
Dim _fontfamily = New FontFamily(_FontName)
If _fontfamily.IsStyleAvailable(FontStyle.Regular) Then
_font = New Font(_fontfamily, 11, FontStyle.Regular)
ElseIf _fontfamily.IsStyleAvailable(FontStyle.Bold) Then
_font = New Font(_fontfamily, 11, FontStyle.Bold)
ElseIf _fontfamily.IsStyleAvailable(FontStyle.Italic) Then
_font = New Font(_fontfamily, 11, FontStyle.Italic)
End If
e.Graphics.DrawString(_FontName, _font, objBrush, e.Bounds)
Finally
If objBrush IsNot Nothing Then
objBrush.Dispose()
End If
objBrush = Nothing
End Try
End Sub
#End Region
Private Sub btnSaveParam_Click(sender As Object, e As EventArgs) Handles btnSaveParam.Click
My.Settings.Fontname = Me.cbboxFont.Text
My.Settings.Fontsize = Me.cbboxfontsize.Text
My.Settings.BCTOP = Me.txtBCTop.Text
My.Settings.BCLeft = Me.TXTBCLeft.Text
My.Settings.BCHeigh = Me.TXTBCHeight.Text
My.Settings.BCWidth = Me.TXTBCWidth.Text
My.Settings.FormNr = Me.cbboxFormualrNr.Text
My.Settings.Barcodetype = Me.ComboBox2.SelectedIndex
My.Settings.BCKante = Me.txtbckantenlänge.Text
End Sub
Public Function AutoSizeImage(ByVal oBitmap As Image, _
ByVal maxWidth As Integer, _
ByVal maxHeight As Integer, _
Optional ByVal bStretch As Boolean = False) As Image
If onload Then Exit Function
' Größenverhältnis der max. Dimension
Dim maxRatio As Single = maxWidth / maxHeight
' Bildgröße und aktuelles Größenverhältnis
Dim imgWidth As Integer = oBitmap.Width
Dim imgHeight As Integer = oBitmap.Height
Dim imgRatio As Single = imgWidth / imgHeight
' Bild anpassen?
If (imgWidth > maxWidth Or imgHeight > maxHeight) Or (bStretch) Then
If imgRatio <= maxRatio Then
' Größenverhältnis des Bildes ist kleiner als die
' maximale Größe, in der das Bild angezeigt werden kann.
' In diesem Fall muss die Bildbreite angepasst werden.
imgWidth = imgWidth / (imgHeight / maxHeight)
imgHeight = maxHeight
Else
' Größenverhältnis des Bildes ist größer als die
' maximale Größe, in der das Bild angezeigt werden kann.
' In diesem Fall muss die Bildhöhe angepasst werden.
imgHeight = imgHeight / (imgWidth / maxWidth)
imgWidth = maxWidth
End If
' Bitmap-Objekt in der neuen Größe erstellen
Dim oImage As New Bitmap(imgWidth, imgHeight)
' Bild interpolieren, damit die Qualität erhalten bleibt
Using g As Graphics = Graphics.FromImage(oImage)
g.InterpolationMode = Drawing2D.InterpolationMode.HighQualityBicubic
g.DrawImage(oBitmap, New Rectangle(0, 0, imgWidth, imgHeight))
End Using
' neues Bitmap zurückgeben
Return oImage
Else
' unverändertes Originalbild zurückgeben
Return oBitmap
End If
End Function
Private Sub Label16_Click(sender As Object, e As EventArgs) Handles Label16.Click
End Sub
Private Sub lbltextboxgroesse_Click(sender As Object, e As EventArgs) Handles lbltextboxgroesse.Click
End Sub
End Class

38
Datamatrix_Test/Datamatrix_Test/My Project/Application.Designer.vb generated Normal file
View File

@@ -0,0 +1,38 @@
'------------------------------------------------------------------------------
' <auto-generated>
' Dieser Code wurde von einem Tool generiert.
' Laufzeitversion:4.0.30319.34014
'
' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
' der Code erneut generiert wird.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Namespace My
'HINWEIS: Diese Datei wird automatisch generiert. Ändern Sie sie nicht direkt. Zum Ändern
' oder bei in dieser Datei auftretenden Buildfehlern wechseln Sie zum Projekt-Designer.
' (Wechseln Sie dazu zu den Projekteigenschaften, oder doppelklicken Sie auf den Knoten "Mein Projekt" im
' Projektmappen-Explorer). Nehmen Sie auf der Registerkarte "Anwendung" entsprechende Änderungen vor.
'
Partial Friend Class MyApplication
<Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
Public Sub New()
MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows)
Me.IsSingleInstance = false
Me.EnableVisualStyles = true
Me.SaveMySettingsOnExit = true
Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses
End Sub
<Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
Protected Overrides Sub OnCreateMainForm()
Me.MainForm = Global.Datamatrix_Test.Form1
End Sub
End Class
End Namespace

11
Datamatrix_Test/Datamatrix_Test/My Project/Application.myapp Normal file
View File

@@ -0,0 +1,11 @@
<?xml version="1.0" encoding="utf-8"?>
<MyApplicationData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
<MySubMain>true</MySubMain>
<MainForm>Form1</MainForm>
<SingleInstance>false</SingleInstance>
<ShutdownMode>0</ShutdownMode>
<EnableVisualStyles>true</EnableVisualStyles>
<AuthenticationMode>0</AuthenticationMode>
<ApplicationType>0</ApplicationType>
<SaveMySettingsOnExit>true</SaveMySettingsOnExit>
</MyApplicationData>

35
Datamatrix_Test/Datamatrix_Test/My Project/AssemblyInfo.vb Normal file
View File

@@ -0,0 +1,35 @@
Imports System
Imports System.Reflection
Imports System.Runtime.InteropServices
' Allgemeine Informationen über eine Assembly werden über die folgenden
' Attribute gesteuert. Ändern Sie diese Attributwerte, um die Informationen zu ändern,
' die mit einer Assembly verknüpft sind.
' Die Werte der Assemblyattribute überprüfen
<Assembly: AssemblyTitle("Datamatrix_Test")>
<Assembly: AssemblyDescription("")>
<Assembly: AssemblyCompany("")>
<Assembly: AssemblyProduct("Datamatrix_Test")>
<Assembly: AssemblyCopyright("Copyright © 2014")>
<Assembly: AssemblyTrademark("")>
<Assembly: ComVisible(False)>
'Die folgende GUID bestimmt die ID der Typbibliothek, wenn dieses Projekt für COM verfügbar gemacht wird
<Assembly: Guid("2ba913a3-a3b6-427e-b181-be2db5070221")>
' Versionsinformationen für eine Assembly bestehen aus den folgenden vier Werten:
'
' Hauptversion
' Nebenversion
' Buildnummer
' Revision
'
' Sie können alle Werte angeben oder die standardmäßigen Build- und Revisionsnummern
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.0.0.0")>
<Assembly: AssemblyFileVersion("1.0.0.0")>

63
Datamatrix_Test/Datamatrix_Test/My Project/Resources.Designer.vb generated Normal file
View File

@@ -0,0 +1,63 @@
'------------------------------------------------------------------------------
' <auto-generated>
' Dieser Code wurde von einem Tool generiert.
' Laufzeitversion:4.0.30319.34014
'
' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
' der Code erneut generiert wird.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Imports System
Namespace My.Resources
'Diese Klasse wurde von der StronglyTypedResourceBuilder automatisch generiert
'-Klasse über ein Tool wie ResGen oder Visual Studio automatisch generiert.
'Um einen Member hinzuzufügen oder zu entfernen, bearbeiten Sie die .ResX-Datei und führen dann ResGen
'mit der /str-Option erneut aus, oder Sie erstellen Ihr VS-Projekt neu.
'''<summary>
''' Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "4.0.0.0"), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
Friend Module Resources
Private resourceMan As Global.System.Resources.ResourceManager
Private resourceCulture As Global.System.Globalization.CultureInfo
'''<summary>
''' Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird.
'''</summary>
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
Get
If Object.ReferenceEquals(resourceMan, Nothing) Then
Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("Datamatrix_Test.Resources", GetType(Resources).Assembly)
resourceMan = temp
End If
Return resourceMan
End Get
End Property
'''<summary>
''' Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle
''' Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden.
'''</summary>
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Friend Property Culture() As Global.System.Globalization.CultureInfo
Get
Return resourceCulture
End Get
Set
resourceCulture = value
End Set
End Property
End Module
End Namespace

117
Datamatrix_Test/Datamatrix_Test/My Project/Resources.resx Normal file
View File

@@ -0,0 +1,117 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
</root>

181
Datamatrix_Test/Datamatrix_Test/My Project/Settings.Designer.vb generated Normal file
View File

@@ -0,0 +1,181 @@
'------------------------------------------------------------------------------
' <auto-generated>
' Dieser Code wurde von einem Tool generiert.
' Laufzeitversion:4.0.30319.34014
'
' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
' der Code erneut generiert wird.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Namespace My
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "12.0.0.0"), _
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Partial Friend NotInheritable Class MySettings
Inherits Global.System.Configuration.ApplicationSettingsBase
Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings)
#Region "Funktion zum automatischen Speichern von My.Settings"
#If _MyType = "WindowsForms" Then
Private Shared addedHandler As Boolean
Private Shared addedHandlerLockObject As New Object
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs)
If My.Application.SaveMySettingsOnExit Then
My.Settings.Save()
End If
End Sub
#End If
#End Region
Public Shared ReadOnly Property [Default]() As MySettings
Get
#If _MyType = "WindowsForms" Then
If Not addedHandler Then
SyncLock addedHandlerLockObject
If Not addedHandler Then
AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
addedHandler = True
End If
End SyncLock
End If
#End If
Return defaultInstance
End Get
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("793")> _
Public Property BCTOP() As String
Get
Return CType(Me("BCTOP"),String)
End Get
Set
Me("BCTOP") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("35")> _
Public Property BCLeft() As String
Get
Return CType(Me("BCLeft"),String)
End Get
Set
Me("BCLeft") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("200")> _
Public Property BCHeigh() As String
Get
Return CType(Me("BCHeigh"),String)
End Get
Set
Me("BCHeigh") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("39")> _
Public Property BCWidth() As String
Get
Return CType(Me("BCWidth"),String)
End Get
Set
Me("BCWidth") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("Futura Book")> _
Public Property Fontname() As String
Get
Return CType(Me("Fontname"),String)
End Get
Set
Me("Fontname") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("7")> _
Public Property Fontsize() As String
Get
Return CType(Me("Fontsize"),String)
End Get
Set
Me("Fontsize") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("0001")> _
Public Property FormNr() As String
Get
Return CType(Me("FormNr"),String)
End Get
Set
Me("FormNr") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("0")> _
Public Property Barcodetype() As String
Get
Return CType(Me("Barcodetype"),String)
End Get
Set
Me("Barcodetype") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("2.00")> _
Public Property BCKante() As String
Get
Return CType(Me("BCKante"),String)
End Get
Set
Me("BCKante") = value
End Set
End Property
End Class
End Namespace
Namespace My
<Global.Microsoft.VisualBasic.HideModuleNameAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _
Friend Module MySettingsProperty
<Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _
Friend ReadOnly Property Settings() As Global.Datamatrix_Test.My.MySettings
Get
Return Global.Datamatrix_Test.My.MySettings.Default
End Get
End Property
End Module
End Namespace

33
Datamatrix_Test/Datamatrix_Test/My Project/Settings.settings Normal file
View File

@@ -0,0 +1,33 @@
<?xml version='1.0' encoding='utf-8'?>
<SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" GeneratedClassNamespace="My" GeneratedClassName="MySettings" UseMySettingsClassName="true">
<Profiles />
<Settings>
<Setting Name="BCTOP" Type="System.String" Scope="User">
<Value Profile="(Default)">793</Value>
</Setting>
<Setting Name="BCLeft" Type="System.String" Scope="User">
<Value Profile="(Default)">35</Value>
</Setting>
<Setting Name="BCHeigh" Type="System.String" Scope="User">
<Value Profile="(Default)">200</Value>
</Setting>
<Setting Name="BCWidth" Type="System.String" Scope="User">
<Value Profile="(Default)">39</Value>
</Setting>
<Setting Name="Fontname" Type="System.String" Scope="User">
<Value Profile="(Default)">Futura Book</Value>
</Setting>
<Setting Name="Fontsize" Type="System.String" Scope="User">
<Value Profile="(Default)">7</Value>
</Setting>
<Setting Name="FormNr" Type="System.String" Scope="User">
<Value Profile="(Default)">0001</Value>
</Setting>
<Setting Name="Barcodetype" Type="System.String" Scope="User">
<Value Profile="(Default)">0</Value>
</Setting>
<Setting Name="BCKante" Type="System.String" Scope="User">
<Value Profile="(Default)">2.00</Value>
</Setting>
</Settings>
</SettingsFile>

63
Datamatrix_Test/Datamatrix_Test/app.config Normal file
View File

@@ -0,0 +1,63 @@
<?xml version="1.0" encoding="utf-8"?>
<configuration>
<configSections>
<sectionGroup name="userSettings" type="System.Configuration.UserSettingsGroup, System, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" >
<section name="Datamatrix_Test.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" allowExeDefinition="MachineToLocalUser" requirePermission="false" />
</sectionGroup>
</configSections>
<appSettings>
<add key="GenType" value="1"/>
<add key="BCType" value="Fath"/>
</appSettings>
<system.diagnostics>
<sources>
<!-- Dieser Abschnitt definiert die Protokollierungskonfiguration für My.Application.Log -->
<source name="DefaultSource" switchName="DefaultSwitch">
<listeners>
<add name="FileLog"/>
<!-- Auskommentierung des nachfolgenden Abschnitts aufheben, um in das Anwendungsereignisprotokoll zu schreiben -->
<!--<add name="EventLog"/>-->
</listeners>
</source>
</sources>
<switches>
<add name="DefaultSwitch" value="Information"/>
</switches>
<sharedListeners>
<add name="FileLog" type="Microsoft.VisualBasic.Logging.FileLogTraceListener, Microsoft.VisualBasic, Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL" initializeData="FileLogWriter"/>
<!-- Auskommentierung des nachfolgenden Abschnitts aufheben und APPLICATION_NAME durch den Namen der Anwendung ersetzen, um in das Anwendungsereignisprotokoll zu schreiben -->
<!--<add name="EventLog" type="System.Diagnostics.EventLogTraceListener" initializeData="APPLICATION_NAME"/> -->
</sharedListeners>
</system.diagnostics>
<startup><supportedRuntime version="v2.0.50727"/></startup><userSettings>
<Datamatrix_Test.My.MySettings>
<setting name="BCTOP" serializeAs="String">
<value>793</value>
</setting>
<setting name="BCLeft" serializeAs="String">
<value>35</value>
</setting>
<setting name="BCHeigh" serializeAs="String">
<value>200</value>
</setting>
<setting name="BCWidth" serializeAs="String">
<value>39</value>
</setting>
<setting name="Fontname" serializeAs="String">
<value>Futura Book</value>
</setting>
<setting name="Fontsize" serializeAs="String">
<value>7</value>
</setting>
<setting name="FormNr" serializeAs="String">
<value>0001</value>
</setting>
<setting name="Barcodetype" serializeAs="String">
<value>0</value>
</setting>
<setting name="BCKante" serializeAs="String">
<value>2.00</value>
</setting>
</Datamatrix_Test.My.MySettings>
</userSettings>
</configuration>

BIN
Datamatrix_Test/Datamatrix_Test/bin/Debug/BarcodeLib.Barcode.WinForms.dll Normal file
View File

Binary file not shown.

BIN
Datamatrix_Test/Datamatrix_Test/bin/Debug/BarcodeX.dll Normal file
View File

Binary file not shown.

BIN
Datamatrix_Test/Datamatrix_Test/bin/Debug/Basisvertrag.docm Normal file
View File

Binary file not shown.

BIN
Datamatrix_Test/Datamatrix_Test/bin/Debug/DMTest.zip Normal file
View File

Binary file not shown.

BIN
Datamatrix_Test/Datamatrix_Test/bin/Debug/DMTest_1.zip Normal file
View File

Binary file not shown.

BIN
Datamatrix_Test/Datamatrix_Test/bin/Debug/DataMatrix.net.dll Normal file
View File

Binary file not shown.

BIN
Datamatrix_Test/Datamatrix_Test/bin/Debug/DataMatrix.net.pdb Normal file
View File

Binary file not shown.

BIN
Datamatrix_Test/Datamatrix_Test/bin/Debug/Datamatrix_Test.exe Normal file
View File

Binary file not shown.

63
Datamatrix_Test/Datamatrix_Test/bin/Debug/Datamatrix_Test.exe.config Normal file
View File

@@ -0,0 +1,63 @@
<?xml version="1.0" encoding="utf-8"?>
<configuration>
<configSections>
<sectionGroup name="userSettings" type="System.Configuration.UserSettingsGroup, System, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" >
<section name="Datamatrix_Test.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" allowExeDefinition="MachineToLocalUser" requirePermission="false" />
</sectionGroup>
</configSections>
<appSettings>
<add key="GenType" value="1"/>
<add key="BCType" value="MW6"/>
</appSettings>
<system.diagnostics>
<sources>
<!-- Dieser Abschnitt definiert die Protokollierungskonfiguration für My.Application.Log -->
<source name="DefaultSource" switchName="DefaultSwitch">
<listeners>
<add name="FileLog"/>
<!-- Auskommentierung des nachfolgenden Abschnitts aufheben, um in das Anwendungsereignisprotokoll zu schreiben -->
<!--<add name="EventLog"/>-->
</listeners>
</source>
</sources>
<switches>
<add name="DefaultSwitch" value="Information"/>
</switches>
<sharedListeners>
<add name="FileLog" type="Microsoft.VisualBasic.Logging.FileLogTraceListener, Microsoft.VisualBasic, Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL" initializeData="FileLogWriter"/>
<!-- Auskommentierung des nachfolgenden Abschnitts aufheben und APPLICATION_NAME durch den Namen der Anwendung ersetzen, um in das Anwendungsereignisprotokoll zu schreiben -->
<!--<add name="EventLog" type="System.Diagnostics.EventLogTraceListener" initializeData="APPLICATION_NAME"/> -->
</sharedListeners>
</system.diagnostics>
<startup><supportedRuntime version="v2.0.50727"/></startup><userSettings>
<Datamatrix_Test.My.MySettings>
<setting name="BCTOP" serializeAs="String">
<value>793</value>
</setting>
<setting name="BCLeft" serializeAs="String">
<value>35</value>
</setting>
<setting name="BCHeigh" serializeAs="String">
<value>200</value>
</setting>
<setting name="BCWidth" serializeAs="String">
<value>39</value>
</setting>
<setting name="Fontname" serializeAs="String">
<value>Futura Book</value>
</setting>
<setting name="Fontsize" serializeAs="String">
<value>7</value>
</setting>
<setting name="FormNr" serializeAs="String">
<value>0001</value>
</setting>
<setting name="Barcodetype" serializeAs="String">
<value>0</value>
</setting>
<setting name="BCKante" serializeAs="String">
<value>2.00</value>
</setting>
</Datamatrix_Test.My.MySettings>
</userSettings>
</configuration>

BIN
Datamatrix_Test/Datamatrix_Test/bin/Debug/Datamatrix_Test.pdb Normal file
View File

Binary file not shown.

BIN
Datamatrix_Test/Datamatrix_Test/bin/Debug/Datamatrix_Test.vshost.exe Normal file
View File

Binary file not shown.

63
Datamatrix_Test/Datamatrix_Test/bin/Debug/Datamatrix_Test.vshost.exe.config Normal file
View File

@@ -0,0 +1,63 @@
<?xml version="1.0" encoding="utf-8"?>
<configuration>
<configSections>
<sectionGroup name="userSettings" type="System.Configuration.UserSettingsGroup, System, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" >
<section name="Datamatrix_Test.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" allowExeDefinition="MachineToLocalUser" requirePermission="false" />
</sectionGroup>
</configSections>
<appSettings>
<add key="GenType" value="1"/>
<add key="BCType" value="MW6"/>
</appSettings>
<system.diagnostics>
<sources>
<!-- Dieser Abschnitt definiert die Protokollierungskonfiguration für My.Application.Log -->
<source name="DefaultSource" switchName="DefaultSwitch">
<listeners>
<add name="FileLog"/>
<!-- Auskommentierung des nachfolgenden Abschnitts aufheben, um in das Anwendungsereignisprotokoll zu schreiben -->
<!--<add name="EventLog"/>-->
</listeners>
</source>
</sources>
<switches>
<add name="DefaultSwitch" value="Information"/>
</switches>
<sharedListeners>
<add name="FileLog" type="Microsoft.VisualBasic.Logging.FileLogTraceListener, Microsoft.VisualBasic, Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL" initializeData="FileLogWriter"/>
<!-- Auskommentierung des nachfolgenden Abschnitts aufheben und APPLICATION_NAME durch den Namen der Anwendung ersetzen, um in das Anwendungsereignisprotokoll zu schreiben -->
<!--<add name="EventLog" type="System.Diagnostics.EventLogTraceListener" initializeData="APPLICATION_NAME"/> -->
</sharedListeners>
</system.diagnostics>
<startup><supportedRuntime version="v2.0.50727"/></startup><userSettings>
<Datamatrix_Test.My.MySettings>
<setting name="BCTOP" serializeAs="String">
<value>793</value>
</setting>
<setting name="BCLeft" serializeAs="String">
<value>35</value>
</setting>
<setting name="BCHeigh" serializeAs="String">
<value>200</value>
</setting>
<setting name="BCWidth" serializeAs="String">
<value>39</value>
</setting>
<setting name="Fontname" serializeAs="String">
<value>Futura Book</value>
</setting>
<setting name="Fontsize" serializeAs="String">
<value>7</value>
</setting>
<setting name="FormNr" serializeAs="String">
<value>0001</value>
</setting>
<setting name="Barcodetype" serializeAs="String">
<value>0</value>
</setting>
<setting name="BCKante" serializeAs="String">
<value>2.00</value>
</setting>
</Datamatrix_Test.My.MySettings>
</userSettings>
</configuration>

11
Datamatrix_Test/Datamatrix_Test/bin/Debug/Datamatrix_Test.vshost.exe.manifest Normal file
View File

@@ -0,0 +1,11 @@
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
<assemblyIdentity version="1.0.0.0" name="MyApplication.app"/>
<trustInfo xmlns="urn:schemas-microsoft-com:asm.v2">
<security>
<requestedPrivileges xmlns="urn:schemas-microsoft-com:asm.v3">
<requestedExecutionLevel level="asInvoker" uiAccess="false"/>
</requestedPrivileges>
</security>
</trustInfo>
</assembly>

24
Datamatrix_Test/Datamatrix_Test/bin/Debug/Datamatrix_Test.xml Normal file
View File

@@ -0,0 +1,24 @@
<?xml version="1.0"?>
<doc>
<assembly>
<name>
Datamatrix_Test
</name>
</assembly>
<members>
<member name="P:Datamatrix_Test.My.Resources.Resources.ResourceManager">
<summary>
Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird.
</summary>
</member><member name="P:Datamatrix_Test.My.Resources.Resources.Culture">
<summary>
Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle
Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden.
</summary>
</member><member name="T:Datamatrix_Test.My.Resources.Resources">
<summary>
Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
</summary>
</member>
</members>
</doc>

BIN
Datamatrix_Test/Datamatrix_Test/bin/Debug/KeepAutomation.Barcode.Windows.dll Normal file
View File

Binary file not shown.

BIN
Datamatrix_Test/Datamatrix_Test/bin/Debug/MW6.SDK.dll Normal file
View File

Binary file not shown.

BIN
Datamatrix_Test/Datamatrix_Test/bin/Debug/Microsoft.Office.Interop.Word.dll Normal file
View File

Binary file not shown.

38899
Datamatrix_Test/Datamatrix_Test/bin/Debug/Microsoft.Office.Interop.Word.xml Normal file
View File

File diff suppressed because it is too large Load Diff

BIN
Datamatrix_Test/Datamatrix_Test/bin/Debug/Microsoft.Vbe.Interop.dll Normal file
View File

Binary file not shown.

BIN
Datamatrix_Test/Datamatrix_Test/bin/Debug/Office.dll Normal file
View File

Binary file not shown.

17885
Datamatrix_Test/Datamatrix_Test/bin/Debug/Office.xml Normal file
View File

File diff suppressed because it is too large Load Diff

0
Datamatrix_Test/Datamatrix_Test/bin/Debug/Parameters.txt Normal file
View File

BIN
Datamatrix_Test/Datamatrix_Test/bin/Debug/Vollmacht.docm Normal file
View File

Binary file not shown.

0
Datamatrix_Test/Datamatrix_Test/bin/Debug/test.docx Normal file
View File

BIN
Datamatrix_Test/Datamatrix_Test/bin/Debug/zeichnungsregelung.docm Normal file
View File

Binary file not shown.

BIN
Datamatrix_Test/Datamatrix_Test/obj/Debug/Datamatrix_Test.Form1.resources Normal file
View File

Binary file not shown.

BIN
Datamatrix_Test/Datamatrix_Test/obj/Debug/Datamatrix_Test.Resources.resources Normal file
View File

Binary file not shown.

BIN
Datamatrix_Test/Datamatrix_Test/obj/Debug/Datamatrix_Test.exe Normal file
View File

Binary file not shown.

BIN
Datamatrix_Test/Datamatrix_Test/obj/Debug/Datamatrix_Test.pdb Normal file
View File

Binary file not shown.

20
Datamatrix_Test/Datamatrix_Test/obj/Debug/Datamatrix_Test.vbproj.FileListAbsolute.txt Normal file
View File

@@ -0,0 +1,20 @@
E:\Software-Projekte\EDOKA\tools\Datamatrix_Test\Datamatrix_Test\bin\Debug\Datamatrix_Test.exe
E:\Software-Projekte\EDOKA\tools\Datamatrix_Test\Datamatrix_Test\bin\Debug\Datamatrix_Test.pdb
E:\Software-Projekte\EDOKA\tools\Datamatrix_Test\Datamatrix_Test\bin\Debug\Datamatrix_Test.xml
E:\Software-Projekte\EDOKA\tools\Datamatrix_Test\Datamatrix_Test\obj\Debug\Datamatrix_Test.Form1.resources
E:\Software-Projekte\EDOKA\tools\Datamatrix_Test\Datamatrix_Test\obj\Debug\Datamatrix_Test.Resources.resources
E:\Software-Projekte\EDOKA\tools\Datamatrix_Test\Datamatrix_Test\obj\Debug\Datamatrix_Test.vbproj.GenerateResource.Cache
E:\Software-Projekte\EDOKA\tools\Datamatrix_Test\Datamatrix_Test\obj\Debug\Datamatrix_Test.exe
E:\Software-Projekte\EDOKA\tools\Datamatrix_Test\Datamatrix_Test\obj\Debug\Datamatrix_Test.xml
E:\Software-Projekte\EDOKA\tools\Datamatrix_Test\Datamatrix_Test\obj\Debug\Datamatrix_Test.pdb
E:\Software-Projekte\EDOKA\tools\Datamatrix_Test\Datamatrix_Test\obj\Debug\Datamatrix_Test.vbprojResolveAssemblyReference.cache
E:\Software-Projekte\EDOKA\tools\Datamatrix_Test\Datamatrix_Test\bin\Debug\Datamatrix_Test.exe.config
E:\Software-Projekte\EDOKA\tools\Datamatrix_Test\Datamatrix_Test\bin\Debug\Microsoft.Office.Interop.Word.dll
E:\Software-Projekte\EDOKA\tools\Datamatrix_Test\Datamatrix_Test\bin\Debug\Microsoft.Vbe.Interop.dll
E:\Software-Projekte\EDOKA\tools\Datamatrix_Test\Datamatrix_Test\bin\Debug\Office.dll
E:\Software-Projekte\EDOKA\tools\Datamatrix_Test\Datamatrix_Test\bin\Debug\Microsoft.Office.Interop.Word.xml
E:\Software-Projekte\EDOKA\tools\Datamatrix_Test\Datamatrix_Test\bin\Debug\Office.xml
E:\Software-Projekte\EDOKA\tools\Datamatrix_Test\Datamatrix_Test\bin\Debug\DataMatrix.net.dll
E:\Software-Projekte\EDOKA\tools\Datamatrix_Test\Datamatrix_Test\bin\Debug\DataMatrix.net.pdb
E:\Software-Projekte\EDOKA\tools\Datamatrix_Test\Datamatrix_Test\bin\Debug\BarcodeX.dll
E:\Software-Projekte\EDOKA\tools\Datamatrix_Test\Datamatrix_Test\bin\Debug\MW6.SDK.dll

BIN
Datamatrix_Test/Datamatrix_Test/obj/Debug/Datamatrix_Test.vbproj.GenerateResource.Cache Normal file
View File

Binary file not shown.

BIN
Datamatrix_Test/Datamatrix_Test/obj/Debug/Datamatrix_Test.vbprojResolveAssemblyReference.cache Normal file
View File

Binary file not shown.

24
Datamatrix_Test/Datamatrix_Test/obj/Debug/Datamatrix_Test.xml Normal file
View File

@@ -0,0 +1,24 @@
<?xml version="1.0"?>
<doc>
<assembly>
<name>
Datamatrix_Test
</name>
</assembly>
<members>
<member name="P:Datamatrix_Test.My.Resources.Resources.ResourceManager">
<summary>
Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird.
</summary>
</member><member name="P:Datamatrix_Test.My.Resources.Resources.Culture">
<summary>
Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle
Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden.
</summary>
</member><member name="T:Datamatrix_Test.My.Resources.Resources">
<summary>
Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
</summary>
</member>
</members>
</doc>

BIN
Datamatrix_Test/Datamatrix_Test/obj/Debug/DesignTimeResolveAssemblyReferences.cache Normal file
View File

Binary file not shown.

BIN
Datamatrix_Test/Datamatrix_Test/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache Normal file
View File

Binary file not shown.

BIN
Datamatrix_Test/Datamatrix_Test/obj/Debug/TempPE/My Project.Resources.Designer.vb.dll Normal file
View File

Binary file not shown.