AppStd/FileFlow
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

MS

Browse Source
This commit is contained in:
SchreiberM 2020-02-27 11:05:00 +01:00
parent 68486d1bf5
commit 348d50a578
14 changed files with 552 additions and 270 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitignore vendored
View File

@ -155,3 +155,4 @@ $RECYCLE.BIN/
# Mac desktop service store files # Mac desktop service store files
.DS_Store .DS_Store
/.vs/Global_Indexer/v15/Server/sqlite3 /.vs/Global_Indexer/v15/Server/sqlite3
/.vs/Global_Indexer/v16/Server/sqlite3

BIN
.vs/Global_Indexer/DesignTimeBuild/.dtbcache
View File

Binary file not shown.

8
Global_Indexer/ClassInit.vb
View File

@ -230,16 +230,14 @@ Public Class ClassInit
Exit Sub Exit Sub
End If End If
If DT_CHECKUSER_MODULE.Rows.Count = 1 Then If DT_CHECKUSER_MODULE.Rows.Count = 1 Then
USER_IN_MODULE = DT_CHECKUSER_MODULE.Rows(0).Item("MODULE_ACCESS") USER_IN_MODULE = CBool(DT_CHECKUSER_MODULE.Rows(0).Item("MODULE_ACCESS"))
If USER_IN_MODULE = False Then If USER_IN_MODULE = False Then
ClassLogger.Add(" - User: " & Environment.UserName & " nicht für Modul freigegben!", False) ClassLogger.Add($" - User: {Environment.UserName } nicht für Modul freigegben! [{DT_CHECKUSER_MODULE.Rows(0).Item("MODULE_ACCESS")}]", False)
START_INCOMPLETE = True START_INCOMPLETE = True
Throw New Exception("Your user is not allowed to use this module." & vbNewLine & "Please contact the system administrator!") Throw New Exception("Your user is not allowed to use this module." & vbNewLine & "Please contact the system administrator!")
Exit Sub Exit Sub
End If End If
USER_IS_ADMIN = DT_CHECKUSER_MODULE.Rows(0).Item("IS_ADMIN") USER_IS_ADMIN = CBool(DT_CHECKUSER_MODULE.Rows(0).Item("IS_ADMIN"))
ClassLicence.Refresh_Licence() ClassLicence.Refresh_Licence()

60
Global_Indexer/Form1.Designer.vb generated Normal file
View File

@ -0,0 +1,60 @@
<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.DocumentViewer1 = New DigitalData.Controls.DocumentViewer.DocumentViewer()
Me.Button1 = New System.Windows.Forms.Button()
Me.SuspendLayout()
'
'DocumentViewer1
'
Me.DocumentViewer1.Location = New System.Drawing.Point(24, 39)
Me.DocumentViewer1.Name = "DocumentViewer1"
Me.DocumentViewer1.Size = New System.Drawing.Size(493, 387)
Me.DocumentViewer1.TabIndex = 0
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(566, 150)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(75, 23)
Me.Button1.TabIndex = 1
Me.Button1.Text = "Button1"
Me.Button1.UseVisualStyleBackColor = True
'
'Form1
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(800, 450)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.DocumentViewer1)
Me.Name = "Form1"
Me.Text = "Form1"
Me.ResumeLayout(False)
End Sub
Friend WithEvents DocumentViewer1 As DigitalData.Controls.DocumentViewer.DocumentViewer
Friend WithEvents Button1 As Button
End Class

120
Global_Indexer/Form1.resx Normal file
View File

@ -0,0 +1,120 @@
<?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>
</root>

8
Global_Indexer/Form1.vb Normal file
View File

@ -0,0 +1,8 @@
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
DocumentViewer1.Init(LOGCONFIG, VIEWER_LICENSE)
'\\dd-sto01\DD-DFSR01\SharedObjects\Public\Projekte\2.JPG
'\\dd-gan.local.digitaldata.works\DD-DFSR01\SharedObjects\Public\Projekte\2.JPG
DocumentViewer1.LoadFile("\\dd-gan.local.digitaldata.works\DD-DFSR01\UserObjects\UserFiles\schreiberm\Desktop\SimpleIndexer\File1.pdf")
End Sub
End Class

9
Global_Indexer/Global_Indexer.vbproj
View File

@ -246,6 +246,12 @@
<Compile Include="ClassWindream.vb" /> <Compile Include="ClassWindream.vb" />
<Compile Include="ClassEmailHeaderExtractor.vb" /> <Compile Include="ClassEmailHeaderExtractor.vb" />
<Compile Include="clsHotkey.vb" /> <Compile Include="clsHotkey.vb" />
<Compile Include="Form1.Designer.vb">
<DependentUpon>Form1.vb</DependentUpon>
</Compile>
<Compile Include="Form1.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmAdministration.Designer.vb"> <Compile Include="frmAdministration.Designer.vb">
<DependentUpon>frmAdministration.vb</DependentUpon> <DependentUpon>frmAdministration.vb</DependentUpon>
</Compile> </Compile>
@ -408,6 +414,9 @@
<EmbeddedResource Include="AboutBox1.resx"> <EmbeddedResource Include="AboutBox1.resx">
<DependentUpon>AboutBox1.vb</DependentUpon> <DependentUpon>AboutBox1.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>
<EmbeddedResource Include="Form1.resx">
<DependentUpon>Form1.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmAdministration.en-US.resx"> <EmbeddedResource Include="frmAdministration.en-US.resx">
<DependentUpon>frmAdministration.vb</DependentUpon> <DependentUpon>frmAdministration.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>

10
Global_Indexer/frmIndex.designer.vb generated
View File

@ -51,6 +51,7 @@ Partial Class frmIndex
Me.VWINDEX_AUTOMTableAdapter = New Global_Indexer.MyDatasetTableAdapters.VWDDINDEX_AUTOMTableAdapter() Me.VWINDEX_AUTOMTableAdapter = New Global_Indexer.MyDatasetTableAdapters.VWDDINDEX_AUTOMTableAdapter()
Me.PdfBarController1 = New DevExpress.XtraPdfViewer.Bars.PdfBarController(Me.components) Me.PdfBarController1 = New DevExpress.XtraPdfViewer.Bars.PdfBarController(Me.components)
Me.PdfBarController2 = New DevExpress.XtraPdfViewer.Bars.PdfBarController(Me.components) Me.PdfBarController2 = New DevExpress.XtraPdfViewer.Bars.PdfBarController(Me.components)
Me.Button2 = New System.Windows.Forms.Button()
Me.DocumentViewer1 = New DigitalData.Controls.DocumentViewer.DocumentViewer() Me.DocumentViewer1 = New DigitalData.Controls.DocumentViewer.DocumentViewer()
CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainer1.Panel1.SuspendLayout() Me.SplitContainer1.Panel1.SuspendLayout()
@ -91,6 +92,7 @@ Partial Class frmIndex
'Panel1 'Panel1
' '
Me.Panel1.BackColor = System.Drawing.SystemColors.ButtonHighlight Me.Panel1.BackColor = System.Drawing.SystemColors.ButtonHighlight
Me.Panel1.Controls.Add(Me.Button2)
Me.Panel1.Controls.Add(Me.CheckBox1) Me.Panel1.Controls.Add(Me.CheckBox1)
Me.Panel1.Controls.Add(Me.Button1) Me.Panel1.Controls.Add(Me.Button1)
Me.Panel1.Controls.Add(Me.ToolStrip1) Me.Panel1.Controls.Add(Me.ToolStrip1)
@ -252,6 +254,12 @@ Partial Class frmIndex
' '
Me.VWINDEX_AUTOMTableAdapter.ClearBeforeFill = True Me.VWINDEX_AUTOMTableAdapter.ClearBeforeFill = True
' '
'Button2
'
resources.ApplyResources(Me.Button2, "Button2")
Me.Button2.Name = "Button2"
Me.Button2.UseVisualStyleBackColor = True
'
'DocumentViewer1 'DocumentViewer1
' '
resources.ApplyResources(Me.DocumentViewer1, "DocumentViewer1") resources.ApplyResources(Me.DocumentViewer1, "DocumentViewer1")
@ -264,7 +272,6 @@ Partial Class frmIndex
Me.ControlBox = False Me.ControlBox = False
Me.Controls.Add(Me.SplitContainer1) Me.Controls.Add(Me.SplitContainer1)
Me.Controls.Add(Me.StatusStrip1) Me.Controls.Add(Me.StatusStrip1)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.SizableToolWindow
Me.MaximizeBox = False Me.MaximizeBox = False
Me.MinimizeBox = False Me.MinimizeBox = False
Me.Name = "frmIndex" Me.Name = "frmIndex"
@ -327,4 +334,5 @@ Partial Class frmIndex
Friend WithEvents Button1 As System.Windows.Forms.Button Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents CheckBox1 As System.Windows.Forms.CheckBox Friend WithEvents CheckBox1 As System.Windows.Forms.CheckBox
Friend WithEvents DocumentViewer1 As DigitalData.Controls.DocumentViewer.DocumentViewer Friend WithEvents DocumentViewer1 As DigitalData.Controls.DocumentViewer.DocumentViewer
Friend WithEvents Button2 As Button
End Class End Class

72
Global_Indexer/frmIndex.resx
View File

@ -156,6 +156,33 @@
<data name="&gt;&gt;pnlIndex.ZOrder" xml:space="preserve"> <data name="&gt;&gt;pnlIndex.ZOrder" xml:space="preserve">
<value>0</value> <value>0</value>
</data> </data>
<data name="Button2.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
<value>NoControl</value>
</data>
<data name="Button2.Location" type="System.Drawing.Point, System.Drawing">
<value>306, 71</value>
</data>
<data name="Button2.Size" type="System.Drawing.Size, System.Drawing">
<value>75, 23</value>
</data>
<data name="Button2.TabIndex" type="System.Int32, mscorlib">
<value>13</value>
</data>
<data name="Button2.Text" xml:space="preserve">
<value>Button2</value>
</data>
<data name="&gt;&gt;Button2.Name" xml:space="preserve">
<value>Button2</value>
</data>
<data name="&gt;&gt;Button2.Type" xml:space="preserve">
<value>System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;Button2.Parent" xml:space="preserve">
<value>Panel1</value>
</data>
<data name="&gt;&gt;Button2.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<data name="CheckBox1.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms"> <data name="CheckBox1.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Bottom, Right</value> <value>Bottom, Right</value>
</data> </data>
@ -165,6 +192,9 @@
<data name="CheckBox1.CheckAlign" type="System.Drawing.ContentAlignment, System.Drawing"> <data name="CheckBox1.CheckAlign" type="System.Drawing.ContentAlignment, System.Drawing">
<value>MiddleRight</value> <value>MiddleRight</value>
</data> </data>
<data name="CheckBox1.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
<value>NoControl</value>
</data>
<data name="CheckBox1.Location" type="System.Drawing.Point, System.Drawing"> <data name="CheckBox1.Location" type="System.Drawing.Point, System.Drawing">
<value>408, 76</value> <value>408, 76</value>
</data> </data>
@ -190,7 +220,7 @@
<value>Panel1</value> <value>Panel1</value>
</data> </data>
<data name="&gt;&gt;CheckBox1.ZOrder" xml:space="preserve"> <data name="&gt;&gt;CheckBox1.ZOrder" xml:space="preserve">
<value>0</value> <value>1</value>
</data> </data>
<data name="Button1.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms"> <data name="Button1.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Bottom, Right</value> <value>Bottom, Right</value>
@ -201,6 +231,9 @@
<data name="Button1.ImageAlign" type="System.Drawing.ContentAlignment, System.Drawing"> <data name="Button1.ImageAlign" type="System.Drawing.ContentAlignment, System.Drawing">
<value>MiddleLeft</value> <value>MiddleLeft</value>
</data> </data>
<data name="Button1.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
<value>NoControl</value>
</data>
<data name="Button1.Location" type="System.Drawing.Point, System.Drawing"> <data name="Button1.Location" type="System.Drawing.Point, System.Drawing">
<value>398, 40</value> <value>398, 40</value>
</data> </data>
@ -226,16 +259,16 @@
<value>Panel1</value> <value>Panel1</value>
</data> </data>
<data name="&gt;&gt;Button1.ZOrder" xml:space="preserve"> <data name="&gt;&gt;Button1.ZOrder" xml:space="preserve">
<value>1</value> <value>2</value>
</data> </data>
<metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>774, 56</value> <value>540, 56</value>
</metadata> </metadata>
<data name="ToolStripButton1.ImageTransparentColor" type="System.Drawing.Color, System.Drawing"> <data name="ToolStripButton1.ImageTransparentColor" type="System.Drawing.Color, System.Drawing">
<value>Magenta</value> <value>Magenta</value>
</data> </data>
<data name="ToolStripButton1.Size" type="System.Drawing.Size, System.Drawing"> <data name="ToolStripButton1.Size" type="System.Drawing.Size, System.Drawing">
<value>120, 24</value> <value>121, 24</value>
</data> </data>
<data name="ToolStripButton1.Text" xml:space="preserve"> <data name="ToolStripButton1.Text" xml:space="preserve">
<value>Top Most = False</value> <value>Top Most = False</value>
@ -262,7 +295,7 @@
<value>Panel1</value> <value>Panel1</value>
</data> </data>
<data name="&gt;&gt;ToolStrip1.ZOrder" xml:space="preserve"> <data name="&gt;&gt;ToolStrip1.ZOrder" xml:space="preserve">
<value>2</value> <value>3</value>
</data> </data>
<data name="lblerror.AutoSize" type="System.Boolean, mscorlib"> <data name="lblerror.AutoSize" type="System.Boolean, mscorlib">
<value>True</value> <value>True</value>
@ -270,6 +303,9 @@
<data name="lblerror.Font" type="System.Drawing.Font, System.Drawing"> <data name="lblerror.Font" type="System.Drawing.Font, System.Drawing">
<value>Verdana, 9.75pt</value> <value>Verdana, 9.75pt</value>
</data> </data>
<data name="lblerror.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
<value>NoControl</value>
</data>
<data name="lblerror.Location" type="System.Drawing.Point, System.Drawing"> <data name="lblerror.Location" type="System.Drawing.Point, System.Drawing">
<value>4, 78</value> <value>4, 78</value>
</data> </data>
@ -298,7 +334,7 @@
<value>Panel1</value> <value>Panel1</value>
</data> </data>
<data name="&gt;&gt;lblerror.ZOrder" xml:space="preserve"> <data name="&gt;&gt;lblerror.ZOrder" xml:space="preserve">
<value>3</value> <value>4</value>
</data> </data>
<data name="cmbDokumentart.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms"> <data name="cmbDokumentart.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Top, Left, Right</value> <value>Top, Left, Right</value>
@ -322,11 +358,14 @@
<value>Panel1</value> <value>Panel1</value>
</data> </data>
<data name="&gt;&gt;cmbDokumentart.ZOrder" xml:space="preserve"> <data name="&gt;&gt;cmbDokumentart.ZOrder" xml:space="preserve">
<value>4</value> <value>5</value>
</data> </data>
<data name="Label1.AutoSize" type="System.Boolean, mscorlib"> <data name="Label1.AutoSize" type="System.Boolean, mscorlib">
<value>True</value> <value>True</value>
</data> </data>
<data name="Label1.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
<value>NoControl</value>
</data>
<data name="Label1.Location" type="System.Drawing.Point, System.Drawing"> <data name="Label1.Location" type="System.Drawing.Point, System.Drawing">
<value>3, 25</value> <value>3, 25</value>
</data> </data>
@ -349,7 +388,7 @@
<value>Panel1</value> <value>Panel1</value>
</data> </data>
<data name="&gt;&gt;Label1.ZOrder" xml:space="preserve"> <data name="&gt;&gt;Label1.ZOrder" xml:space="preserve">
<value>5</value> <value>6</value>
</data> </data>
<data name="Panel1.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms"> <data name="Panel1.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
<value>Top</value> <value>Top</value>
@ -384,6 +423,9 @@
<data name="chkMultiIndexer.Font" type="System.Drawing.Font, System.Drawing"> <data name="chkMultiIndexer.Font" type="System.Drawing.Font, System.Drawing">
<value>Verdana, 9.75pt, style=Bold, Italic</value> <value>Verdana, 9.75pt, style=Bold, Italic</value>
</data> </data>
<data name="chkMultiIndexer.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
<value>NoControl</value>
</data>
<data name="chkMultiIndexer.Location" type="System.Drawing.Point, System.Drawing"> <data name="chkMultiIndexer.Location" type="System.Drawing.Point, System.Drawing">
<value>3, 39</value> <value>3, 39</value>
</data> </data>
@ -414,6 +456,9 @@
<data name="chkdelete_origin.Font" type="System.Drawing.Font, System.Drawing"> <data name="chkdelete_origin.Font" type="System.Drawing.Font, System.Drawing">
<value>Verdana, 9.75pt</value> <value>Verdana, 9.75pt</value>
</data> </data>
<data name="chkdelete_origin.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
<value>NoControl</value>
</data>
<data name="chkdelete_origin.Location" type="System.Drawing.Point, System.Drawing"> <data name="chkdelete_origin.Location" type="System.Drawing.Point, System.Drawing">
<value>3, 13</value> <value>3, 13</value>
</data> </data>
@ -447,6 +492,9 @@
<data name="Label2.Font" type="System.Drawing.Font, System.Drawing"> <data name="Label2.Font" type="System.Drawing.Font, System.Drawing">
<value>Verdana, 8.25pt</value> <value>Verdana, 8.25pt</value>
</data> </data>
<data name="Label2.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
<value>NoControl</value>
</data>
<data name="Label2.Location" type="System.Drawing.Point, System.Drawing"> <data name="Label2.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 62</value> <value>0, 62</value>
</data> </data>
@ -516,6 +564,9 @@
<data name="btnOK.ImageAlign" type="System.Drawing.ContentAlignment, System.Drawing"> <data name="btnOK.ImageAlign" type="System.Drawing.ContentAlignment, System.Drawing">
<value>MiddleLeft</value> <value>MiddleLeft</value>
</data> </data>
<data name="btnOK.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
<value>NoControl</value>
</data>
<data name="btnOK.Location" type="System.Drawing.Point, System.Drawing"> <data name="btnOK.Location" type="System.Drawing.Point, System.Drawing">
<value>378, 6</value> <value>378, 6</value>
</data> </data>
@ -715,7 +766,7 @@
<value>244, 56</value> <value>244, 56</value>
</metadata> </metadata>
<metadata name="PdfBarController2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="PdfBarController2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>509, 56</value> <value>392, 56</value>
</metadata> </metadata>
<metadata name="$this.Localizable" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089"> <metadata name="$this.Localizable" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value> <value>True</value>
@ -732,6 +783,9 @@
<data name="$this.Font" type="System.Drawing.Font, System.Drawing"> <data name="$this.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 9.75pt</value> <value>Segoe UI, 9.75pt</value>
</data> </data>
<data name="$this.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
<value>NoControl</value>
</data>
<data name="$this.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms"> <data name="$this.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
<value>3, 4, 3, 4</value> <value>3, 4, 3, 4</value>
</data> </data>

52
Global_Indexer/frmIndex.vb
View File

@ -33,15 +33,15 @@ Public Class frmIndex
'Dim DocView 'Dim DocView
'Dim viewer_string As String 'Dim viewer_string As String
Public Shared Function Instance() As frmIndex 'Public Shared Function Instance() As frmIndex
If _Instance Is Nothing OrElse _Instance.IsDisposed = True Then ' If _Instance Is Nothing OrElse _Instance.IsDisposed = True Then
_Instance = New frmIndex ' _Instance = New frmIndex
End If ' End If
_Instance.BringToFront() ' _Instance.BringToFront()
_Instance.TopMost = True ' _Instance.TopMost = True
_Instance.Focus() ' _Instance.Focus()
Return _Instance ' Return _Instance
End Function 'End Function
#End Region #End Region
'#Region "+++++ Allgemeine Funktionen ++++++" '#Region "+++++ Allgemeine Funktionen ++++++"
Sub ShowError(text As String) Sub ShowError(text As String)
@ -1902,14 +1902,13 @@ Public Class frmIndex
Private Sub frmIndex_FormClosing(sender As Object, e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing Private Sub frmIndex_FormClosing(sender As Object, e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
Try Try
' This prevents the thread issue when the form containing the viewer is opened via ShowDialog. ' This prevents the thread issue when the form containing the viewer is opened via ShowDialog.
DocumentViewer1.CloseFile() DocumentViewer1.Done()
DocumentViewer1.Dispose()
ClassWindowLocation.SaveFormLocationSize(Me) ClassWindowLocation.SaveFormLocationSize(Me)
My.Settings.Save() My.Settings.Save()
Catch ex As Exception Catch ex As Exception
ClassLogger.Add(" - Unexpected error in Schliessen des Formulares - Fehler: " & vbNewLine & ex.Message) ClassLogger.Add(" - Unexpected error in FormClosing: " & vbNewLine & ex.Message)
MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in Schliessen des Formulares:") MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in FormClosing:")
End Try End Try
End Sub End Sub
@ -1925,7 +1924,7 @@ Public Class frmIndex
VIEWER_LICENSE = ClassDatabase.Execute_Scalar("SELECT LICENSE FROM TBDD_3RD_PARTY_MODULES WHERE NAME = 'GDPICTURE'", MyConnectionString) VIEWER_LICENSE = ClassDatabase.Execute_Scalar("SELECT LICENSE FROM TBDD_3RD_PARTY_MODULES WHERE NAME = 'GDPICTURE'", MyConnectionString)
'TODO: Load License from DB 'TODO: Load License from DB
DocumentViewer1.Init(LOGCONFIG, VIEWER_LICENSE) 'DocumentViewer1.Init(LOGCONFIG, VIEWER_LICENSE)
CURRENT_DROPTYPE = DropType.Replace("|", "") CURRENT_DROPTYPE = DropType.Replace("|", "")
If DropType = "|DROPFROMFSYSTEM|" Then If DropType = "|DROPFROMFSYSTEM|" Then
@ -1980,7 +1979,7 @@ Public Class frmIndex
ClassWindowLocation.LoadFormLocationSize(Me) ClassWindowLocation.LoadFormLocationSize(Me)
If CONFIG.Config.FilePreview = True Then If CONFIG.Config.FilePreview = True Then
SplitContainer1.Panel2Collapsed = False SplitContainer1.Panel2Collapsed = False
PreviewFile() 'PreviewFile()
Me.tslblVorschau.Visible = True Me.tslblVorschau.Visible = True
Else Else
SplitContainer1.Panel2Collapsed = True SplitContainer1.Panel2Collapsed = True
@ -2020,17 +2019,9 @@ Public Class frmIndex
MsgBox("Unexpected error in Speichern der Verbindung: " & vbNewLine & ex.Message, MsgBoxStyle.Exclamation) MsgBox("Unexpected error in Speichern der Verbindung: " & vbNewLine & ex.Message, MsgBoxStyle.Exclamation)
End Try End Try
End Sub End Sub
Private Sub frmIndex_LocationChanged(sender As Object, e As EventArgs) Handles Me.LocationChanged
End Sub
Private Sub frmIndex_LostFocus(sender As Object, e As EventArgs) Handles Me.LostFocus
End Sub
Private Sub frmIndex_Shown(sender As Object, e As System.EventArgs) Handles Me.Shown Private Sub frmIndex_Shown(sender As Object, e As System.EventArgs) Handles Me.Shown
'Me.TopMost = True 'Me.TopMost = True
Me.BringToFront() 'Me.BringToFront()
Me.Focus() Me.Focus()
Me.Cursor = Cursors.Default Me.Cursor = Cursors.Default
Refresh_Dokart() Refresh_Dokart()
@ -2058,8 +2049,8 @@ Public Class frmIndex
Catch ex As Exception Catch ex As Exception
ClassLogger.Add(" - Unexpected error DTTBGI_REGEX_DOCTYPE - ErrorMessage: " & vbNewLine & ex.Message) ClassLogger.Add(" - Unexpected error DTTBGI_REGEX_DOCTYPE - ErrorMessage: " & vbNewLine & ex.Message)
End Try End Try
Me.TopMost = True ' Me.TopMost = True
Me.BringToFront() ' Me.BringToFront()
End Sub End Sub
Sub Refresh_Dokart() Sub Refresh_Dokart()
@ -2600,7 +2591,7 @@ Public Class frmIndex
If Name_Generieren() = True Then If Name_Generieren() = True Then
If LogErrorsOnly = False Then ClassLogger.Add(" ...Name_Generieren durchlaufen", False) If LogErrorsOnly = False Then ClassLogger.Add(" ...Name_Generieren durchlaufen", False)
'Dokumentenviewer ausblenden um keinen Zugriffsfehler zu produzieren 'Dokumentenviewer ausblenden um keinen Zugriffsfehler zu produzieren
DocumentViewer1.CloseFile() DocumentViewer1.Done()
If LogErrorsOnly = False Then ClassLogger.Add(" ...Viewer geschlossen", False) If LogErrorsOnly = False Then ClassLogger.Add(" ...Viewer geschlossen", False)
'Die Datei verschieben 'Die Datei verschieben
If Move_File2_Target() = True Then If Move_File2_Target() = True Then
@ -2614,7 +2605,7 @@ Public Class frmIndex
ElseIf DropType = "|ATTMNTEXTRACTED|" Or DropType = "|OUTLOOK_ATTACHMENT|" Then ElseIf DropType = "|ATTMNTEXTRACTED|" Or DropType = "|OUTLOOK_ATTACHMENT|" Then
'Die temporäre Datei löschen 'Die temporäre Datei löschen
If CURRENT_WORKFILE.EndsWith("pdf") Then If CURRENT_WORKFILE.EndsWith("pdf") Then
DocumentViewer1.CloseFile() DocumentViewer1.Done()
End If End If
DeleteFile() DeleteFile()
@ -3105,4 +3096,9 @@ Public Class frmIndex
End If End If
End If End If
End Sub End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
DocumentViewer1.Init(LOGCONFIG, VIEWER_LICENSE)
PreviewFile()
End Sub
End Class End Class

25
Global_Indexer/frmStart.Designer.vb generated
View File

@ -52,8 +52,11 @@ Partial Class frmStart
Me.TBHOTKEY_USER_PROFILETableAdapter = New Global_Indexer.MyDatasetTableAdapters.TBHOTKEY_USER_PROFILETableAdapter() Me.TBHOTKEY_USER_PROFILETableAdapter = New Global_Indexer.MyDatasetTableAdapters.TBHOTKEY_USER_PROFILETableAdapter()
Me.TableAdapterManager = New Global_Indexer.MyDatasetTableAdapters.TableAdapterManager() Me.TableAdapterManager = New Global_Indexer.MyDatasetTableAdapters.TableAdapterManager()
Me.btnChoosefiles = New System.Windows.Forms.Button() Me.btnChoosefiles = New System.Windows.Forms.Button()
Me.Button1 = New System.Windows.Forms.Button()
Me.MenuStrip1.SuspendLayout() Me.MenuStrip1.SuspendLayout()
Me.StatusStrip1.SuspendLayout() Me.StatusStrip1.SuspendLayout()
CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBHOTKEY_USER_PROFILEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout() Me.SuspendLayout()
' '
'MenuStrip1 'MenuStrip1
@ -148,6 +151,7 @@ Partial Class frmStart
' '
Me.LabelControl1.AllowDrop = True Me.LabelControl1.AllowDrop = True
Me.LabelControl1.Appearance.Font = CType(resources.GetObject("LabelControl1.Appearance.Font"), System.Drawing.Font) Me.LabelControl1.Appearance.Font = CType(resources.GetObject("LabelControl1.Appearance.Font"), System.Drawing.Font)
Me.LabelControl1.Appearance.Options.UseFont = True
resources.ApplyResources(Me.LabelControl1, "LabelControl1") resources.ApplyResources(Me.LabelControl1, "LabelControl1")
Me.LabelControl1.Name = "LabelControl1" Me.LabelControl1.Name = "LabelControl1"
' '
@ -161,28 +165,29 @@ Partial Class frmStart
resources.ApplyResources(Me.LabelMachine, "LabelMachine") resources.ApplyResources(Me.LabelMachine, "LabelMachine")
Me.LabelMachine.Id = 3 Me.LabelMachine.Id = 3
Me.LabelMachine.Name = "LabelMachine" Me.LabelMachine.Name = "LabelMachine"
Me.LabelMachine.TextAlignment = System.Drawing.StringAlignment.Near
' '
'LabelUser 'LabelUser
' '
resources.ApplyResources(Me.LabelUser, "LabelUser") resources.ApplyResources(Me.LabelUser, "LabelUser")
Me.LabelUser.Id = 4 Me.LabelUser.Id = 4
Me.LabelUser.Name = "LabelUser" Me.LabelUser.Name = "LabelUser"
Me.LabelUser.TextAlignment = System.Drawing.StringAlignment.Near
' '
'LabelLoggedIn 'LabelLoggedIn
' '
resources.ApplyResources(Me.LabelLoggedIn, "LabelLoggedIn") resources.ApplyResources(Me.LabelLoggedIn, "LabelLoggedIn")
Me.LabelLoggedIn.Id = 5 Me.LabelLoggedIn.Id = 5
Me.LabelLoggedIn.Name = "LabelLoggedIn" Me.LabelLoggedIn.Name = "LabelLoggedIn"
Me.LabelLoggedIn.TextAlignment = System.Drawing.StringAlignment.Near
' '
'LabelVersion 'LabelVersion
' '
resources.ApplyResources(Me.LabelVersion, "LabelVersion") resources.ApplyResources(Me.LabelVersion, "LabelVersion")
Me.LabelVersion.Id = 6 Me.LabelVersion.Id = 6
Me.LabelVersion.Name = "LabelVersion" Me.LabelVersion.Name = "LabelVersion"
Me.LabelVersion.TextAlignment = System.Drawing.StringAlignment.Near '
'MyDataset
'
Me.MyDataset.DataSetName = "MyDataset"
Me.MyDataset.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
' '
'TBHOTKEY_USER_PROFILETableAdapter 'TBHOTKEY_USER_PROFILETableAdapter
' '
@ -202,6 +207,7 @@ Partial Class frmStart
Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing
Me.TableAdapterManager.TBGI_CONFIGURATIONTableAdapter = Nothing Me.TableAdapterManager.TBGI_CONFIGURATIONTableAdapter = Nothing
Me.TableAdapterManager.TBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter = Nothing Me.TableAdapterManager.TBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter = Nothing
Me.TableAdapterManager.TBGI_REGEX_DOCTYPETableAdapter = Nothing
Me.TableAdapterManager.TBHOTKEY_PATTERNS_REWORKTableAdapter = Nothing Me.TableAdapterManager.TBHOTKEY_PATTERNS_REWORKTableAdapter = Nothing
Me.TableAdapterManager.TBHOTKEY_PATTERNSTableAdapter = Nothing Me.TableAdapterManager.TBHOTKEY_PATTERNSTableAdapter = Nothing
Me.TableAdapterManager.TBHOTKEY_PROFILETableAdapter = Nothing Me.TableAdapterManager.TBHOTKEY_PROFILETableAdapter = Nothing
@ -216,12 +222,19 @@ Partial Class frmStart
Me.btnChoosefiles.Name = "btnChoosefiles" Me.btnChoosefiles.Name = "btnChoosefiles"
Me.btnChoosefiles.UseVisualStyleBackColor = True Me.btnChoosefiles.UseVisualStyleBackColor = True
' '
'Button1
'
resources.ApplyResources(Me.Button1, "Button1")
Me.Button1.Name = "Button1"
Me.Button1.UseVisualStyleBackColor = True
'
'frmStart 'frmStart
' '
Me.AllowDrop = True Me.AllowDrop = True
resources.ApplyResources(Me, "$this") resources.ApplyResources(Me, "$this")
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.SystemColors.ControlLight Me.BackColor = System.Drawing.SystemColors.ControlLight
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.btnChoosefiles) Me.Controls.Add(Me.btnChoosefiles)
Me.Controls.Add(Me.LabelControl1) Me.Controls.Add(Me.LabelControl1)
Me.Controls.Add(Me.StatusStrip1) Me.Controls.Add(Me.StatusStrip1)
@ -230,11 +243,12 @@ Partial Class frmStart
Me.MaximizeBox = False Me.MaximizeBox = False
Me.Name = "frmStart" Me.Name = "frmStart"
Me.SizeGripStyle = System.Windows.Forms.SizeGripStyle.Hide Me.SizeGripStyle = System.Windows.Forms.SizeGripStyle.Hide
Me.TopMost = True
Me.MenuStrip1.ResumeLayout(False) Me.MenuStrip1.ResumeLayout(False)
Me.MenuStrip1.PerformLayout() Me.MenuStrip1.PerformLayout()
Me.StatusStrip1.ResumeLayout(False) Me.StatusStrip1.ResumeLayout(False)
Me.StatusStrip1.PerformLayout() Me.StatusStrip1.PerformLayout()
CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TBHOTKEY_USER_PROFILEBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False) Me.ResumeLayout(False)
Me.PerformLayout() Me.PerformLayout()
@ -267,4 +281,5 @@ Partial Class frmStart
Friend WithEvents LabelLoggedIn As DevExpress.XtraBars.BarStaticItem Friend WithEvents LabelLoggedIn As DevExpress.XtraBars.BarStaticItem
Friend WithEvents LabelVersion As DevExpress.XtraBars.BarStaticItem Friend WithEvents LabelVersion As DevExpress.XtraBars.BarStaticItem
Friend WithEvents RibbonMiniToolbar1 As DevExpress.XtraBars.Ribbon.RibbonMiniToolbar Friend WithEvents RibbonMiniToolbar1 As DevExpress.XtraBars.Ribbon.RibbonMiniToolbar
Friend WithEvents Button1 As Button
End Class End Class

140
Global_Indexer/frmStart.resx
View File

@ -118,46 +118,9 @@
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader> </resheader>
<metadata name="MenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="MenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value> <value>400, 17</value>
</metadata> </metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" /> <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="MenuStrip1.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 0</value>
</data>
<data name="MenuStrip1.Size" type="System.Drawing.Size, System.Drawing">
<value>294, 24</value>
</data>
<assembly alias="mscorlib" name="mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="MenuStrip1.TabIndex" type="System.Int32, mscorlib">
<value>5</value>
</data>
<data name="MenuStrip1.Text" xml:space="preserve">
<value>MenuStrip1</value>
</data>
<data name="&gt;&gt;MenuStrip1.Name" xml:space="preserve">
<value>MenuStrip1</value>
</data>
<data name="&gt;&gt;MenuStrip1.Type" xml:space="preserve">
<value>System.Windows.Forms.MenuStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;MenuStrip1.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="&gt;&gt;MenuStrip1.ZOrder" xml:space="preserve">
<value>3</value>
</data>
<data name="KonfigurationToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>108, 20</value>
</data>
<data name="KonfigurationToolStripMenuItem.Text" xml:space="preserve">
<value>Konfiguration</value>
</data>
<data name="AdministrationToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>220, 22</value>
</data>
<data name="AdministrationToolStripMenuItem.Text" xml:space="preserve">
<value>Administration</value>
</data>
<data name="GlobalIndexerEinstellungenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing"> <data name="GlobalIndexerEinstellungenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>231, 22</value> <value>231, 22</value>
</data> </data>
@ -170,6 +133,12 @@
<data name="HotkeyEisntellungenToolStripMenuItem.Text" xml:space="preserve"> <data name="HotkeyEisntellungenToolStripMenuItem.Text" xml:space="preserve">
<value>Hotkey - Einstellungen</value> <value>Hotkey - Einstellungen</value>
</data> </data>
<data name="AdministrationToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>220, 22</value>
</data>
<data name="AdministrationToolStripMenuItem.Text" xml:space="preserve">
<value>Administration</value>
</data>
<data name="ToolStripSeparator1.Size" type="System.Drawing.Size, System.Drawing"> <data name="ToolStripSeparator1.Size" type="System.Drawing.Size, System.Drawing">
<value>217, 6</value> <value>217, 6</value>
</data> </data>
@ -197,9 +166,49 @@
<data name="InfoToolStripMenuItem.Text" xml:space="preserve"> <data name="InfoToolStripMenuItem.Text" xml:space="preserve">
<value>Info</value> <value>Info</value>
</data> </data>
<data name="KonfigurationToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>108, 20</value>
</data>
<data name="KonfigurationToolStripMenuItem.Text" xml:space="preserve">
<value>Konfiguration</value>
</data>
<data name="MenuStrip1.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 0</value>
</data>
<data name="MenuStrip1.Size" type="System.Drawing.Size, System.Drawing">
<value>294, 24</value>
</data>
<assembly alias="mscorlib" name="mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="MenuStrip1.TabIndex" type="System.Int32, mscorlib">
<value>5</value>
</data>
<data name="MenuStrip1.Text" xml:space="preserve">
<value>MenuStrip1</value>
</data>
<data name="&gt;&gt;MenuStrip1.Name" xml:space="preserve">
<value>MenuStrip1</value>
</data>
<data name="&gt;&gt;MenuStrip1.Type" xml:space="preserve">
<value>System.Windows.Forms.MenuStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;MenuStrip1.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="&gt;&gt;MenuStrip1.ZOrder" xml:space="preserve">
<value>4</value>
</data>
<metadata name="StatusStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="StatusStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>132, 17</value> <value>515, 17</value>
</metadata> </metadata>
<data name="tslblFW.Size" type="System.Drawing.Size, System.Drawing">
<value>133, 17</value>
</data>
<data name="tslblFW.Text" xml:space="preserve">
<value>FolderWatch ist aktiv</value>
</data>
<data name="tslblFW.Visible" type="System.Boolean, mscorlib">
<value>False</value>
</data>
<data name="StatusStrip1.Location" type="System.Drawing.Point, System.Drawing"> <data name="StatusStrip1.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 128</value> <value>0, 128</value>
</data> </data>
@ -222,25 +231,16 @@
<value>$this</value> <value>$this</value>
</data> </data>
<data name="&gt;&gt;StatusStrip1.ZOrder" xml:space="preserve"> <data name="&gt;&gt;StatusStrip1.ZOrder" xml:space="preserve">
<value>2</value> <value>3</value>
</data>
<data name="tslblFW.Size" type="System.Drawing.Size, System.Drawing">
<value>133, 17</value>
</data>
<data name="tslblFW.Text" xml:space="preserve">
<value>FolderWatch ist aktiv</value>
</data>
<data name="tslblFW.Visible" type="System.Boolean, mscorlib">
<value>False</value>
</data> </data>
<metadata name="TimerFolderWatch.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="TimerFolderWatch.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1072, 17</value> <value>1072, 17</value>
</metadata> </metadata>
<metadata name="TimerClose3Minutes.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="TimerClose3Minutes.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1223, 17</value> <value>17, 56</value>
</metadata> </metadata>
<metadata name="NotifyIcon1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="NotifyIcon1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1386, 17</value> <value>180, 56</value>
</metadata> </metadata>
<data name="NotifyIcon1.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="NotifyIcon1.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
@ -533,7 +533,7 @@
<value>GlobalIndexer</value> <value>GlobalIndexer</value>
</data> </data>
<metadata name="TimerCheckDroppedFiles.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="TimerCheckDroppedFiles.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1501, 17</value> <value>295, 56</value>
</metadata> </metadata>
<data name="LabelControl1.Appearance.Font" type="System.Drawing.Font, System.Drawing"> <data name="LabelControl1.Appearance.Font" type="System.Drawing.Font, System.Drawing">
<value>Tahoma, 12pt</value> <value>Tahoma, 12pt</value>
@ -561,10 +561,10 @@ auf dieses Fenster oder...</value>
<value>$this</value> <value>$this</value>
</data> </data>
<data name="&gt;&gt;LabelControl1.ZOrder" xml:space="preserve"> <data name="&gt;&gt;LabelControl1.ZOrder" xml:space="preserve">
<value>1</value> <value>2</value>
</data> </data>
<metadata name="OpenFileDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="OpenFileDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1689, 17</value> <value>483, 56</value>
</metadata> </metadata>
<data name="LabelMachine.Caption" xml:space="preserve"> <data name="LabelMachine.Caption" xml:space="preserve">
<value>StatusMachine</value> <value>StatusMachine</value>
@ -579,7 +579,13 @@ auf dieses Fenster oder...</value>
<value>StatusVersion</value> <value>StatusVersion</value>
</data> </data>
<metadata name="RibbonMiniToolbar1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="RibbonMiniToolbar1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 56</value> <value>625, 56</value>
</metadata>
<metadata name="MyDataset.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<metadata name="TBHOTKEY_USER_PROFILEBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>127, 17</value>
</metadata> </metadata>
<metadata name="TBHOTKEY_USER_PROFILETableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="TBHOTKEY_USER_PROFILETableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>632, 17</value> <value>632, 17</value>
@ -616,6 +622,30 @@ auf dieses Fenster oder...</value>
<value>$this</value> <value>$this</value>
</data> </data>
<data name="&gt;&gt;btnChoosefiles.ZOrder" xml:space="preserve"> <data name="&gt;&gt;btnChoosefiles.ZOrder" xml:space="preserve">
<value>1</value>
</data>
<data name="Button1.Location" type="System.Drawing.Point, System.Drawing">
<value>207, 52</value>
</data>
<data name="Button1.Size" type="System.Drawing.Size, System.Drawing">
<value>75, 23</value>
</data>
<data name="Button1.TabIndex" type="System.Int32, mscorlib">
<value>10</value>
</data>
<data name="Button1.Text" xml:space="preserve">
<value>Button1</value>
</data>
<data name="&gt;&gt;Button1.Name" xml:space="preserve">
<value>Button1</value>
</data>
<data name="&gt;&gt;Button1.Type" xml:space="preserve">
<value>System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;Button1.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="&gt;&gt;Button1.ZOrder" xml:space="preserve">
<value>0</value> <value>0</value>
</data> </data>
<metadata name="$this.Localizable" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089"> <metadata name="$this.Localizable" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">

314
Global_Indexer/frmStart.vb
View File

@ -4,40 +4,13 @@ Imports Independentsoft
Imports DLLLicenseManager Imports DLLLicenseManager
Imports System.Text Imports System.Text
Imports System.Globalization Imports System.Globalization
Imports System.Threading 'Imports System.Threading
Imports System.Runtime.InteropServices Imports System.Runtime.InteropServices
Public Class frmStart Public Class frmStart
Public _lizenzManager As ClassLicenseManager Public _lizenzManager As ClassLicenseManager
Dim loaded As Boolean = False Dim loaded As Boolean = False
Dim WithEvents HotKey As New clsHotkey(Me) ' Dim WithEvents HotKey As New clsHotkey(Me)
'Public Sub SetLanguage()
' Dim de = System.Globalization.CultureInfo.CurrentUICulture
' 'Neue Sprache festlegen und entfernen aller Controls
' Thread.CurrentThread.CurrentUICulture = New CultureInfo(USER_LANGUAGE)
' Me.Controls.Clear()
' 'Me.Events.Dispose()
' InitializeComponent()
' tslblCultureInfo.Text = "Culture/Language: " & USER_LANGUAGE
' Try
' Dim Ic As Icon = New Icon(Application.StartupPath & "\DD_Icons_ICO_GLOBIX_128.ico")
' If Not IsNothing(Ic) Then
' Me.Icon = Ic
' End If
' Catch ex As Exception
' ClassLogger.Add(">> Icon file could not be read: " & ex.Message, False)
' End Try
' 'Me.i()
' 'Wiederherstellen der Fensterposition
' 'Me.Size = sz
' 'Me.Location = pt
'End Sub
Private Const mSnapOffset As Integer = 35 Private Const mSnapOffset As Integer = 35
Private Const WM_WINDOWPOSCHANGING As Integer = &H46 Private Const WM_WINDOWPOSCHANGING As Integer = &H46
@ -53,15 +26,15 @@ Public Class frmStart
Public flags As Integer Public flags As Integer
End Structure End Structure
Protected Overrides Sub WndProc(ByRef m As Message) 'Protected Overrides Sub WndProc(ByRef m As Message)
' Listen for operating system messages ' ' Listen for operating system messages
Select Case m.Msg ' Select Case m.Msg
Case WM_WINDOWPOSCHANGING ' Case WM_WINDOWPOSCHANGING
SnapToDesktopBorder(Me, m.LParam, 0) ' SnapToDesktopBorder(Me, m.LParam, 0)
End Select ' End Select
MyBase.WndProc(m) ' MyBase.WndProc(m)
End Sub 'End Sub
Public Shared Sub SnapToDesktopBorder(ByVal clientForm _ Public Shared Sub SnapToDesktopBorder(ByVal clientForm _
As Form, ByVal LParam As IntPtr, ByVal widthAdjustment As Integer) As Form, ByVal LParam As IntPtr, ByVal widthAdjustment As Integer)
If clientForm Is Nothing Then If clientForm Is Nothing Then
@ -162,60 +135,60 @@ Public Class frmStart
TimerCheckDroppedFiles.Start() TimerCheckDroppedFiles.Start()
End If End If
End Sub End Sub
Private Sub ReceiveHotKey(ByVal HotKeyID As String) Handles HotKey.HotKeyPressed 'Private Sub ReceiveHotKey(ByVal HotKeyID As String) Handles HotKey.HotKeyPressed
Dim CapTxt As String = ClassHotkey_Windream.GetCaption() ' Dim CapTxt As String = ClassHotkey_Windream.GetCaption()
CURRENT_FOCUSES_WINDOWNAME = CapTxt ' CURRENT_FOCUSES_WINDOWNAME = CapTxt
If CURRENT_FOCUSES_WINDOWNAME.ToUpper.StartsWith("GLOB") Then Exit Sub ' If CURRENT_FOCUSES_WINDOWNAME.ToUpper.StartsWith("GLOB") Then Exit Sub
If LogErrorsOnly = False Then ClassLogger.Add(" ...Focused window result: '" & CURRENT_FOCUSES_WINDOWNAME & "'", False) ' If LogErrorsOnly = False Then ClassLogger.Add(" ...Focused window result: '" & CURRENT_FOCUSES_WINDOWNAME & "'", False)
Me.Cursor = Cursors.WaitCursor ' Me.Cursor = Cursors.WaitCursor
Me.NotifyIcon1.Visible = True ' Me.NotifyIcon1.Visible = True
NotifyIcon1.ShowBalloonTip(1000, "Hotkey", "Hotkey wird ausgeführt!", ToolTipIcon.Info) ' NotifyIcon1.ShowBalloonTip(1000, "Hotkey", "Hotkey wird ausgeführt!", ToolTipIcon.Info)
Try ' Try
Dim _focusedWindowfound As Boolean = False ' Dim _focusedWindowfound As Boolean = False
Dim HK1 As String ' Dim HK1 As String
Dim HK2 As String ' Dim HK2 As String
'Die Hotkeys definieren ' 'Die Hotkeys definieren
Dim SQL As String = "SELECT * FROM TBHOTKEYTEMP_USER_HOTKEYS WHERE HOTKEY_ID = " & HotKeyID ' Dim SQL As String = "SELECT * FROM TBHOTKEYTEMP_USER_HOTKEYS WHERE HOTKEY_ID = " & HotKeyID
Dim DTHOTKEYSTEMP As DataTable = ClassDatabase.Return_Datatable(SQL, True) ' Dim DTHOTKEYSTEMP As DataTable = ClassDatabase.Return_Datatable(SQL, True)
If Not IsNothing(DTHOTKEYSTEMP) Then ' If Not IsNothing(DTHOTKEYSTEMP) Then
HK1 = DTHOTKEYSTEMP.Rows(0).Item("HOTKEY1") ' HK1 = DTHOTKEYSTEMP.Rows(0).Item("HOTKEY1")
HK2 = DTHOTKEYSTEMP.Rows(0).Item("HOTKEY2") ' HK2 = DTHOTKEYSTEMP.Rows(0).Item("HOTKEY2")
'Alle Profile raussuchen die die Tastaturkombination enthalten ' 'Alle Profile raussuchen die die Tastaturkombination enthalten
SQL = "select * from TBHOTKEY_USER_PROFILE where UPPER(HOTKEY1) = UPPER('" & HK1 & "') AND UPPER(HOTKEY2) = UPPER('" & HK2 & "') AND USER_ID = " & USER_ID ' SQL = "select * from TBHOTKEY_USER_PROFILE where UPPER(HOTKEY1) = UPPER('" & HK1 & "') AND UPPER(HOTKEY2) = UPPER('" & HK2 & "') AND USER_ID = " & USER_ID
Dim DTHOTKEY_PROFILES As DataTable = ClassDatabase.Return_Datatable(SQL, True) ' Dim DTHOTKEY_PROFILES As DataTable = ClassDatabase.Return_Datatable(SQL, True)
Dim Result As String = "" ' Dim Result As String = ""
If Not IsNothing(DTHOTKEY_PROFILES) Then ' If Not IsNothing(DTHOTKEY_PROFILES) Then
'Jedes Hotkeyprofil des Users durchlaufen um zu überprüfen ob das CURRENT_FOCUSES_WINDOWNAME = dem konfiguriertem ist ' 'Jedes Hotkeyprofil des Users durchlaufen um zu überprüfen ob das CURRENT_FOCUSES_WINDOWNAME = dem konfiguriertem ist
For Each row As DataRow In DTHOTKEY_PROFILES.Rows ' For Each row As DataRow In DTHOTKEY_PROFILES.Rows
SQL = "select WINDOW_NAME from TBHOTKEY_PROFILE where GUID = " & row.Item("HKPROFILE_ID") ' SQL = "select WINDOW_NAME from TBHOTKEY_PROFILE where GUID = " & row.Item("HKPROFILE_ID")
'Konfigurierte windows-String speichern ' 'Konfigurierte windows-String speichern
Dim windowconfigured = ClassDatabase.Execute_Scalar(SQL, MyConnectionString, True) ' Dim windowconfigured = ClassDatabase.Execute_Scalar(SQL, MyConnectionString, True)
'Focuses window enthalten?? ' 'Focuses window enthalten??
If CURRENT_FOCUSES_WINDOWNAME.ToUpper.Contains(windowconfigured.ToString.ToUpper) Or CURRENT_FOCUSES_WINDOWNAME.ToUpper = windowconfigured.ToString.ToUpper Then ' If CURRENT_FOCUSES_WINDOWNAME.ToUpper.Contains(windowconfigured.ToString.ToUpper) Or CURRENT_FOCUSES_WINDOWNAME.ToUpper = windowconfigured.ToString.ToUpper Then
'Ja - also die windream-Suche ausführen ' 'Ja - also die windream-Suche ausführen
_focusedWindowfound = True ' _focusedWindowfound = True
Result = ClassHotkey_Windream.RUN_WD_SEARCH(row.Item("GUID")) ' Result = ClassHotkey_Windream.RUN_WD_SEARCH(row.Item("GUID"))
End If ' End If
Next ' Next
If _focusedWindowfound = False Then ' If _focusedWindowfound = False Then
Result = "Focused Window not configured in hotkey" ' Result = "Focused Window not configured in hotkey"
End If ' End If
End If ' End If
If Result = "" Then ' If Result = "" Then
Me.NotifyIcon1.Visible = False ' Me.NotifyIcon1.Visible = False
Else ' Else
NotifyIcon1.ShowBalloonTip(5000, "Hotkey-Fehler:", Result.ToString, ToolTipIcon.Warning) ' NotifyIcon1.ShowBalloonTip(5000, "Hotkey-Fehler:", Result.ToString, ToolTipIcon.Warning)
End If ' End If
End If ' End If
Catch ex As Exception ' Catch ex As Exception
MsgBox("Error in ReceiveHotKey: " & ex.Message, MsgBoxStyle.Critical) ' MsgBox("Error in ReceiveHotKey: " & ex.Message, MsgBoxStyle.Critical)
End Try ' End Try
Me.Cursor = Cursors.Default ' Me.Cursor = Cursors.Default
End Sub 'End Sub
Private Sub frmMain_DragEnter(sender As Object, e As DragEventArgs) Handles Me.DragEnter Private Sub frmMain_DragEnter(sender As Object, e As DragEventArgs) Handles Me.DragEnter
Drag_Enter(sender, e) Drag_Enter(sender, e)
End Sub End Sub
@ -284,27 +257,21 @@ Public Class frmStart
End Try End Try
Me.TopMost = True Me.TopMost = True
End Sub End Sub
Sub MyBackgroundThread()
Dim frmCollection = System.Windows.Forms.Application.OpenForms
Do While frmCollection.OfType(Of frmIndex).Any
Loop
End Sub
Sub Open_IndexDialog() Sub Open_IndexDialog()
Try Try
Me.Hide() 'Me.Hide()
Me.TopMost = False 'Me.TopMost = False
frmIndex.ShowDialog() 'Unregister_Hotkeys()
frmIndex.Show()
'Dim thread As New Thread(AddressOf MyBackgroundThread) 'Dim thread As New Thread(AddressOf MyBackgroundThread)
'thread.Start() 'thread.Start()
'Do While thread.IsAlive 'Do While thread.IsAlive
'Loop 'Loop
Me.Visible = True 'Me.Visible = True
Me.TopMost = True ' Me.TopMost = True
Me.BringToFront() ' Me.BringToFront()
Catch ex As Exception Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical) MsgBox(ex.Message, MsgBoxStyle.Critical)
End Try End Try
@ -325,7 +292,7 @@ Public Class frmStart
MsgBox("Unexpected Error in Closing Application: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) MsgBox("Unexpected Error in Closing Application: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try End Try
If USER_ID > 0 Then If USER_ID > 0 Then
Unregister_Hotkeys() ' Unregister_Hotkeys()
End If End If
'TempDateien löschen 'TempDateien löschen
Try Try
@ -341,7 +308,7 @@ Public Class frmStart
Public Sub New() Public Sub New()
Dim splash As New frmSplash() Dim splash As New frmSplash()
splash.ShowDialog() splash.ShowDialog()
Thread.CurrentThread.CurrentUICulture = New CultureInfo(USER_LANGUAGE) 'Thread.CurrentThread.CurrentUICulture = New CultureInfo(USER_LANGUAGE)
' Dieser Aufruf ist für den Designer erforderlich. ' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent() InitializeComponent()
@ -407,9 +374,10 @@ Public Class frmStart
ToolStripSeparator1.Visible = False ToolStripSeparator1.Visible = False
AdministrationToolStripMenuItem.Visible = False AdministrationToolStripMenuItem.Visible = False
End If End If
VIEWER_LICENSE = ClassDatabase.Execute_Scalar("SELECT LICENSE FROM TBDD_3RD_PARTY_MODULES WHERE NAME = 'GDPICTURE'", MyConnectionString)
ClassDatabase.Execute_non_Query("DELETE FROM TBGI_FILES_USER WHERE UPPER(USER@WORK) = UPPER('" & Environment.UserName & "')", True) ClassDatabase.Execute_non_Query("DELETE FROM TBGI_FILES_USER WHERE UPPER(USER@WORK) = UPPER('" & Environment.UserName & "')", True)
Unregister_Hotkeys() ' Unregister_Hotkeys()
Load_Hotkeys() ' Load_Hotkeys()
Me.Opacity = 30 Me.Opacity = 30
Catch ex As Exception Catch ex As Exception
@ -512,71 +480,71 @@ Public Class frmStart
End If End If
End Sub End Sub
Sub Unregister_Hotkeys() 'Sub Unregister_Hotkeys()
Try ' Try
Dim sql As String = "Select * from TBHOTKEYTEMP_USER_HOTKEYS where [USER_ID] = " & USER_ID ' Dim sql As String = "Select * from TBHOTKEYTEMP_USER_HOTKEYS where [USER_ID] = " & USER_ID
Dim DT As DataTable = ClassDatabase.Return_Datatable(sql, True) ' Dim DT As DataTable = ClassDatabase.Return_Datatable(sql, True)
If Not IsNothing(DT) Then ' If Not IsNothing(DT) Then
For Each row As DataRow In DT.Rows ' For Each row As DataRow In DT.Rows
HotKey.RemoveHotKey(row.Item("HOTKEY_ID")) ' HotKey.RemoveHotKey(row.Item("HOTKEY_ID"))
Next ' Next
sql = "delete from TBHOTKEYTEMP_USER_HOTKEYS where [USER_ID] = " & USER_ID ' sql = "delete from TBHOTKEYTEMP_USER_HOTKEYS where [USER_ID] = " & USER_ID
ClassDatabase.Execute_non_Query(sql, True) ' ClassDatabase.Execute_non_Query(sql, True)
End If ' End If
Catch ex As Exception ' Catch ex As Exception
MsgBox("Error in Unregister_Hotkeys:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) ' MsgBox("Error in Unregister_Hotkeys:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try ' End Try
End Sub 'End Sub
Sub Load_Hotkeys() 'Sub Load_Hotkeys()
Try ' Try
Dim DT As DataTable = ClassDatabase.Return_Datatable("SELECT HOTKEY1, HOTKEY2, ABS(CONVERT(INT, CONVERT(binary(4), NEWID()))) AS HOTKEY_ID FROM TBHOTKEY_USER_PROFILE WHERE USER_ID = " & USER_ID & " GROUP BY HOTKEY1, HOTKEY2", True) ' Dim DT As DataTable = ClassDatabase.Return_Datatable("SELECT HOTKEY1, HOTKEY2, ABS(CONVERT(INT, CONVERT(binary(4), NEWID()))) AS HOTKEY_ID FROM TBHOTKEY_USER_PROFILE WHERE USER_ID = " & USER_ID & " GROUP BY HOTKEY1, HOTKEY2", True)
If DT.Rows.Count > 0 Then ' If DT.Rows.Count > 0 Then
If LogErrorsOnly = False Then ClassLogger.Add(" >> " & DT.Rows.Count & " Hotkey-Profile", False) ' If LogErrorsOnly = False Then ClassLogger.Add(" >> " & DT.Rows.Count & " Hotkey-Profile", False)
Dim i As Integer = 0 ' Dim i As Integer = 0
For Each row As DataRow In DT.Rows ' For Each row As DataRow In DT.Rows
i += 1 ' i += 1
Dim sql As String = "INSERT INTO TBHOTKEYTEMP_USER_HOTKEYS (HOTKEY_ID,HOTKEY1,HOTKEY2,[USER_ID]) VALUES (" & row.Item("HOTKEY_ID") & ", '" & row.Item("HOTKEY1") & "', '" & row.Item("HOTKEY2") & "', " & USER_ID & ")" ' Dim sql As String = "INSERT INTO TBHOTKEYTEMP_USER_HOTKEYS (HOTKEY_ID,HOTKEY1,HOTKEY2,[USER_ID]) VALUES (" & row.Item("HOTKEY_ID") & ", '" & row.Item("HOTKEY1") & "', '" & row.Item("HOTKEY2") & "', " & USER_ID & ")"
ClassDatabase.Execute_non_Query(sql, True) ' ClassDatabase.Execute_non_Query(sql, True)
Dim keyCode As Keys ' Dim keyCode As Keys
Try ' Try
Dim kc As New KeysConverter ' Dim kc As New KeysConverter
Dim obj As Object = kc.ConvertFromString(row.Item("HOTKEY2").ToString.ToUpper) ' Dim obj As Object = kc.ConvertFromString(row.Item("HOTKEY2").ToString.ToUpper)
keyCode = CType(obj, Keys) ' keyCode = CType(obj, Keys)
Catch ex As Exception ' Catch ex As Exception
MsgBox("Error in Convert Key:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) ' MsgBox("Error in Convert Key:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
Exit Sub ' Exit Sub
End Try ' End Try
Select Case row.Item("HOTKEY1") ' Select Case row.Item("HOTKEY1")
Case "Strg" ' Case "Strg"
If LogErrorsOnly = False Then ClassLogger.Add(" >>" & i.ToString + "|Strg " & row.Item("HOTKEY2").ToString.ToUpper, False) ' If LogErrorsOnly = False Then ClassLogger.Add(" >>" & i.ToString + "|Strg " & row.Item("HOTKEY2").ToString.ToUpper, False)
HotKey.AddHotKey(keyCode, clsHotkey.MODKEY.MOD_CONTROL, row.Item("HOTKEY_ID")) ' HotKey.AddHotKey(keyCode, clsHotkey.MODKEY.MOD_CONTROL, row.Item("HOTKEY_ID"))
Case "Shift" ' Case "Shift"
If LogErrorsOnly = False Then ClassLogger.Add(" >>" & i.ToString + "|Shift " & row.Item("HOTKEY2").ToString.ToUpper, False) ' If LogErrorsOnly = False Then ClassLogger.Add(" >>" & i.ToString + "|Shift " & row.Item("HOTKEY2").ToString.ToUpper, False)
HotKey.AddHotKey(keyCode, clsHotkey.MODKEY.MOD_SHIFT, row.Item("HOTKEY_ID")) ' HotKey.AddHotKey(keyCode, clsHotkey.MODKEY.MOD_SHIFT, row.Item("HOTKEY_ID"))
Case "Alt" ' Case "Alt"
If LogErrorsOnly = False Then ClassLogger.Add(" >>" & i.ToString + "|Alt " & row.Item("HOTKEY2").ToString.ToUpper, False) ' If LogErrorsOnly = False Then ClassLogger.Add(" >>" & i.ToString + "|Alt " & row.Item("HOTKEY2").ToString.ToUpper, False)
HotKey.AddHotKey(keyCode, clsHotkey.MODKEY.MOD_ALT, row.Item("HOTKEY_ID")) ' HotKey.AddHotKey(keyCode, clsHotkey.MODKEY.MOD_ALT, row.Item("HOTKEY_ID"))
Case "win" ' Case "win"
If LogErrorsOnly = False Then ClassLogger.Add(" >>" & i.ToString + "|Win " & row.Item("HOTKEY2").ToString.ToUpper, False) ' If LogErrorsOnly = False Then ClassLogger.Add(" >>" & i.ToString + "|Win " & row.Item("HOTKEY2").ToString.ToUpper, False)
HotKey.AddHotKey(keyCode, clsHotkey.MODKEY.MOD_WIN, row.Item("HOTKEY_ID")) ' HotKey.AddHotKey(keyCode, clsHotkey.MODKEY.MOD_WIN, row.Item("HOTKEY_ID"))
End Select ' End Select
Next ' Next
Else ' Else
If LogErrorsOnly = False Then ClassLogger.Add(" >> Keine Hotkeys!", False) ' If LogErrorsOnly = False Then ClassLogger.Add(" >> Keine Hotkeys!", False)
End If ' End If
Catch ex As Exception ' Catch ex As Exception
MsgBox("Error in Load_Hotkeys:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) ' MsgBox("Error in Load_Hotkeys:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try ' End Try
End Sub 'End Sub
Private Sub HotkeyEisntellungenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles HotkeyEisntellungenToolStripMenuItem.Click Private Sub HotkeyEisntellungenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles HotkeyEisntellungenToolStripMenuItem.Click
If ClassLicence.license_is_Valid = True Then If ClassLicence.license_is_Valid = True Then
Me.Hide() Me.Hide()
Unregister_Hotkeys() 'Unregister_Hotkeys()
frmHotKey_Add.ShowDialog() frmHotKey_Add.ShowDialog()
Load_Hotkeys() 'Load_Hotkeys()
Me.Visible = True Me.Visible = True
End If End If
@ -618,9 +586,9 @@ Public Class frmStart
Private Sub FrmHotkeyAddToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles FrmHotkeyAddToolStripMenuItem.Click Private Sub FrmHotkeyAddToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles FrmHotkeyAddToolStripMenuItem.Click
If ClassLicence.license_is_Valid = True Then If ClassLicence.license_is_Valid = True Then
Me.Hide() Me.Hide()
Unregister_Hotkeys() 'Unregister_Hotkeys()
frmHotkey_User.ShowDialog() frmHotkey_User.ShowDialog()
Load_Hotkeys() 'Load_Hotkeys()
Me.Visible = True Me.Visible = True
End If End If
@ -668,7 +636,10 @@ Public Class frmStart
CURRENT_WORKFILE = FileForWork CURRENT_WORKFILE = FileForWork
CURRENT_FILENAME = FileForWork CURRENT_FILENAME = FileForWork
CURRENT_WORKFILE_GUID = row.Item("GUID") CURRENT_WORKFILE_GUID = row.Item("GUID")
Open_IndexDialog() If Not Application.OpenForms().OfType(Of frmIndex).Any Then
'Open_IndexDialog()
End If
Else Else
ClassLogger.Add(">> File not existing - Row will be deleted!", False) ClassLogger.Add(">> File not existing - Row will be deleted!", False)
Dim del = String.Format("DELETE FROM TBGI_FILES_USER WHERE GUID = {0}", FILEGUID) Dim del = String.Format("DELETE FROM TBGI_FILES_USER WHERE GUID = {0}", FILEGUID)
@ -792,4 +763,15 @@ Public Class frmStart
End Try End Try
End Sub End Sub
Private Sub KonfigurationToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles KonfigurationToolStripMenuItem.Click
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
CURRENT_FILENAME = "\\dd-gan.local.digitaldata.works\DD-DFSR01\UserObjects\UserFiles\schreiberm\Desktop\SimpleIndexer\Briefbogen_gbr.pdf"
CURRENT_WORKFILE_GUID = 515
CURRENT_WORKFILE = CURRENT_FILENAME
Form1.Show()
End Sub
End Class End Class

3
SetupWix/Product.wxs
View File

@ -113,11 +113,12 @@
<File Id="Filesystem" Name="DigitalData.Modules.Filesystem.dll" Source="DigitalData.Modules.Filesystem.dll" KeyPath="no" /> <File Id="Filesystem" Name="DigitalData.Modules.Filesystem.dll" Source="DigitalData.Modules.Filesystem.dll" KeyPath="no" />
<File Id="Config" Name="DigitalData.Modules.Config.dll" Source="DigitalData.Modules.Config.dll" KeyPath="no" /> <File Id="Config" Name="DigitalData.Modules.Config.dll" Source="DigitalData.Modules.Config.dll" KeyPath="no" />
<File Id="DLLLicenseManager" Name="DLLLicenseManager.dll" Source="P:\Visual Studio Projekte\Bibliotheken\DLLLicenseManager.dll" KeyPath="no" /> <File Id="DLLLicenseManager" Name="DLLLicenseManager.dll" Source="P:\Visual Studio Projekte\Bibliotheken\DLLLicenseManager.dll" KeyPath="no" />
<File Id="DocumentViewer" Name="DocumentViewer.dll.dll" Source="DocumentViewer.dll" KeyPath="no" />
</Component> </Component>
<!--Verschiedene Bibliotheken--> <!--Verschiedene Bibliotheken-->
<Component Id="MiscLibs" Guid="56bb39d9-101a-411d-8b11-5d4e3a602275"> <Component Id="MiscLibs" Guid="56bb39d9-101a-411d-8b11-5d4e3a602275">
<File Id="MSGLib" Name="Independentsoft.Msg.dll" Source="P:\Visual Studio Projekte\Bibliotheken\MSG .NET\Bin\Independentsoft.Msg.dll" KeyPath="yes" /> <File Id="MSGLib" Name="Independentsoft.Msg.dll" Source="P:Visual Studio Projekte\Bibliotheken\MSG .NET\Bin\14_11_19_MIME_UTF_ENCODING\Independentsoft.Msg.dll" KeyPath="yes" />
<File Id="NLog" Name="NLog.dll" Source="NLog.dll" KeyPath="no" /> <File Id="NLog" Name="NLog.dll" Source="NLog.dll" KeyPath="no" />
</Component> </Component>