Initial commit

This commit is contained in:
2020-10-21 10:43:18 +02:00
commit 56bd02798f
5848 changed files with 2659025 additions and 0 deletions

View File

@@ -0,0 +1,24 @@
Public Class Class1
Implements EDOKA_PluginLib.IPlugin
Private objHost As EDOKA_PluginLib.IHost
Public Sub Initialize(ByVal Host As EDOKA_PluginLib.IHost) _
Implements EDOKA_PluginLib.IPlugin.Initialize
objHost = Host
End Sub
Public ReadOnly Property Name() As String Implements _
EDOKA_PluginLib.IPlugin.Name
Get
Return "EDOKA_Scan"
End Get
End Property
Public Function Show(ByVal CurrentUser As String, Connectionstring As String, parentform As Object) Implements EDOKA_PluginLib.IPlugin.Show
Globals.Mitarbeiternr = CurrentUser
Dim f As New frmScan
f.MdiParent = parentform
f.Show()
End Function
End Class

View File

@@ -0,0 +1,18 @@
Imports System.IO
Imports System.Reflection
Module Globals
Public ConnectionFilename As String
Public sConnectionstring As String
Public Mitarbeiternr As Integer
Public Vorlagendata_vollstaendig As New DataTable
Public Vorlagendata As New DataTable()
' Public conn As New edokadb.clsConnectionProvider()
Public hasmessage As Integer
Public Function ApplicationPath() As String
Return Path.GetDirectoryName([Assembly].GetEntryAssembly().Location) + "\"
End Function
End Module

View File

@@ -0,0 +1,13 @@
'------------------------------------------------------------------------------
' <auto-generated>
' Dieser Code wurde von einem Tool generiert.
' Laufzeitversion:4.0.30319.42000
'
' Ä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

View File

@@ -0,0 +1,10 @@
<?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>false</MySubMain>
<SingleInstance>false</SingleInstance>
<ShutdownMode>0</ShutdownMode>
<EnableVisualStyles>true</EnableVisualStyles>
<AuthenticationMode>0</AuthenticationMode>
<ApplicationType>1</ApplicationType>
<SaveMySettingsOnExit>true</SaveMySettingsOnExit>
</MyApplicationData>

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("Plugin_Scan")>
<Assembly: AssemblyDescription("")>
<Assembly: AssemblyCompany("")>
<Assembly: AssemblyProduct("Plugin_Scan")>
<Assembly: AssemblyCopyright("Copyright © 2015")>
<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("5f838c55-542b-4288-90f3-715a73481635")>
' 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")>

View File

@@ -0,0 +1,163 @@
'------------------------------------------------------------------------------
' <auto-generated>
' Dieser Code wurde von einem Tool generiert.
' Laufzeitversion:4.0.30319.42000
'
' Ä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("Plugin_Scan.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
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property arrow_inout1() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("arrow_inout1", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property arrow_out() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("arrow_out", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property arrow_turn_left() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("arrow_turn_left", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property arrow_turn_right() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("arrow_turn_right", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property FitWidth() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("FitWidth", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property open_document24_h() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("open_document24_h", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property resultset_next() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("resultset_next", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property resultset_previous() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("resultset_previous", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property zoomin24_h() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("zoomin24_h", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property zoomout24_h() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("zoomout24_h", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
End Module
End Namespace

View File

@@ -0,0 +1,151 @@
<?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=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="arrow_inout1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\arrow_inout1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="arrow_out" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\arrow_out.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="arrow_turn_left" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\arrow_turn_left.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="arrow_turn_right" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\arrow_turn_right.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="FitWidth" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\FitWidth.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="open_document24_h" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\open_document24_h.gif;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="resultset_next" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\resultset_next.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="resultset_previous" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\resultset_previous.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="zoomin24_h" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\zoomin24_h.gif;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="zoomout24_h" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\zoomout24_h.gif;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
</root>

View File

@@ -0,0 +1,73 @@
'------------------------------------------------------------------------------
' <auto-generated>
' Dieser Code wurde von einem Tool generiert.
' Laufzeitversion:4.0.30319.42000
'
' Ä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
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.Plugin_Scan.My.MySettings
Get
Return Global.Plugin_Scan.My.MySettings.Default
End Get
End Property
End Module
End Namespace

View File

@@ -0,0 +1,7 @@
<?xml version='1.0' encoding='utf-8'?>
<SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" UseMySettingsClassName="true">
<Profiles>
<Profile Name="(Default)" />
</Profiles>
<Settings />
</SettingsFile>

View File

@@ -0,0 +1,183 @@
<?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>{D3C4B649-B8BB-4605-AED6-2EBBDD55840E}</ProjectGuid>
<OutputType>Library</OutputType>
<RootNamespace>Plugin_Scan</RootNamespace>
<AssemblyName>Plugin_Scan</AssemblyName>
<FileAlignment>512</FileAlignment>
<MyType>Windows</MyType>
<TargetFrameworkVersion>v4.0</TargetFrameworkVersion>
<TargetFrameworkProfile />
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<DebugSymbols>true</DebugSymbols>
<DebugType>full</DebugType>
<DefineDebug>true</DefineDebug>
<DefineTrace>true</DefineTrace>
<OutputPath>..\bin\</OutputPath>
<DocumentationFile>Plugin_Scan.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
<PlatformTarget>AnyCPU</PlatformTarget>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<DebugType>pdbonly</DebugType>
<DefineDebug>false</DefineDebug>
<DefineTrace>true</DefineTrace>
<Optimize>true</Optimize>
<OutputPath>bin\Release\</OutputPath>
<DocumentationFile>Plugin_Scan.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="EDOKA_PluginLib, Version=1.0.0.0, Culture=neutral, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>..\Bin\EDOKA_PluginLib.dll</HintPath>
</Reference>
<Reference Include="Gnostice.Core">
<HintPath>C:\Program Files (x86)\Gnostice\XtremeDevSystem .NET 2015 R14\XtremeDocumentStudio Free Edition\Bin\Common\Gnostice.Core.dll</HintPath>
</Reference>
<Reference Include="Gnostice.Free.Documents">
<HintPath>C:\Program Files (x86)\Gnostice\XtremeDevSystem .NET 2015 R14\XtremeDocumentStudio Free Edition\Bin\Common\Gnostice.Free.Documents.dll</HintPath>
</Reference>
<Reference Include="Gnostice.Free.Documents.Controls.WinForms">
<HintPath>C:\Program Files (x86)\Gnostice\XtremeDevSystem .NET 2015 R14\XtremeDocumentStudio Free Edition\Bin\WinForms\Gnostice.Free.Documents.Controls.WinForms.dll</HintPath>
</Reference>
<Reference Include="itextsharp, Version=4.1.6.0, Culture=neutral, PublicKeyToken=8354ae6d2174ddca">
<SpecificVersion>False</SpecificVersion>
<HintPath>..\..\..\__Barcode\PDFView\PDFView\bin\Debug\itextsharp.dll</HintPath>
</Reference>
<Reference Include="PDFView, Version=1.0.0.0, Culture=neutral, processorArchitecture=x86">
<SpecificVersion>False</SpecificVersion>
<HintPath>..\Bin\PDFView.dll</HintPath>
</Reference>
<Reference Include="SoftekBarcodeNet">
<HintPath>..\..\..\__Barcode\Barcode.com\bin\SoftekBarcodeNet.dll</HintPath>
</Reference>
<Reference Include="System" />
<Reference Include="System.Data" />
<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.Diagnostics" />
<Import Include="System.Linq" />
<Import Include="System.Xml.Linq" />
<Import Include="System.Threading.Tasks" />
</ItemGroup>
<ItemGroup>
<Compile Include="Class1.vb" />
<Compile Include="frmScan.Designer.vb">
<DependentUpon>frmScan.vb</DependentUpon>
</Compile>
<Compile Include="frmScan.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Globals.vb" />
<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="frmScan.resx">
<DependentUpon>frmScan.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="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>
<ItemGroup>
<Service Include="{94E38DFF-614B-4CBD-B67C-F211BB35CE8B}" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\arrow_inout.png" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\arrow_inout1.png" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\arrow_out.png" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\arrow_turn_left.png" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\arrow_turn_right.png" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\FitWidth.bmp" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\open_document24_h.gif" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\resultset_next.png" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\resultset_previous.png" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\zoomin24_h.gif" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\zoomout24_h.gif" />
</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>

Binary file not shown.

After

Width:  |  Height:  |  Size: 678 B

Binary file not shown.

After

Width:  |  Height:  |  Size: 551 B

Binary file not shown.

After

Width:  |  Height:  |  Size: 551 B

Binary file not shown.

After

Width:  |  Height:  |  Size: 594 B

Binary file not shown.

After

Width:  |  Height:  |  Size: 516 B

Binary file not shown.

After

Width:  |  Height:  |  Size: 489 B

Binary file not shown.

After

Width:  |  Height:  |  Size: 1.2 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 395 B

Binary file not shown.

After

Width:  |  Height:  |  Size: 389 B

Binary file not shown.

After

Width:  |  Height:  |  Size: 1.1 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 1.1 KiB

Binary file not shown.

View File

@@ -0,0 +1,404 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmScan
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()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmScan))
Dim FormatterSettings2 As Gnostice.Documents.FormatterSettings = New Gnostice.Documents.FormatterSettings()
Dim TxtFormatterSettings2 As Gnostice.Documents.TXTFormatterSettings = New Gnostice.Documents.TXTFormatterSettings()
Dim PageSettings2 As Gnostice.Documents.PageSettings = New Gnostice.Documents.PageSettings()
Dim Margins2 As Gnostice.Documents.Margins = New Gnostice.Documents.Margins()
Dim RenderingSettings2 As Gnostice.Documents.RenderingSettings = New Gnostice.Documents.RenderingSettings()
Dim ImageRenderingSettings2 As Gnostice.Documents.ImageRenderingSettings = New Gnostice.Documents.ImageRenderingSettings()
Dim LineArtRenderingSettings2 As Gnostice.Documents.LineArtRenderingSettings = New Gnostice.Documents.LineArtRenderingSettings()
Dim ResolutionSettings2 As Gnostice.Documents.ResolutionSettings = New Gnostice.Documents.ResolutionSettings()
Dim TextRenderingSettings2 As Gnostice.Documents.TextRenderingSettings = New Gnostice.Documents.TextRenderingSettings()
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.ListBox1 = New System.Windows.Forms.ListBox()
Me.Panel2 = New System.Windows.Forms.Panel()
Me.ToolStrip3 = New System.Windows.Forms.ToolStrip()
Me.TSBtnFirst = New System.Windows.Forms.ToolStripButton()
Me.TSBtnPrevious = New System.Windows.Forms.ToolStripButton()
Me.TSBtnNext = New System.Windows.Forms.ToolStripButton()
Me.TSBtnLast = New System.Windows.Forms.ToolStripButton()
Me.toolStripSeparator10 = New System.Windows.Forms.ToolStripSeparator()
Me.btnPrvPage = New System.Windows.Forms.ToolStripButton()
Me.btnFirstPage = New System.Windows.Forms.ToolStripButton()
Me.txtGoToPage = New System.Windows.Forms.ToolStripTextBox()
Me.btnNxtPage = New System.Windows.Forms.ToolStripButton()
Me.btnLastPage = New System.Windows.Forms.ToolStripButton()
Me.toolStripSeparator4 = New System.Windows.Forms.ToolStripSeparator()
Me.tsFitPage = New System.Windows.Forms.ToolStripButton()
Me.tsFitWidth = New System.Windows.Forms.ToolStripButton()
Me.tsZoomOut = New System.Windows.Forms.ToolStripButton()
Me.toolStripSeparator7 = New System.Windows.Forms.ToolStripSeparator()
Me.tsZoomIn = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton2 = New System.Windows.Forms.ToolStripButton()
Me.ToolStrip2 = New System.Windows.Forms.ToolStrip()
Me.DocumentViewer1 = New Gnostice.Documents.Controls.WinForms.DocumentViewer()
Me.PrintDocument1 = New System.Drawing.Printing.PrintDocument()
Me.Button1 = New System.Windows.Forms.Button()
Me.Panel3 = New System.Windows.Forms.Panel()
Me.Results = New System.Windows.Forms.TextBox()
Me.Panel1.SuspendLayout()
Me.Panel2.SuspendLayout()
Me.ToolStrip3.SuspendLayout()
Me.Panel3.SuspendLayout()
Me.SuspendLayout()
'
'ToolStrip1
'
Me.ToolStrip1.Location = New System.Drawing.Point(0, 0)
Me.ToolStrip1.Name = "ToolStrip1"
Me.ToolStrip1.Size = New System.Drawing.Size(1250, 25)
Me.ToolStrip1.TabIndex = 0
Me.ToolStrip1.Text = "ToolStrip1"
'
'Panel1
'
Me.Panel1.Controls.Add(Me.ListBox1)
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Left
Me.Panel1.Location = New System.Drawing.Point(0, 25)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(200, 575)
Me.Panel1.TabIndex = 1
'
'ListBox1
'
Me.ListBox1.Dock = System.Windows.Forms.DockStyle.Fill
Me.ListBox1.FormattingEnabled = True
Me.ListBox1.Location = New System.Drawing.Point(0, 0)
Me.ListBox1.Name = "ListBox1"
Me.ListBox1.Size = New System.Drawing.Size(200, 575)
Me.ListBox1.TabIndex = 0
'
'Panel2
'
Me.Panel2.Controls.Add(Me.ToolStrip3)
Me.Panel2.Controls.Add(Me.ToolStrip2)
Me.Panel2.Controls.Add(Me.DocumentViewer1)
Me.Panel2.Dock = System.Windows.Forms.DockStyle.Left
Me.Panel2.Location = New System.Drawing.Point(200, 25)
Me.Panel2.Name = "Panel2"
Me.Panel2.Size = New System.Drawing.Size(698, 575)
Me.Panel2.TabIndex = 2
'
'ToolStrip3
'
Me.ToolStrip3.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.TSBtnFirst, Me.TSBtnPrevious, Me.TSBtnNext, Me.TSBtnLast, Me.toolStripSeparator10, Me.btnPrvPage, Me.btnFirstPage, Me.txtGoToPage, Me.btnNxtPage, Me.btnLastPage, Me.toolStripSeparator4, Me.tsFitPage, Me.tsFitWidth, Me.tsZoomOut, Me.toolStripSeparator7, Me.tsZoomIn, Me.ToolStripButton1, Me.ToolStripButton2})
Me.ToolStrip3.Location = New System.Drawing.Point(0, 25)
Me.ToolStrip3.Name = "ToolStrip3"
Me.ToolStrip3.Size = New System.Drawing.Size(698, 25)
Me.ToolStrip3.TabIndex = 9
Me.ToolStrip3.Text = "ToolStrip3"
'
'TSBtnFirst
'
Me.TSBtnFirst.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.TSBtnFirst.Image = CType(resources.GetObject("TSBtnFirst.Image"), System.Drawing.Image)
Me.TSBtnFirst.ImageTransparentColor = System.Drawing.Color.Magenta
Me.TSBtnFirst.Name = "TSBtnFirst"
Me.TSBtnFirst.Size = New System.Drawing.Size(23, 22)
Me.TSBtnFirst.Text = "Erster Datensatz"
'
'TSBtnPrevious
'
Me.TSBtnPrevious.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.TSBtnPrevious.Image = CType(resources.GetObject("TSBtnPrevious.Image"), System.Drawing.Image)
Me.TSBtnPrevious.ImageTransparentColor = System.Drawing.Color.Magenta
Me.TSBtnPrevious.Name = "TSBtnPrevious"
Me.TSBtnPrevious.Size = New System.Drawing.Size(23, 22)
Me.TSBtnPrevious.Text = "Vorheriger Datensatz"
'
'TSBtnNext
'
Me.TSBtnNext.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.TSBtnNext.Image = CType(resources.GetObject("TSBtnNext.Image"), System.Drawing.Image)
Me.TSBtnNext.ImageTransparentColor = System.Drawing.Color.Magenta
Me.TSBtnNext.Name = "TSBtnNext"
Me.TSBtnNext.Size = New System.Drawing.Size(23, 22)
Me.TSBtnNext.Text = "Nächster Datensatz"
'
'TSBtnLast
'
Me.TSBtnLast.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.TSBtnLast.Image = CType(resources.GetObject("TSBtnLast.Image"), System.Drawing.Image)
Me.TSBtnLast.ImageTransparentColor = System.Drawing.Color.Magenta
Me.TSBtnLast.Name = "TSBtnLast"
Me.TSBtnLast.Size = New System.Drawing.Size(23, 22)
Me.TSBtnLast.Text = "Letzter Datensatz"
'
'toolStripSeparator10
'
Me.toolStripSeparator10.Name = "toolStripSeparator10"
Me.toolStripSeparator10.Size = New System.Drawing.Size(6, 25)
'
'btnPrvPage
'
Me.btnPrvPage.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.btnPrvPage.ImageTransparentColor = System.Drawing.Color.Magenta
Me.btnPrvPage.Name = "btnPrvPage"
Me.btnPrvPage.Size = New System.Drawing.Size(23, 22)
Me.btnPrvPage.ToolTipText = "Goto Previous Page"
'
'btnFirstPage
'
Me.btnFirstPage.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.btnFirstPage.Image = CType(resources.GetObject("btnFirstPage.Image"), System.Drawing.Image)
Me.btnFirstPage.ImageTransparentColor = System.Drawing.Color.Magenta
Me.btnFirstPage.Name = "btnFirstPage"
Me.btnFirstPage.Size = New System.Drawing.Size(23, 22)
Me.btnFirstPage.Text = "toolStripButton1"
Me.btnFirstPage.ToolTipText = "Go To First Page"
'
'txtGoToPage
'
Me.txtGoToPage.Name = "txtGoToPage"
Me.txtGoToPage.Size = New System.Drawing.Size(100, 25)
'
'btnNxtPage
'
Me.btnNxtPage.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.btnNxtPage.ImageTransparentColor = System.Drawing.Color.Magenta
Me.btnNxtPage.Name = "btnNxtPage"
Me.btnNxtPage.Size = New System.Drawing.Size(23, 22)
Me.btnNxtPage.Text = "toolStripButton1"
Me.btnNxtPage.ToolTipText = "Goto Next Page"
'
'btnLastPage
'
Me.btnLastPage.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.btnLastPage.Image = CType(resources.GetObject("btnLastPage.Image"), System.Drawing.Image)
Me.btnLastPage.ImageTransparentColor = System.Drawing.Color.Magenta
Me.btnLastPage.Name = "btnLastPage"
Me.btnLastPage.Size = New System.Drawing.Size(23, 22)
Me.btnLastPage.ToolTipText = "Go To Last Page"
'
'toolStripSeparator4
'
Me.toolStripSeparator4.Name = "toolStripSeparator4"
Me.toolStripSeparator4.Size = New System.Drawing.Size(6, 25)
'
'tsFitPage
'
Me.tsFitPage.ImageTransparentColor = System.Drawing.Color.White
Me.tsFitPage.Name = "tsFitPage"
Me.tsFitPage.Size = New System.Drawing.Size(53, 22)
Me.tsFitPage.Text = "Fit Page"
'
'tsFitWidth
'
Me.tsFitWidth.ImageTransparentColor = System.Drawing.Color.Transparent
Me.tsFitWidth.Name = "tsFitWidth"
Me.tsFitWidth.Size = New System.Drawing.Size(59, 22)
Me.tsFitWidth.Text = "Fit Width"
'
'tsZoomOut
'
Me.tsZoomOut.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsZoomOut.Name = "tsZoomOut"
Me.tsZoomOut.Size = New System.Drawing.Size(66, 22)
Me.tsZoomOut.Text = "Zoom Out"
'
'toolStripSeparator7
'
Me.toolStripSeparator7.Name = "toolStripSeparator7"
Me.toolStripSeparator7.Size = New System.Drawing.Size(6, 25)
'
'tsZoomIn
'
Me.tsZoomIn.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsZoomIn.Name = "tsZoomIn"
Me.tsZoomIn.Size = New System.Drawing.Size(56, 22)
Me.tsZoomIn.Text = "Zoom In"
'
'ToolStripButton1
'
Me.ToolStripButton1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripButton1.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton1.Name = "ToolStripButton1"
Me.ToolStripButton1.Size = New System.Drawing.Size(23, 22)
Me.ToolStripButton1.Text = "ToolStripButton1"
Me.ToolStripButton1.ToolTipText = "Rotate AntiClockwise 90"
'
'ToolStripButton2
'
Me.ToolStripButton2.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripButton2.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton2.Name = "ToolStripButton2"
Me.ToolStripButton2.Size = New System.Drawing.Size(23, 22)
Me.ToolStripButton2.Text = "ToolStripButton2"
Me.ToolStripButton2.ToolTipText = "Rotate Clockwise 90"
'
'ToolStrip2
'
Me.ToolStrip2.Location = New System.Drawing.Point(0, 0)
Me.ToolStrip2.Name = "ToolStrip2"
Me.ToolStrip2.Size = New System.Drawing.Size(698, 25)
Me.ToolStrip2.TabIndex = 8
Me.ToolStrip2.Text = "ToolStrip2"
'
'DocumentViewer1
'
Me.DocumentViewer1.BackColor = System.Drawing.SystemColors.ControlDark
Me.DocumentViewer1.BorderWidth = 10
Me.DocumentViewer1.CurrentPage = 0
Me.DocumentViewer1.Dock = System.Windows.Forms.DockStyle.Fill
Me.DocumentViewer1.HScrollBar.LargeChange = 40
Me.DocumentViewer1.HScrollBar.SmallChange = 20
Me.DocumentViewer1.HScrollBar.Value = 0
Me.DocumentViewer1.HScrollBar.Visibility = Gnostice.Documents.Controls.WinForms.ScrollBarVisibility.Always
Me.DocumentViewer1.Location = New System.Drawing.Point(0, 0)
Me.DocumentViewer1.Name = "DocumentViewer1"
'
'
'
Me.DocumentViewer1.NavigationPane.ActivePage = Nothing
Me.DocumentViewer1.NavigationPane.Location = New System.Drawing.Point(0, 0)
Me.DocumentViewer1.NavigationPane.Name = ""
Me.DocumentViewer1.NavigationPane.TabIndex = 0
Me.DocumentViewer1.NavigationPane.Visibility = Gnostice.Documents.Controls.WinForms.Visibility.[Auto]
Me.DocumentViewer1.NavigationPane.WidthPercentage = 20
Me.DocumentViewer1.PageLayout = Nothing
Me.DocumentViewer1.PageRotation = Gnostice.Documents.Controls.WinForms.RotationAngle.Zero
TxtFormatterSettings2.Font = New System.Drawing.Font("Calibri", 12.0!)
PageSettings2.Height = 11.6929!
Margins2.Bottom = 1.0!
Margins2.Footer = 0.0!
Margins2.Header = 0.0!
Margins2.Left = 1.0!
Margins2.Right = 1.0!
Margins2.Top = 1.0!
PageSettings2.Margin = Margins2
PageSettings2.Orientation = Gnostice.Graphics.Orientation.Portrait
PageSettings2.PageSize = Gnostice.Documents.PageSize.A4
PageSettings2.Width = 8.2677!
TxtFormatterSettings2.PageSettings = PageSettings2
FormatterSettings2.TXT = TxtFormatterSettings2
Me.DocumentViewer1.Preferences.FormatterSettings = FormatterSettings2
Me.DocumentViewer1.Preferences.KeyNavigation = True
ImageRenderingSettings2.CompositingMode = System.Drawing.Drawing2D.CompositingMode.SourceOver
ImageRenderingSettings2.CompositingQuality = System.Drawing.Drawing2D.CompositingQuality.[Default]
ImageRenderingSettings2.InterpolationMode = System.Drawing.Drawing2D.InterpolationMode.Bilinear
ImageRenderingSettings2.PixelOffsetMode = System.Drawing.Drawing2D.PixelOffsetMode.[Default]
RenderingSettings2.Image = ImageRenderingSettings2
LineArtRenderingSettings2.SmoothingMode = System.Drawing.Drawing2D.SmoothingMode.AntiAlias
RenderingSettings2.LineArt = LineArtRenderingSettings2
ResolutionSettings2.DpiX = 96.0!
ResolutionSettings2.DpiY = 96.0!
ResolutionSettings2.ResolutionMode = Gnostice.Documents.ResolutionMode.UseSource
RenderingSettings2.Resolution = ResolutionSettings2
TextRenderingSettings2.TextContrast = 3
TextRenderingSettings2.TextRenderingHint = System.Drawing.Text.TextRenderingHint.AntiAlias
RenderingSettings2.Text = TextRenderingSettings2
Me.DocumentViewer1.Preferences.RenderingSettings = RenderingSettings2
Me.DocumentViewer1.Preferences.Units = Gnostice.Graphics.MeasurementUnit.Inches
Me.DocumentViewer1.Size = New System.Drawing.Size(698, 575)
Me.DocumentViewer1.TabIndex = 7
Me.DocumentViewer1.VScrollBar.LargeChange = 40
Me.DocumentViewer1.VScrollBar.SmallChange = 20
Me.DocumentViewer1.VScrollBar.Value = 0
Me.DocumentViewer1.VScrollBar.Visibility = Gnostice.Documents.Controls.WinForms.ScrollBarVisibility.Always
Me.DocumentViewer1.Zoom.ZoomMode = Gnostice.Documents.Controls.WinForms.ZoomMode.FitPage
Me.DocumentViewer1.Zoom.ZoomPercent = 100.0R
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(3, 3)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(159, 23)
Me.Button1.TabIndex = 3
Me.Button1.Text = "Barcode Erkennung"
Me.Button1.UseVisualStyleBackColor = True
'
'Panel3
'
Me.Panel3.Controls.Add(Me.Results)
Me.Panel3.Controls.Add(Me.Button1)
Me.Panel3.Dock = System.Windows.Forms.DockStyle.Left
Me.Panel3.Location = New System.Drawing.Point(898, 25)
Me.Panel3.Name = "Panel3"
Me.Panel3.Size = New System.Drawing.Size(312, 575)
Me.Panel3.TabIndex = 4
'
'Results
'
Me.Results.Location = New System.Drawing.Point(3, 47)
Me.Results.Multiline = True
Me.Results.Name = "Results"
Me.Results.ReadOnly = True
Me.Results.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
Me.Results.Size = New System.Drawing.Size(309, 203)
Me.Results.TabIndex = 4
'
'frmScan
'
Me.ClientSize = New System.Drawing.Size(1250, 600)
Me.Controls.Add(Me.Panel3)
Me.Controls.Add(Me.Panel2)
Me.Controls.Add(Me.Panel1)
Me.Controls.Add(Me.ToolStrip1)
Me.Name = "frmScan"
Me.Panel1.ResumeLayout(False)
Me.Panel2.ResumeLayout(False)
Me.Panel2.PerformLayout()
Me.ToolStrip3.ResumeLayout(False)
Me.ToolStrip3.PerformLayout()
Me.Panel3.ResumeLayout(False)
Me.Panel3.PerformLayout()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip
Friend WithEvents Panel1 As System.Windows.Forms.Panel
Friend WithEvents Panel2 As System.Windows.Forms.Panel
Friend WithEvents DocumentViewer1 As Gnostice.Documents.Controls.WinForms.DocumentViewer
Friend WithEvents PrintDocument1 As System.Drawing.Printing.PrintDocument
Friend WithEvents ToolStrip2 As System.Windows.Forms.ToolStrip
Friend WithEvents ListBox1 As System.Windows.Forms.ListBox
Private WithEvents ToolStrip3 As System.Windows.Forms.ToolStrip
Private WithEvents toolStripSeparator10 As System.Windows.Forms.ToolStripSeparator
Private WithEvents btnPrvPage As System.Windows.Forms.ToolStripButton
Private WithEvents btnFirstPage As System.Windows.Forms.ToolStripButton
Private WithEvents txtGoToPage As System.Windows.Forms.ToolStripTextBox
Private WithEvents btnNxtPage As System.Windows.Forms.ToolStripButton
Private WithEvents btnLastPage As System.Windows.Forms.ToolStripButton
Private WithEvents toolStripSeparator4 As System.Windows.Forms.ToolStripSeparator
Private WithEvents tsFitPage As System.Windows.Forms.ToolStripButton
Private WithEvents tsFitWidth As System.Windows.Forms.ToolStripButton
Private WithEvents tsZoomOut As System.Windows.Forms.ToolStripButton
Private WithEvents toolStripSeparator7 As System.Windows.Forms.ToolStripSeparator
Private WithEvents tsZoomIn As System.Windows.Forms.ToolStripButton
Friend WithEvents ToolStripButton1 As System.Windows.Forms.ToolStripButton
Friend WithEvents ToolStripButton2 As System.Windows.Forms.ToolStripButton
Friend WithEvents TSBtnFirst As System.Windows.Forms.ToolStripButton
Friend WithEvents TSBtnNext As System.Windows.Forms.ToolStripButton
Friend WithEvents TSBtnPrevious As System.Windows.Forms.ToolStripButton
Friend WithEvents TSBtnLast As System.Windows.Forms.ToolStripButton
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents Panel3 As System.Windows.Forms.Panel
Friend WithEvents Results As System.Windows.Forms.TextBox
End Class

View File

@@ -0,0 +1,238 @@
<?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=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<metadata name="ToolStrip3.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>371, 17</value>
</metadata>
<metadata name="ToolStrip2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>264, 17</value>
</metadata>
<metadata name="ToolStrip3.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>371, 17</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="TSBtnFirst.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAK9SURBVDhPfVNtSFNRGL53OmHsQ93mds3pnUkR/VCIojDF
SoxULOpXmh+VEFb0IZmpQQlGmSnkx0yaTQ3SsnLOhHD50ZaSWX8KUSE/CiLQsj/9CFrep3PONjSyHng5
5z3v87z3vO97LrcKEjmlrkUWlzQjS8nzyHYTI3t6xmL/gY5X6+3y1EJJdbEH2spB6Gvc0Fe7EHrFCVVx
F+R7zkqE0025XskyDDLDhklNgQ0RN4Yg3nQjqmYIkVUDMF11IqLiKSLKe2Es6YIq1wKZIWaKarxSAl4t
9GtPtkGsH4FY64a5YQTRTWOItr5hZm4cZcnCy7ohFD9CcFYdeLWx3yfn9qkzSn3iF4zMxKuYWDcM4cJj
GM60Q7njFKiW45WCg16TXlusHUbGg7coGZyGmSYkAr/l9Uwg0z5OSnsOw+l70OU3g1eSfgRt3LXgrzmq
egiuuUVQJDS/ZH5yyxhcHxYhSRLcZKVn4WV26I/ZIDfFz3Oa5ByJik3XnKRhfXDPfmUJ0myjuPP6I37+
WmI+BY1RDm2o7qgVitikJU6TkivRBq253MvMPf2FkdtezbF1JWiM8S49gS6viSRIlzj55vR52oPwUjsE
MibX+3lGTqzuQ2nnGL59/8F8ChqjHOH8Q2izGxG0LnGBCwwTHXTOdDzGwg44xz+xejeVO5i/vug+rM53
8JBSBiY+s7Ow420IPVgPXiM42Bj1hyvZDWgg9lw79laQJhW0Mp8a3W8tbkd8WSfztdkWqHb6xkjAB4aZ
BoSiDu94jliJ3f6n0auHHKgiD0l4RsV+GAMi46YMp8hXT9yFNucWtJkNf1oWXesRsv86Agwxk0Sz/JR9
0PMaoyM4rVDSF7Swh8ISHbIQsYXUXAfl9nyJV+q6CPevn2klknhlaGvA2m2zCjHNoxBTPQHmLTO8QmMj
sQQvxQ+O+w0UG9zYwCvIHAAAAABJRU5ErkJggg==
</value>
</data>
<data name="TSBtnPrevious.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAK5SURBVDhPfVJbSFRRFL13xqnMcfTOjHced5xH9lGSUVGQ
kRmFiUqkEFimTRlhiZVC2VhkgWbmA1LzUVIzSg+iHBs1SnEyK1EjP6JA+1A/+kmFPgI/QpjVOediZgxt
WGzO3Wuts8/elwsSCZwguRWbkicVSc4FxT6CLclT5JuH1HbJlOCh4wWpU5VSBPXlLmgr/dDXDkJX/QZC
WS/Cir1QJReCcJ4Trl6WLIVBIcWNh+fdg1T9GtZbb2GtHUD0zX5YKnohlb2E+VoPRJcX6pxGKMTYCaqR
pRzH84KlX8j3wFb/HjYitjUMwd4yCkfrRwZ74zAx88N0qRPGC08RkVUPPtLip1pqkB6+3yWL697B3jQC
BxUHAeUYL3ZAPPcIqxMLQLUcL9h8UkUfa5saMKO/EHdnBKWDU9jQMsy6s9YMQDz7ELoTreA1ko9bEbtn
9s+ba8j7CYFmOzm7+r5ibv4XAoEAnB2fEF3lZzVTSSd0J+9DFbNzhgvfmx2gYgvpwnK9l+WM9g/48v0n
Ey7C+WQMUvkrxqED1eW2YlVcaoDTJB0N0Gmbr/YQdLP87cf8MjFFzoNRmK90wVxKOCRrnS0I3ZgW4NRb
02boqkwlXhhdHQRebCvvRvfY9DKDbPcQjMXP2BDpJrRHGrHCFj/HhVjX+eieaVEsfAyxiIBmMqj06hf4
PD3LDDKb5eHRWtTpNgiHGshP5fCxNeqPVbIO9KTwL0QyrIM3fDDnk3OeG/pTHna7evcZusYD1IBXmdb6
DeflW3XH7/4X2uwmRGZUkdst/VRLDWgYVsZsnhALPIjKb4c2pxnC4YblyLrNckR6JZTi+nGiEWXpUuhD
9FafJrWQtOlma6JGtF0tFWfWIWxHLvl5DF7C1cmS4JGo1BjalGvip0JtqQuhtpQFpWP7JB8mukktQaYs
Bsf9BvJ9y/Q7+ip/AAAAAElFTkSuQmCC
</value>
</data>
<data name="TSBtnNext.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAKfSURBVDhPfVNbSBRRGJ7ZdYVlL7qzs7tjro4mQUjkS0FU
YheMVCLqqcxbSaKJlVCWBiUUaeZCXnbd2lg1KB8yddOKNi95A7EL9LRSaiREKNRLj4vzdc7MrBeUPviY
M+f/vp///P85zCZIZwzWdk1axpwmszCsOUJI1nRPjv0HVtbE9+qyKiXjjZfg6ofBu8bAN47CcicIY1UP
dEcvS0TTR7WKZRV2jX17yFzqR/z9EYgPxpDoGkFCwxCcd4OIv/0G8bUDcFzvgbHADY09ZYZ6FCsBaxIG
ufJOiC2TEJvGkNQ6iWTvNJJ9H2UmeabkZHE1fRCquhGT2wzW5BhU7cxx07Fq1Twui2XzJhSbJyBcewH7
pWcwHKgA9TKsQQjQMmnZYtOELCp7PYMvi39R8iok/69lous97Befwlr8GKyB9CM69dBS5MyJjQq9HxYQ
wfiPP8jsnF6JUcbV9IIv8UPn3LvImA/nS9TsrAuShr2V6Z36rtoVhJeX0fFpAamuYTlOG2o954N+Z8Yy
Y84skGiDttwaWGHb5JxqXQ/PxKyiudkPa6GXJMiRGN2unEXag7jqXghkTJSe0a+qRYEkSeiemsWO2oCi
ufocXJ4H0dvSl5gomxigc6bjcVR2yXQPh1Qr8PnbL2TX9cudj8RtZZ2wnGoBaxYC8hj5onq5AhqgLPON
YP7nb5S7g7Cd96/sR8jluWE8qI6RgI2yOYeEK13KeM76wBU9hOWMm6wfbSAtPfZkA7lIwjtqjsChTUib
sVd0wHbhCbj8NnCnW9czl35bEHviHrT2lBDxrF5lFTxrdgRisislvrRdvihyIlIJl+smZ26GYV+xxBqs
PUS74TGtRQZrsHRot+6Z14vZYb2YFdYm7Z5j9WY/ie1XJBEwzD9i2NfQid+uMAAAAABJRU5ErkJggg==
</value>
</data>
<data name="TSBtnLast.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAK7SURBVDhPfVNtSFNRGL53OmHsQ93mds3pnUkR/UiIojDF
SoxULOpXmh+VEFZYSWZqUIJRZgr5MZNmU4O0rJwzIVx+tKVk1p9CVMiPggi07E8/gpb36ZyzDY2sBx7O
fc/7PGfved8zbhUkcEpdiyw2cUaWnOuR7SEk33SP5f4DHa/W2+UphZLqYg+0lYPQ17ihr3Yh9IoTquIu
yPeelYimm2q9lmUYZIYNk5p8GyJuDEG86UZUzRAiqwZguupERMVTRJT3wljSBVWOBTJDzBT1eK0EvFro
155qg1g/ArHWDXPDCKKbxhBtfcNobhxlh4WXdUMofoTgzDrwamO/z87tV6eX+swvmJiZV6FYNwzhwmMY
zrRDubMA1MvxSsFBy6Rli7XDyLCPI7dngon9NJPDSwankf7gLbnacxhO34Murxm8kvQjaOPuBf+do6qH
4P6wCEmS4CJrUssY24tvfgkK19wii8PL7NAft0FuipvnNEnZEjWbrjlJw/rgnv3KxBQ/fy3hzuuPSLWN
spjmqIY2VHfMCsWmxCVOk5wj0QatudzL6J7+wsQr0fZqjq00x3SXnkCX20QOSJM4+Za0edqD8FI7BDIm
1/t5Jqb49v0HSjvHkFDdx2Kaoxrh/ENosxoRtC5hgQsMEx10znQ8xsIODEx8hoeUbnW+w/qi+2xvc7mD
9cU5/onFYSfaEHqoHrxGcLAx6o9UsgpoIq6sE9uK26HPb2UxJf3eV2FH7Ll2FmuzLFDt8o2RgA8MMw0I
RR3e8Ry1Et7+J2npIQeryEMSnlGzH8aAyNgpQwH51ZN3oc2+BW1Gw5/MpGs9Qg5cR4AhZpJ4lp+yD3pe
Y3QEpxZK+vwW9lDYQYctxGwhd66DckeexCt1XUT7159pJRJ5ZWhrwNrtswox1aMQUzwB5q0zvEJjI7l4
r8QPjvsNWSfc2bvcdIgAAAAASUVORK5CYII=
</value>
</data>
<data name="btnFirstPage.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAHGSURBVDhPYxhcoGH1q/8gXLfyxf/SpU/3Q4XhILj3ZntA
/c0vUC4maFj94v+Wc5/+Lzr47n/BgocoBnh3Xm/3ql/7z7Xlxn+oECYoX/bs/4bTH/7P3ffmf+pMhAGe
LVf7Mufe/z9hy/P/ltWXcBtQsODR/9Un3v+ftvPV/5iJd8EGuLdcm5c26/7//q3P//duevZfp+Q8bgNS
Zz/8v/TI2//9W178D+y8ud+x/vKSlOl3/0/Y+gwYLo/+t6598l8u+yxuA2Im3f8/78Dr/zN2v/xvVn/i
R/Gih//7Nj/7X7n84f/sOXf/1614+F8q6QRuA4K6b4I1gzRZVl94kzvv3v+2dU/+Fy68/z9p+u3/ZYvv
/5eIPIbbAFAIT9z24n/5kof/tYrPH5DNPL3GpfHy/6rlD/4nT7/1v2D+vf/iQQdwGwAK4a6NT//nzr33
XzbzLDgQJaOOrLQtv/A/b/7d/1mz7/wX89qL2wBQCDevefw/FehcycQT8GgU89i9yCL7FNgVIo67cRsA
CuFqYEDFTbwB9OtRlIQkYrd1gXHKsf/CNttxGwAKYcmYY/8lQo/8Fw08gGIACAgZbpwtZLkNtwEDABgY
ACDdDJUDHk/XAAAAAElFTkSuQmCC
</value>
</data>
<data name="btnLastPage.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAHISURBVDhPzZBLSxtRGIbnN2jU6MIfIP6BiAiKCioVtIiE
iohWwQriDUUDxlsa06BosI0ajJK2IToqXsDgrWfAC9mIrUpIijEmk6TTeNu46Kpv55QhIOWs6wtn8b1w
nu/j4Z5X9Lz02O+SjMqYSONMiNS9D0I7EUCl2Q+l/jcDvASdfu93uyP8BFIzGSDmzR+Y3YujaMTHBvQ4
Y1jxPGB0TUL9h6txpeYqTH4yshrBlFuCRnfGBrQthMHLAOfBPfqcUbww+ey0l7cSnUvE2EYM2V2nbECj
LYTPh3ew7sRh/xJH81wQmt6vnzS930in4xqGlQgyW07YgBpLEHbhBsa1GEzrMVjkk1tlSFaH59cgH0a/
K4SMeg8bQA1P7/6EfknEEC/CvBFF00wAma9Pbrs+BtEtP7X2mA2ghie3JOgXRfmCCMqMXmQ0eJblrUKt
xY+2+SukVQpsADX8bj2Kt7LxYoMX6XVHi7RXa49ItdmLN7ZLpJbuswHU8PCyiMLBc6S/OnYoNZdSIZCX
hgs0WL9Dlb/LBlDDBfSz9nBBqf4mpWSflA+coXbKh+RcNxtADaurBJsyJqLK3yaqvG0k57iRpNliA/5D
OO4P/esL+3tZLhEAAAAASUVORK5CYII=
</value>
</data>
<metadata name="ToolStrip2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>264, 17</value>
</metadata>
<metadata name="PrintDocument1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>124, 17</value>
</metadata>
</root>

View File

@@ -0,0 +1,342 @@
Imports System.Windows.Forms
Imports Gnostice.Documents.Controls.WinForms
Imports Gnostice.Documents
Public Class frmScan
Dim licenseKey As String = "530B-ED36-D5D0-CB1D-DD48-B443-AE22-6E19-0264-3D59-FA7A-9FAD"
Dim barcode As SoftekBarcodeNet.BarcodeReader
Dim nBarCodes As Integer
Sub New()
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
Try
Framework.ActivateLicense(licenseKey)
Catch ex As Exception
MsgBox(ex.Message)
End Try
initBarcode()
End Sub
Private Sub frmScan_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.ListBox1.Items.Clear()
Dim di As New IO.DirectoryInfo("E:\Software-Projekte\EDOKA\__Barcode\DOcs")
Dim diar1 As IO.FileInfo() = di.GetFiles()
Dim dra As IO.FileInfo
'list the names of all files in the specified directory
For Each dra In diar1
If UCase(dra.Extension) = ".PDF" Then ListBox1.Items.Add(dra.Name)
Next
End Sub
Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged
Me.DocumentViewer1.LoadDocument("E:\Software-Projekte\EDOKA\__Barcode\DOcs\" + Me.ListBox1.SelectedItem)
End Sub
Private Sub TSBtnLast_Click(sender As Object, e As EventArgs) Handles TSBtnLast.Click
If DocumentViewer1.IsDocumentLoaded Then DocumentViewer1.LastPage()
End Sub
Private Sub TSBtnPrevious_Click(sender As Object, e As EventArgs) Handles TSBtnPrevious.Click
If DocumentViewer1.IsDocumentLoaded Then DocumentViewer1.PreviousPage()
End Sub
Private Sub TSBtnNext_Click(sender As Object, e As EventArgs) Handles TSBtnNext.Click
If DocumentViewer1.IsDocumentLoaded Then DocumentViewer1.NextPage()
End Sub
Private Sub TSBtnFirst_Click(sender As Object, e As EventArgs) Handles TSBtnFirst.Click
If DocumentViewer1.IsDocumentLoaded Then DocumentViewer1.FirstPage()
End Sub
Private Sub tsZoomOut_Click(sender As Object, e As EventArgs) Handles tsZoomOut.Click
If DocumentViewer1.IsDocumentLoaded Then
DocumentViewer1.ZoomOut()
End If
End Sub
Private Sub tsZoomIn_Click(sender As Object, e As EventArgs) Handles tsZoomIn.Click
If DocumentViewer1.IsDocumentLoaded Then
DocumentViewer1.ZoomIn()
End If
End Sub
Private Sub txtZoom_Click(sender As Object, e As EventArgs)
End Sub
Private Sub tsFitPage_Click(sender As Object, e As EventArgs) Handles tsFitPage.Click
If DocumentViewer1.IsDocumentLoaded Then
Me.DocumentViewer1.Zoom.ZoomMode = ZoomMode.FitPage
End If
End Sub
Private Sub btnFirstPage_Click(sender As Object, e As EventArgs)
End Sub
Private Sub tsFitWidth_Click(sender As Object, e As EventArgs) Handles tsFitWidth.Click
If DocumentViewer1.IsDocumentLoaded Then
DocumentViewer1.Zoom.ZoomMode = ZoomMode.FitWidth
End If
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Results.Text = ""
'DocumentViewer1.CloseDocument()
nBarCodes = barcode.ScanBarCode("E:\Software-Projekte\EDOKA\__Barcode\DOcs\" + ListBox1.SelectedItem)
getResults()
End Sub
Private Sub getResults()
Dim i As Integer
Dim nDirection As Integer
Dim nPage As Integer
Dim rect As System.Drawing.Rectangle
If nBarCodes <= -6 Then
SetText("License key error: either an evaluation key has expired or the license key is not valid for processing pdf documents")
ElseIf nBarCodes < 0 Then
SetText("ScanBarCode returned error number " & nBarCodes)
SetText("Last Softek Error Number = " & barcode.GetLastError())
SetText("Last Windows Error Number = " & barcode.GetLastWinError())
End If
If nBarCodes = 0 Then
SetText("Sorry - no barcodes were found in this image")
End If
For i = 1 To nBarCodes
SetText("Barcode " & i & ":")
SetText("Value = " & barcode.GetBarString(i))
SetText("Type = " & barcode.GetBarStringType(i))
nDirection = barcode.GetBarStringDirection(i)
If nDirection = 1 Then
SetText("Direction = Left to Right")
Else
If nDirection = 2 Then
SetText("Direction = Top to Bottom")
Else
If nDirection = 4 Then
SetText("Direction = Right to Left")
Else
If nDirection = 8 Then
SetText("Direction = Bottom to Top")
End If
End If
End If
End If
nPage = barcode.GetBarStringPage(i)
rect = barcode.GetBarStringRect(i)
SetText("Page = " & nPage)
SetText("Top Left = (" & rect.X & "," & rect.Y & ")")
SetText("Bottom Right = (" & (rect.X + rect.Width) & "," & (rect.Y + rect.Height) & ")")
SetText("")
Next i
GC.Collect()
End Sub
Delegate Sub SetTextCallback(ByVal [text] As String)
Private Sub SetText(ByVal [text] As String)
' InvokeRequired required compares the thread ID of the
' calling thread to the thread ID of the creating thread.
' If these threads are different, it returns true.
If Me.Results.InvokeRequired Then
Dim d As New SetTextCallback(AddressOf SetText)
Me.Invoke(d, New Object() {[text]})
Else
Me.Results.Text += [text] + vbNewLine
End If
End Sub
Private Sub initBarcode()
' For the purposes of this demo we first give a path to the installation folder
' and the class adds either x86 or x64 to the end and tries to load the other dll files.
' If that fails (perhaps this project has been moved) then we give no path and the class
' assumes that the dll files will be somewhere on the PATH.
'
' In this project we give the path to the Softek DLL files when we create the BarcodeReader class
' Another way is to include the following files with your project:
' SoftekBarcodeDLL.dll
' SoftekBarcode64DLL.dll
' DebenuPDFLibraryDLLXXXX.dll
' DebenuPDFLibrary64DLLXXXX.dll
barcode = New SoftekBarcodeNet.BarcodeReader("E:\Software-Projekte\EDOKA\__Barcode\Barcode.com\bin")
' Enter your license key here
' You can get a trial license key from sales@bardecode.com
' Example:
' barcode.LicenseKey = "MY LICENSE KEY"
' Turn on the barcode types you want to read.
' Turn off the barcode types you don't want to read (this will increase the speed of your application)
barcode.ReadCode128 = True
barcode.ReadCode39 = True
barcode.ReadCode25 = True
barcode.ReadEAN13 = True
barcode.ReadEAN8 = True
barcode.ReadUPCA = True
barcode.ReadUPCE = True
barcode.ReadCodabar = True
barcode.ReadPDF417 = True
barcode.ReadDataMatrix = True
barcode.ReadDatabar = True
barcode.ReadMicroPDF417 = False
barcode.ReadQRCode = True
' Databar Options is a mask that controls which type of databar barcodes will be read and whether or not
' the software will look for a quiet zone around the barcode.
' 1 = 2D-Linkage flag (handle micro-PDf417 barcodes as supplementary data - requires ReadMicroPDF417 to be true).
' 2 = Read RSS14
' 4 = Read RSS14 Stacked
' 8 = Read Limited
' 16 = Read Expanded
' 32 = Read Expanded Stacked
' 64 = Require quiet zone
barcode.DatabarOptions = 255
' If you want to read more than one barcode then set Multiple Read to 1
' Setting MutlipleRead to False will make the recognition faster
barcode.MultipleRead = True
' If you know the max number of barcodes for a single page then increase speed by setting MaxBarcodesPerPage
barcode.MaxBarcodesPerPage = 0
' In certain conditions (MultipleRead = false or MaxBarcodesPerPage = 1) the SDK can make fast scan of an image before performing the normal scan. This is useful if only 1 bar code is expected per page.
barcode.UseFastScan = True
' If MultipleRead = false or MaxBarcodesPerPage = 1 and the bar code is always closer to the top of a page then set BarcodesAtTopOfPage to True to increase speed.
barcode.BarcodesAtTopOfPage = False
' Noise reduction takes longer but can make it possible to read some difficult barcodes
' When using noise reduction a typical value is 10 - the smaller the value the more effect it has.
' A zero value turns off noise reduction.
' barcode.NoiseReduction = 0
' You may need to set a small quiet zone if your barcodes are close to text and pictures in the image.
' A value of zero uses the default.
barcode.QuietZoneSize = 0
' LineJump controls the frequency at which scan lines in an image are sampled.
' The default is 1.
barcode.LineJump = 1
' You can restrict your search to a particular area of the image if you wish.
' This example limits the search to the upper half of the page
' Dim scanArea As System.Drawing.Rectangle
' scanArea = New System.Drawing.Rectangle(0, 0, 100, 50)
' barcode.SetScanRect(scanArea, 1)
' Set the direction that the barcode reader should scan for barcodes
' The value is a mask where 1 = Left to Right, 2 = Top to Bottom, 4 = Right To Left, 8 = Bottom to Top
barcode.ScanDirection = 15
' Set the page number to read from in a multi-page TIF file. The default is 0, which will make the
' toolkit check every page.
' barcode.PageNo = 1
' SkewTolerance controls the angle of skew that the barcode toolkit will tolerate and ranges from 0 to 5 (45 degrees)
' Note that from version 7.6.1 the SDK is able to read some skewed barcodes with this setting. See below.
barcode.SkewTolerance = 0
' Read most skewed linear barcodes without the need to set SkewTolerance. Currently applies to Codabar, Code 25, Code 39 and Code 128 barcodes only.
barcode.SkewedLinear = True
' Read most skewed datamatrix barcodes without the need to set SkewTolerance
barcode.SkewedDatamatrix = True
' ColorProcessingLevel controls how much time the toolkit will searching a color image for a barcode.
' The default value is 2 and the range of values is 0 to 5. If ColorThreshold is non-zero then
' ColorProcessingLevel is effectively set to 0.
barcode.ColorProcessingLevel = 2
' MaxLength and MinLength can be used to specify the number of characters you expect to
' find in a barcode. This can be useful to increase accuracy or if you wish to ignore some
' barcodes in an image.
barcode.MinLength = 4
barcode.MaxLength = 999
' When the toolkit scans an image it records the number of hits it gets for each barcode that
' MIGHT be in the image. If the hits recorded for any of the barcodes are >= PrefOccurrence
' then only these barcodes are returned. Otherwise, any barcode whose hits are >= MinOccurrence
' are reported. If you have a very poor quality image then try setting MinOccurrence to 1, but you
' may find that some false positive results are returned.
' barcode.MinOccurrence = 2
' barcode.PrefOccurrence = 4
' Read Code 39 barcodes in extended mode
' barcode.ExtendedCode39 = True
' Barcode string is numeric
' barcode.ReadNumeric = True
' Set a regular expression for the barcode
' barcode.Pattern = "^[A-Z]{2}[0-9]{5}$"
' If you are scanning at a high resolution and the spaces between bars are
' larger than 1 pixel then set MinSpaceBarWidth to 2 and increase your read rate.
' barcode.MinSpaceBarWidth = 2
' MedianFilter is a useful way to clean up higher resolution images where the black bars contain white dots
' and the spaces contain black dots. It does not work if the space between bars is only 1 pixel wide.
barcode.MedianFilter = False
' ReportUnreadBarcodes can be used to warn of the presence of a barcode on a page that the SDK has not been able to decode.
' It currently has the following important limitations:
' 1. An unread linear barcode will only be reported if no other barcode was found in the same page.
' 2. The height of the area for an unread linear barcode will only cover a portion of the barcode.
' 3. Only 2-D barcodes that fail to error correct will be reported.
' 4. The barcode type and value will both be set to UNREAD for all unread barcodes.
' 5. The reporting of unread linear barcodes takes no account of settings for individual barcode types. For example, if ReadCode39 is True and
' an image contains a single Code 39 barcode then this will be reported as an unread barcode.
' 6. 2-D barcodes are only reported as unread if the correct barcode types have been enabled.
' 7. Not all unread barcodes will be detected.
'
' The value is a mask with the following values: 1 = linear barcodes, 2 = Datamatrix, 4 = QR-Code, 8 = PDF-417
barcode.ReportUnreadBarcodes = 0
' Time out for reading a barcode from a page in ms. Note that this does not include the time to load the page.
' 0 means no time out.
barcode.TimeOut = 5000
' Flags for handling PDF files
' PdfImageOnly defaults to true and indicates that the PDF documents are simple images.
barcode.PdfImageOnly = True
' PdfImageExtractOptions is no longer required in version 8 of the SDK but is retained for future possible use.
' barcode.PdfImageExtractOptions = 0
' The PdfImageRasterOptions mask controls how images are rasterized when PdfImageOnly is false or when image extraction fails
' 0 = Use Debenu to render image
' 4 = Use VeryPDF to render image (x86 only)
barcode.PdfImageRasterOptions = 0
' PdfDpi and PdfBpp control what sort of image the PDF document is rasterized into
barcode.PdfDpi = 300
barcode.PdfBpp = 8
' Or you can load the settings from a xml format file
' See the manual for more details.
' barcode.LoadXMLSettings("settings.xml")
End Sub
End Class

Binary file not shown.

Binary file not shown.

View File

@@ -0,0 +1,10 @@
E:\Software-Projekte\EDOKA\tools\EDOKA_Toolset\Plugin_Scan\obj\Debug\Plugin_Scan.frmScan.resources
E:\Software-Projekte\EDOKA\tools\EDOKA_Toolset\Plugin_Scan\obj\Debug\Plugin_Scan.Resources.resources
E:\Software-Projekte\EDOKA\tools\EDOKA_Toolset\Plugin_Scan\obj\Debug\Plugin_Scan.vbproj.GenerateResource.Cache
E:\Software-Projekte\EDOKA\tools\EDOKA_Toolset\bin\Plugin_Scan.dll
E:\Software-Projekte\EDOKA\tools\EDOKA_Toolset\bin\Plugin_Scan.pdb
E:\Software-Projekte\EDOKA\tools\EDOKA_Toolset\bin\Plugin_Scan.xml
E:\Software-Projekte\EDOKA\tools\EDOKA_Toolset\Plugin_Scan\obj\Debug\Plugin_Scan.dll
E:\Software-Projekte\EDOKA\tools\EDOKA_Toolset\Plugin_Scan\obj\Debug\Plugin_Scan.xml
E:\Software-Projekte\EDOKA\tools\EDOKA_Toolset\Plugin_Scan\obj\Debug\Plugin_Scan.pdb
E:\Software-Projekte\EDOKA\tools\EDOKA_Toolset\Plugin_Scan\obj\Debug\Plugin_Scan.vbprojResolveAssemblyReference.cache

View File

@@ -0,0 +1,76 @@
<?xml version="1.0"?>
<doc>
<assembly>
<name>
Plugin_Scan
</name>
</assembly>
<members>
<member name="T:Plugin_Scan.My.Resources.Resources">
<summary>
Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
</summary>
</member>
<member name="P:Plugin_Scan.My.Resources.Resources.ResourceManager">
<summary>
Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird.
</summary>
</member>
<member name="P:Plugin_Scan.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="P:Plugin_Scan.My.Resources.Resources.arrow_inout1">
<summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary>
</member>
<member name="P:Plugin_Scan.My.Resources.Resources.arrow_out">
<summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary>
</member>
<member name="P:Plugin_Scan.My.Resources.Resources.arrow_turn_left">
<summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary>
</member>
<member name="P:Plugin_Scan.My.Resources.Resources.arrow_turn_right">
<summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary>
</member>
<member name="P:Plugin_Scan.My.Resources.Resources.FitWidth">
<summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary>
</member>
<member name="P:Plugin_Scan.My.Resources.Resources.open_document24_h">
<summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary>
</member>
<member name="P:Plugin_Scan.My.Resources.Resources.resultset_next">
<summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary>
</member>
<member name="P:Plugin_Scan.My.Resources.Resources.resultset_previous">
<summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary>
</member>
<member name="P:Plugin_Scan.My.Resources.Resources.zoomin24_h">
<summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary>
</member>
<member name="P:Plugin_Scan.My.Resources.Resources.zoomout24_h">
<summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary>
</member>
</members>
</doc>