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

MS

Browse Source
This commit is contained in:
SchreiberM 2017-02-08 15:39:43 +01:00
parent be2c0c0f48
commit 3a2dadb3ee
15 changed files with 3367 additions and 3361 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
DD_Clipboard_Searcher.v12.suo
View File

Binary file not shown.

330
DD_Clipboard_Searcher/ClassLayout.vb
View File

@ -1,165 +1,165 @@
Imports System.Xml Imports System.Xml
Imports System.IO Imports System.IO
Public Class ClassWindowLocation Public Class ClassWindowLocation
Public Shared Sub LoadFormLocationSize(ByRef form As Form, Optional Prefix As String = "") Public Shared Sub LoadFormLocationSize(ByRef form As Form, Optional Prefix As String = "")
Try Try
Dim LayoutPath As String Dim LayoutPath As String
LayoutPath = Path.Combine(Application.UserAppDataPath(), Prefix & form.Name & "-PositionSize.xml") LayoutPath = Path.Combine(Application.UserAppDataPath(), Prefix & form.Name & "-PositionSize.xml")
Dim layout As ClassLayout = New ClassLayout(LayoutPath) Dim layout As ClassLayout = New ClassLayout(LayoutPath)
Dim settings As System.Collections.Generic.List(Of ClassSetting) Dim settings As System.Collections.Generic.List(Of ClassSetting)
settings = layout.Load() settings = layout.Load()
If settings.Count = 0 Then If settings.Count = 0 Then
settings.Add(New ClassSetting("PositionX", form.Location.X)) settings.Add(New ClassSetting("PositionX", form.Location.X))
settings.Add(New ClassSetting("PositionY", form.Location.Y)) settings.Add(New ClassSetting("PositionY", form.Location.Y))
settings.Add(New ClassSetting("Width", form.Size.Width)) settings.Add(New ClassSetting("Width", form.Size.Width))
settings.Add(New ClassSetting("Height", form.Size.Height)) settings.Add(New ClassSetting("Height", form.Size.Height))
layout.Save(settings) layout.Save(settings)
End If End If
For Each s As ClassSetting In settings For Each s As ClassSetting In settings
Dim x, y, w, h As Integer Dim x, y, w, h As Integer
Select Case s._name Select Case s._name
Case "PositionX" Case "PositionX"
x = Integer.Parse(s._value) x = Integer.Parse(s._value)
Case "PositionY" Case "PositionY"
y = Integer.Parse(s._value) y = Integer.Parse(s._value)
Case "Width" Case "Width"
w = Integer.Parse(s._value) w = Integer.Parse(s._value)
Case "Height" Case "Height"
h = Integer.Parse(s._value) h = Integer.Parse(s._value)
End Select End Select
If x = 5000 Then If x = 5000 Then
form.WindowState = FormWindowState.Maximized form.WindowState = FormWindowState.Maximized
Else Else
If x > 0 Then If x > 0 Then
form.Location = New Point(x, y) form.Location = New Point(x, y)
form.Size = New Size(w, h) form.Size = New Size(w, h)
End If End If
End If End If
Next Next
Catch notFoundEx As System.IO.FileNotFoundException Catch notFoundEx As System.IO.FileNotFoundException
ClassLogger.Add("Window Position & Size added for Form " & form.Name) ClassLogger.Add("Window Position & Size added for Form " & form.Name)
Catch ex As Exception Catch ex As Exception
MsgBox("Error while loading Window Position!" & vbNewLine & ex.Message, MsgBoxStyle.Critical) MsgBox("Error while loading Window Position!" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try End Try
End Sub End Sub
Public Shared Sub SaveFormLocationSize(ByRef form As Form, Optional Prefix As String = "") Public Shared Sub SaveFormLocationSize(ByRef form As Form, Optional Prefix As String = "")
Try Try
Dim _path As String Dim _path As String
_path = Path.Combine(Application.UserAppDataPath(), Prefix & form.Name & "-PositionSize.xml") _path = Path.Combine(Application.UserAppDataPath(), Prefix & form.Name & "-PositionSize.xml")
Dim layout As ClassLayout = New ClassLayout(_path) Dim layout As ClassLayout = New ClassLayout(_path)
Dim settings As System.Collections.Generic.List(Of ClassSetting) = New System.Collections.Generic.List(Of ClassSetting) Dim settings As System.Collections.Generic.List(Of ClassSetting) = New System.Collections.Generic.List(Of ClassSetting)
Dim width As Integer Dim width As Integer
Dim height As Integer Dim height As Integer
Dim x As Integer Dim x As Integer
Dim y As Integer Dim y As Integer
If form.WindowState = FormWindowState.Maximized Then If form.WindowState = FormWindowState.Maximized Then
width = 5000 width = 5000
height = 5000 height = 5000
x = 5000 x = 5000
y = 5000 y = 5000
Else Else
width = form.Size.Width width = form.Size.Width
height = form.Size.Height height = form.Size.Height
x = form.Location.X x = form.Location.X
y = form.Location.Y y = form.Location.Y
End If End If
settings.Add(New ClassSetting("PositionX", x)) settings.Add(New ClassSetting("PositionX", x))
settings.Add(New ClassSetting("PositionY", y)) settings.Add(New ClassSetting("PositionY", y))
settings.Add(New ClassSetting("Width", width)) settings.Add(New ClassSetting("Width", width))
settings.Add(New ClassSetting("Height", height)) settings.Add(New ClassSetting("Height", height))
layout.Save(settings) layout.Save(settings)
Catch notFoundEx As System.IO.FileNotFoundException Catch notFoundEx As System.IO.FileNotFoundException
ClassLogger.Add("Window Position & Size added for Form " & form.Name) ClassLogger.Add("Window Position & Size added for Form " & form.Name)
Catch ex As Exception Catch ex As Exception
MsgBox("Error while saving Window Position!" & vbNewLine & ex.Message, MsgBoxStyle.Critical) MsgBox("Error while saving Window Position!" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try End Try
End Sub End Sub
End Class End Class
'------------------------------------------------------------------- '-------------------------------------------------------------------
Public Class ClassSetting Public Class ClassSetting
Public _name As String Public _name As String
Public _value As String Public _value As String
Public Sub New(name As String, value As String) Public Sub New(name As String, value As String)
_name = name _name = name
_value = value _value = value
End Sub End Sub
End Class End Class
Public Class ClassLayout Public Class ClassLayout
Private _filename As String Private _filename As String
Private _reader As XmlReader Private _reader As XmlReader
Private _settings As XmlWriterSettings Private _settings As XmlWriterSettings
Public Sub New(filename As String) Public Sub New(filename As String)
_filename = filename _filename = filename
_settings = New XmlWriterSettings() _settings = New XmlWriterSettings()
_settings.Encoding = System.Text.Encoding.UTF8 _settings.Encoding = System.Text.Encoding.UTF8
_settings.Indent = True _settings.Indent = True
End Sub End Sub
Public Sub Save(settings As System.Collections.Generic.List(Of ClassSetting)) Public Sub Save(settings As System.Collections.Generic.List(Of ClassSetting))
Dim w = XmlTextWriter.Create(_filename, _settings) Dim w = XmlTextWriter.Create(_filename, _settings)
w.WriteStartDocument() w.WriteStartDocument()
w.WriteStartElement("Settings") w.WriteStartElement("Settings")
For Each setting As ClassSetting In settings For Each setting As ClassSetting In settings
w.WriteStartElement("Setting") w.WriteStartElement("Setting")
w.WriteAttributeString("name", setting._name) w.WriteAttributeString("name", setting._name)
w.WriteAttributeString("value", setting._value.ToString()) w.WriteAttributeString("value", setting._value.ToString())
w.WriteEndElement() w.WriteEndElement()
Next Next
w.WriteEndElement() w.WriteEndElement()
w.WriteEndDocument() w.WriteEndDocument()
w.Dispose() w.Dispose()
w.Close() w.Close()
End Sub End Sub
Public Function Load() As System.Collections.Generic.List(Of ClassSetting) Public Function Load() As System.Collections.Generic.List(Of ClassSetting)
Dim Result As List(Of ClassSetting) = New List(Of ClassSetting)() Dim Result As List(Of ClassSetting) = New List(Of ClassSetting)()
If Not File.Exists(_filename) Then If Not File.Exists(_filename) Then
Return Result Return Result
End If End If
_reader = XmlReader.Create(_filename) _reader = XmlReader.Create(_filename)
While _reader.Read() While _reader.Read()
If _reader.IsStartElement() Then If _reader.IsStartElement() Then
If _reader.Name = "Setting" Then If _reader.Name = "Setting" Then
Dim name As String = _reader("name") Dim name As String = _reader("name")
' Dim value As Integer = Integer.Parse(_reader("value")) ' Dim value As Integer = Integer.Parse(_reader("value"))
Dim setting As ClassSetting = New ClassSetting(name, _reader("value")) 'value) Dim setting As ClassSetting = New ClassSetting(name, _reader("value")) 'value)
Result.Add(setting) Result.Add(setting)
End If End If
End If End If
End While End While
_reader.Dispose() _reader.Dispose()
_reader.Close() _reader.Close()
Return Result Return Result
End Function End Function
End Class End Class

7
DD_Clipboard_Searcher/DD_Clipboard_Searcher.vbproj
View File

@ -46,6 +46,9 @@
<PropertyGroup> <PropertyGroup>
<OptionInfer>On</OptionInfer> <OptionInfer>On</OptionInfer>
</PropertyGroup> </PropertyGroup>
<PropertyGroup>
<ApplicationIcon>KeyOutput_8167.ico</ApplicationIcon>
</PropertyGroup>
<ItemGroup> <ItemGroup>
<Reference Include="DD_LIB_Standards, Version=1.0.0.0, Culture=neutral, processorArchitecture=MSIL"> <Reference Include="DD_LIB_Standards, Version=1.0.0.0, Culture=neutral, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
@ -213,6 +216,10 @@
<ItemGroup> <ItemGroup>
<None Include="Resources\Annotation_New.png" /> <None Include="Resources\Annotation_New.png" />
</ItemGroup> </ItemGroup>
<ItemGroup>
<Content Include="KeyOutput_8167.ico" />
<None Include="Resources\KeyOutput_8167.png" />
</ItemGroup>
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" /> <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
<!-- To modify your build process, add your task inside one of the targets below and uncomment it. <!-- 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. Other similar extension points exist, see Microsoft.Common.targets.

BIN
DD_Clipboard_Searcher/KeyOutput_8167.ico Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 2.8 KiB

70
DD_Clipboard_Searcher/My Project/AssemblyInfo.vb
View File

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

10
DD_Clipboard_Searcher/My Project/Resources.Designer.vb generated
View File

@ -110,6 +110,16 @@ Namespace My.Resources
End Get End Get
End Property End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property KeyOutput_8167() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("KeyOutput_8167", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary> '''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary> '''</summary>

21
DD_Clipboard_Searcher/My Project/Resources.resx
View File

@ -118,22 +118,25 @@
<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>
<assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" /> <assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="KeyDown_8461" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\KeyDown_8461.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="folder_Open_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\folder_Open_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="GoToDefinition_5575" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="GoToDefinition_5575" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\GoToDefinition_5575.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\GoToDefinition_5575.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="StatusAnnotations_Stop_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="StatusAnnotations_Stop_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\StatusAnnotations_Stop_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\StatusAnnotations_Stop_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="control_start_blue" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\control_start_blue.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Annotation_New" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="Annotation_New" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Annotation_New.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\Annotation_New.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="KeyDown_8461" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\KeyDown_8461.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="folder_Open_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\folder_Open_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="control_start_blue" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\control_start_blue.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="KeyOutput_8167" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\KeyOutput_8167.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
</root> </root>

BIN
DD_Clipboard_Searcher/Resources/KeyOutput_8167.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 227 B

BIN
DD_Clipboard_Searcher/bin/Debug/DD_Clipboard_Searcher.exe
View File

Binary file not shown.

BIN
DD_Clipboard_Searcher/bin/Debug/DD_Clipboard_Searcher.pdb
View File

Binary file not shown.

4
DD_Clipboard_Searcher/bin/Debug/DD_Clipboard_Searcher.xml
View File

@ -173,6 +173,10 @@ TableAdapterManager is used to coordinate TableAdapters in the dataset to enable
<summary> <summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary> </summary>
</member><member name="P:DD_Clipboard_Searcher.My.Resources.Resources.KeyOutput_8167">
<summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary>
</member><member name="P:DD_Clipboard_Searcher.My.Resources.Resources.StatusAnnotations_Stop_16xLG"> </member><member name="P:DD_Clipboard_Searcher.My.Resources.Resources.StatusAnnotations_Stop_16xLG">
<summary> <summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.

42
DD_Clipboard_Searcher/frmMain.Designer.vb generated
View File

@ -26,11 +26,11 @@ Partial Class frmMain
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMain)) Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMain))
Me.NotifyIcon1 = New System.Windows.Forms.NotifyIcon(Me.components) Me.NotifyIcon1 = New System.Windows.Forms.NotifyIcon(Me.components)
Me.cmstrpNotifyIcon = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.cmstrpNotifyIcon = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.StatusStrip1 = New System.Windows.Forms.StatusStrip()
Me.btnAdminConfig = New System.Windows.Forms.Button()
Me.tslblUser = New System.Windows.Forms.ToolStripStatusLabel()
Me.btnUserConfig = New System.Windows.Forms.Button()
Me.tsmiChangeState = New System.Windows.Forms.ToolStripMenuItem() Me.tsmiChangeState = New System.Windows.Forms.ToolStripMenuItem()
Me.StatusStrip1 = New System.Windows.Forms.StatusStrip()
Me.tslblUser = New System.Windows.Forms.ToolStripStatusLabel()
Me.btnAdminConfig = New System.Windows.Forms.Button()
Me.btnUserConfig = New System.Windows.Forms.Button()
Me.TimerClose = New System.Windows.Forms.Timer(Me.components) Me.TimerClose = New System.Windows.Forms.Timer(Me.components)
Me.cmstrpNotifyIcon.SuspendLayout() Me.cmstrpNotifyIcon.SuspendLayout()
Me.StatusStrip1.SuspendLayout() Me.StatusStrip1.SuspendLayout()
@ -52,15 +52,29 @@ Partial Class frmMain
Me.cmstrpNotifyIcon.Name = "cmstrpNotifyIcon" Me.cmstrpNotifyIcon.Name = "cmstrpNotifyIcon"
Me.cmstrpNotifyIcon.Size = New System.Drawing.Size(250, 26) Me.cmstrpNotifyIcon.Size = New System.Drawing.Size(250, 26)
' '
'tsmiChangeState
'
Me.tsmiChangeState.Image = Global.DD_Clipboard_Searcher.My.Resources.Resources.StatusAnnotations_Stop_16xLG
Me.tsmiChangeState.Name = "tsmiChangeState"
Me.tsmiChangeState.Size = New System.Drawing.Size(249, 22)
Me.tsmiChangeState.Tag = "stop"
Me.tsmiChangeState.Text = "Überwachung Clipboard stoppen"
'
'StatusStrip1 'StatusStrip1
' '
Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tslblUser}) Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tslblUser})
Me.StatusStrip1.Location = New System.Drawing.Point(0, 54) Me.StatusStrip1.Location = New System.Drawing.Point(0, 99)
Me.StatusStrip1.Name = "StatusStrip1" Me.StatusStrip1.Name = "StatusStrip1"
Me.StatusStrip1.Size = New System.Drawing.Size(337, 22) Me.StatusStrip1.Size = New System.Drawing.Size(455, 22)
Me.StatusStrip1.TabIndex = 3 Me.StatusStrip1.TabIndex = 3
Me.StatusStrip1.Text = "StatusStrip1" Me.StatusStrip1.Text = "StatusStrip1"
' '
'tslblUser
'
Me.tslblUser.Image = CType(resources.GetObject("tslblUser.Image"), System.Drawing.Image)
Me.tslblUser.Name = "tslblUser"
Me.tslblUser.Size = New System.Drawing.Size(16, 17)
'
'btnAdminConfig 'btnAdminConfig
' '
Me.btnAdminConfig.Image = CType(resources.GetObject("btnAdminConfig.Image"), System.Drawing.Image) Me.btnAdminConfig.Image = CType(resources.GetObject("btnAdminConfig.Image"), System.Drawing.Image)
@ -74,12 +88,6 @@ Partial Class frmMain
Me.btnAdminConfig.UseVisualStyleBackColor = True Me.btnAdminConfig.UseVisualStyleBackColor = True
Me.btnAdminConfig.Visible = False Me.btnAdminConfig.Visible = False
' '
'tslblUser
'
Me.tslblUser.Image = CType(resources.GetObject("tslblUser.Image"), System.Drawing.Image)
Me.tslblUser.Name = "tslblUser"
Me.tslblUser.Size = New System.Drawing.Size(16, 17)
'
'btnUserConfig 'btnUserConfig
' '
Me.btnUserConfig.Image = CType(resources.GetObject("btnUserConfig.Image"), System.Drawing.Image) Me.btnUserConfig.Image = CType(resources.GetObject("btnUserConfig.Image"), System.Drawing.Image)
@ -92,14 +100,6 @@ Partial Class frmMain
Me.btnUserConfig.TextAlign = System.Drawing.ContentAlignment.MiddleRight Me.btnUserConfig.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnUserConfig.UseVisualStyleBackColor = True Me.btnUserConfig.UseVisualStyleBackColor = True
' '
'tsmiChangeState
'
Me.tsmiChangeState.Image = Global.DD_Clipboard_Searcher.My.Resources.Resources.StatusAnnotations_Stop_16xLG
Me.tsmiChangeState.Name = "tsmiChangeState"
Me.tsmiChangeState.Size = New System.Drawing.Size(249, 22)
Me.tsmiChangeState.Tag = "stop"
Me.tsmiChangeState.Text = "Überwachung Clipboard stoppen"
'
'TimerClose 'TimerClose
' '
Me.TimerClose.Interval = 10000 Me.TimerClose.Interval = 10000
@ -108,7 +108,7 @@ Partial Class frmMain
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(337, 76) Me.ClientSize = New System.Drawing.Size(455, 121)
Me.Controls.Add(Me.btnAdminConfig) Me.Controls.Add(Me.btnAdminConfig)
Me.Controls.Add(Me.StatusStrip1) Me.Controls.Add(Me.StatusStrip1)
Me.Controls.Add(Me.btnUserConfig) Me.Controls.Add(Me.btnUserConfig)

346
DD_Clipboard_Searcher/frmSplash.Designer.vb generated
View File

@ -1,182 +1,164 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _ <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmSplash Partial Class frmSplash
Inherits System.Windows.Forms.Form Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _ <System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean) Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try Try
If disposing AndAlso components IsNot Nothing Then If disposing AndAlso components IsNot Nothing Then
components.Dispose() components.Dispose()
End If End If
Finally Finally
MyBase.Dispose(disposing) MyBase.Dispose(disposing)
End Try End Try
End Sub End Sub
'Wird vom Windows Form-Designer benötigt. 'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich. 'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich. 'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _ <System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent() Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmSplash)) Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmSplash))
Me.Copyright = New System.Windows.Forms.Label() Me.Copyright = New System.Windows.Forms.Label()
Me.Version = New System.Windows.Forms.Label() Me.Version = New System.Windows.Forms.Label()
Me.Label1 = New System.Windows.Forms.Label() Me.Label1 = New System.Windows.Forms.Label()
Me.ApplicationTitle = New System.Windows.Forms.Label() Me.ApplicationTitle = New System.Windows.Forms.Label()
Me.PictureBox1 = New System.Windows.Forms.PictureBox() Me.lblStatus = New System.Windows.Forms.Label()
Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel() Me.pbStatus = New System.Windows.Forms.ProgressBar()
Me.lblStatus = New System.Windows.Forms.Label() Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.pbStatus = New System.Windows.Forms.ProgressBar() Me.PictureBox2 = New System.Windows.Forms.PictureBox()
Me.PictureBox2 = New System.Windows.Forms.PictureBox() CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit()
Me.TableLayoutPanel1.SuspendLayout() Me.SuspendLayout()
CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit() '
Me.SuspendLayout() 'Copyright
' '
'Copyright Me.Copyright.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
' Me.Copyright.BackColor = System.Drawing.Color.Transparent
Me.Copyright.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) Me.Copyright.Font = New System.Drawing.Font("Segoe UI", 9.0!)
Me.Copyright.BackColor = System.Drawing.Color.Transparent Me.Copyright.ImeMode = System.Windows.Forms.ImeMode.NoControl
Me.Copyright.Font = New System.Drawing.Font("Segoe UI", 9.0!) Me.Copyright.Location = New System.Drawing.Point(12, 119)
Me.Copyright.ImeMode = System.Windows.Forms.ImeMode.NoControl Me.Copyright.Name = "Copyright"
Me.Copyright.Location = New System.Drawing.Point(3, 21) Me.Copyright.Size = New System.Drawing.Size(185, 21)
Me.Copyright.Name = "Copyright" Me.Copyright.TabIndex = 2
Me.Copyright.Size = New System.Drawing.Size(185, 21) Me.Copyright.Text = "Copyright"
Me.Copyright.TabIndex = 2 Me.Copyright.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Copyright.Text = "Copyright" '
Me.Copyright.TextAlign = System.Drawing.ContentAlignment.MiddleLeft 'Version
' '
'Version Me.Version.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
' Me.Version.BackColor = System.Drawing.Color.Transparent
Me.Version.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) Me.Version.Font = New System.Drawing.Font("Segoe UI", 9.0!)
Me.Version.BackColor = System.Drawing.Color.Transparent Me.Version.ImeMode = System.Windows.Forms.ImeMode.NoControl
Me.Version.Font = New System.Drawing.Font("Segoe UI", 9.0!) Me.Version.Location = New System.Drawing.Point(12, 98)
Me.Version.ImeMode = System.Windows.Forms.ImeMode.NoControl Me.Version.Name = "Version"
Me.Version.Location = New System.Drawing.Point(3, 0) Me.Version.Size = New System.Drawing.Size(185, 21)
Me.Version.Name = "Version" Me.Version.TabIndex = 1
Me.Version.Size = New System.Drawing.Size(185, 21) Me.Version.Text = "Version {0}.{1:00}"
Me.Version.TabIndex = 1 Me.Version.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Version.Text = "Version {0}.{1:00}" '
Me.Version.TextAlign = System.Drawing.ContentAlignment.MiddleLeft 'Label1
' '
'Label1 Me.Label1.AutoSize = True
' Me.Label1.Font = New System.Drawing.Font("Segoe UI", 8.25!)
Me.Label1.AutoSize = True Me.Label1.ImeMode = System.Windows.Forms.ImeMode.NoControl
Me.Label1.Font = New System.Drawing.Font("Segoe UI", 8.25!) Me.Label1.Location = New System.Drawing.Point(298, 102)
Me.Label1.ImeMode = System.Windows.Forms.ImeMode.NoControl Me.Label1.Name = "Label1"
Me.Label1.Location = New System.Drawing.Point(299, 102) Me.Label1.Size = New System.Drawing.Size(182, 13)
Me.Label1.Name = "Label1" Me.Label1.TabIndex = 12
Me.Label1.Size = New System.Drawing.Size(182, 13) Me.Label1.Text = "This software is in parts based on:"
Me.Label1.TabIndex = 12 '
Me.Label1.Text = "This software is in parts based on:" 'ApplicationTitle
' '
'ApplicationTitle Me.ApplicationTitle.BackColor = System.Drawing.Color.Transparent
' Me.ApplicationTitle.Font = New System.Drawing.Font("Tahoma", 14.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.ApplicationTitle.BackColor = System.Drawing.Color.Transparent Me.ApplicationTitle.ImeMode = System.Windows.Forms.ImeMode.NoControl
Me.ApplicationTitle.Font = New System.Drawing.Font("Segoe UI", 18.0!) Me.ApplicationTitle.Location = New System.Drawing.Point(11, 59)
Me.ApplicationTitle.ImeMode = System.Windows.Forms.ImeMode.NoControl Me.ApplicationTitle.Name = "ApplicationTitle"
Me.ApplicationTitle.Location = New System.Drawing.Point(12, 4) Me.ApplicationTitle.Size = New System.Drawing.Size(469, 33)
Me.ApplicationTitle.Name = "ApplicationTitle" Me.ApplicationTitle.TabIndex = 6
Me.ApplicationTitle.Size = New System.Drawing.Size(469, 33) Me.ApplicationTitle.Text = "Anwendungstitel"
Me.ApplicationTitle.TabIndex = 6 Me.ApplicationTitle.TextAlign = System.Drawing.ContentAlignment.BottomLeft
Me.ApplicationTitle.Text = "Anwendungstitel" '
Me.ApplicationTitle.TextAlign = System.Drawing.ContentAlignment.BottomLeft 'lblStatus
' '
'PictureBox1 Me.lblStatus.AutoSize = True
' Me.lblStatus.BackColor = System.Drawing.SystemColors.Control
Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image) Me.lblStatus.Font = New System.Drawing.Font("Segoe UI", 9.0!)
Me.PictureBox1.ImeMode = System.Windows.Forms.ImeMode.NoControl Me.lblStatus.ImeMode = System.Windows.Forms.ImeMode.NoControl
Me.PictureBox1.Location = New System.Drawing.Point(304, 118) Me.lblStatus.Location = New System.Drawing.Point(9, 157)
Me.PictureBox1.Name = "PictureBox1" Me.lblStatus.Name = "lblStatus"
Me.PictureBox1.Size = New System.Drawing.Size(109, 38) Me.lblStatus.Size = New System.Drawing.Size(79, 15)
Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom Me.lblStatus.TabIndex = 8
Me.PictureBox1.TabIndex = 10 Me.lblStatus.Text = "Statusanzeige"
Me.PictureBox1.TabStop = False Me.lblStatus.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
' '
'TableLayoutPanel1 'pbStatus
' '
Me.TableLayoutPanel1.ColumnCount = 1 Me.pbStatus.Dock = System.Windows.Forms.DockStyle.Bottom
Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle()) Me.pbStatus.ImeMode = System.Windows.Forms.ImeMode.NoControl
Me.TableLayoutPanel1.Controls.Add(Me.Copyright, 0, 1) Me.pbStatus.Location = New System.Drawing.Point(0, 179)
Me.TableLayoutPanel1.Controls.Add(Me.Version, 0, 0) Me.pbStatus.Name = "pbStatus"
Me.TableLayoutPanel1.Location = New System.Drawing.Point(304, 51) Me.pbStatus.Size = New System.Drawing.Size(508, 23)
Me.TableLayoutPanel1.Name = "TableLayoutPanel1" Me.pbStatus.TabIndex = 7
Me.TableLayoutPanel1.RowCount = 2 '
Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 50.0!)) 'PictureBox1
Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 50.0!)) '
Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!)) Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
Me.TableLayoutPanel1.Size = New System.Drawing.Size(200, 42) Me.PictureBox1.ImeMode = System.Windows.Forms.ImeMode.NoControl
Me.TableLayoutPanel1.TabIndex = 9 Me.PictureBox1.Location = New System.Drawing.Point(301, 119)
' Me.PictureBox1.Name = "PictureBox1"
'lblStatus Me.PictureBox1.Size = New System.Drawing.Size(109, 38)
' Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
Me.lblStatus.AutoSize = True Me.PictureBox1.TabIndex = 10
Me.lblStatus.BackColor = System.Drawing.SystemColors.Control Me.PictureBox1.TabStop = False
Me.lblStatus.Font = New System.Drawing.Font("Segoe UI", 9.0!) '
Me.lblStatus.ImeMode = System.Windows.Forms.ImeMode.NoControl 'PictureBox2
Me.lblStatus.Location = New System.Drawing.Point(9, 157) '
Me.lblStatus.Name = "lblStatus" Me.PictureBox2.Image = CType(resources.GetObject("PictureBox2.Image"), System.Drawing.Image)
Me.lblStatus.Size = New System.Drawing.Size(79, 15) Me.PictureBox2.ImeMode = System.Windows.Forms.ImeMode.NoControl
Me.lblStatus.TabIndex = 8 Me.PictureBox2.Location = New System.Drawing.Point(12, 12)
Me.lblStatus.Text = "Statusanzeige" Me.PictureBox2.Name = "PictureBox2"
Me.lblStatus.TextAlign = System.Drawing.ContentAlignment.MiddleCenter Me.PictureBox2.Size = New System.Drawing.Size(480, 44)
' Me.PictureBox2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
'pbStatus Me.PictureBox2.TabIndex = 11
' Me.PictureBox2.TabStop = False
Me.pbStatus.Dock = System.Windows.Forms.DockStyle.Bottom '
Me.pbStatus.ImeMode = System.Windows.Forms.ImeMode.NoControl 'frmSplash
Me.pbStatus.Location = New System.Drawing.Point(0, 179) '
Me.pbStatus.Name = "pbStatus" Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.pbStatus.Size = New System.Drawing.Size(540, 23) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.pbStatus.TabIndex = 7 Me.ClientSize = New System.Drawing.Size(508, 202)
' Me.ControlBox = False
'PictureBox2 Me.Controls.Add(Me.Copyright)
' Me.Controls.Add(Me.Label1)
Me.PictureBox2.Image = CType(resources.GetObject("PictureBox2.Image"), System.Drawing.Image) Me.Controls.Add(Me.Version)
Me.PictureBox2.ImeMode = System.Windows.Forms.ImeMode.NoControl Me.Controls.Add(Me.ApplicationTitle)
Me.PictureBox2.Location = New System.Drawing.Point(12, 51) Me.Controls.Add(Me.PictureBox1)
Me.PictureBox2.Name = "PictureBox2" Me.Controls.Add(Me.lblStatus)
Me.PictureBox2.Size = New System.Drawing.Size(276, 103) Me.Controls.Add(Me.pbStatus)
Me.PictureBox2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.CenterImage Me.Controls.Add(Me.PictureBox2)
Me.PictureBox2.TabIndex = 11 Me.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.PictureBox2.TabStop = False Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
' Me.Name = "frmSplash"
'frmSplash Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
' Me.Text = "frmSplash"
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit()
Me.ClientSize = New System.Drawing.Size(540, 202) Me.ResumeLayout(False)
Me.ControlBox = False Me.PerformLayout()
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.ApplicationTitle) End Sub
Me.Controls.Add(Me.PictureBox1) Friend WithEvents Copyright As System.Windows.Forms.Label
Me.Controls.Add(Me.TableLayoutPanel1) Friend WithEvents Version As System.Windows.Forms.Label
Me.Controls.Add(Me.lblStatus) Friend WithEvents Label1 As System.Windows.Forms.Label
Me.Controls.Add(Me.pbStatus) Friend WithEvents ApplicationTitle As System.Windows.Forms.Label
Me.Controls.Add(Me.PictureBox2) Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
Me.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Friend WithEvents lblStatus As System.Windows.Forms.Label
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None Friend WithEvents pbStatus As System.Windows.Forms.ProgressBar
Me.Name = "frmSplash" Friend WithEvents PictureBox2 As System.Windows.Forms.PictureBox
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen End Class
Me.Text = "frmSplash"
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
Me.TableLayoutPanel1.ResumeLayout(False)
CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents Copyright As System.Windows.Forms.Label
Friend WithEvents Version As System.Windows.Forms.Label
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents ApplicationTitle As System.Windows.Forms.Label
Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
Friend WithEvents TableLayoutPanel1 As System.Windows.Forms.TableLayoutPanel
Friend WithEvents lblStatus As System.Windows.Forms.Label
Friend WithEvents pbStatus As System.Windows.Forms.ProgressBar
Friend WithEvents PictureBox2 As System.Windows.Forms.PictureBox
End Class

5654
DD_Clipboard_Searcher/frmSplash.resx
View File

File diff suppressed because it is too large Load Diff

244
DD_Clipboard_Searcher/frmSplash.vb
View File

@ -1,122 +1,122 @@
Imports System.ComponentModel Imports System.ComponentModel
Public NotInheritable Class frmSplash Public NotInheritable Class frmSplash
'TODO: Dieses Formular kann einfach als Begrüßungsbildschirm für die Anwendung festgelegt werden, indem Sie zur Registerkarte "Anwendung" 'TODO: Dieses Formular kann einfach als Begrüßungsbildschirm für die Anwendung festgelegt werden, indem Sie zur Registerkarte "Anwendung"
' des Projekt-Designers wechseln (Menü "Projekt", Option "Eigenschaften"). ' des Projekt-Designers wechseln (Menü "Projekt", Option "Eigenschaften").
Private InitSteps As Integer = 6 Private InitSteps As Integer = 6
Private bw As New BackgroundWorker() Private bw As New BackgroundWorker()
Private mainForm As Form Private mainForm As Form
Private Sub frmSplash_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing Private Sub frmSplash_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
End Sub End Sub
Private Sub frmSplash_KeyUp(sender As Object, e As KeyEventArgs) Handles Me.KeyUp Private Sub frmSplash_KeyUp(sender As Object, e As KeyEventArgs) Handles Me.KeyUp
If e.KeyCode = Keys.Escape Then If e.KeyCode = Keys.Escape Then
ESC_Hidden = True ESC_Hidden = True
End If End If
End Sub End Sub
Private Sub frmSplash_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load Private Sub frmSplash_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
'Richten Sie den Dialogtext zur Laufzeit gemäß den Assemblyinformationen der Anwendung ein. 'Richten Sie den Dialogtext zur Laufzeit gemäß den Assemblyinformationen der Anwendung ein.
'TODO: Die Assemblyinformationen der Anwendung im Bereich "Anwendung" des Dialogfelds für die 'TODO: Die Assemblyinformationen der Anwendung im Bereich "Anwendung" des Dialogfelds für die
' Projekteigenschaften (im Menü "Projekt") anpassen. ' Projekteigenschaften (im Menü "Projekt") anpassen.
'Anwendungstitel 'Anwendungstitel
If My.Application.Info.Title <> "" Then If My.Application.Info.Title <> "" Then
ApplicationTitle.Text = My.Application.Info.Title ApplicationTitle.Text = My.Application.Info.Title
Else Else
'Wenn der Anwendungstitel fehlt, Anwendungsnamen ohne Erweiterung verwenden 'Wenn der Anwendungstitel fehlt, Anwendungsnamen ohne Erweiterung verwenden
ApplicationTitle.Text = System.IO.Path.GetFileNameWithoutExtension(My.Application.Info.AssemblyName) ApplicationTitle.Text = System.IO.Path.GetFileNameWithoutExtension(My.Application.Info.AssemblyName)
End If End If
'Verwenden Sie zum Formatieren der Versionsinformationen den Text, der zur Entwurfszeit in der Versionskontrolle festgelegt wurde, als 'Verwenden Sie zum Formatieren der Versionsinformationen den Text, der zur Entwurfszeit in der Versionskontrolle festgelegt wurde, als
' Formatierungszeichenfolge. Dies ermöglicht ggf. eine effektive Lokalisierung. ' Formatierungszeichenfolge. Dies ermöglicht ggf. eine effektive Lokalisierung.
' Build- und Revisionsinformationen können durch Verwendung des folgenden Codes und durch Ändern ' Build- und Revisionsinformationen können durch Verwendung des folgenden Codes und durch Ändern
' des Entwurfszeittexts der Versionskontrolle in "Version {0}.{1:00}.{2}.{3}" oder einen ähnlichen Text eingeschlossen werden. Weitere Informationen erhalten Sie unter ' des Entwurfszeittexts der Versionskontrolle in "Version {0}.{1:00}.{2}.{3}" oder einen ähnlichen Text eingeschlossen werden. Weitere Informationen erhalten Sie unter
' String.Format() in der Hilfe. ' String.Format() in der Hilfe.
' '
' Version.Text = System.String.Format(Version.Text, My.Application.Info.Version.Major, My.Application.Info.Version.Minor, My.Application.Info.Version.Build, My.Application.Info.Version.Revision) ' Version.Text = System.String.Format(Version.Text, My.Application.Info.Version.Major, My.Application.Info.Version.Minor, My.Application.Info.Version.Build, My.Application.Info.Version.Revision)
Version.Text = String.Format("Version {0}", My.Application.Info.Version.ToString) Version.Text = String.Format("Version {0}", My.Application.Info.Version.ToString)
'Copyrightinformationen 'Copyrightinformationen
Copyright.Text = My.Application.Info.Copyright & " " & My.Application.Info.CompanyName Copyright.Text = My.Application.Info.Copyright & " " & My.Application.Info.CompanyName
Me.BringToFront() Me.BringToFront()
InitProgram() InitProgram()
End Sub End Sub
Private Sub InitProgram() Private Sub InitProgram()
bw.WorkerReportsProgress = True bw.WorkerReportsProgress = True
AddHandler bw.DoWork, AddressOf bw_DoWork AddHandler bw.DoWork, AddressOf bw_DoWork
AddHandler bw.ProgressChanged, AddressOf bw_ProgressChanged AddHandler bw.ProgressChanged, AddressOf bw_ProgressChanged
AddHandler bw.RunWorkerCompleted, AddressOf bw_RunWorkerCompleted AddHandler bw.RunWorkerCompleted, AddressOf bw_RunWorkerCompleted
' mainForm = My.Forms.frmMain ' mainForm = My.Forms.frmMain
bw.RunWorkerAsync() bw.RunWorkerAsync()
End Sub End Sub
Private Function CalcProgress(_step As Integer) Private Function CalcProgress(_step As Integer)
Return _step * (100 / InitSteps) Return _step * (100 / InitSteps)
End Function End Function
Private Sub bw_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Private Sub bw_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs)
Try Try
Dim Init = New ClassInit() Dim Init = New ClassInit()
bw.ReportProgress(CalcProgress(1), "Initializing Logger") bw.ReportProgress(CalcProgress(1), "Initializing Logger")
Init.InitLogger() Init.InitLogger()
System.Threading.Thread.Sleep(500) System.Threading.Thread.Sleep(500)
bw.ReportProgress(CalcProgress(2), "Initializing Database") bw.ReportProgress(CalcProgress(2), "Initializing Database")
Init.InitBasics() Init.InitBasics()
If Init.InitDatabase() = True Then If Init.InitDatabase() = True Then
System.Threading.Thread.Sleep(500) System.Threading.Thread.Sleep(500)
bw.ReportProgress(CalcProgress(4), "Initializing User-Configuration") bw.ReportProgress(CalcProgress(4), "Initializing User-Configuration")
If ClassInit.InitUserLogin = False Then If ClassInit.InitUserLogin = False Then
ERROR_INIT = "INVALID USER" ERROR_INIT = "INVALID USER"
End If End If
System.Threading.Thread.Sleep(500) System.Threading.Thread.Sleep(500)
'bw.ReportProgress(CalcProgress(5), "Initializing Addons") 'bw.ReportProgress(CalcProgress(5), "Initializing Addons")
'Init.InitAddons() 'Init.InitAddons()
'System.Threading.Thread.Sleep(500) 'System.Threading.Thread.Sleep(500)
bw.ReportProgress(CalcProgress(6), "Initializing Frontend") bw.ReportProgress(CalcProgress(6), "Initializing Frontend")
' InitInterface wurde in frmMain integriert ' InitInterface wurde in frmMain integriert
'Init.InitInterface(mainForm) 'Init.InitInterface(mainForm)
System.Threading.Thread.Sleep(500) System.Threading.Thread.Sleep(500)
Else Else
ERROR_INIT = "DATABASE" ERROR_INIT = "DATABASE"
End If End If
Catch ex As Exception Catch ex As Exception
MsgBox("Unexpected Error in bw_DoWork: " & vbNewLine, MsgBoxStyle.Critical) MsgBox("Unexpected Error in bw_DoWork: " & vbNewLine, MsgBoxStyle.Critical)
End Try End Try
End Sub End Sub
Private Sub bw_ProgressChanged(sender As Object, e As System.ComponentModel.ProgressChangedEventArgs) Private Sub bw_ProgressChanged(sender As Object, e As System.ComponentModel.ProgressChangedEventArgs)
pbStatus.Value = e.ProgressPercentage pbStatus.Value = e.ProgressPercentage
lblStatus.Text = e.UserState.ToString() lblStatus.Text = e.UserState.ToString()
End Sub End Sub
Private Sub bw_RunWorkerCompleted(sender As Object, e As System.ComponentModel.RunWorkerCompletedEventArgs) Private Sub bw_RunWorkerCompleted(sender As Object, e As System.ComponentModel.RunWorkerCompletedEventArgs)
' Bei Fehler MsgBox anzeigen und Programm beenden ' Bei Fehler MsgBox anzeigen und Programm beenden
If e.Error IsNot Nothing Then If e.Error IsNot Nothing Then
MsgBox(e.Error.Message, MsgBoxStyle.Critical, "Unexpected Error in frmSplash") MsgBox(e.Error.Message, MsgBoxStyle.Critical, "Unexpected Error in frmSplash")
Application.Exit() Application.Exit()
End If End If
' Wenn kein Fehler, Splashscreen schließen ' Wenn kein Fehler, Splashscreen schließen
Me.Close() Me.Close()
End Sub End Sub
End Class End Class