Projektdateien hinzufügen.
This commit is contained in:
6
Pilz.Collections/App.config
Normal file
6
Pilz.Collections/App.config
Normal file
@@ -0,0 +1,6 @@
|
|||||||
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
|
<configuration>
|
||||||
|
<startup>
|
||||||
|
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.5"/>
|
||||||
|
</startup>
|
||||||
|
</configuration>
|
||||||
13
Pilz.Collections/My Project/Application.Designer.vb
generated
Normal file
13
Pilz.Collections/My Project/Application.Designer.vb
generated
Normal file
@@ -0,0 +1,13 @@
|
|||||||
|
'------------------------------------------------------------------------------
|
||||||
|
' <auto-generated>
|
||||||
|
' Dieser Code wurde von einem Tool generiert.
|
||||||
|
' Laufzeitversion:4.0.30319.42000
|
||||||
|
'
|
||||||
|
' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
|
||||||
|
' der Code erneut generiert wird.
|
||||||
|
' </auto-generated>
|
||||||
|
'------------------------------------------------------------------------------
|
||||||
|
|
||||||
|
Option Strict On
|
||||||
|
Option Explicit On
|
||||||
|
|
||||||
11
Pilz.Collections/My Project/Application.myapp
Normal file
11
Pilz.Collections/My Project/Application.myapp
Normal file
@@ -0,0 +1,11 @@
|
|||||||
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
|
<MyApplicationData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
|
||||||
|
<MySubMain>true</MySubMain>
|
||||||
|
<MainForm>Form1</MainForm>
|
||||||
|
<SingleInstance>false</SingleInstance>
|
||||||
|
<ShutdownMode>0</ShutdownMode>
|
||||||
|
<EnableVisualStyles>true</EnableVisualStyles>
|
||||||
|
<AuthenticationMode>0</AuthenticationMode>
|
||||||
|
<ApplicationType>0</ApplicationType>
|
||||||
|
<SaveMySettingsOnExit>true</SaveMySettingsOnExit>
|
||||||
|
</MyApplicationData>
|
||||||
35
Pilz.Collections/My Project/AssemblyInfo.vb
Normal file
35
Pilz.Collections/My Project/AssemblyInfo.vb
Normal file
@@ -0,0 +1,35 @@
|
|||||||
|
Imports System
|
||||||
|
Imports System.Reflection
|
||||||
|
Imports System.Runtime.InteropServices
|
||||||
|
|
||||||
|
' Allgemeine Informationen über eine Assembly werden über die folgenden
|
||||||
|
' Attribute gesteuert. Ändern Sie diese Attributwerte, um die Informationen zu ändern,
|
||||||
|
' die einer Assembly zugeordnet sind.
|
||||||
|
|
||||||
|
' Werte der Assemblyattribute überprüfen
|
||||||
|
|
||||||
|
<Assembly: AssemblyTitle("SimpleHistory")>
|
||||||
|
<Assembly: AssemblyDescription("")>
|
||||||
|
<Assembly: AssemblyCompany("Dr. Schneider Kunststoffwerke GmbH")>
|
||||||
|
<Assembly: AssemblyProduct("SimpleHistory")>
|
||||||
|
<Assembly: AssemblyCopyright("Copyright © Pascal Schedel 2018")>
|
||||||
|
<Assembly: AssemblyTrademark("")>
|
||||||
|
|
||||||
|
<Assembly: ComVisible(False)>
|
||||||
|
|
||||||
|
'Die folgende GUID bestimmt die ID der Typbibliothek, wenn dieses Projekt für COM verfügbar gemacht wird.
|
||||||
|
<Assembly: Guid("7dd4cf70-efc1-4386-a169-39ec65e4aef3")>
|
||||||
|
|
||||||
|
' Versionsinformationen für eine Assembly bestehen aus den folgenden vier Werten:
|
||||||
|
'
|
||||||
|
' Hauptversion
|
||||||
|
' Nebenversion
|
||||||
|
' Buildnummer
|
||||||
|
' Revision
|
||||||
|
'
|
||||||
|
' Sie können alle Werte angeben oder Standardwerte für die Build- und Revisionsnummern verwenden,
|
||||||
|
' übernehmen, indem Sie "*" eingeben:
|
||||||
|
' <Assembly: AssemblyVersion("1.0.*")>
|
||||||
|
|
||||||
|
<Assembly: AssemblyVersion("1.0.0.0")>
|
||||||
|
<Assembly: AssemblyFileVersion("1.0.0.0")>
|
||||||
63
Pilz.Collections/My Project/Resources.Designer.vb
generated
Normal file
63
Pilz.Collections/My Project/Resources.Designer.vb
generated
Normal file
@@ -0,0 +1,63 @@
|
|||||||
|
'------------------------------------------------------------------------------
|
||||||
|
' <auto-generated>
|
||||||
|
' Dieser Code wurde von einem Tool generiert.
|
||||||
|
' Laufzeitversion:4.0.30319.42000
|
||||||
|
'
|
||||||
|
' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
|
||||||
|
' der Code erneut generiert wird.
|
||||||
|
' </auto-generated>
|
||||||
|
'------------------------------------------------------------------------------
|
||||||
|
|
||||||
|
Option Strict On
|
||||||
|
Option Explicit On
|
||||||
|
|
||||||
|
Imports System
|
||||||
|
|
||||||
|
Namespace My.Resources
|
||||||
|
|
||||||
|
'Diese Klasse wurde von der StronglyTypedResourceBuilder automatisch generiert
|
||||||
|
'-Klasse über ein Tool wie ResGen oder Visual Studio automatisch generiert.
|
||||||
|
'Um einen Member hinzuzufügen oder zu entfernen, bearbeiten Sie die .ResX-Datei und führen dann ResGen
|
||||||
|
'mit der /str-Option erneut aus, oder Sie erstellen Ihr VS-Projekt neu.
|
||||||
|
'''<summary>
|
||||||
|
''' Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
|
||||||
|
'''</summary>
|
||||||
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "15.0.0.0"), _
|
||||||
|
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||||
|
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
|
||||||
|
Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
|
||||||
|
Friend Module Resources
|
||||||
|
|
||||||
|
Private resourceMan As Global.System.Resources.ResourceManager
|
||||||
|
|
||||||
|
Private resourceCulture As Global.System.Globalization.CultureInfo
|
||||||
|
|
||||||
|
'''<summary>
|
||||||
|
''' Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird.
|
||||||
|
'''</summary>
|
||||||
|
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||||
|
Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
|
||||||
|
Get
|
||||||
|
If Object.ReferenceEquals(resourceMan, Nothing) Then
|
||||||
|
Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("Pilz.Collections.Resources", GetType(Resources).Assembly)
|
||||||
|
resourceMan = temp
|
||||||
|
End If
|
||||||
|
Return resourceMan
|
||||||
|
End Get
|
||||||
|
End Property
|
||||||
|
|
||||||
|
'''<summary>
|
||||||
|
''' Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle
|
||||||
|
''' Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden.
|
||||||
|
'''</summary>
|
||||||
|
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||||
|
Friend Property Culture() As Global.System.Globalization.CultureInfo
|
||||||
|
Get
|
||||||
|
Return resourceCulture
|
||||||
|
End Get
|
||||||
|
Set
|
||||||
|
resourceCulture = value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
End Module
|
||||||
|
End Namespace
|
||||||
117
Pilz.Collections/My Project/Resources.resx
Normal file
117
Pilz.Collections/My Project/Resources.resx
Normal file
@@ -0,0 +1,117 @@
|
|||||||
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
|
<root>
|
||||||
|
<!--
|
||||||
|
Microsoft ResX Schema
|
||||||
|
|
||||||
|
Version 2.0
|
||||||
|
|
||||||
|
The primary goals of this format is to allow a simple XML format
|
||||||
|
that is mostly human readable. The generation and parsing of the
|
||||||
|
various data types are done through the TypeConverter classes
|
||||||
|
associated with the data types.
|
||||||
|
|
||||||
|
Example:
|
||||||
|
|
||||||
|
... ado.net/XML headers & schema ...
|
||||||
|
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||||
|
<resheader name="version">2.0</resheader>
|
||||||
|
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||||
|
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||||
|
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||||
|
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||||
|
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||||
|
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||||
|
</data>
|
||||||
|
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||||
|
<comment>This is a comment</comment>
|
||||||
|
</data>
|
||||||
|
|
||||||
|
There are any number of "resheader" rows that contain simple
|
||||||
|
name/value pairs.
|
||||||
|
|
||||||
|
Each data row contains a name, and value. The row also contains a
|
||||||
|
type or mimetype. Type corresponds to a .NET class that support
|
||||||
|
text/value conversion through the TypeConverter architecture.
|
||||||
|
Classes that don't support this are serialized and stored with the
|
||||||
|
mimetype set.
|
||||||
|
|
||||||
|
The mimetype is used for serialized objects, and tells the
|
||||||
|
ResXResourceReader how to depersist the object. This is currently not
|
||||||
|
extensible. For a given mimetype the value must be set accordingly:
|
||||||
|
|
||||||
|
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||||
|
that the ResXResourceWriter will generate, however the reader can
|
||||||
|
read any of the formats listed below.
|
||||||
|
|
||||||
|
mimetype: application/x-microsoft.net.object.binary.base64
|
||||||
|
value : The object must be serialized with
|
||||||
|
: System.Serialization.Formatters.Binary.BinaryFormatter
|
||||||
|
: and then encoded with base64 encoding.
|
||||||
|
|
||||||
|
mimetype: application/x-microsoft.net.object.soap.base64
|
||||||
|
value : The object must be serialized with
|
||||||
|
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||||
|
: and then encoded with base64 encoding.
|
||||||
|
|
||||||
|
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||||
|
value : The object must be serialized into a byte array
|
||||||
|
: using a System.ComponentModel.TypeConverter
|
||||||
|
: and then encoded with base64 encoding.
|
||||||
|
-->
|
||||||
|
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||||
|
<xsd:element name="root" msdata:IsDataSet="true">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:choice maxOccurs="unbounded">
|
||||||
|
<xsd:element name="metadata">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:sequence>
|
||||||
|
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||||
|
</xsd:sequence>
|
||||||
|
<xsd:attribute name="name" type="xsd:string" />
|
||||||
|
<xsd:attribute name="type" type="xsd:string" />
|
||||||
|
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
<xsd:element name="assembly">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:attribute name="alias" type="xsd:string" />
|
||||||
|
<xsd:attribute name="name" type="xsd:string" />
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
<xsd:element name="data">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:sequence>
|
||||||
|
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||||
|
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||||
|
</xsd:sequence>
|
||||||
|
<xsd:attribute name="name" type="xsd:string" msdata:Ordinal="1" />
|
||||||
|
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||||
|
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
<xsd:element name="resheader">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:sequence>
|
||||||
|
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||||
|
</xsd:sequence>
|
||||||
|
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
</xsd:choice>
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
</xsd:schema>
|
||||||
|
<resheader name="resmimetype">
|
||||||
|
<value>text/microsoft-resx</value>
|
||||||
|
</resheader>
|
||||||
|
<resheader name="version">
|
||||||
|
<value>2.0</value>
|
||||||
|
</resheader>
|
||||||
|
<resheader name="reader">
|
||||||
|
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||||
|
</resheader>
|
||||||
|
<resheader name="writer">
|
||||||
|
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||||
|
</resheader>
|
||||||
|
</root>
|
||||||
73
Pilz.Collections/My Project/Settings.Designer.vb
generated
Normal file
73
Pilz.Collections/My Project/Settings.Designer.vb
generated
Normal file
@@ -0,0 +1,73 @@
|
|||||||
|
'------------------------------------------------------------------------------
|
||||||
|
' <auto-generated>
|
||||||
|
' Dieser Code wurde von einem Tool generiert.
|
||||||
|
' Laufzeitversion:4.0.30319.42000
|
||||||
|
'
|
||||||
|
' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
|
||||||
|
' der Code erneut generiert wird.
|
||||||
|
' </auto-generated>
|
||||||
|
'------------------------------------------------------------------------------
|
||||||
|
|
||||||
|
Option Strict On
|
||||||
|
Option Explicit On
|
||||||
|
|
||||||
|
|
||||||
|
Namespace My
|
||||||
|
|
||||||
|
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
|
||||||
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "15.9.0.0"), _
|
||||||
|
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||||
|
Partial Friend NotInheritable Class MySettings
|
||||||
|
Inherits Global.System.Configuration.ApplicationSettingsBase
|
||||||
|
|
||||||
|
Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings)
|
||||||
|
|
||||||
|
#Region "Automatische My.Settings-Speicherfunktion"
|
||||||
|
#If _MyType = "WindowsForms" Then
|
||||||
|
Private Shared addedHandler As Boolean
|
||||||
|
|
||||||
|
Private Shared addedHandlerLockObject As New Object
|
||||||
|
|
||||||
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||||
|
Private Shared Sub AutoSaveSettings(sender As Global.System.Object, e As Global.System.EventArgs)
|
||||||
|
If My.Application.SaveMySettingsOnExit Then
|
||||||
|
My.Settings.Save()
|
||||||
|
End If
|
||||||
|
End Sub
|
||||||
|
#End If
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
Public Shared ReadOnly Property [Default]() As MySettings
|
||||||
|
Get
|
||||||
|
|
||||||
|
#If _MyType = "WindowsForms" Then
|
||||||
|
If Not addedHandler Then
|
||||||
|
SyncLock addedHandlerLockObject
|
||||||
|
If Not addedHandler Then
|
||||||
|
AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
|
||||||
|
addedHandler = True
|
||||||
|
End If
|
||||||
|
End SyncLock
|
||||||
|
End If
|
||||||
|
#End If
|
||||||
|
Return defaultInstance
|
||||||
|
End Get
|
||||||
|
End Property
|
||||||
|
End Class
|
||||||
|
End Namespace
|
||||||
|
|
||||||
|
Namespace My
|
||||||
|
|
||||||
|
<Global.Microsoft.VisualBasic.HideModuleNameAttribute(), _
|
||||||
|
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||||
|
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _
|
||||||
|
Friend Module MySettingsProperty
|
||||||
|
|
||||||
|
<Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _
|
||||||
|
Friend ReadOnly Property Settings() As Global.Pilz.Collections.My.MySettings
|
||||||
|
Get
|
||||||
|
Return Global.Pilz.Collections.My.MySettings.Default
|
||||||
|
End Get
|
||||||
|
End Property
|
||||||
|
End Module
|
||||||
|
End Namespace
|
||||||
7
Pilz.Collections/My Project/Settings.settings
Normal file
7
Pilz.Collections/My Project/Settings.settings
Normal file
@@ -0,0 +1,7 @@
|
|||||||
|
<?xml version='1.0' encoding='utf-8'?>
|
||||||
|
<SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" UseMySettingsClassName="true">
|
||||||
|
<Profiles>
|
||||||
|
<Profile Name="(Default)" />
|
||||||
|
</Profiles>
|
||||||
|
<Settings />
|
||||||
|
</SettingsFile>
|
||||||
145
Pilz.Collections/Pilz.Collections.vbproj
Normal file
145
Pilz.Collections/Pilz.Collections.vbproj
Normal file
@@ -0,0 +1,145 @@
|
|||||||
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
|
<Project ToolsVersion="15.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||||
|
<Import Project="$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props" Condition="Exists('$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props')" />
|
||||||
|
<PropertyGroup>
|
||||||
|
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||||
|
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||||
|
<ProjectGuid>{E4B2D294-8479-4014-942D-0B460E453DEA}</ProjectGuid>
|
||||||
|
<OutputType>Library</OutputType>
|
||||||
|
<StartupObject>
|
||||||
|
</StartupObject>
|
||||||
|
<RootNamespace>Pilz.Collections</RootNamespace>
|
||||||
|
<AssemblyName>Pilz.Collections</AssemblyName>
|
||||||
|
<FileAlignment>512</FileAlignment>
|
||||||
|
<MyType>Windows</MyType>
|
||||||
|
<TargetFrameworkVersion>v4.5</TargetFrameworkVersion>
|
||||||
|
<TargetFrameworkProfile />
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||||
|
<PlatformTarget>AnyCPU</PlatformTarget>
|
||||||
|
<DebugSymbols>true</DebugSymbols>
|
||||||
|
<DebugType>full</DebugType>
|
||||||
|
<DefineDebug>true</DefineDebug>
|
||||||
|
<DefineTrace>true</DefineTrace>
|
||||||
|
<OutputPath>bin\Debug\</OutputPath>
|
||||||
|
<DocumentationFile>Pilz.Collections.xml</DocumentationFile>
|
||||||
|
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,40008</NoWarn>
|
||||||
|
<Prefer32Bit>false</Prefer32Bit>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||||
|
<PlatformTarget>AnyCPU</PlatformTarget>
|
||||||
|
<DebugType>none</DebugType>
|
||||||
|
<DefineDebug>false</DefineDebug>
|
||||||
|
<DefineTrace>true</DefineTrace>
|
||||||
|
<Optimize>true</Optimize>
|
||||||
|
<OutputPath>bin\Release\</OutputPath>
|
||||||
|
<DocumentationFile>Pilz.Collections.xml</DocumentationFile>
|
||||||
|
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
|
||||||
|
<Prefer32Bit>false</Prefer32Bit>
|
||||||
|
<RemoveIntegerChecks>true</RemoveIntegerChecks>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup>
|
||||||
|
<OptionExplicit>On</OptionExplicit>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup>
|
||||||
|
<OptionCompare>Binary</OptionCompare>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup>
|
||||||
|
<OptionStrict>Off</OptionStrict>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup>
|
||||||
|
<OptionInfer>On</OptionInfer>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Debug|x86'">
|
||||||
|
<DebugSymbols>true</DebugSymbols>
|
||||||
|
<DefineDebug>true</DefineDebug>
|
||||||
|
<DefineTrace>true</DefineTrace>
|
||||||
|
<OutputPath>bin\x86\Debug\</OutputPath>
|
||||||
|
<DocumentationFile>Pilz.Collections.xml</DocumentationFile>
|
||||||
|
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,40008</NoWarn>
|
||||||
|
<DebugType>full</DebugType>
|
||||||
|
<PlatformTarget>x86</PlatformTarget>
|
||||||
|
<CodeAnalysisRuleSet>MinimumRecommendedRules.ruleset</CodeAnalysisRuleSet>
|
||||||
|
<UseVSHostingProcess>true</UseVSHostingProcess>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Release|x86'">
|
||||||
|
<DefineTrace>true</DefineTrace>
|
||||||
|
<OutputPath>bin\x86\Release\</OutputPath>
|
||||||
|
<RemoveIntegerChecks>true</RemoveIntegerChecks>
|
||||||
|
<DocumentationFile>Pilz.Collections.xml</DocumentationFile>
|
||||||
|
<Optimize>true</Optimize>
|
||||||
|
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
|
||||||
|
<PlatformTarget>x86</PlatformTarget>
|
||||||
|
<CodeAnalysisRuleSet>MinimumRecommendedRules.ruleset</CodeAnalysisRuleSet>
|
||||||
|
</PropertyGroup>
|
||||||
|
<ItemGroup>
|
||||||
|
<Reference Include="System" />
|
||||||
|
<Reference Include="System.Data" />
|
||||||
|
<Reference Include="System.Deployment" />
|
||||||
|
<Reference Include="System.Drawing" />
|
||||||
|
<Reference Include="System.Windows.Forms" />
|
||||||
|
<Reference Include="System.Xml" />
|
||||||
|
<Reference Include="System.Core" />
|
||||||
|
<Reference Include="System.Xml.Linq" />
|
||||||
|
<Reference Include="System.Data.DataSetExtensions" />
|
||||||
|
<Reference Include="System.Net.Http" />
|
||||||
|
</ItemGroup>
|
||||||
|
<ItemGroup>
|
||||||
|
<Import Include="Microsoft.VisualBasic" />
|
||||||
|
<Import Include="System" />
|
||||||
|
<Import Include="System.Collections" />
|
||||||
|
<Import Include="System.Collections.Generic" />
|
||||||
|
<Import Include="System.Data" />
|
||||||
|
<Import Include="System.Drawing" />
|
||||||
|
<Import Include="System.Diagnostics" />
|
||||||
|
<Import Include="System.Windows.Forms" />
|
||||||
|
<Import Include="System.Linq" />
|
||||||
|
<Import Include="System.Xml.Linq" />
|
||||||
|
<Import Include="System.Threading.Tasks" />
|
||||||
|
</ItemGroup>
|
||||||
|
<ItemGroup>
|
||||||
|
<Compile Include="SimpleHistory\Enums.vb" />
|
||||||
|
<Compile Include="SimpleHistory\HistoryPoint.vb" />
|
||||||
|
<Compile Include="SimpleHistory\MemberLists.vb" />
|
||||||
|
<Compile Include="My Project\AssemblyInfo.vb" />
|
||||||
|
<Compile Include="My Project\Application.Designer.vb">
|
||||||
|
<AutoGen>True</AutoGen>
|
||||||
|
<DependentUpon>Application.myapp</DependentUpon>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="My Project\Resources.Designer.vb">
|
||||||
|
<AutoGen>True</AutoGen>
|
||||||
|
<DesignTime>True</DesignTime>
|
||||||
|
<DependentUpon>Resources.resx</DependentUpon>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="My Project\Settings.Designer.vb">
|
||||||
|
<AutoGen>True</AutoGen>
|
||||||
|
<DependentUpon>Settings.settings</DependentUpon>
|
||||||
|
<DesignTimeSharedInput>True</DesignTimeSharedInput>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="SimpleHistory\ObjectAction.vb" />
|
||||||
|
<Compile Include="SimpleHistory\ObjectBase.vb" />
|
||||||
|
<Compile Include="SimpleHistory\ObjectState.vb" />
|
||||||
|
<Compile Include="SimpleHistory\SimpleHistory.vb" />
|
||||||
|
</ItemGroup>
|
||||||
|
<ItemGroup>
|
||||||
|
<EmbeddedResource Include="My Project\Resources.resx">
|
||||||
|
<Generator>VbMyResourcesResXFileCodeGenerator</Generator>
|
||||||
|
<LastGenOutput>Resources.Designer.vb</LastGenOutput>
|
||||||
|
<CustomToolNamespace>My.Resources</CustomToolNamespace>
|
||||||
|
<SubType>Designer</SubType>
|
||||||
|
</EmbeddedResource>
|
||||||
|
</ItemGroup>
|
||||||
|
<ItemGroup>
|
||||||
|
<None Include="My Project\Application.myapp">
|
||||||
|
<Generator>MyApplicationCodeGenerator</Generator>
|
||||||
|
<LastGenOutput>Application.Designer.vb</LastGenOutput>
|
||||||
|
</None>
|
||||||
|
<None Include="My Project\Settings.settings">
|
||||||
|
<Generator>SettingsSingleFileGenerator</Generator>
|
||||||
|
<CustomToolNamespace>My</CustomToolNamespace>
|
||||||
|
<LastGenOutput>Settings.Designer.vb</LastGenOutput>
|
||||||
|
</None>
|
||||||
|
<None Include="App.config" />
|
||||||
|
</ItemGroup>
|
||||||
|
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
|
||||||
|
</Project>
|
||||||
12
Pilz.Collections/SimpleHistory/Enums.vb
Normal file
12
Pilz.Collections/SimpleHistory/Enums.vb
Normal file
@@ -0,0 +1,12 @@
|
|||||||
|
Namespace SimpleHistory
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Specify which member types you would include.
|
||||||
|
''' </summary>
|
||||||
|
Public Enum ObjectValueType
|
||||||
|
None = 0
|
||||||
|
Field = 1
|
||||||
|
[Property] = 2
|
||||||
|
End Enum
|
||||||
|
|
||||||
|
End Namespace
|
||||||
543
Pilz.Collections/SimpleHistory/HistoryPoint.vb
Normal file
543
Pilz.Collections/SimpleHistory/HistoryPoint.vb
Normal file
@@ -0,0 +1,543 @@
|
|||||||
|
Imports System.Reflection
|
||||||
|
|
||||||
|
Namespace SimpleHistory
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Represent some Object States and Actions.
|
||||||
|
''' </summary>
|
||||||
|
Public Class HistoryPoint
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Represents the Name of this History Point
|
||||||
|
''' </summary>
|
||||||
|
''' <returns></returns>
|
||||||
|
Public Property Name As String = ""
|
||||||
|
''' <summary>
|
||||||
|
''' A List of Object States and Actions.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns></returns>
|
||||||
|
Public ReadOnly Property Entries As New List(Of ObjectBase)
|
||||||
|
''' <summary>
|
||||||
|
''' Some data can be refered on this HistoryPoint. Don't know, in some situations this can be helpful.
|
||||||
|
''' </summary>
|
||||||
|
Public ReadOnly Tag As Object = Nothing
|
||||||
|
|
||||||
|
Public Function HasEntries(Of T As ObjectBase)() As Boolean
|
||||||
|
Return Entries.Where(Function(n) TypeOf n Is T).Count > 0
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Friend Sub Undo()
|
||||||
|
For Each s As ObjectBase In Entries.OrderBy(Function(n) n.UndoPriority)
|
||||||
|
If TypeOf s Is ObjectState Then
|
||||||
|
CType(s, ObjectState).Patch()
|
||||||
|
ElseIf TypeOf s Is ObjectAction Then
|
||||||
|
CType(s, ObjectAction).Undo()
|
||||||
|
End If
|
||||||
|
Next
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Friend Sub Redo()
|
||||||
|
For Each s As ObjectBase In Entries.OrderBy(Function(n) n.RedoPriority)
|
||||||
|
If TypeOf s Is ObjectState Then
|
||||||
|
CType(s, ObjectState).Patch()
|
||||||
|
ElseIf TypeOf s Is ObjectAction Then
|
||||||
|
CType(s, ObjectAction).Redo()
|
||||||
|
End If
|
||||||
|
Next
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Creates an History Point with Object States automaticly from input.
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="obj">The objects that should be included.</param>
|
||||||
|
''' <param name="whiteList">Specify which members to include.</param>
|
||||||
|
''' <returns>A History Point with Object States.</returns>
|
||||||
|
Public Shared Function FromObject(obj As Object(), whiteList As MemberWhiteList) As HistoryPoint
|
||||||
|
Return FromObject({obj}, ObjectValueType.None, CObj(whiteList), BindingFlags.Default)
|
||||||
|
End Function
|
||||||
|
''' <summary>
|
||||||
|
''' Creates an History Point with Object States automaticly from input.
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="obj">The objects that should be included.</param>
|
||||||
|
''' <param name="blackList">Specify which members to exclude.</param>
|
||||||
|
''' <returns>A History Point with Object States.</returns>
|
||||||
|
Public Shared Function FromObject(obj As Object(), blackList As MemberBlackList) As HistoryPoint
|
||||||
|
Return FromObject({obj}, ObjectValueType.None, CObj(blackList), BindingFlags.Default)
|
||||||
|
End Function
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Creates an History Point with Object States automaticly from input.
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="obj">The objects that should be included.</param>
|
||||||
|
''' <param name="memberName">The member names to include.</param>
|
||||||
|
''' <returns>A History Point with Object States.</returns>
|
||||||
|
Public Shared Function FromObject(obj As Object(), ParamArray memberName As String()) As HistoryPoint
|
||||||
|
Return FromObject(obj, True, memberName)
|
||||||
|
End Function
|
||||||
|
''' <summary>
|
||||||
|
''' Creates an History Point with Object States automaticly from input.
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="obj">The objects that should be included.</param>
|
||||||
|
''' <param name="isWhiteList">If true, the memberName-Array has member names that should be included.</param>
|
||||||
|
''' <param name="memberName">The member names to include/exclude.</param>
|
||||||
|
''' <returns>A History Point with Object States.</returns>
|
||||||
|
Public Shared Function FromObject(obj As Object(), isWhiteList As Boolean, ParamArray memberName As String()) As HistoryPoint
|
||||||
|
If isWhiteList Then
|
||||||
|
Return FromObject({obj}, ObjectValueType.None, CObj(New MemberWhiteList(memberName)), BindingFlags.Default)
|
||||||
|
Else
|
||||||
|
Return FromObject({obj}, ObjectValueType.None, CObj(New MemberBlackList(memberName)), BindingFlags.Default)
|
||||||
|
End If
|
||||||
|
End Function
|
||||||
|
''' <summary>
|
||||||
|
''' Creates an History Point with Object States automaticly from input.
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="obj">The objects that should be included.</param>
|
||||||
|
''' <param name="membersToStore">Specify what member types to include.</param>
|
||||||
|
''' <param name="memberName">The member names to include.</param>
|
||||||
|
''' <returns>A History Point with Object States.</returns>
|
||||||
|
Public Shared Function FromObject(obj As Object(), membersToStore As ObjectValueType, ParamArray memberName As String()) As HistoryPoint
|
||||||
|
Return FromObject(obj, membersToStore, True, memberName)
|
||||||
|
End Function
|
||||||
|
''' <summary>
|
||||||
|
''' Creates an History Point with Object States automaticly from input.
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="obj">The objects that should be included.</param>
|
||||||
|
''' <param name="membersToStore">Specify what member types to include.</param>
|
||||||
|
''' <param name="isWhiteList">If true, the memberName-Array has member names that should be included.</param>
|
||||||
|
''' <param name="memberName">The member names to include/exclude.</param>
|
||||||
|
''' <returns>A History Point with Object States.</returns>
|
||||||
|
Public Shared Function FromObject(obj As Object(), membersToStore As ObjectValueType, isWhiteList As Boolean, ParamArray memberName As String()) As HistoryPoint
|
||||||
|
If isWhiteList Then
|
||||||
|
Return FromObject({obj}, membersToStore, CObj(New MemberWhiteList(memberName)), BindingFlags.Default)
|
||||||
|
Else
|
||||||
|
Return FromObject({obj}, membersToStore, CObj(New MemberBlackList(memberName)), BindingFlags.Default)
|
||||||
|
End If
|
||||||
|
End Function
|
||||||
|
''' <summary>
|
||||||
|
''' Creates an History Point with Object States automaticly from input.
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="obj">The objects that should be included.</param>
|
||||||
|
''' <param name="flags">The Binding Flags that the members should have.</param>
|
||||||
|
''' <param name="memberName">The member names to include.</param>
|
||||||
|
''' <returns>A History Point with Object States.</returns>
|
||||||
|
Public Shared Function FromObject(obj As Object(), flags As BindingFlags, ParamArray memberName As String()) As HistoryPoint
|
||||||
|
Return FromObject(obj, flags, True, memberName)
|
||||||
|
End Function
|
||||||
|
''' <summary>
|
||||||
|
''' Creates an History Point with Object States automaticly from input.
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="obj">The objects that should be included.</param>
|
||||||
|
''' <param name="flags">The Binding Flags that the members should have.</param>
|
||||||
|
''' <param name="isWhiteList">If true, the memberName-Array has member names that should be included.</param>
|
||||||
|
''' <param name="memberName">The member names to include/exclude.</param>
|
||||||
|
''' <returns>A History Point with Object States.</returns>
|
||||||
|
Public Shared Function FromObject(obj As Object(), flags As BindingFlags, isWhiteList As Boolean, ParamArray memberName As String()) As HistoryPoint
|
||||||
|
If isWhiteList Then
|
||||||
|
Return FromObject({obj}, ObjectValueType.None, CObj(New MemberWhiteList(memberName)), flags)
|
||||||
|
Else
|
||||||
|
Return FromObject({obj}, ObjectValueType.None, CObj(New MemberBlackList(memberName)), flags)
|
||||||
|
End If
|
||||||
|
End Function
|
||||||
|
''' <summary>
|
||||||
|
''' Creates an History Point with Object States automaticly from input.
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="obj">The objects that should be included.</param>
|
||||||
|
''' <param name="membersToStore">Specify what member types to include.</param>
|
||||||
|
''' <param name="flags">The Binding Flags that the members should have.</param>
|
||||||
|
''' <param name="memberName">The member names to include.</param>
|
||||||
|
''' <returns>A History Point with Object States.</returns>
|
||||||
|
Public Shared Function FromObject(obj As Object(), membersToStore As ObjectValueType, flags As BindingFlags, ParamArray memberName As String()) As HistoryPoint
|
||||||
|
Return FromObject(obj, flags, True, memberName)
|
||||||
|
End Function
|
||||||
|
''' <summary>
|
||||||
|
''' Creates an History Point with Object States automaticly from input.
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="obj">The objects that should be included.</param>
|
||||||
|
''' <param name="membersToStore">Specify what member types to include.</param>
|
||||||
|
''' <param name="flags">The Binding Flags that the members should have.</param>
|
||||||
|
''' <param name="isWhiteList">If true, the memberName-Array has member names that should be included.</param>
|
||||||
|
''' <param name="memberName">The member names to include/exclude.</param>
|
||||||
|
''' <returns>A History Point with Object States.</returns>
|
||||||
|
Public Shared Function FromObject(obj As Object(), membersToStore As ObjectValueType, flags As BindingFlags, isWhiteList As Boolean, ParamArray memberName As String()) As HistoryPoint
|
||||||
|
If isWhiteList Then
|
||||||
|
Return FromObject({obj}, membersToStore, CObj(New MemberWhiteList(memberName)), flags)
|
||||||
|
Else
|
||||||
|
Return FromObject({obj}, membersToStore, CObj(New MemberBlackList(memberName)), flags)
|
||||||
|
End If
|
||||||
|
End Function
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Creates an History Point with Object States automaticly from input.
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="obj">The object that should be included.</param>
|
||||||
|
''' <param name="whiteList">Specify which members to include.</param>
|
||||||
|
''' <returns>A History Point with Object States.</returns>
|
||||||
|
Public Shared Function FromObject(obj As Object, whiteList As MemberWhiteList) As HistoryPoint
|
||||||
|
Return FromObject({obj}, ObjectValueType.None, CObj(whiteList), BindingFlags.Default)
|
||||||
|
End Function
|
||||||
|
''' <summary>
|
||||||
|
''' Creates an History Point with Object States automaticly from input.
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="obj">The object that should be included.</param>
|
||||||
|
''' <param name="blackList">Specify which members to exclude.</param>
|
||||||
|
''' <returns>A History Point with Object States.</returns>
|
||||||
|
Public Shared Function FromObject(obj As Object, blackList As MemberBlackList) As HistoryPoint
|
||||||
|
Return FromObject({obj}, ObjectValueType.None, CObj(blackList), BindingFlags.Default)
|
||||||
|
End Function
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Creates an History Point with Object States automaticly from input.
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="obj">The object that should be included.</param>
|
||||||
|
''' <param name="memberName">The member names to include/exclude.</param>
|
||||||
|
''' <returns>A History Point with Object States.</returns>
|
||||||
|
Public Shared Function FromObject(obj As Object, ParamArray memberName As String()) As HistoryPoint
|
||||||
|
Return FromObject(obj, True, memberName)
|
||||||
|
End Function
|
||||||
|
''' <summary>
|
||||||
|
''' Creates an History Point with Object States automaticly from input.
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="obj">The object that should be included.</param>
|
||||||
|
''' <param name="isWhiteList">If true, the memberName-Array has member names that should be included.</param>
|
||||||
|
''' <param name="memberName">The member names to include/exclude.</param>
|
||||||
|
''' <returns>A History Point with Object States.</returns>
|
||||||
|
Public Shared Function FromObject(obj As Object, isWhiteList As Boolean, ParamArray memberName As String()) As HistoryPoint
|
||||||
|
If isWhiteList Then
|
||||||
|
Return FromObject({obj}, ObjectValueType.None, CObj(New MemberWhiteList(memberName)), BindingFlags.Default)
|
||||||
|
Else
|
||||||
|
Return FromObject({obj}, ObjectValueType.None, CObj(New MemberBlackList(memberName)), BindingFlags.Default)
|
||||||
|
End If
|
||||||
|
End Function
|
||||||
|
''' <summary>
|
||||||
|
''' Creates an History Point with Object States automaticly from input.
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="obj">The object that should be included.</param>
|
||||||
|
''' <param name="membersToStore">Specify what member types to include.</param>
|
||||||
|
''' <param name="memberName">The member names to include.</param>
|
||||||
|
''' <returns>A History Point with Object States.</returns>
|
||||||
|
Public Shared Function FromObject(obj As Object, membersToStore As ObjectValueType, ParamArray memberName As String()) As HistoryPoint
|
||||||
|
Return FromObject(obj, membersToStore, True, memberName)
|
||||||
|
End Function
|
||||||
|
''' <summary>
|
||||||
|
''' Creates an History Point with Object States automaticly from input.
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="obj">The object that should be included.</param>
|
||||||
|
''' <param name="membersToStore">Specify what member types to include.</param>
|
||||||
|
''' <param name="isWhiteList">If true, the memberName-Array has member names that should be included.</param>
|
||||||
|
''' <param name="memberName">The member names to include/exclude.</param>
|
||||||
|
''' <returns>A History Point with Object States.</returns>
|
||||||
|
Public Shared Function FromObject(obj As Object, membersToStore As ObjectValueType, isWhiteList As Boolean, ParamArray memberName As String()) As HistoryPoint
|
||||||
|
If isWhiteList Then
|
||||||
|
Return FromObject({obj}, membersToStore, CObj(New MemberWhiteList(memberName)), BindingFlags.Default)
|
||||||
|
Else
|
||||||
|
Return FromObject({obj}, membersToStore, CObj(New MemberBlackList(memberName)), BindingFlags.Default)
|
||||||
|
End If
|
||||||
|
End Function
|
||||||
|
''' <summary>
|
||||||
|
''' Creates an History Point with Object States automaticly from input.
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="obj">The object that should be included.</param>
|
||||||
|
''' <param name="flags">The Binding Flags that the members should have.</param>
|
||||||
|
''' <param name="memberName">The member names to include.</param>
|
||||||
|
''' <returns>A History Point with Object States.</returns>
|
||||||
|
Public Shared Function FromObject(obj As Object, flags As BindingFlags, ParamArray memberName As String()) As HistoryPoint
|
||||||
|
Return FromObject(obj, flags, True, memberName)
|
||||||
|
End Function
|
||||||
|
''' <summary>
|
||||||
|
''' Creates an History Point with Object States automaticly from input.
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="obj">The object that should be included.</param>
|
||||||
|
''' <param name="flags">The Binding Flags that the members should have.</param>
|
||||||
|
''' <param name="isWhiteList">If true, the memberName-Array has member names that should be included.</param>
|
||||||
|
''' <param name="memberName">The member names to include/exclude.</param>
|
||||||
|
''' <returns>A History Point with Object States.</returns>
|
||||||
|
Public Shared Function FromObject(obj As Object, flags As BindingFlags, isWhiteList As Boolean, ParamArray memberName As String()) As HistoryPoint
|
||||||
|
If isWhiteList Then
|
||||||
|
Return FromObject({obj}, ObjectValueType.None, CObj(New MemberWhiteList(memberName)), flags)
|
||||||
|
Else
|
||||||
|
Return FromObject({obj}, ObjectValueType.None, CObj(New MemberBlackList(memberName)), flags)
|
||||||
|
End If
|
||||||
|
End Function
|
||||||
|
''' <summary>
|
||||||
|
''' Creates an History Point with Object States automaticly from input.
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="obj">The object that should be included.</param>
|
||||||
|
''' <param name="membersToStore">Specify what member types to include.</param>
|
||||||
|
''' <param name="flags">The Binding Flags that the members should have.</param>
|
||||||
|
''' <param name="memberName">The member names to include.</param>
|
||||||
|
''' <returns>A History Point with Object States.</returns>
|
||||||
|
Public Shared Function FromObject(obj As Object, membersToStore As ObjectValueType, flags As BindingFlags, ParamArray memberName As String()) As HistoryPoint
|
||||||
|
Return FromObject(obj, flags, True, memberName)
|
||||||
|
End Function
|
||||||
|
''' <summary>
|
||||||
|
''' Creates an History Point with Object States automaticly from input.
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="obj">The object that should be included.</param>
|
||||||
|
''' <param name="membersToStore">Specify what member types to include.</param>
|
||||||
|
''' <param name="flags">The Binding Flags that the members should have.</param>
|
||||||
|
''' <param name="isWhiteList">If true, the memberName-Array has member names that should be included.</param>
|
||||||
|
''' <param name="memberName">The member names to include/exclude.</param>
|
||||||
|
''' <returns>A History Point with Object States.</returns>
|
||||||
|
Public Shared Function FromObject(obj As Object, membersToStore As ObjectValueType, flags As BindingFlags, isWhiteList As Boolean, ParamArray memberName As String()) As HistoryPoint
|
||||||
|
If isWhiteList Then
|
||||||
|
Return FromObject({obj}, membersToStore, CObj(New MemberWhiteList(memberName)), flags)
|
||||||
|
Else
|
||||||
|
Return FromObject({obj}, membersToStore, CObj(New MemberBlackList(memberName)), flags)
|
||||||
|
End If
|
||||||
|
End Function
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Creates an History Point with Object States automaticly from input.
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="obj">The object that should be included.</param>
|
||||||
|
''' <returns>A History Point with Object States.</returns>
|
||||||
|
Public Shared Function FromObject(obj As Object) As HistoryPoint
|
||||||
|
Return FromObject({obj}, ObjectValueType.None, CObj(Nothing), BindingFlags.Default)
|
||||||
|
End Function
|
||||||
|
''' <summary>
|
||||||
|
''' Creates an History Point with Object States automaticly from input.
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="obj">The object that should be included.</param>
|
||||||
|
''' <param name="membersToStore">Specify what member types to include.</param>
|
||||||
|
''' <returns>A History Point with Object States.</returns>
|
||||||
|
Public Shared Function FromObject(obj As Object, membersToStore As ObjectValueType) As HistoryPoint
|
||||||
|
Return FromObject({obj}, membersToStore, CObj(Nothing), BindingFlags.Default)
|
||||||
|
End Function
|
||||||
|
''' <summary>
|
||||||
|
''' Creates an History Point with Object States automaticly from input.
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="obj">The object that should be included.</param>
|
||||||
|
''' <param name="membersToStore">Specify what member types to include.</param>
|
||||||
|
''' <param name="whiteList">Specify which members to include.</param>
|
||||||
|
''' <returns>A History Point with Object States.</returns>
|
||||||
|
Public Shared Function FromObject(obj As Object, membersToStore As ObjectValueType, whiteList As MemberWhiteList) As HistoryPoint
|
||||||
|
Return FromObject({obj}, membersToStore, CObj(whiteList), BindingFlags.Default)
|
||||||
|
End Function
|
||||||
|
''' <summary>
|
||||||
|
''' Creates an History Point with Object States automaticly from input.
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="obj">The object that should be included.</param>
|
||||||
|
''' <param name="membersToStore">Specify what member types to include.</param>
|
||||||
|
''' <param name="blackList">Specify which members to exclude.</param>
|
||||||
|
''' <returns>A History Point with Object States.</returns>
|
||||||
|
Public Shared Function FromObject(obj As Object, membersToStore As ObjectValueType, blackList As MemberBlackList) As HistoryPoint
|
||||||
|
Return FromObject({obj}, membersToStore, CObj(blackList), BindingFlags.Default)
|
||||||
|
End Function
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Creates an History Point with Object States automaticly from input.
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="obj">The object that should be included.</param>
|
||||||
|
''' <param name="flags">The Binding Flags that the members should have.</param>
|
||||||
|
''' <returns>A History Point with Object States.</returns>
|
||||||
|
Public Shared Function FromObject(obj As Object, flags As BindingFlags) As HistoryPoint
|
||||||
|
Return FromObject({obj}, ObjectValueType.None, CObj(Nothing), flags)
|
||||||
|
End Function
|
||||||
|
''' <summary>
|
||||||
|
''' Creates an History Point with Object States automaticly from input.
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="obj">The object that should be included.</param>
|
||||||
|
''' <param name="membersToStore">Specify what member types to include.</param>
|
||||||
|
''' <param name="flags">The Binding Flags that the members should have.</param>
|
||||||
|
''' <returns>A History Point with Object States.</returns>
|
||||||
|
Public Shared Function FromObject(obj As Object, membersToStore As ObjectValueType, flags As BindingFlags) As HistoryPoint
|
||||||
|
Return FromObject({obj}, membersToStore, CObj(Nothing), flags)
|
||||||
|
End Function
|
||||||
|
''' <summary>
|
||||||
|
''' Creates an History Point with Object States automaticly from input.
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="obj">The object that should be included.</param>
|
||||||
|
''' <param name="membersToStore">Specify what member types to include.</param>
|
||||||
|
''' <param name="whiteList">Specify which members to include.</param>
|
||||||
|
''' <param name="flags">The Binding Flags that the members should have.</param>
|
||||||
|
''' <returns>A History Point with Object States.</returns>
|
||||||
|
Public Shared Function FromObject(obj As Object, membersToStore As ObjectValueType, whiteList As MemberWhiteList, flags As BindingFlags) As HistoryPoint
|
||||||
|
Return FromObject({obj}, membersToStore, CObj(whiteList), flags)
|
||||||
|
End Function
|
||||||
|
''' <summary>
|
||||||
|
''' Creates an History Point with Object States automaticly from input.
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="obj">The object that should be included.</param>
|
||||||
|
''' <param name="membersToStore">Specify what member types to include.</param>
|
||||||
|
''' <param name="blackList">Specify which members to exclude.</param>
|
||||||
|
''' <param name="flags">The Binding Flags that the members should have.</param>
|
||||||
|
''' <returns>A History Point with Object States.</returns>
|
||||||
|
Public Shared Function FromObject(obj As Object, membersToStore As ObjectValueType, blackList As MemberBlackList, flags As BindingFlags) As HistoryPoint
|
||||||
|
Return FromObject({obj}, membersToStore, CObj(blackList), flags)
|
||||||
|
End Function
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Creates an History Point with Object States automaticly from input.
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="objs">The objects that should be included.</param>
|
||||||
|
''' <returns>A History Point with Object States.</returns>
|
||||||
|
Public Shared Function FromObject(objs As Object()) As HistoryPoint
|
||||||
|
Return FromObject(objs, ObjectValueType.None, CObj(Nothing), BindingFlags.Default)
|
||||||
|
End Function
|
||||||
|
''' <summary>
|
||||||
|
''' Creates an History Point with Object States automaticly from input.
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="objs">The objects that should be included.</param>
|
||||||
|
''' <param name="membersToStore">Specify what member types to include.</param>
|
||||||
|
''' <returns>A History Point with Object States.</returns>
|
||||||
|
Public Shared Function FromObject(objs As Object(), membersToStore As ObjectValueType) As HistoryPoint
|
||||||
|
Return FromObject(objs, membersToStore, CObj(Nothing), BindingFlags.Default)
|
||||||
|
End Function
|
||||||
|
''' <summary>
|
||||||
|
''' Creates an History Point with Object States automaticly from input.
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="objs">The objects that should be included.</param>
|
||||||
|
''' <param name="membersToStore">Specify what member types to include.</param>
|
||||||
|
''' <param name="whiteList">Specify which members to include.</param>
|
||||||
|
''' <returns>A History Point with Object States.</returns>
|
||||||
|
Public Shared Function FromObject(objs As Object(), membersToStore As ObjectValueType, whiteList As MemberWhiteList) As HistoryPoint
|
||||||
|
Return FromObject(objs, membersToStore, CObj(whiteList), BindingFlags.Default)
|
||||||
|
End Function
|
||||||
|
''' <summary>
|
||||||
|
''' Creates an History Point with Object States automaticly from input.
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="objs">The objects that should be included.</param>
|
||||||
|
''' <param name="membersToStore">Specify what member types to include.</param>
|
||||||
|
''' <param name="blackList">Specify which members to exclude.</param>
|
||||||
|
''' <returns>A History Point with Object States.</returns>
|
||||||
|
Public Shared Function FromObject(objs As Object(), membersToStore As ObjectValueType, blackList As MemberBlackList) As HistoryPoint
|
||||||
|
Return FromObject(objs, membersToStore, CObj(blackList), BindingFlags.Default)
|
||||||
|
End Function
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Creates an History Point with Object States automaticly from input.
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="objs">The objects that should be included.</param>
|
||||||
|
''' <param name="flags">The Binding Flags that the members should have.</param>
|
||||||
|
''' <returns>A History Point with Object States.</returns>
|
||||||
|
Public Shared Function FromObject(objs As Object(), flags As BindingFlags) As HistoryPoint
|
||||||
|
Return FromObject(objs, ObjectValueType.None, CObj(Nothing), flags)
|
||||||
|
End Function
|
||||||
|
''' <summary>
|
||||||
|
''' Creates an History Point with Object States automaticly from input.
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="objs">The objects that should be included.</param>
|
||||||
|
''' <param name="membersToStore">Specify what member types to include.</param>
|
||||||
|
''' <param name="flags">The Binding Flags that the members should have.</param>
|
||||||
|
''' <returns>A History Point with Object States.</returns>
|
||||||
|
Public Shared Function FromObject(objs As Object(), membersToStore As ObjectValueType, flags As BindingFlags) As HistoryPoint
|
||||||
|
Return FromObject(objs, membersToStore, CObj(Nothing), flags)
|
||||||
|
End Function
|
||||||
|
''' <summary>
|
||||||
|
''' Creates an History Point with Object States automaticly from input.
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="objs">The objects that should be included.</param>
|
||||||
|
''' <param name="membersToStore">Specify what member types to include.</param>
|
||||||
|
''' <param name="whiteList">Specify which members to include.</param>
|
||||||
|
''' <param name="flags">The Binding Flags that the members should have.</param>
|
||||||
|
''' <returns>A History Point with Object States.</returns>
|
||||||
|
Public Shared Function FromObject(objs As Object(), membersToStore As ObjectValueType, whiteList As MemberWhiteList, flags As BindingFlags) As HistoryPoint
|
||||||
|
Return FromObject(objs, membersToStore, CObj(whiteList), flags)
|
||||||
|
End Function
|
||||||
|
''' <summary>
|
||||||
|
''' Creates an History Point with Object States automaticly from input.
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="objs">The objects that should be included.</param>
|
||||||
|
''' <param name="membersToStore">Specify what member types to include.</param>
|
||||||
|
''' <param name="blackList">Specify which members to exclude.</param>
|
||||||
|
''' <param name="flags">The Binding Flags that the members should have.</param>
|
||||||
|
''' <returns>A History Point with Object States.</returns>
|
||||||
|
Public Shared Function FromObject(objs As Object(), membersToStore As ObjectValueType, blackList As MemberBlackList, flags As BindingFlags) As HistoryPoint
|
||||||
|
Return FromObject(objs, membersToStore, CObj(blackList), flags)
|
||||||
|
End Function
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Creates an History Point with Object States automaticly from input.
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="objs">The objects that should be included.</param>
|
||||||
|
''' <param name="membersToStore">Specify what member types to include.</param>
|
||||||
|
''' <param name="whiteOrBlackList">Specify which members to include.</param>
|
||||||
|
''' <param name="flags">The Binding Flags that the members should have.</param>
|
||||||
|
''' <returns>A History Point with Object States.</returns>
|
||||||
|
Private Shared Function FromObject(objs As Object(), membersToStore As ObjectValueType, whiteOrBlackList As Object, flags As BindingFlags) As HistoryPoint
|
||||||
|
Dim hp As New HistoryPoint
|
||||||
|
|
||||||
|
If whiteOrBlackList Is Nothing Then whiteOrBlackList = New MemberBlackList
|
||||||
|
Dim isWhiteList As Boolean = TypeOf whiteOrBlackList Is MemberWhiteList
|
||||||
|
|
||||||
|
If flags = BindingFlags.Default Then
|
||||||
|
flags = BindingFlags.Instance Or BindingFlags.Public Or BindingFlags.NonPublic
|
||||||
|
End If
|
||||||
|
If membersToStore = ObjectValueType.None Then
|
||||||
|
membersToStore = ObjectValueType.Field Or ObjectValueType.Property
|
||||||
|
End If
|
||||||
|
|
||||||
|
For Each obj As Object In objs
|
||||||
|
If (membersToStore And ObjectValueType.Field) = ObjectValueType.Field Then
|
||||||
|
|
||||||
|
For Each fi As FieldInfo In obj.GetType.GetFields(flags)
|
||||||
|
|
||||||
|
Dim contains As Boolean = whiteOrBlackList.Contains(fi.Name)
|
||||||
|
If If(isWhiteList, contains, Not contains) Then
|
||||||
|
|
||||||
|
Dim os As New ObjectState
|
||||||
|
os.Object = obj
|
||||||
|
os.MemberName = fi.Name
|
||||||
|
os.MemberType = ObjectValueType.Field
|
||||||
|
os.MemberFlags = flags
|
||||||
|
os.ValueToPatch = fi.GetValue(obj)
|
||||||
|
hp.Entries.Add(os)
|
||||||
|
|
||||||
|
End If
|
||||||
|
|
||||||
|
Next
|
||||||
|
|
||||||
|
End If
|
||||||
|
|
||||||
|
If (membersToStore And ObjectValueType.Property) = ObjectValueType.Property Then
|
||||||
|
|
||||||
|
For Each pi As PropertyInfo In obj.GetType.GetProperties(flags)
|
||||||
|
|
||||||
|
Dim contains As Boolean = whiteOrBlackList.Contains(pi.Name)
|
||||||
|
If If(isWhiteList, contains, Not contains) Then
|
||||||
|
|
||||||
|
Dim os As New ObjectState
|
||||||
|
os.Object = obj
|
||||||
|
os.MemberName = pi.Name
|
||||||
|
os.MemberType = ObjectValueType.Property
|
||||||
|
os.MemberFlags = flags
|
||||||
|
os.ValueToPatch = pi.GetValue(obj)
|
||||||
|
hp.Entries.Add(os)
|
||||||
|
|
||||||
|
End If
|
||||||
|
|
||||||
|
Next
|
||||||
|
|
||||||
|
End If
|
||||||
|
Next
|
||||||
|
|
||||||
|
Return hp
|
||||||
|
End Function
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Combines some History Points to one.
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="hps">An array of History Points to combine.</param>
|
||||||
|
''' <returns>One History Point that contains all Data of inputted History Points.</returns>
|
||||||
|
Public Shared Function Concat(ParamArray hps As HistoryPoint()) As HistoryPoint
|
||||||
|
Return Concat(hps.FirstOrDefault?.Name, hps)
|
||||||
|
End Function
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Combines some History Points to one.
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="hps">An array of History Points to combine.</param>
|
||||||
|
''' <returns>One History Point that contains all Data of inputted History Points.</returns>
|
||||||
|
Public Shared Function Concat(newName As String, ParamArray hps As HistoryPoint()) As HistoryPoint
|
||||||
|
Dim hp As New HistoryPoint
|
||||||
|
|
||||||
|
For Each _hp As HistoryPoint In hps
|
||||||
|
hp.Entries.AddRange(_hp.Entries)
|
||||||
|
Next
|
||||||
|
|
||||||
|
Return hp
|
||||||
|
End Function
|
||||||
|
|
||||||
|
End Class
|
||||||
|
|
||||||
|
End Namespace
|
||||||
33
Pilz.Collections/SimpleHistory/MemberLists.vb
Normal file
33
Pilz.Collections/SimpleHistory/MemberLists.vb
Normal file
@@ -0,0 +1,33 @@
|
|||||||
|
Namespace SimpleHistory
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' List contianing member names to include.
|
||||||
|
''' </summary>
|
||||||
|
Public Class MemberWhiteList
|
||||||
|
Inherits List(Of String)
|
||||||
|
|
||||||
|
Public Sub New()
|
||||||
|
MyBase.New
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Sub New(entries As String())
|
||||||
|
MyBase.New(entries)
|
||||||
|
End Sub
|
||||||
|
End Class
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' List contianing member names to exclude
|
||||||
|
''' </summary>
|
||||||
|
Public Class MemberBlackList
|
||||||
|
Inherits List(Of String)
|
||||||
|
|
||||||
|
Public Sub New()
|
||||||
|
MyBase.New
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Sub New(entries As String())
|
||||||
|
MyBase.New(entries)
|
||||||
|
End Sub
|
||||||
|
End Class
|
||||||
|
|
||||||
|
End Namespace
|
||||||
165
Pilz.Collections/SimpleHistory/ObjectAction.vb
Normal file
165
Pilz.Collections/SimpleHistory/ObjectAction.vb
Normal file
@@ -0,0 +1,165 @@
|
|||||||
|
Imports System.Reflection
|
||||||
|
Imports System.Runtime.InteropServices
|
||||||
|
|
||||||
|
Namespace SimpleHistory
|
||||||
|
|
||||||
|
Public Class ObjectAction
|
||||||
|
Inherits ObjectBase
|
||||||
|
|
||||||
|
Public Property [Object] As Object = Nothing
|
||||||
|
Public ReadOnly Property ParametersUndo As New List(Of Object)
|
||||||
|
Public ReadOnly Property ParametersRedo As New List(Of Object)
|
||||||
|
Public Property MethodUndo As MethodInfo = Nothing
|
||||||
|
Public Property MethodRedo As MethodInfo = Nothing
|
||||||
|
Public Property AutogenerateObject As Boolean = True
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Creates a new Instance of Object Action.
|
||||||
|
''' </summary>
|
||||||
|
Public Sub New()
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Function GetMethodInfo(obj As Object, name As String, flags As BindingFlags)
|
||||||
|
Return obj.GetType.GetMethod(name, flags)
|
||||||
|
End Function
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Creates a new Instance of Object Action.
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="obj">The Objects that contains the methodes to call.</param>
|
||||||
|
''' <param name="methodNameUndo">The name of the methode to call on Undo.</param>
|
||||||
|
''' <param name="methodNameRedo">The name of the methode to call on Redo.</param>
|
||||||
|
Public Sub New(obj As Object, methodNameUndo As String, methodNameRedo As String)
|
||||||
|
Me.New(obj, methodNameUndo, methodNameRedo, {}, {}, BindingFlags.Default, BindingFlags.Default)
|
||||||
|
End Sub
|
||||||
|
''' <summary>
|
||||||
|
''' Creates a new Instance of Object Action.
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="obj">The Objects that contains the methodes to call.</param>
|
||||||
|
''' <param name="methodNameUndo">The name of the methode to call on Undo.</param>
|
||||||
|
''' <param name="methodNameRedo">The name of the methode to call on Redo.</param>
|
||||||
|
''' <param name="paramsUndo">The parameters for calling the methode on Undo.</param>
|
||||||
|
''' <param name="paramsRedo">The parameters for calling the methode on Redo.</param>
|
||||||
|
Public Sub New(obj As Object, methodNameUndo As String, methodNameRedo As String, paramsUndo As Object(), paramsRedo As Object())
|
||||||
|
Me.New(obj, methodNameUndo, methodNameRedo, paramsUndo, paramsRedo, BindingFlags.Default, BindingFlags.Default)
|
||||||
|
End Sub
|
||||||
|
''' <summary>
|
||||||
|
''' Creates a new Instance of Object Action.
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="obj">The Objects that contains the methodes to call.</param>
|
||||||
|
''' <param name="methodNameUndo">The name of the methode to call on Undo.</param>
|
||||||
|
''' <param name="methodNameRedo">The name of the methode to call on Redo.</param>
|
||||||
|
''' <param name="paramsUndo">The parameters for calling the methode on Undo.</param>
|
||||||
|
''' <param name="paramsRedo">The parameters for calling the methode on Redo.</param>
|
||||||
|
''' <param name="methodFlagsUndo">The Binding Flags of Methode on Undo.</param>
|
||||||
|
''' <param name="methodFlagsRedo">The Binding Flags of Methode on Redo.</param>
|
||||||
|
Public Sub New(obj As Object, methodNameUndo As String, methodNameRedo As String, paramsUndo As Object(), paramsRedo As Object(), methodFlagsUndo As BindingFlags, methodFlagsRedo As BindingFlags)
|
||||||
|
[Object] = obj
|
||||||
|
ParametersUndo.AddRange(paramsUndo)
|
||||||
|
ParametersRedo.AddRange(paramsRedo)
|
||||||
|
MethodUndo = GetMethodInfo(obj, methodNameUndo, GetFlags(methodFlagsUndo))
|
||||||
|
MethodRedo = GetMethodInfo(obj, methodNameRedo, GetFlags(methodFlagsRedo))
|
||||||
|
End Sub
|
||||||
|
''' <summary>
|
||||||
|
''' Creates a new Instance of Object Action.
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="obj">The Objects that contains the methodes to call.</param>
|
||||||
|
''' <param name="methodNameUndo">The name of the methode to call on Undo.</param>
|
||||||
|
''' <param name="methodNameRedo">The name of the methode to call on Redo.</param>
|
||||||
|
''' <param name="methodFlagsUndo">The Binding Flags of Methode on Undo.</param>
|
||||||
|
''' <param name="methodFlagsRedo">The Binding Flags of Methode on Redo.</param>
|
||||||
|
Public Sub New(obj As Object, methodNameUndo As String, methodNameRedo As String, methodFlagsUndo As BindingFlags, methodFlagsRedo As BindingFlags)
|
||||||
|
Me.New(obj, methodNameUndo, methodNameRedo, {}, {}, methodFlagsUndo, methodFlagsRedo)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Creates a new Instance of Object Action.
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="obj">The Objects that contains the methodes to call.</param>
|
||||||
|
''' <param name="methodUndo">The MethodInfo of the methode to call on Undo.</param>
|
||||||
|
''' <param name="methodRedo">The MethodInfo of the methode to call on Redo.</param>
|
||||||
|
Public Sub New(obj As Object, methodUndo As MethodInfo, methodRedo As MethodInfo)
|
||||||
|
[Object] = obj
|
||||||
|
Me.MethodUndo = methodUndo
|
||||||
|
Me.MethodRedo = methodRedo
|
||||||
|
End Sub
|
||||||
|
''' <summary>
|
||||||
|
''' Creates a new Instance of Object Action.
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="obj">The Objects that contains the methodes to call.</param>
|
||||||
|
''' <param name="methodUndo">The MethodInfo of the methode to call on Undo.</param>
|
||||||
|
''' <param name="methodRedo">The MethodInfo of the methode to call on Redo.</param>
|
||||||
|
''' <param name="paramsUndo">The parameters for calling the methode on Undo.</param>
|
||||||
|
''' <param name="paramsRedo">The parameters for calling the methode on Redo.</param>
|
||||||
|
Public Sub New(obj As Object, methodUndo As MethodInfo, methodRedo As MethodInfo, paramsUndo As Object(), paramsRedo As Object())
|
||||||
|
Me.New(obj, methodUndo, methodRedo)
|
||||||
|
ParametersUndo.AddRange(paramsUndo)
|
||||||
|
ParametersRedo.AddRange(paramsRedo)
|
||||||
|
End Sub
|
||||||
|
''' <summary>
|
||||||
|
''' Creates a new Instance of Object Action.
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="obj">The Objects that contains the methodes to call.</param>
|
||||||
|
''' <param name="methodUndo">The Delegate of the methode to call on Undo.</param>
|
||||||
|
''' <param name="methodRedo">The Delegate of the methode to call on Redo.</param>
|
||||||
|
Public Sub New(obj As Object, methodUndo As [Delegate], methodRedo As [Delegate])
|
||||||
|
[Object] = obj
|
||||||
|
Me.MethodUndo = methodUndo.Method
|
||||||
|
Me.MethodRedo = methodRedo.Method
|
||||||
|
End Sub
|
||||||
|
''' <summary>
|
||||||
|
''' Creates a new Instance of Object Action.
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="obj">The Objects that contains the methodes to call.</param>
|
||||||
|
''' <param name="methodUndo">The Delegate of the methode to call on Undo.</param>
|
||||||
|
''' <param name="methodRedo">The Delegate of the methode to call on Redo.</param>
|
||||||
|
''' <param name="paramsUndo">The parameters for calling the methode on Undo.</param>
|
||||||
|
''' <param name="paramsRedo">The parameters for calling the methode on Redo.</param>
|
||||||
|
Public Sub New(obj As Object, methodUndo As [Delegate], methodRedo As [Delegate], paramsUndo As Object(), paramsRedo As Object())
|
||||||
|
Me.New(obj, methodUndo, methodRedo)
|
||||||
|
ParametersUndo.AddRange(paramsUndo)
|
||||||
|
ParametersRedo.AddRange(paramsRedo)
|
||||||
|
End Sub
|
||||||
|
''' <summary>
|
||||||
|
''' Creates a new Instance of Object Action.
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="obj">The Objects that contains the methodes to call.</param>
|
||||||
|
''' <param name="methodUndo">The Action of the methode to call on Undo.</param>
|
||||||
|
''' <param name="methodRedo">The Action of the methode to call on Redo.</param>
|
||||||
|
Public Sub New(obj As Object, methodUndo As Action, methodRedo As Action)
|
||||||
|
[Object] = obj
|
||||||
|
Me.MethodUndo = methodUndo.Method
|
||||||
|
Me.MethodRedo = methodRedo.Method
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Function GetFlags(flags As BindingFlags) As BindingFlags
|
||||||
|
If flags = BindingFlags.Default Then
|
||||||
|
flags = BindingFlags.Instance Or BindingFlags.Public Or BindingFlags.NonPublic
|
||||||
|
End If
|
||||||
|
Return flags
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Friend Sub Undo()
|
||||||
|
CheckIfObjIsNothing(MethodUndo)
|
||||||
|
MethodUndo?.Invoke([Object], ParametersUndo.ToArray)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Friend Sub Redo()
|
||||||
|
CheckIfObjIsNothing(MethodRedo)
|
||||||
|
MethodRedo?.Invoke([Object], ParametersRedo.ToArray)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub CheckIfObjIsNothing(mi As MethodInfo)
|
||||||
|
If mi IsNot Nothing AndAlso Not mi.IsStatic AndAlso AutogenerateObject Then
|
||||||
|
If (Me.Object Is Nothing OrElse Me.Object.GetType <> mi.ReflectedType) AndAlso Not mi.IsStatic Then
|
||||||
|
Dim constructor As ConstructorInfo = mi.ReflectedType.GetConstructor(Type.EmptyTypes)
|
||||||
|
Dim classObject As Object = constructor.Invoke({})
|
||||||
|
Me.Object = classObject
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
End Class
|
||||||
|
|
||||||
|
|
||||||
|
End Namespace
|
||||||
13
Pilz.Collections/SimpleHistory/ObjectBase.vb
Normal file
13
Pilz.Collections/SimpleHistory/ObjectBase.vb
Normal file
@@ -0,0 +1,13 @@
|
|||||||
|
Namespace SimpleHistory
|
||||||
|
|
||||||
|
Public Class ObjectBase
|
||||||
|
|
||||||
|
Public Shared Property DefaultPriorityValue As Integer = 1000
|
||||||
|
|
||||||
|
Public Property UndoPriority As Integer = DefaultPriorityValue
|
||||||
|
Public Property RedoPriority As Integer = DefaultPriorityValue
|
||||||
|
|
||||||
|
End Class
|
||||||
|
|
||||||
|
|
||||||
|
End Namespace
|
||||||
84
Pilz.Collections/SimpleHistory/ObjectState.vb
Normal file
84
Pilz.Collections/SimpleHistory/ObjectState.vb
Normal file
@@ -0,0 +1,84 @@
|
|||||||
|
Imports System.Reflection
|
||||||
|
|
||||||
|
Namespace SimpleHistory
|
||||||
|
|
||||||
|
Public Class ObjectState
|
||||||
|
Inherits ObjectBase
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' The Object including the members to patch.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns></returns>
|
||||||
|
Public Property [Object] As Object = Nothing
|
||||||
|
''' <summary>
|
||||||
|
''' The name of the Member to patch.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns></returns>
|
||||||
|
Public Property MemberName As String = ""
|
||||||
|
''' <summary>
|
||||||
|
''' The Value that should be patched.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns></returns>
|
||||||
|
Public Property ValueToPatch As Object = Nothing
|
||||||
|
''' <summary>
|
||||||
|
''' The member types to include at searching for the member.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns></returns>
|
||||||
|
Public Property MemberType As ObjectValueType = ObjectValueType.Field
|
||||||
|
''' <summary>
|
||||||
|
''' The Binding Flags that are used at searching for the member.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns></returns>
|
||||||
|
Public Property MemberFlags As BindingFlags = BindingFlags.Default
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Creates a new Instance of ObjectState from input.
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="obj">The Object including the members to patch.</param>
|
||||||
|
''' <param name="valname">The name of the Member to patch.</param>
|
||||||
|
''' <param name="valToPatch">The member types to include at searching for the member.</param>
|
||||||
|
''' <param name="valtype">The Binding Flags that are used at searching for the member.</param>
|
||||||
|
Public Sub New(obj As Object, valname As String, valToPatch As Object, valtype As ObjectValueType)
|
||||||
|
[Object] = obj
|
||||||
|
MemberName = valname
|
||||||
|
ValueToPatch = valToPatch
|
||||||
|
MemberType = valtype
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Creates a new Instance of ObjectState.
|
||||||
|
''' </summary>
|
||||||
|
Public Sub New()
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Friend Sub Patch()
|
||||||
|
Dim t As Type = [Object].GetType
|
||||||
|
Select Case MemberType
|
||||||
|
Case ObjectValueType.Field
|
||||||
|
Dim f As FieldInfo = t.GetField(MemberName, MemberFlags)
|
||||||
|
Dim temp As Object = Nothing
|
||||||
|
|
||||||
|
If f IsNot Nothing Then
|
||||||
|
temp = f.GetValue([Object])
|
||||||
|
f.SetValue([Object], ValueToPatch)
|
||||||
|
ValueToPatch = temp
|
||||||
|
End If
|
||||||
|
|
||||||
|
Case ObjectValueType.Property
|
||||||
|
Dim p As PropertyInfo = t.GetProperty(MemberName, BindingFlags.Instance Or BindingFlags.Public Or BindingFlags.NonPublic Or BindingFlags.Static)
|
||||||
|
Dim temp As Object = Nothing
|
||||||
|
|
||||||
|
If p IsNot Nothing Then
|
||||||
|
temp = p.GetValue([Object])
|
||||||
|
p.SetValue([Object], ValueToPatch)
|
||||||
|
ValueToPatch = temp
|
||||||
|
End If
|
||||||
|
|
||||||
|
Case Else
|
||||||
|
Throw New Exception("ValueType is invalid!")
|
||||||
|
End Select
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
End Class
|
||||||
|
|
||||||
|
End Namespace
|
||||||
89
Pilz.Collections/SimpleHistory/SimpleHistory.vb
Normal file
89
Pilz.Collections/SimpleHistory/SimpleHistory.vb
Normal file
@@ -0,0 +1,89 @@
|
|||||||
|
Imports System.Reflection
|
||||||
|
|
||||||
|
Namespace SimpleHistory
|
||||||
|
|
||||||
|
Public Class HistoryStack
|
||||||
|
|
||||||
|
Private stackPast As New Stack(Of HistoryPoint)
|
||||||
|
Private stackFuture As New Stack(Of HistoryPoint)
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Checks if the History has past changes.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns></returns>
|
||||||
|
Public Function HasChanges() As Boolean
|
||||||
|
Return stackPast.Count > 0
|
||||||
|
End Function
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Patch Object States and call Undo Actions.
|
||||||
|
''' </summary>
|
||||||
|
Public Function Undo() As HistoryPoint
|
||||||
|
Dim ret As HistoryPoint
|
||||||
|
|
||||||
|
If stackPast.Count > 0 Then
|
||||||
|
|
||||||
|
Dim hp As HistoryPoint = stackPast.Pop
|
||||||
|
hp.Undo()
|
||||||
|
stackFuture.Push(hp)
|
||||||
|
ret = hp
|
||||||
|
|
||||||
|
Else
|
||||||
|
ret = Nothing
|
||||||
|
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return ret
|
||||||
|
End Function
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Patch Object States and call Redo Actions.
|
||||||
|
''' </summary>
|
||||||
|
Public Function Redo() As HistoryPoint
|
||||||
|
Dim ret As HistoryPoint
|
||||||
|
|
||||||
|
If stackFuture.Count > 0 Then
|
||||||
|
|
||||||
|
Dim hp As HistoryPoint = stackFuture.Pop
|
||||||
|
hp.Redo()
|
||||||
|
stackPast.Push(hp)
|
||||||
|
ret = hp
|
||||||
|
|
||||||
|
Else
|
||||||
|
ret = Nothing
|
||||||
|
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return ret
|
||||||
|
End Function
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Clear the History.
|
||||||
|
''' </summary>
|
||||||
|
Public Sub Clear()
|
||||||
|
stackPast.Clear()
|
||||||
|
stackFuture.Clear()
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Store a History Point.
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="point">The History Point to add to the past changes.</param>
|
||||||
|
''' <param name="newName">The name to set for the History Point.</param>
|
||||||
|
Public Sub Store(point As HistoryPoint, newName As String)
|
||||||
|
point.Name = newName
|
||||||
|
Store(point)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Store a History Point.
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="point">The History Point to add to the past changes.</param>
|
||||||
|
Public Sub Store(point As HistoryPoint)
|
||||||
|
stackPast.Push(point)
|
||||||
|
stackFuture.Clear()
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
End Class
|
||||||
|
|
||||||
|
End Namespace
|
||||||
6
Pilz.Configuration/ISettingsManager.vb
Normal file
6
Pilz.Configuration/ISettingsManager.vb
Normal file
@@ -0,0 +1,6 @@
|
|||||||
|
Public Interface ISettingsManager
|
||||||
|
Property ConfigFilePath As String
|
||||||
|
Sub Save()
|
||||||
|
Sub Load()
|
||||||
|
Sub Reset()
|
||||||
|
End Interface
|
||||||
13
Pilz.Configuration/My Project/Application.Designer.vb
generated
Normal file
13
Pilz.Configuration/My Project/Application.Designer.vb
generated
Normal file
@@ -0,0 +1,13 @@
|
|||||||
|
'------------------------------------------------------------------------------
|
||||||
|
' <auto-generated>
|
||||||
|
' This code was generated by a tool.
|
||||||
|
' Runtime Version:4.0.30319.42000
|
||||||
|
'
|
||||||
|
' Changes to this file may cause incorrect behavior and will be lost if
|
||||||
|
' the code is regenerated.
|
||||||
|
' </auto-generated>
|
||||||
|
'------------------------------------------------------------------------------
|
||||||
|
|
||||||
|
Option Strict On
|
||||||
|
Option Explicit On
|
||||||
|
|
||||||
10
Pilz.Configuration/My Project/Application.myapp
Normal file
10
Pilz.Configuration/My Project/Application.myapp
Normal file
@@ -0,0 +1,10 @@
|
|||||||
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
|
<MyApplicationData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
|
||||||
|
<MySubMain>false</MySubMain>
|
||||||
|
<SingleInstance>false</SingleInstance>
|
||||||
|
<ShutdownMode>0</ShutdownMode>
|
||||||
|
<EnableVisualStyles>true</EnableVisualStyles>
|
||||||
|
<AuthenticationMode>0</AuthenticationMode>
|
||||||
|
<ApplicationType>1</ApplicationType>
|
||||||
|
<SaveMySettingsOnExit>true</SaveMySettingsOnExit>
|
||||||
|
</MyApplicationData>
|
||||||
35
Pilz.Configuration/My Project/AssemblyInfo.vb
Normal file
35
Pilz.Configuration/My Project/AssemblyInfo.vb
Normal file
@@ -0,0 +1,35 @@
|
|||||||
|
Imports System
|
||||||
|
Imports System.Reflection
|
||||||
|
Imports System.Runtime.InteropServices
|
||||||
|
|
||||||
|
' Allgemeine Informationen über eine Assembly werden über die folgenden
|
||||||
|
' Attribute gesteuert. Ändern Sie diese Attributwerte, um die Informationen zu ändern,
|
||||||
|
' die einer Assembly zugeordnet sind.
|
||||||
|
|
||||||
|
' Werte der Assemblyattribute überprüfen
|
||||||
|
|
||||||
|
<Assembly: AssemblyTitle("Pilz.Configuration")>
|
||||||
|
<Assembly: AssemblyDescription("")>
|
||||||
|
<Assembly: AssemblyCompany("DRSN")>
|
||||||
|
<Assembly: AssemblyProduct("Pilz.Configuration")>
|
||||||
|
<Assembly: AssemblyCopyright("Copyright © DRSN 2019")>
|
||||||
|
<Assembly: AssemblyTrademark("")>
|
||||||
|
|
||||||
|
<Assembly: ComVisible(False)>
|
||||||
|
|
||||||
|
'Die folgende GUID bestimmt die ID der Typbibliothek, wenn dieses Projekt für COM verfügbar gemacht wird.
|
||||||
|
<Assembly: Guid("3980caa6-d118-4166-8f0d-e91c9dc07e3c")>
|
||||||
|
|
||||||
|
' Versionsinformationen für eine Assembly bestehen aus den folgenden vier Werten:
|
||||||
|
'
|
||||||
|
' Hauptversion
|
||||||
|
' Nebenversion
|
||||||
|
' Buildnummer
|
||||||
|
' Revision
|
||||||
|
'
|
||||||
|
' Sie können alle Werte angeben oder Standardwerte für die Build- und Revisionsnummern verwenden,
|
||||||
|
' übernehmen, indem Sie "*" eingeben:
|
||||||
|
' <Assembly: AssemblyVersion("1.0.*")>
|
||||||
|
|
||||||
|
<Assembly: AssemblyVersion("1.0.0.0")>
|
||||||
|
<Assembly: AssemblyFileVersion("1.0.0.0")>
|
||||||
62
Pilz.Configuration/My Project/Resources.Designer.vb
generated
Normal file
62
Pilz.Configuration/My Project/Resources.Designer.vb
generated
Normal file
@@ -0,0 +1,62 @@
|
|||||||
|
'------------------------------------------------------------------------------
|
||||||
|
' <auto-generated>
|
||||||
|
' This code was generated by a tool.
|
||||||
|
' Runtime Version:4.0.30319.42000
|
||||||
|
'
|
||||||
|
' Changes to this file may cause incorrect behavior and will be lost if
|
||||||
|
' the code is regenerated.
|
||||||
|
' </auto-generated>
|
||||||
|
'------------------------------------------------------------------------------
|
||||||
|
|
||||||
|
Option Strict On
|
||||||
|
Option Explicit On
|
||||||
|
|
||||||
|
|
||||||
|
Namespace My.Resources
|
||||||
|
|
||||||
|
'This class was auto-generated by the StronglyTypedResourceBuilder
|
||||||
|
'class via a tool like ResGen or Visual Studio.
|
||||||
|
'To add or remove a member, edit your .ResX file then rerun ResGen
|
||||||
|
'with the /str option, or rebuild your VS project.
|
||||||
|
'''<summary>
|
||||||
|
''' A strongly-typed resource class, for looking up localized strings, etc.
|
||||||
|
'''</summary>
|
||||||
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "4.0.0.0"), _
|
||||||
|
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||||
|
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
|
||||||
|
Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
|
||||||
|
Friend Module Resources
|
||||||
|
|
||||||
|
Private resourceMan As Global.System.Resources.ResourceManager
|
||||||
|
|
||||||
|
Private resourceCulture As Global.System.Globalization.CultureInfo
|
||||||
|
|
||||||
|
'''<summary>
|
||||||
|
''' Returns the cached ResourceManager instance used by this class.
|
||||||
|
'''</summary>
|
||||||
|
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||||
|
Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
|
||||||
|
Get
|
||||||
|
If Object.ReferenceEquals(resourceMan, Nothing) Then
|
||||||
|
Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("Pilz.Configuration.Resources", GetType(Resources).Assembly)
|
||||||
|
resourceMan = temp
|
||||||
|
End If
|
||||||
|
Return resourceMan
|
||||||
|
End Get
|
||||||
|
End Property
|
||||||
|
|
||||||
|
'''<summary>
|
||||||
|
''' Overrides the current thread's CurrentUICulture property for all
|
||||||
|
''' resource lookups using this strongly typed resource class.
|
||||||
|
'''</summary>
|
||||||
|
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||||
|
Friend Property Culture() As Global.System.Globalization.CultureInfo
|
||||||
|
Get
|
||||||
|
Return resourceCulture
|
||||||
|
End Get
|
||||||
|
Set(ByVal value As Global.System.Globalization.CultureInfo)
|
||||||
|
resourceCulture = value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
End Module
|
||||||
|
End Namespace
|
||||||
117
Pilz.Configuration/My Project/Resources.resx
Normal file
117
Pilz.Configuration/My Project/Resources.resx
Normal file
@@ -0,0 +1,117 @@
|
|||||||
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
|
<root>
|
||||||
|
<!--
|
||||||
|
Microsoft ResX Schema
|
||||||
|
|
||||||
|
Version 2.0
|
||||||
|
|
||||||
|
The primary goals of this format is to allow a simple XML format
|
||||||
|
that is mostly human readable. The generation and parsing of the
|
||||||
|
various data types are done through the TypeConverter classes
|
||||||
|
associated with the data types.
|
||||||
|
|
||||||
|
Example:
|
||||||
|
|
||||||
|
... ado.net/XML headers & schema ...
|
||||||
|
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||||
|
<resheader name="version">2.0</resheader>
|
||||||
|
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||||
|
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||||
|
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||||
|
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||||
|
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||||
|
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||||
|
</data>
|
||||||
|
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||||
|
<comment>This is a comment</comment>
|
||||||
|
</data>
|
||||||
|
|
||||||
|
There are any number of "resheader" rows that contain simple
|
||||||
|
name/value pairs.
|
||||||
|
|
||||||
|
Each data row contains a name, and value. The row also contains a
|
||||||
|
type or mimetype. Type corresponds to a .NET class that support
|
||||||
|
text/value conversion through the TypeConverter architecture.
|
||||||
|
Classes that don't support this are serialized and stored with the
|
||||||
|
mimetype set.
|
||||||
|
|
||||||
|
The mimetype is used for serialized objects, and tells the
|
||||||
|
ResXResourceReader how to depersist the object. This is currently not
|
||||||
|
extensible. For a given mimetype the value must be set accordingly:
|
||||||
|
|
||||||
|
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||||
|
that the ResXResourceWriter will generate, however the reader can
|
||||||
|
read any of the formats listed below.
|
||||||
|
|
||||||
|
mimetype: application/x-microsoft.net.object.binary.base64
|
||||||
|
value : The object must be serialized with
|
||||||
|
: System.Serialization.Formatters.Binary.BinaryFormatter
|
||||||
|
: and then encoded with base64 encoding.
|
||||||
|
|
||||||
|
mimetype: application/x-microsoft.net.object.soap.base64
|
||||||
|
value : The object must be serialized with
|
||||||
|
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||||
|
: and then encoded with base64 encoding.
|
||||||
|
|
||||||
|
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||||
|
value : The object must be serialized into a byte array
|
||||||
|
: using a System.ComponentModel.TypeConverter
|
||||||
|
: and then encoded with base64 encoding.
|
||||||
|
-->
|
||||||
|
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||||
|
<xsd:element name="root" msdata:IsDataSet="true">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:choice maxOccurs="unbounded">
|
||||||
|
<xsd:element name="metadata">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:sequence>
|
||||||
|
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||||
|
</xsd:sequence>
|
||||||
|
<xsd:attribute name="name" type="xsd:string" />
|
||||||
|
<xsd:attribute name="type" type="xsd:string" />
|
||||||
|
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
<xsd:element name="assembly">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:attribute name="alias" type="xsd:string" />
|
||||||
|
<xsd:attribute name="name" type="xsd:string" />
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
<xsd:element name="data">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:sequence>
|
||||||
|
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||||
|
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||||
|
</xsd:sequence>
|
||||||
|
<xsd:attribute name="name" type="xsd:string" msdata:Ordinal="1" />
|
||||||
|
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||||
|
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
<xsd:element name="resheader">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:sequence>
|
||||||
|
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||||
|
</xsd:sequence>
|
||||||
|
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
</xsd:choice>
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
</xsd:schema>
|
||||||
|
<resheader name="resmimetype">
|
||||||
|
<value>text/microsoft-resx</value>
|
||||||
|
</resheader>
|
||||||
|
<resheader name="version">
|
||||||
|
<value>2.0</value>
|
||||||
|
</resheader>
|
||||||
|
<resheader name="reader">
|
||||||
|
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||||
|
</resheader>
|
||||||
|
<resheader name="writer">
|
||||||
|
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||||
|
</resheader>
|
||||||
|
</root>
|
||||||
73
Pilz.Configuration/My Project/Settings.Designer.vb
generated
Normal file
73
Pilz.Configuration/My Project/Settings.Designer.vb
generated
Normal file
@@ -0,0 +1,73 @@
|
|||||||
|
'------------------------------------------------------------------------------
|
||||||
|
' <auto-generated>
|
||||||
|
' This code was generated by a tool.
|
||||||
|
' Runtime Version:4.0.30319.42000
|
||||||
|
'
|
||||||
|
' Changes to this file may cause incorrect behavior and will be lost if
|
||||||
|
' the code is regenerated.
|
||||||
|
' </auto-generated>
|
||||||
|
'------------------------------------------------------------------------------
|
||||||
|
|
||||||
|
Option Strict On
|
||||||
|
Option Explicit On
|
||||||
|
|
||||||
|
|
||||||
|
Namespace My
|
||||||
|
|
||||||
|
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
|
||||||
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "11.0.0.0"), _
|
||||||
|
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||||
|
Partial Friend NotInheritable Class MySettings
|
||||||
|
Inherits Global.System.Configuration.ApplicationSettingsBase
|
||||||
|
|
||||||
|
Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings), MySettings)
|
||||||
|
|
||||||
|
#Region "My.Settings Auto-Save Functionality"
|
||||||
|
#If _MyType = "WindowsForms" Then
|
||||||
|
Private Shared addedHandler As Boolean
|
||||||
|
|
||||||
|
Private Shared addedHandlerLockObject As New Object
|
||||||
|
|
||||||
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||||
|
Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs)
|
||||||
|
If My.Application.SaveMySettingsOnExit Then
|
||||||
|
My.Settings.Save()
|
||||||
|
End If
|
||||||
|
End Sub
|
||||||
|
#End If
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
Public Shared ReadOnly Property [Default]() As MySettings
|
||||||
|
Get
|
||||||
|
|
||||||
|
#If _MyType = "WindowsForms" Then
|
||||||
|
If Not addedHandler Then
|
||||||
|
SyncLock addedHandlerLockObject
|
||||||
|
If Not addedHandler Then
|
||||||
|
AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
|
||||||
|
addedHandler = True
|
||||||
|
End If
|
||||||
|
End SyncLock
|
||||||
|
End If
|
||||||
|
#End If
|
||||||
|
Return defaultInstance
|
||||||
|
End Get
|
||||||
|
End Property
|
||||||
|
End Class
|
||||||
|
End Namespace
|
||||||
|
|
||||||
|
Namespace My
|
||||||
|
|
||||||
|
<Global.Microsoft.VisualBasic.HideModuleNameAttribute(), _
|
||||||
|
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||||
|
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _
|
||||||
|
Friend Module MySettingsProperty
|
||||||
|
|
||||||
|
<Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _
|
||||||
|
Friend ReadOnly Property Settings() As Global.Pilz.Configuration.My.MySettings
|
||||||
|
Get
|
||||||
|
Return Global.Pilz.Configuration.My.MySettings.Default
|
||||||
|
End Get
|
||||||
|
End Property
|
||||||
|
End Module
|
||||||
|
End Namespace
|
||||||
7
Pilz.Configuration/My Project/Settings.settings
Normal file
7
Pilz.Configuration/My Project/Settings.settings
Normal file
@@ -0,0 +1,7 @@
|
|||||||
|
<?xml version='1.0' encoding='utf-8'?>
|
||||||
|
<SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" UseMySettingsClassName="true">
|
||||||
|
<Profiles>
|
||||||
|
<Profile Name="(Default)" />
|
||||||
|
</Profiles>
|
||||||
|
<Settings />
|
||||||
|
</SettingsFile>
|
||||||
111
Pilz.Configuration/Pilz.Configuration.vbproj
Normal file
111
Pilz.Configuration/Pilz.Configuration.vbproj
Normal file
@@ -0,0 +1,111 @@
|
|||||||
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
|
<Project ToolsVersion="15.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||||
|
<Import Project="$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props" Condition="Exists('$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props')" />
|
||||||
|
<PropertyGroup>
|
||||||
|
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||||
|
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||||
|
<ProjectGuid>{A56C6153-C61F-4B10-BE06-35EB0448CFDC}</ProjectGuid>
|
||||||
|
<OutputType>Library</OutputType>
|
||||||
|
<RootNamespace>Pilz.Configuration</RootNamespace>
|
||||||
|
<AssemblyName>Pilz.Configuration</AssemblyName>
|
||||||
|
<FileAlignment>512</FileAlignment>
|
||||||
|
<MyType>Windows</MyType>
|
||||||
|
<TargetFrameworkVersion>v4.5</TargetFrameworkVersion>
|
||||||
|
<Deterministic>true</Deterministic>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||||
|
<DebugSymbols>true</DebugSymbols>
|
||||||
|
<DebugType>full</DebugType>
|
||||||
|
<DefineDebug>true</DefineDebug>
|
||||||
|
<DefineTrace>true</DefineTrace>
|
||||||
|
<OutputPath>bin\Debug\</OutputPath>
|
||||||
|
<DocumentationFile>Pilz.Configuration.xml</DocumentationFile>
|
||||||
|
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||||
|
<DebugType>pdbonly</DebugType>
|
||||||
|
<DefineDebug>false</DefineDebug>
|
||||||
|
<DefineTrace>true</DefineTrace>
|
||||||
|
<Optimize>true</Optimize>
|
||||||
|
<OutputPath>bin\Release\</OutputPath>
|
||||||
|
<DocumentationFile>Pilz.Configuration.xml</DocumentationFile>
|
||||||
|
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup>
|
||||||
|
<OptionExplicit>On</OptionExplicit>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup>
|
||||||
|
<OptionCompare>Binary</OptionCompare>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup>
|
||||||
|
<OptionStrict>Off</OptionStrict>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup>
|
||||||
|
<OptionInfer>On</OptionInfer>
|
||||||
|
</PropertyGroup>
|
||||||
|
<ItemGroup>
|
||||||
|
<Reference Include="Newtonsoft.Json, Version=12.0.0.0, Culture=neutral, PublicKeyToken=30ad4fe6b2a6aeed, processorArchitecture=MSIL">
|
||||||
|
<HintPath>..\packages\Newtonsoft.Json.12.0.1\lib\net45\Newtonsoft.Json.dll</HintPath>
|
||||||
|
</Reference>
|
||||||
|
<Reference Include="System" />
|
||||||
|
<Reference Include="System.Data" />
|
||||||
|
<Reference Include="System.Windows.Forms" />
|
||||||
|
<Reference Include="System.Xml" />
|
||||||
|
<Reference Include="System.Core" />
|
||||||
|
<Reference Include="System.Xml.Linq" />
|
||||||
|
<Reference Include="System.Data.DataSetExtensions" />
|
||||||
|
<Reference Include="System.Net.Http" />
|
||||||
|
</ItemGroup>
|
||||||
|
<ItemGroup>
|
||||||
|
<Import Include="Microsoft.VisualBasic" />
|
||||||
|
<Import Include="System" />
|
||||||
|
<Import Include="System.Collections" />
|
||||||
|
<Import Include="System.Collections.Generic" />
|
||||||
|
<Import Include="System.Data" />
|
||||||
|
<Import Include="System.Diagnostics" />
|
||||||
|
<Import Include="System.Linq" />
|
||||||
|
<Import Include="System.Xml.Linq" />
|
||||||
|
<Import Include="System.Threading.Tasks" />
|
||||||
|
</ItemGroup>
|
||||||
|
<ItemGroup>
|
||||||
|
<Compile Include="ISettingsManager.vb" />
|
||||||
|
<Compile Include="My Project\AssemblyInfo.vb" />
|
||||||
|
<Compile Include="My Project\Application.Designer.vb">
|
||||||
|
<AutoGen>True</AutoGen>
|
||||||
|
<DependentUpon>Application.myapp</DependentUpon>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="My Project\Resources.Designer.vb">
|
||||||
|
<AutoGen>True</AutoGen>
|
||||||
|
<DesignTime>True</DesignTime>
|
||||||
|
<DependentUpon>Resources.resx</DependentUpon>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="My Project\Settings.Designer.vb">
|
||||||
|
<AutoGen>True</AutoGen>
|
||||||
|
<DependentUpon>Settings.settings</DependentUpon>
|
||||||
|
<DesignTimeSharedInput>True</DesignTimeSharedInput>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="SettingsBase.vb" />
|
||||||
|
<Compile Include="SettingsManager.vb" />
|
||||||
|
</ItemGroup>
|
||||||
|
<ItemGroup>
|
||||||
|
<EmbeddedResource Include="My Project\Resources.resx">
|
||||||
|
<Generator>VbMyResourcesResXFileCodeGenerator</Generator>
|
||||||
|
<LastGenOutput>Resources.Designer.vb</LastGenOutput>
|
||||||
|
<CustomToolNamespace>My.Resources</CustomToolNamespace>
|
||||||
|
<SubType>Designer</SubType>
|
||||||
|
</EmbeddedResource>
|
||||||
|
</ItemGroup>
|
||||||
|
<ItemGroup>
|
||||||
|
<None Include="My Project\Application.myapp">
|
||||||
|
<Generator>MyApplicationCodeGenerator</Generator>
|
||||||
|
<LastGenOutput>Application.Designer.vb</LastGenOutput>
|
||||||
|
</None>
|
||||||
|
<None Include="My Project\Settings.settings">
|
||||||
|
<Generator>SettingsSingleFileGenerator</Generator>
|
||||||
|
<CustomToolNamespace>My</CustomToolNamespace>
|
||||||
|
<LastGenOutput>Settings.Designer.vb</LastGenOutput>
|
||||||
|
</None>
|
||||||
|
<None Include="packages.config" />
|
||||||
|
</ItemGroup>
|
||||||
|
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
|
||||||
|
</Project>
|
||||||
20
Pilz.Configuration/SettingsBase.vb
Normal file
20
Pilz.Configuration/SettingsBase.vb
Normal file
@@ -0,0 +1,20 @@
|
|||||||
|
Imports Newtonsoft.Json
|
||||||
|
|
||||||
|
Public MustInherit Class SettingsBase
|
||||||
|
|
||||||
|
Public Sub New()
|
||||||
|
ResetValues()
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
<JsonIgnore>
|
||||||
|
Friend _settingsManager As ISettingsManager
|
||||||
|
<JsonIgnore>
|
||||||
|
Public ReadOnly Property SettingsManager As ISettingsManager
|
||||||
|
Get
|
||||||
|
Return _settingsManager
|
||||||
|
End Get
|
||||||
|
End Property
|
||||||
|
|
||||||
|
Public MustOverride Sub ResetValues()
|
||||||
|
|
||||||
|
End Class
|
||||||
110
Pilz.Configuration/SettingsManager.vb
Normal file
110
Pilz.Configuration/SettingsManager.vb
Normal file
@@ -0,0 +1,110 @@
|
|||||||
|
Imports System.IO
|
||||||
|
Imports System.Reflection
|
||||||
|
Imports Newtonsoft.Json.Linq
|
||||||
|
|
||||||
|
Public NotInheritable Class SettingsManager(Of T As SettingsBase)
|
||||||
|
Implements ISettingsManager
|
||||||
|
|
||||||
|
Private defaultInstance As T = Nothing
|
||||||
|
Private enableAutoSave As Boolean = False
|
||||||
|
Private addedHandler As Boolean = False
|
||||||
|
|
||||||
|
Public Property ConfigFilePath As String Implements ISettingsManager.ConfigFilePath
|
||||||
|
|
||||||
|
Public Property AutoSaveOnExit As Boolean
|
||||||
|
Get
|
||||||
|
Return enableAutoSave
|
||||||
|
End Get
|
||||||
|
Set
|
||||||
|
If enableAutoSave <> Value Then
|
||||||
|
enableAutoSave = Value
|
||||||
|
Select Case enableAutoSave
|
||||||
|
Case True
|
||||||
|
If Not addedHandler Then
|
||||||
|
AddAutoSaveHandler()
|
||||||
|
End If
|
||||||
|
Case False
|
||||||
|
If addedHandler Then
|
||||||
|
RemoveAutoSaveHandler()
|
||||||
|
End If
|
||||||
|
End Select
|
||||||
|
End If
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
Private Sub AddAutoSaveHandler()
|
||||||
|
AddHandler Windows.Forms.Application.ApplicationExit, AddressOf AutoSaveSettingsOnExit
|
||||||
|
addedHandler = True
|
||||||
|
End Sub
|
||||||
|
Private Sub RemoveAutoSaveHandler()
|
||||||
|
RemoveHandler Windows.Forms.Application.ApplicationExit, AddressOf AutoSaveSettingsOnExit
|
||||||
|
addedHandler = False
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public ReadOnly Property Instance As T
|
||||||
|
Get
|
||||||
|
If defaultInstance Is Nothing Then
|
||||||
|
Load()
|
||||||
|
End If
|
||||||
|
Return defaultInstance
|
||||||
|
End Get
|
||||||
|
End Property
|
||||||
|
|
||||||
|
Public Sub New()
|
||||||
|
ConfigFilePath = ""
|
||||||
|
AutoSaveOnExit = False
|
||||||
|
End Sub
|
||||||
|
Public Sub New(fileName As String, autoSaveOnExit As Boolean)
|
||||||
|
ConfigFilePath = fileName
|
||||||
|
Me.AutoSaveOnExit = autoSaveOnExit
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub AutoSaveSettingsOnExit(sender As Object, e As EventArgs)
|
||||||
|
Save()
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Sub Save() Implements ISettingsManager.Save
|
||||||
|
If Not String.IsNullOrEmpty(ConfigFilePath) AndAlso defaultInstance IsNot Nothing Then
|
||||||
|
SavePrivate()
|
||||||
|
End If
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Sub Load() Implements ISettingsManager.Load
|
||||||
|
If Not String.IsNullOrEmpty(ConfigFilePath) AndAlso File.Exists(ConfigFilePath) Then
|
||||||
|
LoadPrivate()
|
||||||
|
Else
|
||||||
|
CreateNewInstance()
|
||||||
|
End If
|
||||||
|
|
||||||
|
If defaultInstance IsNot Nothing Then
|
||||||
|
defaultInstance._settingsManager = Me
|
||||||
|
End If
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Sub Reset() Implements ISettingsManager.Reset
|
||||||
|
Instance.ResetValues()
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub CreateNewInstance()
|
||||||
|
Dim ctor As ConstructorInfo = GetType(T).GetConstructor({})
|
||||||
|
If ctor IsNot Nothing Then
|
||||||
|
defaultInstance = ctor.Invoke({})
|
||||||
|
|
||||||
|
defaultInstance.ResetValues()
|
||||||
|
Else
|
||||||
|
Throw New Exception("The base type has no constructor with no parameters.")
|
||||||
|
End If
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub LoadPrivate()
|
||||||
|
defaultInstance = JObject.Parse(File.ReadAllText(ConfigFilePath)).ToObject(Of T)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub SavePrivate()
|
||||||
|
Dim obj As JObject = JObject.FromObject(defaultInstance)
|
||||||
|
If obj IsNot Nothing Then
|
||||||
|
File.WriteAllText(ConfigFilePath, obj.ToString)
|
||||||
|
End If
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
End Class
|
||||||
4
Pilz.Configuration/packages.config
Normal file
4
Pilz.Configuration/packages.config
Normal file
@@ -0,0 +1,4 @@
|
|||||||
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
|
<packages>
|
||||||
|
<package id="Newtonsoft.Json" version="12.0.1" targetFramework="net45" />
|
||||||
|
</packages>
|
||||||
13
Pilz.Cryptography/My Project/Application.Designer.vb
generated
Normal file
13
Pilz.Cryptography/My Project/Application.Designer.vb
generated
Normal file
@@ -0,0 +1,13 @@
|
|||||||
|
'------------------------------------------------------------------------------
|
||||||
|
' <auto-generated>
|
||||||
|
' This code was generated by a tool.
|
||||||
|
' Runtime Version:4.0.30319.42000
|
||||||
|
'
|
||||||
|
' Changes to this file may cause incorrect behavior and will be lost if
|
||||||
|
' the code is regenerated.
|
||||||
|
' </auto-generated>
|
||||||
|
'------------------------------------------------------------------------------
|
||||||
|
|
||||||
|
Option Strict On
|
||||||
|
Option Explicit On
|
||||||
|
|
||||||
10
Pilz.Cryptography/My Project/Application.myapp
Normal file
10
Pilz.Cryptography/My Project/Application.myapp
Normal file
@@ -0,0 +1,10 @@
|
|||||||
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
|
<MyApplicationData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
|
||||||
|
<MySubMain>false</MySubMain>
|
||||||
|
<SingleInstance>false</SingleInstance>
|
||||||
|
<ShutdownMode>0</ShutdownMode>
|
||||||
|
<EnableVisualStyles>true</EnableVisualStyles>
|
||||||
|
<AuthenticationMode>0</AuthenticationMode>
|
||||||
|
<ApplicationType>1</ApplicationType>
|
||||||
|
<SaveMySettingsOnExit>true</SaveMySettingsOnExit>
|
||||||
|
</MyApplicationData>
|
||||||
35
Pilz.Cryptography/My Project/AssemblyInfo.vb
Normal file
35
Pilz.Cryptography/My Project/AssemblyInfo.vb
Normal file
@@ -0,0 +1,35 @@
|
|||||||
|
Imports System
|
||||||
|
Imports System.Reflection
|
||||||
|
Imports System.Runtime.InteropServices
|
||||||
|
|
||||||
|
' Allgemeine Informationen über eine Assembly werden über die folgenden
|
||||||
|
' Attribute gesteuert. Ändern Sie diese Attributwerte, um die Informationen zu ändern,
|
||||||
|
' die einer Assembly zugeordnet sind.
|
||||||
|
|
||||||
|
' Werte der Assemblyattribute überprüfen
|
||||||
|
|
||||||
|
<Assembly: AssemblyTitle("Pilz.Cryptography")>
|
||||||
|
<Assembly: AssemblyDescription("")>
|
||||||
|
<Assembly: AssemblyCompany("DRSN")>
|
||||||
|
<Assembly: AssemblyProduct("Pilz.Cryptography")>
|
||||||
|
<Assembly: AssemblyCopyright("Copyright © DRSN 2019")>
|
||||||
|
<Assembly: AssemblyTrademark("")>
|
||||||
|
|
||||||
|
<Assembly: ComVisible(False)>
|
||||||
|
|
||||||
|
'Die folgende GUID bestimmt die ID der Typbibliothek, wenn dieses Projekt für COM verfügbar gemacht wird.
|
||||||
|
<Assembly: Guid("21b3c201-96b1-4231-9394-819673a4be75")>
|
||||||
|
|
||||||
|
' Versionsinformationen für eine Assembly bestehen aus den folgenden vier Werten:
|
||||||
|
'
|
||||||
|
' Hauptversion
|
||||||
|
' Nebenversion
|
||||||
|
' Buildnummer
|
||||||
|
' Revision
|
||||||
|
'
|
||||||
|
' Sie können alle Werte angeben oder Standardwerte für die Build- und Revisionsnummern verwenden,
|
||||||
|
' übernehmen, indem Sie "*" eingeben:
|
||||||
|
' <Assembly: AssemblyVersion("1.0.*")>
|
||||||
|
|
||||||
|
<Assembly: AssemblyVersion("1.0.0.0")>
|
||||||
|
<Assembly: AssemblyFileVersion("1.0.0.0")>
|
||||||
62
Pilz.Cryptography/My Project/Resources.Designer.vb
generated
Normal file
62
Pilz.Cryptography/My Project/Resources.Designer.vb
generated
Normal file
@@ -0,0 +1,62 @@
|
|||||||
|
'------------------------------------------------------------------------------
|
||||||
|
' <auto-generated>
|
||||||
|
' This code was generated by a tool.
|
||||||
|
' Runtime Version:4.0.30319.42000
|
||||||
|
'
|
||||||
|
' Changes to this file may cause incorrect behavior and will be lost if
|
||||||
|
' the code is regenerated.
|
||||||
|
' </auto-generated>
|
||||||
|
'------------------------------------------------------------------------------
|
||||||
|
|
||||||
|
Option Strict On
|
||||||
|
Option Explicit On
|
||||||
|
|
||||||
|
|
||||||
|
Namespace My.Resources
|
||||||
|
|
||||||
|
'This class was auto-generated by the StronglyTypedResourceBuilder
|
||||||
|
'class via a tool like ResGen or Visual Studio.
|
||||||
|
'To add or remove a member, edit your .ResX file then rerun ResGen
|
||||||
|
'with the /str option, or rebuild your VS project.
|
||||||
|
'''<summary>
|
||||||
|
''' A strongly-typed resource class, for looking up localized strings, etc.
|
||||||
|
'''</summary>
|
||||||
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "4.0.0.0"), _
|
||||||
|
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||||
|
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
|
||||||
|
Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
|
||||||
|
Friend Module Resources
|
||||||
|
|
||||||
|
Private resourceMan As Global.System.Resources.ResourceManager
|
||||||
|
|
||||||
|
Private resourceCulture As Global.System.Globalization.CultureInfo
|
||||||
|
|
||||||
|
'''<summary>
|
||||||
|
''' Returns the cached ResourceManager instance used by this class.
|
||||||
|
'''</summary>
|
||||||
|
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||||
|
Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
|
||||||
|
Get
|
||||||
|
If Object.ReferenceEquals(resourceMan, Nothing) Then
|
||||||
|
Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("Pilz.Cryptography.Resources", GetType(Resources).Assembly)
|
||||||
|
resourceMan = temp
|
||||||
|
End If
|
||||||
|
Return resourceMan
|
||||||
|
End Get
|
||||||
|
End Property
|
||||||
|
|
||||||
|
'''<summary>
|
||||||
|
''' Overrides the current thread's CurrentUICulture property for all
|
||||||
|
''' resource lookups using this strongly typed resource class.
|
||||||
|
'''</summary>
|
||||||
|
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||||
|
Friend Property Culture() As Global.System.Globalization.CultureInfo
|
||||||
|
Get
|
||||||
|
Return resourceCulture
|
||||||
|
End Get
|
||||||
|
Set(ByVal value As Global.System.Globalization.CultureInfo)
|
||||||
|
resourceCulture = value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
End Module
|
||||||
|
End Namespace
|
||||||
117
Pilz.Cryptography/My Project/Resources.resx
Normal file
117
Pilz.Cryptography/My Project/Resources.resx
Normal file
@@ -0,0 +1,117 @@
|
|||||||
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
|
<root>
|
||||||
|
<!--
|
||||||
|
Microsoft ResX Schema
|
||||||
|
|
||||||
|
Version 2.0
|
||||||
|
|
||||||
|
The primary goals of this format is to allow a simple XML format
|
||||||
|
that is mostly human readable. The generation and parsing of the
|
||||||
|
various data types are done through the TypeConverter classes
|
||||||
|
associated with the data types.
|
||||||
|
|
||||||
|
Example:
|
||||||
|
|
||||||
|
... ado.net/XML headers & schema ...
|
||||||
|
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||||
|
<resheader name="version">2.0</resheader>
|
||||||
|
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||||
|
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||||
|
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||||
|
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||||
|
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||||
|
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||||
|
</data>
|
||||||
|
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||||
|
<comment>This is a comment</comment>
|
||||||
|
</data>
|
||||||
|
|
||||||
|
There are any number of "resheader" rows that contain simple
|
||||||
|
name/value pairs.
|
||||||
|
|
||||||
|
Each data row contains a name, and value. The row also contains a
|
||||||
|
type or mimetype. Type corresponds to a .NET class that support
|
||||||
|
text/value conversion through the TypeConverter architecture.
|
||||||
|
Classes that don't support this are serialized and stored with the
|
||||||
|
mimetype set.
|
||||||
|
|
||||||
|
The mimetype is used for serialized objects, and tells the
|
||||||
|
ResXResourceReader how to depersist the object. This is currently not
|
||||||
|
extensible. For a given mimetype the value must be set accordingly:
|
||||||
|
|
||||||
|
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||||
|
that the ResXResourceWriter will generate, however the reader can
|
||||||
|
read any of the formats listed below.
|
||||||
|
|
||||||
|
mimetype: application/x-microsoft.net.object.binary.base64
|
||||||
|
value : The object must be serialized with
|
||||||
|
: System.Serialization.Formatters.Binary.BinaryFormatter
|
||||||
|
: and then encoded with base64 encoding.
|
||||||
|
|
||||||
|
mimetype: application/x-microsoft.net.object.soap.base64
|
||||||
|
value : The object must be serialized with
|
||||||
|
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||||
|
: and then encoded with base64 encoding.
|
||||||
|
|
||||||
|
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||||
|
value : The object must be serialized into a byte array
|
||||||
|
: using a System.ComponentModel.TypeConverter
|
||||||
|
: and then encoded with base64 encoding.
|
||||||
|
-->
|
||||||
|
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||||
|
<xsd:element name="root" msdata:IsDataSet="true">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:choice maxOccurs="unbounded">
|
||||||
|
<xsd:element name="metadata">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:sequence>
|
||||||
|
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||||
|
</xsd:sequence>
|
||||||
|
<xsd:attribute name="name" type="xsd:string" />
|
||||||
|
<xsd:attribute name="type" type="xsd:string" />
|
||||||
|
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
<xsd:element name="assembly">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:attribute name="alias" type="xsd:string" />
|
||||||
|
<xsd:attribute name="name" type="xsd:string" />
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
<xsd:element name="data">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:sequence>
|
||||||
|
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||||
|
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||||
|
</xsd:sequence>
|
||||||
|
<xsd:attribute name="name" type="xsd:string" msdata:Ordinal="1" />
|
||||||
|
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||||
|
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
<xsd:element name="resheader">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:sequence>
|
||||||
|
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||||
|
</xsd:sequence>
|
||||||
|
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
</xsd:choice>
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
</xsd:schema>
|
||||||
|
<resheader name="resmimetype">
|
||||||
|
<value>text/microsoft-resx</value>
|
||||||
|
</resheader>
|
||||||
|
<resheader name="version">
|
||||||
|
<value>2.0</value>
|
||||||
|
</resheader>
|
||||||
|
<resheader name="reader">
|
||||||
|
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||||
|
</resheader>
|
||||||
|
<resheader name="writer">
|
||||||
|
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||||
|
</resheader>
|
||||||
|
</root>
|
||||||
73
Pilz.Cryptography/My Project/Settings.Designer.vb
generated
Normal file
73
Pilz.Cryptography/My Project/Settings.Designer.vb
generated
Normal file
@@ -0,0 +1,73 @@
|
|||||||
|
'------------------------------------------------------------------------------
|
||||||
|
' <auto-generated>
|
||||||
|
' This code was generated by a tool.
|
||||||
|
' Runtime Version:4.0.30319.42000
|
||||||
|
'
|
||||||
|
' Changes to this file may cause incorrect behavior and will be lost if
|
||||||
|
' the code is regenerated.
|
||||||
|
' </auto-generated>
|
||||||
|
'------------------------------------------------------------------------------
|
||||||
|
|
||||||
|
Option Strict On
|
||||||
|
Option Explicit On
|
||||||
|
|
||||||
|
|
||||||
|
Namespace My
|
||||||
|
|
||||||
|
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
|
||||||
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "11.0.0.0"), _
|
||||||
|
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||||
|
Partial Friend NotInheritable Class MySettings
|
||||||
|
Inherits Global.System.Configuration.ApplicationSettingsBase
|
||||||
|
|
||||||
|
Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings), MySettings)
|
||||||
|
|
||||||
|
#Region "My.Settings Auto-Save Functionality"
|
||||||
|
#If _MyType = "WindowsForms" Then
|
||||||
|
Private Shared addedHandler As Boolean
|
||||||
|
|
||||||
|
Private Shared addedHandlerLockObject As New Object
|
||||||
|
|
||||||
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||||
|
Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs)
|
||||||
|
If My.Application.SaveMySettingsOnExit Then
|
||||||
|
My.Settings.Save()
|
||||||
|
End If
|
||||||
|
End Sub
|
||||||
|
#End If
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
Public Shared ReadOnly Property [Default]() As MySettings
|
||||||
|
Get
|
||||||
|
|
||||||
|
#If _MyType = "WindowsForms" Then
|
||||||
|
If Not addedHandler Then
|
||||||
|
SyncLock addedHandlerLockObject
|
||||||
|
If Not addedHandler Then
|
||||||
|
AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
|
||||||
|
addedHandler = True
|
||||||
|
End If
|
||||||
|
End SyncLock
|
||||||
|
End If
|
||||||
|
#End If
|
||||||
|
Return defaultInstance
|
||||||
|
End Get
|
||||||
|
End Property
|
||||||
|
End Class
|
||||||
|
End Namespace
|
||||||
|
|
||||||
|
Namespace My
|
||||||
|
|
||||||
|
<Global.Microsoft.VisualBasic.HideModuleNameAttribute(), _
|
||||||
|
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||||
|
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _
|
||||||
|
Friend Module MySettingsProperty
|
||||||
|
|
||||||
|
<Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _
|
||||||
|
Friend ReadOnly Property Settings() As Global.Pilz.Cryptography.My.MySettings
|
||||||
|
Get
|
||||||
|
Return Global.Pilz.Cryptography.My.MySettings.Default
|
||||||
|
End Get
|
||||||
|
End Property
|
||||||
|
End Module
|
||||||
|
End Namespace
|
||||||
7
Pilz.Cryptography/My Project/Settings.settings
Normal file
7
Pilz.Cryptography/My Project/Settings.settings
Normal file
@@ -0,0 +1,7 @@
|
|||||||
|
<?xml version='1.0' encoding='utf-8'?>
|
||||||
|
<SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" UseMySettingsClassName="true">
|
||||||
|
<Profiles>
|
||||||
|
<Profile Name="(Default)" />
|
||||||
|
</Profiles>
|
||||||
|
<Settings />
|
||||||
|
</SettingsFile>
|
||||||
103
Pilz.Cryptography/Pilz.Cryptography.vbproj
Normal file
103
Pilz.Cryptography/Pilz.Cryptography.vbproj
Normal file
@@ -0,0 +1,103 @@
|
|||||||
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
|
<Project ToolsVersion="15.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||||
|
<Import Project="$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props" Condition="Exists('$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props')" />
|
||||||
|
<PropertyGroup>
|
||||||
|
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||||
|
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||||
|
<ProjectGuid>{DF980F5D-820C-4CD3-A865-C40791BF7CE4}</ProjectGuid>
|
||||||
|
<OutputType>Library</OutputType>
|
||||||
|
<RootNamespace>Pilz.Cryptography</RootNamespace>
|
||||||
|
<AssemblyName>Pilz.Cryptography</AssemblyName>
|
||||||
|
<FileAlignment>512</FileAlignment>
|
||||||
|
<MyType>Windows</MyType>
|
||||||
|
<TargetFrameworkVersion>v4.5</TargetFrameworkVersion>
|
||||||
|
<Deterministic>true</Deterministic>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||||
|
<DebugSymbols>true</DebugSymbols>
|
||||||
|
<DebugType>full</DebugType>
|
||||||
|
<DefineDebug>true</DefineDebug>
|
||||||
|
<DefineTrace>true</DefineTrace>
|
||||||
|
<OutputPath>bin\Debug\</OutputPath>
|
||||||
|
<DocumentationFile>Pilz.Cryptography.xml</DocumentationFile>
|
||||||
|
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||||
|
<DebugType>pdbonly</DebugType>
|
||||||
|
<DefineDebug>false</DefineDebug>
|
||||||
|
<DefineTrace>true</DefineTrace>
|
||||||
|
<Optimize>true</Optimize>
|
||||||
|
<OutputPath>bin\Release\</OutputPath>
|
||||||
|
<DocumentationFile>Pilz.Cryptography.xml</DocumentationFile>
|
||||||
|
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup>
|
||||||
|
<OptionExplicit>On</OptionExplicit>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup>
|
||||||
|
<OptionCompare>Binary</OptionCompare>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup>
|
||||||
|
<OptionStrict>Off</OptionStrict>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup>
|
||||||
|
<OptionInfer>On</OptionInfer>
|
||||||
|
</PropertyGroup>
|
||||||
|
<ItemGroup>
|
||||||
|
<Reference Include="System" />
|
||||||
|
<Reference Include="System.Data" />
|
||||||
|
<Reference Include="System.Xml" />
|
||||||
|
<Reference Include="System.Core" />
|
||||||
|
<Reference Include="System.Xml.Linq" />
|
||||||
|
<Reference Include="System.Data.DataSetExtensions" />
|
||||||
|
<Reference Include="System.Net.Http" />
|
||||||
|
</ItemGroup>
|
||||||
|
<ItemGroup>
|
||||||
|
<Import Include="Microsoft.VisualBasic" />
|
||||||
|
<Import Include="System" />
|
||||||
|
<Import Include="System.Collections" />
|
||||||
|
<Import Include="System.Collections.Generic" />
|
||||||
|
<Import Include="System.Data" />
|
||||||
|
<Import Include="System.Diagnostics" />
|
||||||
|
<Import Include="System.Linq" />
|
||||||
|
<Import Include="System.Xml.Linq" />
|
||||||
|
<Import Include="System.Threading.Tasks" />
|
||||||
|
</ItemGroup>
|
||||||
|
<ItemGroup>
|
||||||
|
<Compile Include="My Project\AssemblyInfo.vb" />
|
||||||
|
<Compile Include="My Project\Application.Designer.vb">
|
||||||
|
<AutoGen>True</AutoGen>
|
||||||
|
<DependentUpon>Application.myapp</DependentUpon>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="My Project\Resources.Designer.vb">
|
||||||
|
<AutoGen>True</AutoGen>
|
||||||
|
<DesignTime>True</DesignTime>
|
||||||
|
<DependentUpon>Resources.resx</DependentUpon>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="My Project\Settings.Designer.vb">
|
||||||
|
<AutoGen>True</AutoGen>
|
||||||
|
<DependentUpon>Settings.settings</DependentUpon>
|
||||||
|
<DesignTimeSharedInput>True</DesignTimeSharedInput>
|
||||||
|
</Compile>
|
||||||
|
</ItemGroup>
|
||||||
|
<ItemGroup>
|
||||||
|
<EmbeddedResource Include="My Project\Resources.resx">
|
||||||
|
<Generator>VbMyResourcesResXFileCodeGenerator</Generator>
|
||||||
|
<LastGenOutput>Resources.Designer.vb</LastGenOutput>
|
||||||
|
<CustomToolNamespace>My.Resources</CustomToolNamespace>
|
||||||
|
<SubType>Designer</SubType>
|
||||||
|
</EmbeddedResource>
|
||||||
|
</ItemGroup>
|
||||||
|
<ItemGroup>
|
||||||
|
<None Include="My Project\Application.myapp">
|
||||||
|
<Generator>MyApplicationCodeGenerator</Generator>
|
||||||
|
<LastGenOutput>Application.Designer.vb</LastGenOutput>
|
||||||
|
</None>
|
||||||
|
<None Include="My Project\Settings.settings">
|
||||||
|
<Generator>SettingsSingleFileGenerator</Generator>
|
||||||
|
<CustomToolNamespace>My</CustomToolNamespace>
|
||||||
|
<LastGenOutput>Settings.Designer.vb</LastGenOutput>
|
||||||
|
</None>
|
||||||
|
</ItemGroup>
|
||||||
|
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
|
||||||
|
</Project>
|
||||||
20
Pilz.Drawing/BitmapExtensions.vb
Normal file
20
Pilz.Drawing/BitmapExtensions.vb
Normal file
@@ -0,0 +1,20 @@
|
|||||||
|
Imports System.Drawing
|
||||||
|
Imports System.Runtime.CompilerServices
|
||||||
|
|
||||||
|
Public Module BitmapExtensions
|
||||||
|
|
||||||
|
<Extension>
|
||||||
|
Public Sub InvertColors(bmp As Bitmap)
|
||||||
|
For y As Integer = 0 To bmp.Height - 1
|
||||||
|
For x As Integer = 0 To bmp.Width - 1
|
||||||
|
Dim inv As Color = bmp.GetPixel(x, y)
|
||||||
|
inv = Color.FromArgb(inv.A,
|
||||||
|
Byte.MaxValue - inv.R,
|
||||||
|
Byte.MaxValue - inv.G,
|
||||||
|
Byte.MaxValue - inv.B)
|
||||||
|
bmp.SetPixel(x, y, inv)
|
||||||
|
Next
|
||||||
|
Next
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
End Module
|
||||||
41
Pilz.Drawing/HelpfulDrawingFunctions.vb
Normal file
41
Pilz.Drawing/HelpfulDrawingFunctions.vb
Normal file
@@ -0,0 +1,41 @@
|
|||||||
|
Imports System.Drawing
|
||||||
|
Imports System.Drawing.Drawing2D
|
||||||
|
|
||||||
|
Public Class HelpfulDrawingFunctions
|
||||||
|
|
||||||
|
Public Shared Function IsPointInRectangle(p As PointF, rect As RectangleF) As Boolean
|
||||||
|
Dim bList As New List(Of Boolean)
|
||||||
|
|
||||||
|
bList.Add(p.X > rect.Left)
|
||||||
|
bList.Add(p.X < rect.Right)
|
||||||
|
bList.Add(p.Y > rect.Top)
|
||||||
|
bList.Add(p.Y < rect.Bottom)
|
||||||
|
|
||||||
|
Return Not bList.Contains(False)
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Shared Function OverlapsTwoRectangles(a As RectangleF, b As RectangleF) As Boolean
|
||||||
|
Return a.IntersectsWith(b) 'RectangleF.Intersect(a, b) <> RectangleF.Empty
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Shared Function GetRectangle(p1 As PointF, p2 As PointF) As RectangleF
|
||||||
|
Dim rect As New RectangleF
|
||||||
|
Dim startIsEnd As Boolean = p1.X > p2.X AndAlso p1.Y > p2.Y
|
||||||
|
|
||||||
|
Dim xValues() As Integer = {p1.X, p2.X}
|
||||||
|
Dim yValues() As Integer = {p1.Y, p2.Y}
|
||||||
|
|
||||||
|
rect.Location = New PointF(xValues.OrderBy(Function(n) n).First,
|
||||||
|
yValues.OrderBy(Function(n) n).First)
|
||||||
|
|
||||||
|
rect.Size = New SizeF(xValues.OrderByDescending(Function(n) n).First,
|
||||||
|
yValues.OrderByDescending(Function(n) n).First)
|
||||||
|
|
||||||
|
rect.Size = New SizeF(rect.Size.Width - rect.Location.X,
|
||||||
|
rect.Size.Height - rect.Location.Y)
|
||||||
|
|
||||||
|
Return rect
|
||||||
|
End Function
|
||||||
|
|
||||||
|
End Class
|
||||||
|
|
||||||
13
Pilz.Drawing/My Project/Application.Designer.vb
generated
Normal file
13
Pilz.Drawing/My Project/Application.Designer.vb
generated
Normal file
@@ -0,0 +1,13 @@
|
|||||||
|
'------------------------------------------------------------------------------
|
||||||
|
' <auto-generated>
|
||||||
|
' This code was generated by a tool.
|
||||||
|
' Runtime Version:4.0.30319.42000
|
||||||
|
'
|
||||||
|
' Changes to this file may cause incorrect behavior and will be lost if
|
||||||
|
' the code is regenerated.
|
||||||
|
' </auto-generated>
|
||||||
|
'------------------------------------------------------------------------------
|
||||||
|
|
||||||
|
Option Strict On
|
||||||
|
Option Explicit On
|
||||||
|
|
||||||
10
Pilz.Drawing/My Project/Application.myapp
Normal file
10
Pilz.Drawing/My Project/Application.myapp
Normal file
@@ -0,0 +1,10 @@
|
|||||||
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
|
<MyApplicationData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
|
||||||
|
<MySubMain>false</MySubMain>
|
||||||
|
<SingleInstance>false</SingleInstance>
|
||||||
|
<ShutdownMode>0</ShutdownMode>
|
||||||
|
<EnableVisualStyles>true</EnableVisualStyles>
|
||||||
|
<AuthenticationMode>0</AuthenticationMode>
|
||||||
|
<ApplicationType>1</ApplicationType>
|
||||||
|
<SaveMySettingsOnExit>true</SaveMySettingsOnExit>
|
||||||
|
</MyApplicationData>
|
||||||
35
Pilz.Drawing/My Project/AssemblyInfo.vb
Normal file
35
Pilz.Drawing/My Project/AssemblyInfo.vb
Normal file
@@ -0,0 +1,35 @@
|
|||||||
|
Imports System
|
||||||
|
Imports System.Reflection
|
||||||
|
Imports System.Runtime.InteropServices
|
||||||
|
|
||||||
|
' Allgemeine Informationen über eine Assembly werden über die folgenden
|
||||||
|
' Attribute gesteuert. Ändern Sie diese Attributwerte, um die Informationen zu ändern,
|
||||||
|
' die einer Assembly zugeordnet sind.
|
||||||
|
|
||||||
|
' Werte der Assemblyattribute überprüfen
|
||||||
|
|
||||||
|
<Assembly: AssemblyTitle("Pilz.Drawing")>
|
||||||
|
<Assembly: AssemblyDescription("")>
|
||||||
|
<Assembly: AssemblyCompany("DRSN")>
|
||||||
|
<Assembly: AssemblyProduct("Pilz.Drawing")>
|
||||||
|
<Assembly: AssemblyCopyright("Copyright © DRSN 2019")>
|
||||||
|
<Assembly: AssemblyTrademark("")>
|
||||||
|
|
||||||
|
<Assembly: ComVisible(False)>
|
||||||
|
|
||||||
|
'Die folgende GUID bestimmt die ID der Typbibliothek, wenn dieses Projekt für COM verfügbar gemacht wird.
|
||||||
|
<Assembly: Guid("42ba224c-e5dc-4b15-96f8-98b94825a820")>
|
||||||
|
|
||||||
|
' Versionsinformationen für eine Assembly bestehen aus den folgenden vier Werten:
|
||||||
|
'
|
||||||
|
' Hauptversion
|
||||||
|
' Nebenversion
|
||||||
|
' Buildnummer
|
||||||
|
' Revision
|
||||||
|
'
|
||||||
|
' Sie können alle Werte angeben oder Standardwerte für die Build- und Revisionsnummern verwenden,
|
||||||
|
' übernehmen, indem Sie "*" eingeben:
|
||||||
|
' <Assembly: AssemblyVersion("1.0.*")>
|
||||||
|
|
||||||
|
<Assembly: AssemblyVersion("1.0.0.0")>
|
||||||
|
<Assembly: AssemblyFileVersion("1.0.0.0")>
|
||||||
62
Pilz.Drawing/My Project/Resources.Designer.vb
generated
Normal file
62
Pilz.Drawing/My Project/Resources.Designer.vb
generated
Normal file
@@ -0,0 +1,62 @@
|
|||||||
|
'------------------------------------------------------------------------------
|
||||||
|
' <auto-generated>
|
||||||
|
' This code was generated by a tool.
|
||||||
|
' Runtime Version:4.0.30319.42000
|
||||||
|
'
|
||||||
|
' Changes to this file may cause incorrect behavior and will be lost if
|
||||||
|
' the code is regenerated.
|
||||||
|
' </auto-generated>
|
||||||
|
'------------------------------------------------------------------------------
|
||||||
|
|
||||||
|
Option Strict On
|
||||||
|
Option Explicit On
|
||||||
|
|
||||||
|
|
||||||
|
Namespace My.Resources
|
||||||
|
|
||||||
|
'This class was auto-generated by the StronglyTypedResourceBuilder
|
||||||
|
'class via a tool like ResGen or Visual Studio.
|
||||||
|
'To add or remove a member, edit your .ResX file then rerun ResGen
|
||||||
|
'with the /str option, or rebuild your VS project.
|
||||||
|
'''<summary>
|
||||||
|
''' A strongly-typed resource class, for looking up localized strings, etc.
|
||||||
|
'''</summary>
|
||||||
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "4.0.0.0"), _
|
||||||
|
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||||
|
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
|
||||||
|
Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
|
||||||
|
Friend Module Resources
|
||||||
|
|
||||||
|
Private resourceMan As Global.System.Resources.ResourceManager
|
||||||
|
|
||||||
|
Private resourceCulture As Global.System.Globalization.CultureInfo
|
||||||
|
|
||||||
|
'''<summary>
|
||||||
|
''' Returns the cached ResourceManager instance used by this class.
|
||||||
|
'''</summary>
|
||||||
|
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||||
|
Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
|
||||||
|
Get
|
||||||
|
If Object.ReferenceEquals(resourceMan, Nothing) Then
|
||||||
|
Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("Pilz.Drawing.Resources", GetType(Resources).Assembly)
|
||||||
|
resourceMan = temp
|
||||||
|
End If
|
||||||
|
Return resourceMan
|
||||||
|
End Get
|
||||||
|
End Property
|
||||||
|
|
||||||
|
'''<summary>
|
||||||
|
''' Overrides the current thread's CurrentUICulture property for all
|
||||||
|
''' resource lookups using this strongly typed resource class.
|
||||||
|
'''</summary>
|
||||||
|
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||||
|
Friend Property Culture() As Global.System.Globalization.CultureInfo
|
||||||
|
Get
|
||||||
|
Return resourceCulture
|
||||||
|
End Get
|
||||||
|
Set(ByVal value As Global.System.Globalization.CultureInfo)
|
||||||
|
resourceCulture = value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
End Module
|
||||||
|
End Namespace
|
||||||
117
Pilz.Drawing/My Project/Resources.resx
Normal file
117
Pilz.Drawing/My Project/Resources.resx
Normal file
@@ -0,0 +1,117 @@
|
|||||||
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
|
<root>
|
||||||
|
<!--
|
||||||
|
Microsoft ResX Schema
|
||||||
|
|
||||||
|
Version 2.0
|
||||||
|
|
||||||
|
The primary goals of this format is to allow a simple XML format
|
||||||
|
that is mostly human readable. The generation and parsing of the
|
||||||
|
various data types are done through the TypeConverter classes
|
||||||
|
associated with the data types.
|
||||||
|
|
||||||
|
Example:
|
||||||
|
|
||||||
|
... ado.net/XML headers & schema ...
|
||||||
|
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||||
|
<resheader name="version">2.0</resheader>
|
||||||
|
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||||
|
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||||
|
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||||
|
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||||
|
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||||
|
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||||
|
</data>
|
||||||
|
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||||
|
<comment>This is a comment</comment>
|
||||||
|
</data>
|
||||||
|
|
||||||
|
There are any number of "resheader" rows that contain simple
|
||||||
|
name/value pairs.
|
||||||
|
|
||||||
|
Each data row contains a name, and value. The row also contains a
|
||||||
|
type or mimetype. Type corresponds to a .NET class that support
|
||||||
|
text/value conversion through the TypeConverter architecture.
|
||||||
|
Classes that don't support this are serialized and stored with the
|
||||||
|
mimetype set.
|
||||||
|
|
||||||
|
The mimetype is used for serialized objects, and tells the
|
||||||
|
ResXResourceReader how to depersist the object. This is currently not
|
||||||
|
extensible. For a given mimetype the value must be set accordingly:
|
||||||
|
|
||||||
|
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||||
|
that the ResXResourceWriter will generate, however the reader can
|
||||||
|
read any of the formats listed below.
|
||||||
|
|
||||||
|
mimetype: application/x-microsoft.net.object.binary.base64
|
||||||
|
value : The object must be serialized with
|
||||||
|
: System.Serialization.Formatters.Binary.BinaryFormatter
|
||||||
|
: and then encoded with base64 encoding.
|
||||||
|
|
||||||
|
mimetype: application/x-microsoft.net.object.soap.base64
|
||||||
|
value : The object must be serialized with
|
||||||
|
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||||
|
: and then encoded with base64 encoding.
|
||||||
|
|
||||||
|
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||||
|
value : The object must be serialized into a byte array
|
||||||
|
: using a System.ComponentModel.TypeConverter
|
||||||
|
: and then encoded with base64 encoding.
|
||||||
|
-->
|
||||||
|
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||||
|
<xsd:element name="root" msdata:IsDataSet="true">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:choice maxOccurs="unbounded">
|
||||||
|
<xsd:element name="metadata">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:sequence>
|
||||||
|
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||||
|
</xsd:sequence>
|
||||||
|
<xsd:attribute name="name" type="xsd:string" />
|
||||||
|
<xsd:attribute name="type" type="xsd:string" />
|
||||||
|
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
<xsd:element name="assembly">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:attribute name="alias" type="xsd:string" />
|
||||||
|
<xsd:attribute name="name" type="xsd:string" />
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
<xsd:element name="data">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:sequence>
|
||||||
|
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||||
|
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||||
|
</xsd:sequence>
|
||||||
|
<xsd:attribute name="name" type="xsd:string" msdata:Ordinal="1" />
|
||||||
|
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||||
|
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
<xsd:element name="resheader">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:sequence>
|
||||||
|
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||||
|
</xsd:sequence>
|
||||||
|
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
</xsd:choice>
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
</xsd:schema>
|
||||||
|
<resheader name="resmimetype">
|
||||||
|
<value>text/microsoft-resx</value>
|
||||||
|
</resheader>
|
||||||
|
<resheader name="version">
|
||||||
|
<value>2.0</value>
|
||||||
|
</resheader>
|
||||||
|
<resheader name="reader">
|
||||||
|
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||||
|
</resheader>
|
||||||
|
<resheader name="writer">
|
||||||
|
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||||
|
</resheader>
|
||||||
|
</root>
|
||||||
73
Pilz.Drawing/My Project/Settings.Designer.vb
generated
Normal file
73
Pilz.Drawing/My Project/Settings.Designer.vb
generated
Normal file
@@ -0,0 +1,73 @@
|
|||||||
|
'------------------------------------------------------------------------------
|
||||||
|
' <auto-generated>
|
||||||
|
' This code was generated by a tool.
|
||||||
|
' Runtime Version:4.0.30319.42000
|
||||||
|
'
|
||||||
|
' Changes to this file may cause incorrect behavior and will be lost if
|
||||||
|
' the code is regenerated.
|
||||||
|
' </auto-generated>
|
||||||
|
'------------------------------------------------------------------------------
|
||||||
|
|
||||||
|
Option Strict On
|
||||||
|
Option Explicit On
|
||||||
|
|
||||||
|
|
||||||
|
Namespace My
|
||||||
|
|
||||||
|
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
|
||||||
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "11.0.0.0"), _
|
||||||
|
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||||
|
Partial Friend NotInheritable Class MySettings
|
||||||
|
Inherits Global.System.Configuration.ApplicationSettingsBase
|
||||||
|
|
||||||
|
Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings), MySettings)
|
||||||
|
|
||||||
|
#Region "My.Settings Auto-Save Functionality"
|
||||||
|
#If _MyType = "WindowsForms" Then
|
||||||
|
Private Shared addedHandler As Boolean
|
||||||
|
|
||||||
|
Private Shared addedHandlerLockObject As New Object
|
||||||
|
|
||||||
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||||
|
Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs)
|
||||||
|
If My.Application.SaveMySettingsOnExit Then
|
||||||
|
My.Settings.Save()
|
||||||
|
End If
|
||||||
|
End Sub
|
||||||
|
#End If
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
Public Shared ReadOnly Property [Default]() As MySettings
|
||||||
|
Get
|
||||||
|
|
||||||
|
#If _MyType = "WindowsForms" Then
|
||||||
|
If Not addedHandler Then
|
||||||
|
SyncLock addedHandlerLockObject
|
||||||
|
If Not addedHandler Then
|
||||||
|
AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
|
||||||
|
addedHandler = True
|
||||||
|
End If
|
||||||
|
End SyncLock
|
||||||
|
End If
|
||||||
|
#End If
|
||||||
|
Return defaultInstance
|
||||||
|
End Get
|
||||||
|
End Property
|
||||||
|
End Class
|
||||||
|
End Namespace
|
||||||
|
|
||||||
|
Namespace My
|
||||||
|
|
||||||
|
<Global.Microsoft.VisualBasic.HideModuleNameAttribute(), _
|
||||||
|
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||||
|
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _
|
||||||
|
Friend Module MySettingsProperty
|
||||||
|
|
||||||
|
<Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _
|
||||||
|
Friend ReadOnly Property Settings() As Global.Pilz.Drawing.My.MySettings
|
||||||
|
Get
|
||||||
|
Return Global.Pilz.Drawing.My.MySettings.Default
|
||||||
|
End Get
|
||||||
|
End Property
|
||||||
|
End Module
|
||||||
|
End Namespace
|
||||||
7
Pilz.Drawing/My Project/Settings.settings
Normal file
7
Pilz.Drawing/My Project/Settings.settings
Normal file
@@ -0,0 +1,7 @@
|
|||||||
|
<?xml version='1.0' encoding='utf-8'?>
|
||||||
|
<SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" UseMySettingsClassName="true">
|
||||||
|
<Profiles>
|
||||||
|
<Profile Name="(Default)" />
|
||||||
|
</Profiles>
|
||||||
|
<Settings />
|
||||||
|
</SettingsFile>
|
||||||
107
Pilz.Drawing/Pilz.Drawing.vbproj
Normal file
107
Pilz.Drawing/Pilz.Drawing.vbproj
Normal file
@@ -0,0 +1,107 @@
|
|||||||
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
|
<Project ToolsVersion="15.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||||
|
<Import Project="$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props" Condition="Exists('$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props')" />
|
||||||
|
<PropertyGroup>
|
||||||
|
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||||
|
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||||
|
<ProjectGuid>{1A0B8106-2449-4908-B5E1-A00D8E9CF8F6}</ProjectGuid>
|
||||||
|
<OutputType>Library</OutputType>
|
||||||
|
<RootNamespace>Pilz.Drawing</RootNamespace>
|
||||||
|
<AssemblyName>Pilz.Drawing</AssemblyName>
|
||||||
|
<FileAlignment>512</FileAlignment>
|
||||||
|
<MyType>Windows</MyType>
|
||||||
|
<TargetFrameworkVersion>v4.5</TargetFrameworkVersion>
|
||||||
|
<Deterministic>true</Deterministic>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||||
|
<DebugSymbols>true</DebugSymbols>
|
||||||
|
<DebugType>full</DebugType>
|
||||||
|
<DefineDebug>true</DefineDebug>
|
||||||
|
<DefineTrace>true</DefineTrace>
|
||||||
|
<OutputPath>bin\Debug\</OutputPath>
|
||||||
|
<DocumentationFile>Pilz.Drawing.xml</DocumentationFile>
|
||||||
|
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||||
|
<DebugType>pdbonly</DebugType>
|
||||||
|
<DefineDebug>false</DefineDebug>
|
||||||
|
<DefineTrace>true</DefineTrace>
|
||||||
|
<Optimize>true</Optimize>
|
||||||
|
<OutputPath>bin\Release\</OutputPath>
|
||||||
|
<DocumentationFile>Pilz.Drawing.xml</DocumentationFile>
|
||||||
|
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup>
|
||||||
|
<OptionExplicit>On</OptionExplicit>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup>
|
||||||
|
<OptionCompare>Binary</OptionCompare>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup>
|
||||||
|
<OptionStrict>Off</OptionStrict>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup>
|
||||||
|
<OptionInfer>On</OptionInfer>
|
||||||
|
</PropertyGroup>
|
||||||
|
<ItemGroup>
|
||||||
|
<Reference Include="System" />
|
||||||
|
<Reference Include="System.Data" />
|
||||||
|
<Reference Include="System.Drawing" />
|
||||||
|
<Reference Include="System.Xml" />
|
||||||
|
<Reference Include="System.Core" />
|
||||||
|
<Reference Include="System.Xml.Linq" />
|
||||||
|
<Reference Include="System.Data.DataSetExtensions" />
|
||||||
|
<Reference Include="System.Net.Http" />
|
||||||
|
</ItemGroup>
|
||||||
|
<ItemGroup>
|
||||||
|
<Import Include="Microsoft.VisualBasic" />
|
||||||
|
<Import Include="System" />
|
||||||
|
<Import Include="System.Collections" />
|
||||||
|
<Import Include="System.Collections.Generic" />
|
||||||
|
<Import Include="System.Data" />
|
||||||
|
<Import Include="System.Diagnostics" />
|
||||||
|
<Import Include="System.Linq" />
|
||||||
|
<Import Include="System.Xml.Linq" />
|
||||||
|
<Import Include="System.Threading.Tasks" />
|
||||||
|
</ItemGroup>
|
||||||
|
<ItemGroup>
|
||||||
|
<Compile Include="BitmapExtensions.vb" />
|
||||||
|
<Compile Include="My Project\AssemblyInfo.vb" />
|
||||||
|
<Compile Include="My Project\Application.Designer.vb">
|
||||||
|
<AutoGen>True</AutoGen>
|
||||||
|
<DependentUpon>Application.myapp</DependentUpon>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="My Project\Resources.Designer.vb">
|
||||||
|
<AutoGen>True</AutoGen>
|
||||||
|
<DesignTime>True</DesignTime>
|
||||||
|
<DependentUpon>Resources.resx</DependentUpon>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="My Project\Settings.Designer.vb">
|
||||||
|
<AutoGen>True</AutoGen>
|
||||||
|
<DependentUpon>Settings.settings</DependentUpon>
|
||||||
|
<DesignTimeSharedInput>True</DesignTimeSharedInput>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="HelpfulDrawingFunctions.vb" />
|
||||||
|
<Compile Include="PointD.vb" />
|
||||||
|
</ItemGroup>
|
||||||
|
<ItemGroup>
|
||||||
|
<EmbeddedResource Include="My Project\Resources.resx">
|
||||||
|
<Generator>VbMyResourcesResXFileCodeGenerator</Generator>
|
||||||
|
<LastGenOutput>Resources.Designer.vb</LastGenOutput>
|
||||||
|
<CustomToolNamespace>My.Resources</CustomToolNamespace>
|
||||||
|
<SubType>Designer</SubType>
|
||||||
|
</EmbeddedResource>
|
||||||
|
</ItemGroup>
|
||||||
|
<ItemGroup>
|
||||||
|
<None Include="My Project\Application.myapp">
|
||||||
|
<Generator>MyApplicationCodeGenerator</Generator>
|
||||||
|
<LastGenOutput>Application.Designer.vb</LastGenOutput>
|
||||||
|
</None>
|
||||||
|
<None Include="My Project\Settings.settings">
|
||||||
|
<Generator>SettingsSingleFileGenerator</Generator>
|
||||||
|
<CustomToolNamespace>My</CustomToolNamespace>
|
||||||
|
<LastGenOutput>Settings.Designer.vb</LastGenOutput>
|
||||||
|
</None>
|
||||||
|
</ItemGroup>
|
||||||
|
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
|
||||||
|
</Project>
|
||||||
31
Pilz.Drawing/PointD.vb
Normal file
31
Pilz.Drawing/PointD.vb
Normal file
@@ -0,0 +1,31 @@
|
|||||||
|
Public Class PointD
|
||||||
|
|
||||||
|
Public Property X As Double
|
||||||
|
Public Property Y As Double
|
||||||
|
|
||||||
|
Public Sub New()
|
||||||
|
X = 0
|
||||||
|
Y = 0
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Sub New(x As Double, y As Double)
|
||||||
|
Me.X = x
|
||||||
|
Me.Y = y
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Shared ReadOnly Property Empty As PointD
|
||||||
|
Get
|
||||||
|
Return New PointD
|
||||||
|
End Get
|
||||||
|
End Property
|
||||||
|
|
||||||
|
Public Shared Operator =(val1 As PointD, val2 As PointD) As Boolean
|
||||||
|
Return val1.X = val2.X AndAlso val1.Y = val2.Y
|
||||||
|
End Operator
|
||||||
|
|
||||||
|
Public Shared Operator <>(val1 As PointD, val2 As PointD) As Boolean
|
||||||
|
Return val1.X <> val2.X OrElse val1.Y <> val2.Y
|
||||||
|
End Operator
|
||||||
|
|
||||||
|
|
||||||
|
End Class
|
||||||
10
Pilz.IO/EventArgs/DataEventargs.vb
Normal file
10
Pilz.IO/EventArgs/DataEventargs.vb
Normal file
@@ -0,0 +1,10 @@
|
|||||||
|
Public Class DataEventArgs : Inherits EventArgs
|
||||||
|
|
||||||
|
Public ReadOnly Data As Byte()
|
||||||
|
|
||||||
|
Public Sub New(bytes As Byte())
|
||||||
|
MyBase.New()
|
||||||
|
Data = bytes
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
End Class
|
||||||
53
Pilz.IO/ManagedPipes/ManagedPipe.vb
Normal file
53
Pilz.IO/ManagedPipes/ManagedPipe.vb
Normal file
@@ -0,0 +1,53 @@
|
|||||||
|
''' <summary>
|
||||||
|
''' stellt den Erben "Server" und "Client" 2 verschiedene
|
||||||
|
''' Message-Events zur Verfügung, und ein Event-Raisendes Dispose
|
||||||
|
''' </summary>
|
||||||
|
Public MustInherit Class ManagedPipe : Implements IDisposable
|
||||||
|
|
||||||
|
Public Delegate Sub EventHandlerWithOneArgument(Of T0)(Sender As T0)
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Zur Ausgabe chat-verwaltungstechnischer Status-Informationen
|
||||||
|
''' </summary>
|
||||||
|
Public Event StatusMessage As EventHandler(Of DataEventArgs)
|
||||||
|
''' <summary>Zur Ausgabe von Chat-Messages</summary>
|
||||||
|
Public Event RetriveData As EventHandler(Of DataEventArgs)
|
||||||
|
Public Event Disposed As EventHandlerWithOneArgument(Of ManagedPipe)
|
||||||
|
|
||||||
|
Private _IsDisposed As Boolean = False
|
||||||
|
|
||||||
|
Protected MustOverride Sub Dispose(disposing As Boolean)
|
||||||
|
Public MustOverride Sub Send(bytes As Byte())
|
||||||
|
Public MustOverride Function SendAsnyc(bytes As Byte()) As Task
|
||||||
|
|
||||||
|
Protected Sub OnStatusMessage(ByVal e As DataEventArgs)
|
||||||
|
RaiseEvent StatusMessage(Me, e)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Protected Sub OnRetriveData(ByVal e As DataEventArgs)
|
||||||
|
RaiseEvent RetriveData(Me, e)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Sub RemoveFrom(Of T As ManagedPipe)(ByVal Coll As ICollection(Of T))
|
||||||
|
Coll.Remove(DirectCast(Me, T))
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public ReadOnly Property IsDisposed() As Boolean
|
||||||
|
Get
|
||||||
|
Return _IsDisposed
|
||||||
|
End Get
|
||||||
|
End Property
|
||||||
|
|
||||||
|
Public Sub AddTo(Of T As ManagedPipe)(ByVal Coll As ICollection(Of T))
|
||||||
|
Coll.Add(Me)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Sub Dispose() Implements IDisposable.Dispose
|
||||||
|
If _IsDisposed Then Return
|
||||||
|
_IsDisposed = True
|
||||||
|
Dispose(True) ' rufe die erzwungenen Überschreibungen von Sub Dispose(Boolean)
|
||||||
|
RaiseEvent Disposed(Me)
|
||||||
|
GC.SuppressFinalize(Me)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
End Class
|
||||||
91
Pilz.IO/ManagedPipes/ManagedPipeClient.vb
Normal file
91
Pilz.IO/ManagedPipes/ManagedPipeClient.vb
Normal file
@@ -0,0 +1,91 @@
|
|||||||
|
Imports System.Net
|
||||||
|
Imports System.Text
|
||||||
|
Imports System.IO.Pipes
|
||||||
|
Imports Pilz.Threading
|
||||||
|
|
||||||
|
Public Class ManagedPipeClient : Inherits ManagedPipe
|
||||||
|
|
||||||
|
Private pipeStream As PipeStream
|
||||||
|
Private _Buf(&H400 - 1) As Byte
|
||||||
|
|
||||||
|
Public Property RaiseEventsGui As Boolean = True
|
||||||
|
|
||||||
|
Public Sub New(pipeName As String)
|
||||||
|
Me.New(pipeName, ".")
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Sub New(pipeName As String, serverName As String)
|
||||||
|
Me.New(pipeName, serverName, -1)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Sub New(pipeName As String, connectionTimeout As Integer)
|
||||||
|
Me.New(pipeName, ".", connectionTimeout)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Sub New(pipeName As String, serverName As String, connectionTimeout As Integer)
|
||||||
|
Dim clnt As New NamedPipeClientStream(serverName, pipeName, PipeDirection.InOut, PipeOptions.Asynchronous)
|
||||||
|
clnt.Connect(connectionTimeout)
|
||||||
|
If Not clnt.IsConnected Then
|
||||||
|
Throw New TimeoutException("Connection timeout!")
|
||||||
|
End If
|
||||||
|
SetPipe(clnt)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Sub New(pipe As PipeStream)
|
||||||
|
SetPipe(pipe)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub SetPipe(pipe As PipeStream)
|
||||||
|
pipeStream = pipe
|
||||||
|
pipeStream.BeginRead(_Buf, 0, _Buf.Length, AddressOf EndRead, Nothing)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub EndRead(ar As IAsyncResult)
|
||||||
|
If IsDisposed Then Return
|
||||||
|
|
||||||
|
Dim bytesCount As Integer = pipeStream.EndRead(ar)
|
||||||
|
If bytesCount = 0 Then 'leere Datenübermittlung signalisiert Verbindungsabbruch
|
||||||
|
If RaiseEventsGui Then
|
||||||
|
CrossThreadsInvokeing.RunGui(AddressOf Dispose)
|
||||||
|
Else
|
||||||
|
Dispose()
|
||||||
|
End If
|
||||||
|
Return
|
||||||
|
End If
|
||||||
|
|
||||||
|
Dim list As New List(Of Byte)
|
||||||
|
|
||||||
|
For i As Integer = 0 To bytesCount - 1
|
||||||
|
list.Add(_Buf(i))
|
||||||
|
Next
|
||||||
|
|
||||||
|
Do While bytesCount = _Buf.Length
|
||||||
|
bytesCount = pipeStream.Read(_Buf, 0, _Buf.Length)
|
||||||
|
For i As Integer = 0 To bytesCount - 1
|
||||||
|
list.Add(_Buf(i))
|
||||||
|
Next
|
||||||
|
Loop
|
||||||
|
|
||||||
|
Dim deargs As New DataEventArgs(list.ToArray)
|
||||||
|
If RaiseEventsGui Then
|
||||||
|
CrossThreadsInvokeing.RunGui(AddressOf OnRetriveData, deargs)
|
||||||
|
Else
|
||||||
|
OnRetriveData(deargs)
|
||||||
|
End If
|
||||||
|
|
||||||
|
pipeStream.BeginRead(_Buf, 0, _Buf.Length, AddressOf EndRead, Nothing)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Overrides Function SendAsnyc(bytes() As Byte) As Task
|
||||||
|
Return Task.Run(Sub() Send(bytes))
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Overrides Sub Send(data As Byte())
|
||||||
|
pipeStream.Write(data, 0, data.Length)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||||
|
pipeStream.Dispose()
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
End Class
|
||||||
104
Pilz.IO/ManagedPipes/ManagedPipeServer.vb
Normal file
104
Pilz.IO/ManagedPipes/ManagedPipeServer.vb
Normal file
@@ -0,0 +1,104 @@
|
|||||||
|
Imports System.Net
|
||||||
|
Imports System.IO.Pipes
|
||||||
|
Imports Pilz.Threading
|
||||||
|
|
||||||
|
Public Class ManagedPipeServer : Inherits ManagedPipe
|
||||||
|
|
||||||
|
'Pro Verbindung(sanfrage) wird ein Client-Objekt generiert, das den Datenaustausch dieser Verbindung abwickelt
|
||||||
|
Private _Clients As New List(Of ManagedPipeClient)
|
||||||
|
Private ReadOnly pipeName As String = ""
|
||||||
|
Private ReadOnly maxNumbersOfServerInstances As Integer
|
||||||
|
Private numberOfStartedServerInstances As Integer = 0
|
||||||
|
|
||||||
|
Public Sub New(ByVal pipeName As String)
|
||||||
|
Me.New(pipeName, 1)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Sub New(pipeName As String, maxNumbersOfServerInstances As Integer)
|
||||||
|
Me.pipeName = pipeName
|
||||||
|
Me.maxNumbersOfServerInstances = maxNumbersOfServerInstances
|
||||||
|
CreateWaitingStream()
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub CreateWaitingStream()
|
||||||
|
If numberOfStartedServerInstances < maxNumbersOfServerInstances Then
|
||||||
|
Dim strm = New NamedPipeServerStream(pipeName, PipeDirection.InOut, maxNumbersOfServerInstances, PipeTransmissionMode.Byte, PipeOptions.Asynchronous)
|
||||||
|
numberOfStartedServerInstances += 1
|
||||||
|
strm.BeginWaitForConnection(AddressOf EndAccept, strm)
|
||||||
|
Console.WriteLine("Start Waiting for new Connection ...")
|
||||||
|
End If
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub EndAccept(ByVal ar As IAsyncResult)
|
||||||
|
Dim strm = DirectCast(ar.AsyncState, NamedPipeServerStream)
|
||||||
|
|
||||||
|
strm.EndWaitForConnection(ar)
|
||||||
|
|
||||||
|
If IsDisposed Then
|
||||||
|
strm.Dispose()
|
||||||
|
Return
|
||||||
|
End If
|
||||||
|
|
||||||
|
With New ManagedPipeClient(strm)
|
||||||
|
AddHandler .RetriveData, AddressOf Client_RetriveData
|
||||||
|
AddHandler .StatusMessage, AddressOf Client_StatusMessage
|
||||||
|
AddHandler .Disposed, AddressOf Client_Disposed
|
||||||
|
.AddTo(_Clients)
|
||||||
|
End With
|
||||||
|
|
||||||
|
Console.WriteLine("Client accepted!")
|
||||||
|
|
||||||
|
CreateWaitingStream()
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
#Region "_Clients-Ereignisverarbeitung"
|
||||||
|
|
||||||
|
Private Sub Client_Disposed(ByVal Sender As ManagedPipe)
|
||||||
|
'den Client für die beendete Verbindung entfernen
|
||||||
|
Sender.RemoveFrom(_Clients)
|
||||||
|
numberOfStartedServerInstances -= 1
|
||||||
|
CreateWaitingStream()
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub Client_RetriveData(ByVal sender As Object, ByVal e As DataEventArgs)
|
||||||
|
'einkommende ChatMessages anzeigen, und an alle versenden
|
||||||
|
OnRetriveData(e)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub Client_StatusMessage(ByVal sender As Object, ByVal e As DataEventArgs)
|
||||||
|
'einkommende StatusMessages durchreichen (zur Anzeige)
|
||||||
|
OnStatusMessage(e)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
#End Region '_Clients-Ereignisverarbeitung
|
||||||
|
|
||||||
|
Public Overrides Function SendAsnyc(bytes() As Byte) As Task
|
||||||
|
Return Task.Run(Sub() Send(bytes))
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Overrides Sub Send(data As Byte())
|
||||||
|
Console.WriteLine("Sending Data ...")
|
||||||
|
|
||||||
|
'OnRetriveData(New DataEventargs(data)) ' anzeigen
|
||||||
|
|
||||||
|
For Each client As ManagedPipeClient In _Clients ' an alle versenden
|
||||||
|
client.Send(data)
|
||||||
|
Next
|
||||||
|
|
||||||
|
Console.WriteLine("Data send!")
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||||
|
If numberOfStartedServerInstances < maxNumbersOfServerInstances Then
|
||||||
|
Using clnt As New NamedPipeClientStream(pipeName)
|
||||||
|
'Herstellen einer Dummi-Verbindung, damit der ServerStream aus dem Wartezustand herauskommt.
|
||||||
|
clnt.Connect()
|
||||||
|
End Using
|
||||||
|
End If
|
||||||
|
|
||||||
|
For i As Integer = _Clients.Count - 1 To 0 Step -1
|
||||||
|
_Clients(i).Dispose()
|
||||||
|
Next
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
End Class
|
||||||
13
Pilz.IO/My Project/Application.Designer.vb
generated
Normal file
13
Pilz.IO/My Project/Application.Designer.vb
generated
Normal file
@@ -0,0 +1,13 @@
|
|||||||
|
'------------------------------------------------------------------------------
|
||||||
|
' <auto-generated>
|
||||||
|
' Dieser Code wurde von einem Tool generiert.
|
||||||
|
' Laufzeitversion:4.0.30319.42000
|
||||||
|
'
|
||||||
|
' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
|
||||||
|
' der Code erneut generiert wird.
|
||||||
|
' </auto-generated>
|
||||||
|
'------------------------------------------------------------------------------
|
||||||
|
|
||||||
|
Option Strict On
|
||||||
|
Option Explicit On
|
||||||
|
|
||||||
10
Pilz.IO/My Project/Application.myapp
Normal file
10
Pilz.IO/My Project/Application.myapp
Normal file
@@ -0,0 +1,10 @@
|
|||||||
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
|
<MyApplicationData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
|
||||||
|
<MySubMain>false</MySubMain>
|
||||||
|
<SingleInstance>false</SingleInstance>
|
||||||
|
<ShutdownMode>0</ShutdownMode>
|
||||||
|
<EnableVisualStyles>true</EnableVisualStyles>
|
||||||
|
<AuthenticationMode>0</AuthenticationMode>
|
||||||
|
<ApplicationType>1</ApplicationType>
|
||||||
|
<SaveMySettingsOnExit>true</SaveMySettingsOnExit>
|
||||||
|
</MyApplicationData>
|
||||||
35
Pilz.IO/My Project/AssemblyInfo.vb
Normal file
35
Pilz.IO/My Project/AssemblyInfo.vb
Normal file
@@ -0,0 +1,35 @@
|
|||||||
|
Imports System
|
||||||
|
Imports System.Reflection
|
||||||
|
Imports System.Runtime.InteropServices
|
||||||
|
|
||||||
|
' Allgemeine Informationen über eine Assembly werden über die folgenden
|
||||||
|
' Attribute gesteuert. Ändern Sie diese Attributwerte, um die Informationen zu ändern,
|
||||||
|
' die einer Assembly zugeordnet sind.
|
||||||
|
|
||||||
|
' Werte der Assemblyattribute überprüfen
|
||||||
|
|
||||||
|
<Assembly: AssemblyTitle("NamedPipeManaging")>
|
||||||
|
<Assembly: AssemblyDescription("")>
|
||||||
|
<Assembly: AssemblyCompany("Dr. Schneider Kunststoffwerke GmbH")>
|
||||||
|
<Assembly: AssemblyProduct("NamedPipeManaging")>
|
||||||
|
<Assembly: AssemblyCopyright("Copyright © Pascal Schedel 2017 - 2018")>
|
||||||
|
<Assembly: AssemblyTrademark("")>
|
||||||
|
|
||||||
|
<Assembly: ComVisible(False)>
|
||||||
|
|
||||||
|
'Die folgende GUID bestimmt die ID der Typbibliothek, wenn dieses Projekt für COM verfügbar gemacht wird.
|
||||||
|
<Assembly: Guid("42b8af67-22bf-4d8f-8a95-84fcaecffec6")>
|
||||||
|
|
||||||
|
' Versionsinformationen für eine Assembly bestehen aus den folgenden vier Werten:
|
||||||
|
'
|
||||||
|
' Hauptversion
|
||||||
|
' Nebenversion
|
||||||
|
' Buildnummer
|
||||||
|
' Revision
|
||||||
|
'
|
||||||
|
' Sie können alle Werte angeben oder Standardwerte für die Build- und Revisionsnummern verwenden,
|
||||||
|
' übernehmen, indem Sie "*" eingeben:
|
||||||
|
' <Assembly: AssemblyVersion("1.0.*")>
|
||||||
|
|
||||||
|
<Assembly: AssemblyVersion("1.0.0.0")>
|
||||||
|
<Assembly: AssemblyFileVersion("1.0.0.0")>
|
||||||
63
Pilz.IO/My Project/Resources.Designer.vb
generated
Normal file
63
Pilz.IO/My Project/Resources.Designer.vb
generated
Normal file
@@ -0,0 +1,63 @@
|
|||||||
|
'------------------------------------------------------------------------------
|
||||||
|
' <auto-generated>
|
||||||
|
' Dieser Code wurde von einem Tool generiert.
|
||||||
|
' Laufzeitversion:4.0.30319.42000
|
||||||
|
'
|
||||||
|
' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
|
||||||
|
' der Code erneut generiert wird.
|
||||||
|
' </auto-generated>
|
||||||
|
'------------------------------------------------------------------------------
|
||||||
|
|
||||||
|
Option Strict On
|
||||||
|
Option Explicit On
|
||||||
|
|
||||||
|
Imports System
|
||||||
|
|
||||||
|
Namespace My.Resources
|
||||||
|
|
||||||
|
'Diese Klasse wurde von der StronglyTypedResourceBuilder automatisch generiert
|
||||||
|
'-Klasse über ein Tool wie ResGen oder Visual Studio automatisch generiert.
|
||||||
|
'Um einen Member hinzuzufügen oder zu entfernen, bearbeiten Sie die .ResX-Datei und führen dann ResGen
|
||||||
|
'mit der /str-Option erneut aus, oder Sie erstellen Ihr VS-Projekt neu.
|
||||||
|
'''<summary>
|
||||||
|
''' Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
|
||||||
|
'''</summary>
|
||||||
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "15.0.0.0"), _
|
||||||
|
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||||
|
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
|
||||||
|
Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
|
||||||
|
Friend Module Resources
|
||||||
|
|
||||||
|
Private resourceMan As Global.System.Resources.ResourceManager
|
||||||
|
|
||||||
|
Private resourceCulture As Global.System.Globalization.CultureInfo
|
||||||
|
|
||||||
|
'''<summary>
|
||||||
|
''' Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird.
|
||||||
|
'''</summary>
|
||||||
|
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||||
|
Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
|
||||||
|
Get
|
||||||
|
If Object.ReferenceEquals(resourceMan, Nothing) Then
|
||||||
|
Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("Pilz.IO.Resources", GetType(Resources).Assembly)
|
||||||
|
resourceMan = temp
|
||||||
|
End If
|
||||||
|
Return resourceMan
|
||||||
|
End Get
|
||||||
|
End Property
|
||||||
|
|
||||||
|
'''<summary>
|
||||||
|
''' Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle
|
||||||
|
''' Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden.
|
||||||
|
'''</summary>
|
||||||
|
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||||
|
Friend Property Culture() As Global.System.Globalization.CultureInfo
|
||||||
|
Get
|
||||||
|
Return resourceCulture
|
||||||
|
End Get
|
||||||
|
Set
|
||||||
|
resourceCulture = value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
End Module
|
||||||
|
End Namespace
|
||||||
117
Pilz.IO/My Project/Resources.resx
Normal file
117
Pilz.IO/My Project/Resources.resx
Normal file
@@ -0,0 +1,117 @@
|
|||||||
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
|
<root>
|
||||||
|
<!--
|
||||||
|
Microsoft ResX Schema
|
||||||
|
|
||||||
|
Version 2.0
|
||||||
|
|
||||||
|
The primary goals of this format is to allow a simple XML format
|
||||||
|
that is mostly human readable. The generation and parsing of the
|
||||||
|
various data types are done through the TypeConverter classes
|
||||||
|
associated with the data types.
|
||||||
|
|
||||||
|
Example:
|
||||||
|
|
||||||
|
... ado.net/XML headers & schema ...
|
||||||
|
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||||
|
<resheader name="version">2.0</resheader>
|
||||||
|
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||||
|
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||||
|
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||||
|
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||||
|
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||||
|
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||||
|
</data>
|
||||||
|
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||||
|
<comment>This is a comment</comment>
|
||||||
|
</data>
|
||||||
|
|
||||||
|
There are any number of "resheader" rows that contain simple
|
||||||
|
name/value pairs.
|
||||||
|
|
||||||
|
Each data row contains a name, and value. The row also contains a
|
||||||
|
type or mimetype. Type corresponds to a .NET class that support
|
||||||
|
text/value conversion through the TypeConverter architecture.
|
||||||
|
Classes that don't support this are serialized and stored with the
|
||||||
|
mimetype set.
|
||||||
|
|
||||||
|
The mimetype is used for serialized objects, and tells the
|
||||||
|
ResXResourceReader how to depersist the object. This is currently not
|
||||||
|
extensible. For a given mimetype the value must be set accordingly:
|
||||||
|
|
||||||
|
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||||
|
that the ResXResourceWriter will generate, however the reader can
|
||||||
|
read any of the formats listed below.
|
||||||
|
|
||||||
|
mimetype: application/x-microsoft.net.object.binary.base64
|
||||||
|
value : The object must be serialized with
|
||||||
|
: System.Serialization.Formatters.Binary.BinaryFormatter
|
||||||
|
: and then encoded with base64 encoding.
|
||||||
|
|
||||||
|
mimetype: application/x-microsoft.net.object.soap.base64
|
||||||
|
value : The object must be serialized with
|
||||||
|
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||||
|
: and then encoded with base64 encoding.
|
||||||
|
|
||||||
|
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||||
|
value : The object must be serialized into a byte array
|
||||||
|
: using a System.ComponentModel.TypeConverter
|
||||||
|
: and then encoded with base64 encoding.
|
||||||
|
-->
|
||||||
|
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||||
|
<xsd:element name="root" msdata:IsDataSet="true">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:choice maxOccurs="unbounded">
|
||||||
|
<xsd:element name="metadata">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:sequence>
|
||||||
|
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||||
|
</xsd:sequence>
|
||||||
|
<xsd:attribute name="name" type="xsd:string" />
|
||||||
|
<xsd:attribute name="type" type="xsd:string" />
|
||||||
|
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
<xsd:element name="assembly">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:attribute name="alias" type="xsd:string" />
|
||||||
|
<xsd:attribute name="name" type="xsd:string" />
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
<xsd:element name="data">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:sequence>
|
||||||
|
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||||
|
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||||
|
</xsd:sequence>
|
||||||
|
<xsd:attribute name="name" type="xsd:string" msdata:Ordinal="1" />
|
||||||
|
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||||
|
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
<xsd:element name="resheader">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:sequence>
|
||||||
|
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||||
|
</xsd:sequence>
|
||||||
|
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
</xsd:choice>
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
</xsd:schema>
|
||||||
|
<resheader name="resmimetype">
|
||||||
|
<value>text/microsoft-resx</value>
|
||||||
|
</resheader>
|
||||||
|
<resheader name="version">
|
||||||
|
<value>2.0</value>
|
||||||
|
</resheader>
|
||||||
|
<resheader name="reader">
|
||||||
|
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||||
|
</resheader>
|
||||||
|
<resheader name="writer">
|
||||||
|
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||||
|
</resheader>
|
||||||
|
</root>
|
||||||
73
Pilz.IO/My Project/Settings.Designer.vb
generated
Normal file
73
Pilz.IO/My Project/Settings.Designer.vb
generated
Normal file
@@ -0,0 +1,73 @@
|
|||||||
|
'------------------------------------------------------------------------------
|
||||||
|
' <auto-generated>
|
||||||
|
' Dieser Code wurde von einem Tool generiert.
|
||||||
|
' Laufzeitversion:4.0.30319.42000
|
||||||
|
'
|
||||||
|
' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
|
||||||
|
' der Code erneut generiert wird.
|
||||||
|
' </auto-generated>
|
||||||
|
'------------------------------------------------------------------------------
|
||||||
|
|
||||||
|
Option Strict On
|
||||||
|
Option Explicit On
|
||||||
|
|
||||||
|
|
||||||
|
Namespace My
|
||||||
|
|
||||||
|
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
|
||||||
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "15.9.0.0"), _
|
||||||
|
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||||
|
Partial Friend NotInheritable Class MySettings
|
||||||
|
Inherits Global.System.Configuration.ApplicationSettingsBase
|
||||||
|
|
||||||
|
Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings)
|
||||||
|
|
||||||
|
#Region "Automatische My.Settings-Speicherfunktion"
|
||||||
|
#If _MyType = "WindowsForms" Then
|
||||||
|
Private Shared addedHandler As Boolean
|
||||||
|
|
||||||
|
Private Shared addedHandlerLockObject As New Object
|
||||||
|
|
||||||
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||||
|
Private Shared Sub AutoSaveSettings(sender As Global.System.Object, e As Global.System.EventArgs)
|
||||||
|
If My.Application.SaveMySettingsOnExit Then
|
||||||
|
My.Settings.Save()
|
||||||
|
End If
|
||||||
|
End Sub
|
||||||
|
#End If
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
Public Shared ReadOnly Property [Default]() As MySettings
|
||||||
|
Get
|
||||||
|
|
||||||
|
#If _MyType = "WindowsForms" Then
|
||||||
|
If Not addedHandler Then
|
||||||
|
SyncLock addedHandlerLockObject
|
||||||
|
If Not addedHandler Then
|
||||||
|
AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
|
||||||
|
addedHandler = True
|
||||||
|
End If
|
||||||
|
End SyncLock
|
||||||
|
End If
|
||||||
|
#End If
|
||||||
|
Return defaultInstance
|
||||||
|
End Get
|
||||||
|
End Property
|
||||||
|
End Class
|
||||||
|
End Namespace
|
||||||
|
|
||||||
|
Namespace My
|
||||||
|
|
||||||
|
<Global.Microsoft.VisualBasic.HideModuleNameAttribute(), _
|
||||||
|
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||||
|
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _
|
||||||
|
Friend Module MySettingsProperty
|
||||||
|
|
||||||
|
<Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _
|
||||||
|
Friend ReadOnly Property Settings() As Global.Pilz.IO.My.MySettings
|
||||||
|
Get
|
||||||
|
Return Global.Pilz.IO.My.MySettings.Default
|
||||||
|
End Get
|
||||||
|
End Property
|
||||||
|
End Module
|
||||||
|
End Namespace
|
||||||
7
Pilz.IO/My Project/Settings.settings
Normal file
7
Pilz.IO/My Project/Settings.settings
Normal file
@@ -0,0 +1,7 @@
|
|||||||
|
<?xml version='1.0' encoding='utf-8'?>
|
||||||
|
<SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" UseMySettingsClassName="true">
|
||||||
|
<Profiles>
|
||||||
|
<Profile Name="(Default)" />
|
||||||
|
</Profiles>
|
||||||
|
<Settings />
|
||||||
|
</SettingsFile>
|
||||||
135
Pilz.IO/Pilz.IO.vbproj
Normal file
135
Pilz.IO/Pilz.IO.vbproj
Normal file
@@ -0,0 +1,135 @@
|
|||||||
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
|
<Project ToolsVersion="15.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||||
|
<Import Project="$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props" Condition="Exists('$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props')" />
|
||||||
|
<PropertyGroup>
|
||||||
|
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||||
|
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||||
|
<ProjectGuid>{35591965-8339-41A2-8CD3-962ED54670AC}</ProjectGuid>
|
||||||
|
<OutputType>Library</OutputType>
|
||||||
|
<RootNamespace>Pilz.IO</RootNamespace>
|
||||||
|
<AssemblyName>Pilz.IO</AssemblyName>
|
||||||
|
<FileAlignment>512</FileAlignment>
|
||||||
|
<MyType>Windows</MyType>
|
||||||
|
<TargetFrameworkVersion>v4.5</TargetFrameworkVersion>
|
||||||
|
<Deterministic>true</Deterministic>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||||
|
<DebugSymbols>true</DebugSymbols>
|
||||||
|
<DebugType>full</DebugType>
|
||||||
|
<DefineDebug>true</DefineDebug>
|
||||||
|
<DefineTrace>true</DefineTrace>
|
||||||
|
<OutputPath>bin\Debug\</OutputPath>
|
||||||
|
<DocumentationFile>Pilz.IO.xml</DocumentationFile>
|
||||||
|
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||||
|
<DebugType>pdbonly</DebugType>
|
||||||
|
<DefineDebug>false</DefineDebug>
|
||||||
|
<DefineTrace>true</DefineTrace>
|
||||||
|
<Optimize>true</Optimize>
|
||||||
|
<OutputPath>bin\Release\</OutputPath>
|
||||||
|
<DocumentationFile>Pilz.IO.xml</DocumentationFile>
|
||||||
|
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup>
|
||||||
|
<OptionExplicit>On</OptionExplicit>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup>
|
||||||
|
<OptionCompare>Binary</OptionCompare>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup>
|
||||||
|
<OptionStrict>Off</OptionStrict>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup>
|
||||||
|
<OptionInfer>On</OptionInfer>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Debug|x86'">
|
||||||
|
<DebugSymbols>true</DebugSymbols>
|
||||||
|
<DefineDebug>true</DefineDebug>
|
||||||
|
<DefineTrace>true</DefineTrace>
|
||||||
|
<OutputPath>bin\x86\Debug\</OutputPath>
|
||||||
|
<DocumentationFile>Pilz.IO.xml</DocumentationFile>
|
||||||
|
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
|
||||||
|
<DebugType>full</DebugType>
|
||||||
|
<PlatformTarget>x86</PlatformTarget>
|
||||||
|
<CodeAnalysisRuleSet>MinimumRecommendedRules.ruleset</CodeAnalysisRuleSet>
|
||||||
|
<UseVSHostingProcess>true</UseVSHostingProcess>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Release|x86'">
|
||||||
|
<DefineTrace>true</DefineTrace>
|
||||||
|
<OutputPath>bin\x86\Release\</OutputPath>
|
||||||
|
<DocumentationFile>Pilz.IO.xml</DocumentationFile>
|
||||||
|
<Optimize>true</Optimize>
|
||||||
|
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
|
||||||
|
<DebugType>pdbonly</DebugType>
|
||||||
|
<PlatformTarget>x86</PlatformTarget>
|
||||||
|
<CodeAnalysisRuleSet>MinimumRecommendedRules.ruleset</CodeAnalysisRuleSet>
|
||||||
|
</PropertyGroup>
|
||||||
|
<ItemGroup>
|
||||||
|
<Reference Include="System" />
|
||||||
|
<Reference Include="System.Data" />
|
||||||
|
<Reference Include="System.Xml" />
|
||||||
|
<Reference Include="System.Core" />
|
||||||
|
<Reference Include="System.Xml.Linq" />
|
||||||
|
<Reference Include="System.Data.DataSetExtensions" />
|
||||||
|
<Reference Include="System.Net.Http" />
|
||||||
|
</ItemGroup>
|
||||||
|
<ItemGroup>
|
||||||
|
<Import Include="Microsoft.VisualBasic" />
|
||||||
|
<Import Include="System" />
|
||||||
|
<Import Include="System.Collections" />
|
||||||
|
<Import Include="System.Collections.Generic" />
|
||||||
|
<Import Include="System.Data" />
|
||||||
|
<Import Include="System.Diagnostics" />
|
||||||
|
<Import Include="System.Linq" />
|
||||||
|
<Import Include="System.Xml.Linq" />
|
||||||
|
<Import Include="System.Threading.Tasks" />
|
||||||
|
</ItemGroup>
|
||||||
|
<ItemGroup>
|
||||||
|
<Compile Include="ManagedPipes\ManagedPipeClient.vb" />
|
||||||
|
<Compile Include="ManagedPipes\ManagedPipe.vb" />
|
||||||
|
<Compile Include="EventArgs\DataEventargs.vb" />
|
||||||
|
<Compile Include="My Project\AssemblyInfo.vb" />
|
||||||
|
<Compile Include="My Project\Application.Designer.vb">
|
||||||
|
<AutoGen>True</AutoGen>
|
||||||
|
<DependentUpon>Application.myapp</DependentUpon>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="My Project\Resources.Designer.vb">
|
||||||
|
<AutoGen>True</AutoGen>
|
||||||
|
<DesignTime>True</DesignTime>
|
||||||
|
<DependentUpon>Resources.resx</DependentUpon>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="My Project\Settings.Designer.vb">
|
||||||
|
<AutoGen>True</AutoGen>
|
||||||
|
<DependentUpon>Settings.settings</DependentUpon>
|
||||||
|
<DesignTimeSharedInput>True</DesignTimeSharedInput>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="ManagedPipes\ManagedPipeServer.vb" />
|
||||||
|
</ItemGroup>
|
||||||
|
<ItemGroup>
|
||||||
|
<EmbeddedResource Include="My Project\Resources.resx">
|
||||||
|
<Generator>VbMyResourcesResXFileCodeGenerator</Generator>
|
||||||
|
<LastGenOutput>Resources.Designer.vb</LastGenOutput>
|
||||||
|
<CustomToolNamespace>My.Resources</CustomToolNamespace>
|
||||||
|
<SubType>Designer</SubType>
|
||||||
|
</EmbeddedResource>
|
||||||
|
</ItemGroup>
|
||||||
|
<ItemGroup>
|
||||||
|
<None Include="My Project\Application.myapp">
|
||||||
|
<Generator>MyApplicationCodeGenerator</Generator>
|
||||||
|
<LastGenOutput>Application.Designer.vb</LastGenOutput>
|
||||||
|
</None>
|
||||||
|
<None Include="My Project\Settings.settings">
|
||||||
|
<Generator>SettingsSingleFileGenerator</Generator>
|
||||||
|
<CustomToolNamespace>My</CustomToolNamespace>
|
||||||
|
<LastGenOutput>Settings.Designer.vb</LastGenOutput>
|
||||||
|
</None>
|
||||||
|
</ItemGroup>
|
||||||
|
<ItemGroup>
|
||||||
|
<ProjectReference Include="..\Pilz.Threading\Pilz.Threading.vbproj">
|
||||||
|
<Project>{d9c8655e-4f1c-4348-a51c-ab00fd9a14bb}</Project>
|
||||||
|
<Name>CrossThreads</Name>
|
||||||
|
</ProjectReference>
|
||||||
|
</ItemGroup>
|
||||||
|
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
|
||||||
|
</Project>
|
||||||
@@ -0,0 +1,19 @@
|
|||||||
|
Namespace Attributes
|
||||||
|
|
||||||
|
Public Class PluginFunctionAttribute
|
||||||
|
Inherits Attribute
|
||||||
|
|
||||||
|
Public ReadOnly Property FunctionCode As String
|
||||||
|
Public ReadOnly Property Params As Object()
|
||||||
|
|
||||||
|
''' <summary/>
|
||||||
|
''' <param name="funcCode">The function code for this PluginFunction.</param>
|
||||||
|
''' <param name="params">The parameters for this PluginFunction.</param>
|
||||||
|
Public Sub New(funcCode As String, ParamArray params As Object())
|
||||||
|
Me.FunctionCode = funcCode
|
||||||
|
Me.Params = params
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
End Class
|
||||||
|
|
||||||
|
End Namespace
|
||||||
@@ -0,0 +1,7 @@
|
|||||||
|
Namespace Attributes
|
||||||
|
|
||||||
|
Public Class LoadMethodAttribute
|
||||||
|
Inherits Attribute
|
||||||
|
End Class
|
||||||
|
|
||||||
|
End Namespace
|
||||||
13
Pilz.Reflection.PluginSystem/My Project/Application.Designer.vb
generated
Normal file
13
Pilz.Reflection.PluginSystem/My Project/Application.Designer.vb
generated
Normal file
@@ -0,0 +1,13 @@
|
|||||||
|
'------------------------------------------------------------------------------
|
||||||
|
' <auto-generated>
|
||||||
|
' This code was generated by a tool.
|
||||||
|
' Runtime Version:4.0.30319.42000
|
||||||
|
'
|
||||||
|
' Changes to this file may cause incorrect behavior and will be lost if
|
||||||
|
' the code is regenerated.
|
||||||
|
' </auto-generated>
|
||||||
|
'------------------------------------------------------------------------------
|
||||||
|
|
||||||
|
Option Strict On
|
||||||
|
Option Explicit On
|
||||||
|
|
||||||
10
Pilz.Reflection.PluginSystem/My Project/Application.myapp
Normal file
10
Pilz.Reflection.PluginSystem/My Project/Application.myapp
Normal file
@@ -0,0 +1,10 @@
|
|||||||
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
|
<MyApplicationData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
|
||||||
|
<MySubMain>false</MySubMain>
|
||||||
|
<SingleInstance>false</SingleInstance>
|
||||||
|
<ShutdownMode>0</ShutdownMode>
|
||||||
|
<EnableVisualStyles>true</EnableVisualStyles>
|
||||||
|
<AuthenticationMode>0</AuthenticationMode>
|
||||||
|
<ApplicationType>1</ApplicationType>
|
||||||
|
<SaveMySettingsOnExit>true</SaveMySettingsOnExit>
|
||||||
|
</MyApplicationData>
|
||||||
35
Pilz.Reflection.PluginSystem/My Project/AssemblyInfo.vb
Normal file
35
Pilz.Reflection.PluginSystem/My Project/AssemblyInfo.vb
Normal file
@@ -0,0 +1,35 @@
|
|||||||
|
Imports System
|
||||||
|
Imports System.Reflection
|
||||||
|
Imports System.Runtime.InteropServices
|
||||||
|
|
||||||
|
' Allgemeine Informationen über eine Assembly werden über die folgenden
|
||||||
|
' Attribute gesteuert. Ändern Sie diese Attributwerte, um die Informationen zu ändern,
|
||||||
|
' die einer Assembly zugeordnet sind.
|
||||||
|
|
||||||
|
' Werte der Assemblyattribute überprüfen
|
||||||
|
|
||||||
|
<Assembly: AssemblyTitle("Pilz.Reflection.PluginSystem")>
|
||||||
|
<Assembly: AssemblyDescription("")>
|
||||||
|
<Assembly: AssemblyCompany("Pascal Schedel")>
|
||||||
|
<Assembly: AssemblyProduct("Pilz.Reflection.PluginSystem")>
|
||||||
|
<Assembly: AssemblyCopyright("Copyright © Pascal Schedel 2019")>
|
||||||
|
<Assembly: AssemblyTrademark("")>
|
||||||
|
|
||||||
|
<Assembly: ComVisible(False)>
|
||||||
|
|
||||||
|
'Die folgende GUID bestimmt die ID der Typbibliothek, wenn dieses Projekt für COM verfügbar gemacht wird.
|
||||||
|
<Assembly: Guid("71d06604-a99f-4aa7-9dec-a2fe0d6b63d3")>
|
||||||
|
|
||||||
|
' Versionsinformationen für eine Assembly bestehen aus den folgenden vier Werten:
|
||||||
|
'
|
||||||
|
' Hauptversion
|
||||||
|
' Nebenversion
|
||||||
|
' Buildnummer
|
||||||
|
' Revision
|
||||||
|
'
|
||||||
|
' Sie können alle Werte angeben oder Standardwerte für die Build- und Revisionsnummern verwenden,
|
||||||
|
' übernehmen, indem Sie "*" eingeben:
|
||||||
|
' <Assembly: AssemblyVersion("1.0.*")>
|
||||||
|
|
||||||
|
<Assembly: AssemblyVersion("1.0.0.0")>
|
||||||
|
<Assembly: AssemblyFileVersion("1.0.0.0")>
|
||||||
62
Pilz.Reflection.PluginSystem/My Project/Resources.Designer.vb
generated
Normal file
62
Pilz.Reflection.PluginSystem/My Project/Resources.Designer.vb
generated
Normal file
@@ -0,0 +1,62 @@
|
|||||||
|
'------------------------------------------------------------------------------
|
||||||
|
' <auto-generated>
|
||||||
|
' This code was generated by a tool.
|
||||||
|
' Runtime Version:4.0.30319.42000
|
||||||
|
'
|
||||||
|
' Changes to this file may cause incorrect behavior and will be lost if
|
||||||
|
' the code is regenerated.
|
||||||
|
' </auto-generated>
|
||||||
|
'------------------------------------------------------------------------------
|
||||||
|
|
||||||
|
Option Strict On
|
||||||
|
Option Explicit On
|
||||||
|
|
||||||
|
|
||||||
|
Namespace My.Resources
|
||||||
|
|
||||||
|
'This class was auto-generated by the StronglyTypedResourceBuilder
|
||||||
|
'class via a tool like ResGen or Visual Studio.
|
||||||
|
'To add or remove a member, edit your .ResX file then rerun ResGen
|
||||||
|
'with the /str option, or rebuild your VS project.
|
||||||
|
'''<summary>
|
||||||
|
''' A strongly-typed resource class, for looking up localized strings, etc.
|
||||||
|
'''</summary>
|
||||||
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "4.0.0.0"), _
|
||||||
|
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||||
|
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
|
||||||
|
Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
|
||||||
|
Friend Module Resources
|
||||||
|
|
||||||
|
Private resourceMan As Global.System.Resources.ResourceManager
|
||||||
|
|
||||||
|
Private resourceCulture As Global.System.Globalization.CultureInfo
|
||||||
|
|
||||||
|
'''<summary>
|
||||||
|
''' Returns the cached ResourceManager instance used by this class.
|
||||||
|
'''</summary>
|
||||||
|
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||||
|
Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
|
||||||
|
Get
|
||||||
|
If Object.ReferenceEquals(resourceMan, Nothing) Then
|
||||||
|
Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("Pilz.Reflection.PluginSystem.Resources", GetType(Resources).Assembly)
|
||||||
|
resourceMan = temp
|
||||||
|
End If
|
||||||
|
Return resourceMan
|
||||||
|
End Get
|
||||||
|
End Property
|
||||||
|
|
||||||
|
'''<summary>
|
||||||
|
''' Overrides the current thread's CurrentUICulture property for all
|
||||||
|
''' resource lookups using this strongly typed resource class.
|
||||||
|
'''</summary>
|
||||||
|
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||||
|
Friend Property Culture() As Global.System.Globalization.CultureInfo
|
||||||
|
Get
|
||||||
|
Return resourceCulture
|
||||||
|
End Get
|
||||||
|
Set(ByVal value As Global.System.Globalization.CultureInfo)
|
||||||
|
resourceCulture = value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
End Module
|
||||||
|
End Namespace
|
||||||
117
Pilz.Reflection.PluginSystem/My Project/Resources.resx
Normal file
117
Pilz.Reflection.PluginSystem/My Project/Resources.resx
Normal file
@@ -0,0 +1,117 @@
|
|||||||
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
|
<root>
|
||||||
|
<!--
|
||||||
|
Microsoft ResX Schema
|
||||||
|
|
||||||
|
Version 2.0
|
||||||
|
|
||||||
|
The primary goals of this format is to allow a simple XML format
|
||||||
|
that is mostly human readable. The generation and parsing of the
|
||||||
|
various data types are done through the TypeConverter classes
|
||||||
|
associated with the data types.
|
||||||
|
|
||||||
|
Example:
|
||||||
|
|
||||||
|
... ado.net/XML headers & schema ...
|
||||||
|
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||||
|
<resheader name="version">2.0</resheader>
|
||||||
|
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||||
|
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||||
|
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||||
|
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||||
|
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||||
|
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||||
|
</data>
|
||||||
|
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||||
|
<comment>This is a comment</comment>
|
||||||
|
</data>
|
||||||
|
|
||||||
|
There are any number of "resheader" rows that contain simple
|
||||||
|
name/value pairs.
|
||||||
|
|
||||||
|
Each data row contains a name, and value. The row also contains a
|
||||||
|
type or mimetype. Type corresponds to a .NET class that support
|
||||||
|
text/value conversion through the TypeConverter architecture.
|
||||||
|
Classes that don't support this are serialized and stored with the
|
||||||
|
mimetype set.
|
||||||
|
|
||||||
|
The mimetype is used for serialized objects, and tells the
|
||||||
|
ResXResourceReader how to depersist the object. This is currently not
|
||||||
|
extensible. For a given mimetype the value must be set accordingly:
|
||||||
|
|
||||||
|
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||||
|
that the ResXResourceWriter will generate, however the reader can
|
||||||
|
read any of the formats listed below.
|
||||||
|
|
||||||
|
mimetype: application/x-microsoft.net.object.binary.base64
|
||||||
|
value : The object must be serialized with
|
||||||
|
: System.Serialization.Formatters.Binary.BinaryFormatter
|
||||||
|
: and then encoded with base64 encoding.
|
||||||
|
|
||||||
|
mimetype: application/x-microsoft.net.object.soap.base64
|
||||||
|
value : The object must be serialized with
|
||||||
|
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||||
|
: and then encoded with base64 encoding.
|
||||||
|
|
||||||
|
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||||
|
value : The object must be serialized into a byte array
|
||||||
|
: using a System.ComponentModel.TypeConverter
|
||||||
|
: and then encoded with base64 encoding.
|
||||||
|
-->
|
||||||
|
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||||
|
<xsd:element name="root" msdata:IsDataSet="true">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:choice maxOccurs="unbounded">
|
||||||
|
<xsd:element name="metadata">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:sequence>
|
||||||
|
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||||
|
</xsd:sequence>
|
||||||
|
<xsd:attribute name="name" type="xsd:string" />
|
||||||
|
<xsd:attribute name="type" type="xsd:string" />
|
||||||
|
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
<xsd:element name="assembly">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:attribute name="alias" type="xsd:string" />
|
||||||
|
<xsd:attribute name="name" type="xsd:string" />
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
<xsd:element name="data">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:sequence>
|
||||||
|
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||||
|
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||||
|
</xsd:sequence>
|
||||||
|
<xsd:attribute name="name" type="xsd:string" msdata:Ordinal="1" />
|
||||||
|
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||||
|
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
<xsd:element name="resheader">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:sequence>
|
||||||
|
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||||
|
</xsd:sequence>
|
||||||
|
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
</xsd:choice>
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
</xsd:schema>
|
||||||
|
<resheader name="resmimetype">
|
||||||
|
<value>text/microsoft-resx</value>
|
||||||
|
</resheader>
|
||||||
|
<resheader name="version">
|
||||||
|
<value>2.0</value>
|
||||||
|
</resheader>
|
||||||
|
<resheader name="reader">
|
||||||
|
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||||
|
</resheader>
|
||||||
|
<resheader name="writer">
|
||||||
|
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||||
|
</resheader>
|
||||||
|
</root>
|
||||||
73
Pilz.Reflection.PluginSystem/My Project/Settings.Designer.vb
generated
Normal file
73
Pilz.Reflection.PluginSystem/My Project/Settings.Designer.vb
generated
Normal file
@@ -0,0 +1,73 @@
|
|||||||
|
'------------------------------------------------------------------------------
|
||||||
|
' <auto-generated>
|
||||||
|
' This code was generated by a tool.
|
||||||
|
' Runtime Version:4.0.30319.42000
|
||||||
|
'
|
||||||
|
' Changes to this file may cause incorrect behavior and will be lost if
|
||||||
|
' the code is regenerated.
|
||||||
|
' </auto-generated>
|
||||||
|
'------------------------------------------------------------------------------
|
||||||
|
|
||||||
|
Option Strict On
|
||||||
|
Option Explicit On
|
||||||
|
|
||||||
|
|
||||||
|
Namespace My
|
||||||
|
|
||||||
|
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
|
||||||
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "11.0.0.0"), _
|
||||||
|
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||||
|
Partial Friend NotInheritable Class MySettings
|
||||||
|
Inherits Global.System.Configuration.ApplicationSettingsBase
|
||||||
|
|
||||||
|
Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings), MySettings)
|
||||||
|
|
||||||
|
#Region "My.Settings Auto-Save Functionality"
|
||||||
|
#If _MyType = "WindowsForms" Then
|
||||||
|
Private Shared addedHandler As Boolean
|
||||||
|
|
||||||
|
Private Shared addedHandlerLockObject As New Object
|
||||||
|
|
||||||
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||||
|
Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs)
|
||||||
|
If My.Application.SaveMySettingsOnExit Then
|
||||||
|
My.Settings.Save()
|
||||||
|
End If
|
||||||
|
End Sub
|
||||||
|
#End If
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
Public Shared ReadOnly Property [Default]() As MySettings
|
||||||
|
Get
|
||||||
|
|
||||||
|
#If _MyType = "WindowsForms" Then
|
||||||
|
If Not addedHandler Then
|
||||||
|
SyncLock addedHandlerLockObject
|
||||||
|
If Not addedHandler Then
|
||||||
|
AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
|
||||||
|
addedHandler = True
|
||||||
|
End If
|
||||||
|
End SyncLock
|
||||||
|
End If
|
||||||
|
#End If
|
||||||
|
Return defaultInstance
|
||||||
|
End Get
|
||||||
|
End Property
|
||||||
|
End Class
|
||||||
|
End Namespace
|
||||||
|
|
||||||
|
Namespace My
|
||||||
|
|
||||||
|
<Global.Microsoft.VisualBasic.HideModuleNameAttribute(), _
|
||||||
|
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||||
|
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _
|
||||||
|
Friend Module MySettingsProperty
|
||||||
|
|
||||||
|
<Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _
|
||||||
|
Friend ReadOnly Property Settings() As Global.Pilz.Reflection.PluginSystem.My.MySettings
|
||||||
|
Get
|
||||||
|
Return Global.Pilz.Reflection.PluginSystem.My.MySettings.Default
|
||||||
|
End Get
|
||||||
|
End Property
|
||||||
|
End Module
|
||||||
|
End Namespace
|
||||||
@@ -0,0 +1,7 @@
|
|||||||
|
<?xml version='1.0' encoding='utf-8'?>
|
||||||
|
<SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" UseMySettingsClassName="true">
|
||||||
|
<Profiles>
|
||||||
|
<Profile Name="(Default)" />
|
||||||
|
</Profiles>
|
||||||
|
<Settings />
|
||||||
|
</SettingsFile>
|
||||||
109
Pilz.Reflection.PluginSystem/Pilz.Reflection.PluginSystem.vbproj
Normal file
109
Pilz.Reflection.PluginSystem/Pilz.Reflection.PluginSystem.vbproj
Normal file
@@ -0,0 +1,109 @@
|
|||||||
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
|
<Project ToolsVersion="15.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||||
|
<Import Project="$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props" Condition="Exists('$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props')" />
|
||||||
|
<PropertyGroup>
|
||||||
|
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||||
|
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||||
|
<ProjectGuid>{F7975470-4CA3-4FAB-BB6A-A3AF3978ABB7}</ProjectGuid>
|
||||||
|
<OutputType>Library</OutputType>
|
||||||
|
<RootNamespace>Pilz.Reflection.PluginSystem</RootNamespace>
|
||||||
|
<AssemblyName>Pilz.Reflection.PluginSystem</AssemblyName>
|
||||||
|
<FileAlignment>512</FileAlignment>
|
||||||
|
<MyType>Windows</MyType>
|
||||||
|
<TargetFrameworkVersion>v4.5</TargetFrameworkVersion>
|
||||||
|
<Deterministic>true</Deterministic>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||||
|
<DebugSymbols>true</DebugSymbols>
|
||||||
|
<DebugType>full</DebugType>
|
||||||
|
<DefineDebug>true</DefineDebug>
|
||||||
|
<DefineTrace>true</DefineTrace>
|
||||||
|
<OutputPath>bin\Debug\</OutputPath>
|
||||||
|
<DocumentationFile>Pilz.Reflection.PluginSystem.xml</DocumentationFile>
|
||||||
|
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||||
|
<DebugType>pdbonly</DebugType>
|
||||||
|
<DefineDebug>false</DefineDebug>
|
||||||
|
<DefineTrace>true</DefineTrace>
|
||||||
|
<Optimize>true</Optimize>
|
||||||
|
<OutputPath>bin\Release\</OutputPath>
|
||||||
|
<DocumentationFile>Pilz.Reflection.PluginSystem.xml</DocumentationFile>
|
||||||
|
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup>
|
||||||
|
<OptionExplicit>On</OptionExplicit>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup>
|
||||||
|
<OptionCompare>Binary</OptionCompare>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup>
|
||||||
|
<OptionStrict>Off</OptionStrict>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup>
|
||||||
|
<OptionInfer>On</OptionInfer>
|
||||||
|
</PropertyGroup>
|
||||||
|
<ItemGroup>
|
||||||
|
<Reference Include="System" />
|
||||||
|
<Reference Include="System.Data" />
|
||||||
|
<Reference Include="System.Xml" />
|
||||||
|
<Reference Include="System.Core" />
|
||||||
|
<Reference Include="System.Xml.Linq" />
|
||||||
|
<Reference Include="System.Data.DataSetExtensions" />
|
||||||
|
<Reference Include="System.Net.Http" />
|
||||||
|
</ItemGroup>
|
||||||
|
<ItemGroup>
|
||||||
|
<Import Include="Microsoft.VisualBasic" />
|
||||||
|
<Import Include="System" />
|
||||||
|
<Import Include="System.Collections" />
|
||||||
|
<Import Include="System.Collections.Generic" />
|
||||||
|
<Import Include="System.Data" />
|
||||||
|
<Import Include="System.Diagnostics" />
|
||||||
|
<Import Include="System.Linq" />
|
||||||
|
<Import Include="System.Xml.Linq" />
|
||||||
|
<Import Include="System.Threading.Tasks" />
|
||||||
|
</ItemGroup>
|
||||||
|
<ItemGroup>
|
||||||
|
<Compile Include="Attributes\FuncWithCodeMethodAttribute.vb" />
|
||||||
|
<Compile Include="Attributes\LoadMethodAttribute.vb" />
|
||||||
|
<Compile Include="Plugin.vb" />
|
||||||
|
<Compile Include="My Project\AssemblyInfo.vb" />
|
||||||
|
<Compile Include="My Project\Application.Designer.vb">
|
||||||
|
<AutoGen>True</AutoGen>
|
||||||
|
<DependentUpon>Application.myapp</DependentUpon>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="My Project\Resources.Designer.vb">
|
||||||
|
<AutoGen>True</AutoGen>
|
||||||
|
<DesignTime>True</DesignTime>
|
||||||
|
<DependentUpon>Resources.resx</DependentUpon>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="My Project\Settings.Designer.vb">
|
||||||
|
<AutoGen>True</AutoGen>
|
||||||
|
<DependentUpon>Settings.settings</DependentUpon>
|
||||||
|
<DesignTimeSharedInput>True</DesignTimeSharedInput>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="PluginFunction.vb" />
|
||||||
|
<Compile Include="PluginLoadException.vb" />
|
||||||
|
<Compile Include="PluginManager.vb" />
|
||||||
|
</ItemGroup>
|
||||||
|
<ItemGroup>
|
||||||
|
<EmbeddedResource Include="My Project\Resources.resx">
|
||||||
|
<Generator>VbMyResourcesResXFileCodeGenerator</Generator>
|
||||||
|
<LastGenOutput>Resources.Designer.vb</LastGenOutput>
|
||||||
|
<CustomToolNamespace>My.Resources</CustomToolNamespace>
|
||||||
|
<SubType>Designer</SubType>
|
||||||
|
</EmbeddedResource>
|
||||||
|
</ItemGroup>
|
||||||
|
<ItemGroup>
|
||||||
|
<None Include="My Project\Application.myapp">
|
||||||
|
<Generator>MyApplicationCodeGenerator</Generator>
|
||||||
|
<LastGenOutput>Application.Designer.vb</LastGenOutput>
|
||||||
|
</None>
|
||||||
|
<None Include="My Project\Settings.settings">
|
||||||
|
<Generator>SettingsSingleFileGenerator</Generator>
|
||||||
|
<CustomToolNamespace>My</CustomToolNamespace>
|
||||||
|
<LastGenOutput>Settings.Designer.vb</LastGenOutput>
|
||||||
|
</None>
|
||||||
|
</ItemGroup>
|
||||||
|
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
|
||||||
|
</Project>
|
||||||
118
Pilz.Reflection.PluginSystem/Plugin.vb
Normal file
118
Pilz.Reflection.PluginSystem/Plugin.vb
Normal file
@@ -0,0 +1,118 @@
|
|||||||
|
Imports System.IO
|
||||||
|
Imports System.Reflection
|
||||||
|
Imports Pilz.Reflection.PluginSystem.Attributes
|
||||||
|
|
||||||
|
Public Class Plugin
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' A collection of Methods that contains PluginFunctions that will be called automatically when loading the Plugin, as long as the property AutoCallMainFunctions is set to True.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns></returns>
|
||||||
|
Public ReadOnly Property MainFunctions As IReadOnlyList(Of PluginFunction)
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' A collection of Methods with a FunctionCode (excluding all PluginFunctions from MainFunctions).
|
||||||
|
''' </summary>
|
||||||
|
''' <returns></returns>
|
||||||
|
Public ReadOnly Property PluginFunctions As IReadOnlyList(Of PluginFunction)
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Load a new Plugin and its PluginFunctions.
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="filePath"></param>
|
||||||
|
''' <param name="autoCallMainFunction">If true, all MainMethods of a Plugin will be called as soon as a Plugin is loaded.</param>
|
||||||
|
''' <param name="entryTypeName">The name of the type where to search for Methods when loading a new Plugin.</param>
|
||||||
|
Public Sub New(filePath As String, autoCallMainFunction As Boolean, entryTypeName As String)
|
||||||
|
Dim asm As Assembly = Assembly.LoadFile(filePath)
|
||||||
|
Dim modul As Type = asm.GetType(entryTypeName)
|
||||||
|
|
||||||
|
If modul Is Nothing Then
|
||||||
|
Throw New PluginLoadException("Plugin Modul not found!")
|
||||||
|
End If
|
||||||
|
|
||||||
|
'Define the attribute types to observe
|
||||||
|
Dim entryMethodType As Type = GetType(LoadMethodAttribute)
|
||||||
|
Dim implementMethodType As Type = GetType(PluginFunctionAttribute)
|
||||||
|
|
||||||
|
'Create the lists
|
||||||
|
Dim mainMethods As New List(Of PluginFunction)
|
||||||
|
Dim implementMethods As New List(Of PluginFunction)
|
||||||
|
|
||||||
|
'Search for PluginFunctions
|
||||||
|
For Each mi As MethodInfo In modul.GetMethods
|
||||||
|
Dim found As Boolean = False
|
||||||
|
|
||||||
|
'Check if the method has one of the defined attributes
|
||||||
|
For Each attr As Attribute In Attribute.GetCustomAttributes(mi)
|
||||||
|
If Not found Then
|
||||||
|
Dim t As Type = attr.GetType
|
||||||
|
|
||||||
|
Select Case t
|
||||||
|
Case entryMethodType
|
||||||
|
mainMethods.Add(New PluginFunction(mi, Me))
|
||||||
|
|
||||||
|
Case implementMethodType
|
||||||
|
With CType(attr, PluginFunctionAttribute)
|
||||||
|
implementMethods.Add(New PluginFunction(mi, Me, .Params, .FunctionCode))
|
||||||
|
End With
|
||||||
|
|
||||||
|
End Select
|
||||||
|
|
||||||
|
found = True
|
||||||
|
End If
|
||||||
|
Next
|
||||||
|
Next
|
||||||
|
|
||||||
|
'Set the collections
|
||||||
|
Me.MainFunctions = mainMethods
|
||||||
|
Me.PluginFunctions = implementMethods
|
||||||
|
|
||||||
|
'Call all PluginFunctions in MainFunctions
|
||||||
|
If autoCallMainFunction Then
|
||||||
|
For Each func As PluginFunction In mainMethods
|
||||||
|
Dim params As ParameterInfo() = func.Method.GetParameters
|
||||||
|
If params.Length = 1 Then
|
||||||
|
Dim startupExe As String = Assembly.GetEntryAssembly.Location
|
||||||
|
Dim args As String() = {startupExe, filePath}
|
||||||
|
func.Invoke({args})
|
||||||
|
ElseIf Not params.Any Then
|
||||||
|
func.Invoke()
|
||||||
|
End If
|
||||||
|
Next
|
||||||
|
End If
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Get all PluginFunctions that have one of the given function codes.
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="funcCodes"></param>
|
||||||
|
''' <returns></returns>
|
||||||
|
Public Function GetFunctions(ParamArray funcCodes As String()) As IEnumerable(Of PluginFunction)
|
||||||
|
Dim funcs As New List(Of PluginFunction)
|
||||||
|
|
||||||
|
For Each func As PluginFunction In PluginFunctions
|
||||||
|
If funcCodes.Contains(func.FunctionCode) Then
|
||||||
|
funcs.Add(func)
|
||||||
|
End If
|
||||||
|
Next
|
||||||
|
|
||||||
|
Return funcs
|
||||||
|
End Function
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Get the first PluginFunction that have the one of the given function codes.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns></returns>
|
||||||
|
Public Function GetFunction(ParamArray funcCodes As String()) As PluginFunction
|
||||||
|
Dim f As PluginFunction = Nothing
|
||||||
|
|
||||||
|
For Each func As PluginFunction In PluginFunctions
|
||||||
|
If f Is Nothing AndAlso funcCodes.Contains(func.FunctionCode) Then
|
||||||
|
f = func
|
||||||
|
End If
|
||||||
|
Next
|
||||||
|
|
||||||
|
Return f
|
||||||
|
End Function
|
||||||
|
|
||||||
|
End Class
|
||||||
73
Pilz.Reflection.PluginSystem/PluginFunction.vb
Normal file
73
Pilz.Reflection.PluginSystem/PluginFunction.vb
Normal file
@@ -0,0 +1,73 @@
|
|||||||
|
Imports System.Reflection
|
||||||
|
|
||||||
|
Public Class PluginFunction
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Gets the method to invoke when invoking this PluginFunction.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns></returns>
|
||||||
|
Public ReadOnly Property Method As MethodInfo
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Gets the refered Plugin for this PluginFunction, if it has one.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns></returns>
|
||||||
|
Public ReadOnly Property Plugin As Plugin
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Gets the Parameters that was given by the attribute.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns></returns>
|
||||||
|
Public ReadOnly Property Params As Object()
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Gets the function code for this PluginFunction.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns></returns>
|
||||||
|
Public ReadOnly Property FunctionCode As String
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Creates a new instance of a PluginFunction.
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="method">The Method to invoke when invoking this PluginFunction.</param>
|
||||||
|
''' <param name="plugin">The Plugin that is the Parent of this PluginFunction. This value can be NULL.</param>
|
||||||
|
Public Sub New(method As MethodInfo, plugin As Plugin)
|
||||||
|
Me.Method = method
|
||||||
|
Me.Plugin = plugin
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Creates a new instance of a PluginFunction.
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="method">The Method to invoke when invoking this PluginFunction..</param>
|
||||||
|
''' <param name="plugin">The Plugin that is the Parent of this PluginFunction. This value can be NULL.</param>
|
||||||
|
''' <param name="params">The Parameters that was given by the attribute.</param>
|
||||||
|
''' <param name="funcCode">The function code for this PluginFunction.</param>
|
||||||
|
Public Sub New(method As MethodInfo, plugin As Plugin, params As Object(), funcCode As String)
|
||||||
|
Me.New(method, plugin)
|
||||||
|
Me.Params = params
|
||||||
|
Me.FunctionCode = funcCode
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Invokes the Method of the PluginFunction.
|
||||||
|
''' </summary>
|
||||||
|
Public Sub Invoke()
|
||||||
|
Method.Invoke(Nothing, Nothing)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Invokes the Method of the PluginFunction.
|
||||||
|
''' </summary>
|
||||||
|
Public Sub Invoke(ParamArray params As Object())
|
||||||
|
Method.Invoke(Nothing, params)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Invokes the Method of the PluginFunction and returns the return value.
|
||||||
|
''' </summary>
|
||||||
|
Public Function InvokeGet(ParamArray params As Object()) As Object
|
||||||
|
Return Method.Invoke(Nothing, params)
|
||||||
|
End Function
|
||||||
|
|
||||||
|
End Class
|
||||||
11
Pilz.Reflection.PluginSystem/PluginLoadException.vb
Normal file
11
Pilz.Reflection.PluginSystem/PluginLoadException.vb
Normal file
@@ -0,0 +1,11 @@
|
|||||||
|
Public Class PluginLoadException
|
||||||
|
Inherits Exception
|
||||||
|
|
||||||
|
Public Sub New()
|
||||||
|
MyBase.New
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Sub New(message As String)
|
||||||
|
MyBase.New(message)
|
||||||
|
End Sub
|
||||||
|
End Class
|
||||||
129
Pilz.Reflection.PluginSystem/PluginManager.vb
Normal file
129
Pilz.Reflection.PluginSystem/PluginManager.vb
Normal file
@@ -0,0 +1,129 @@
|
|||||||
|
Imports System.IO
|
||||||
|
|
||||||
|
Public Class PluginManager
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' The name of the type where to search for Methods when loading a new Plugin.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns></returns>
|
||||||
|
Public Property EntryTypeName As String = "Plugin"
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' If true, all MainMethods of a Plugin will be called as soon as a Plugin is loaded.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns></returns>
|
||||||
|
Public Property AutoCallMainFunctions As Boolean = True
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' A collection of all loaded Plugins.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns></returns>
|
||||||
|
Public ReadOnly Property Plugins As New Dictionary(Of String, Plugin)
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Loads Plugins that can be found at the given path and adds them to the Plugins-List.
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="pluginPath">The path where to search for Plugins to load.</param>
|
||||||
|
Public Function LoadPlugins(pluginPath As String) As IEnumerable(Of Plugin)
|
||||||
|
Return LoadPlugins(pluginPath, True)
|
||||||
|
End Function
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Loads Plugins that can be found at the given path and adds them to the Plugins-List.
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="pluginPath">The path where to search for Plugins to load.</param>
|
||||||
|
''' <param name="addToList">If true, the Plugins will be added to Plugins-List after loading.</param>
|
||||||
|
Public Function LoadPlugins(pluginPath As String, addToList As Boolean) As IEnumerable(Of Plugin)
|
||||||
|
Return LoadPlugins(pluginPath, addToList, AutoCallMainFunctions, EntryTypeName)
|
||||||
|
End Function
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Loads Plugins that can be found at the given path and adds them to the Plugins-List.
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="pluginPath">The path where to search for Plugins to load.</param>
|
||||||
|
''' <param name="addToList">If true, the Plugins will be added to Plugins-List after loading.</param>
|
||||||
|
''' <param name="autoCallMainFunction">If true, all MainMethods of a Plugin will be called as soon as a Plugin is loaded.</param>
|
||||||
|
''' <param name="entryTypeName">The name of the type where to search for Methods when loading a new Plugin.</param>
|
||||||
|
Public Function LoadPlugins(pluginPath As String, addToList As Boolean, autoCallMainFunction As Boolean, entryTypeName As String) As IEnumerable(Of Plugin)
|
||||||
|
Dim loaded As New List(Of Plugin)
|
||||||
|
|
||||||
|
For Each f As String In Directory.GetFiles(pluginPath, "*.dll", SearchOption.AllDirectories)
|
||||||
|
Dim p As Plugin = LoadPlugin(f, addToList)
|
||||||
|
If p IsNot Nothing Then
|
||||||
|
loaded.Add(p)
|
||||||
|
End If
|
||||||
|
Next
|
||||||
|
|
||||||
|
Return loaded
|
||||||
|
End Function
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Loads a Plugin and adds it to the Plugins-List.
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="filePath">The path to the plugin to load.</param>
|
||||||
|
''' <param name="addToList">If true, the Plugin will be added to Plugins-List after loading.</param>
|
||||||
|
Public Function LoadPlugin(filePath As String, addToList As Boolean) As Plugin
|
||||||
|
Return LoadPlugin(filePath, addToList, AutoCallMainFunctions, EntryTypeName)
|
||||||
|
End Function
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Loads a Plugin and adds it to the Plugins-List.
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="filePath">The path to the plugin to load.</param>
|
||||||
|
''' <param name="addToList">If true, the Plugin will be added to Plugins-List after loading.</param>
|
||||||
|
''' <param name="autoCallMainFunction">If true, all MainMethods of a Plugin will be called as soon as a Plugin is loaded.</param>
|
||||||
|
''' <param name="entryTypeName">The name of the type where to search for Methods when loading a new Plugin.</param>
|
||||||
|
Public Function LoadPlugin(filePath As String, addToList As Boolean, autoCallMainFunction As Boolean, entryTypeName As String) As Plugin
|
||||||
|
Try
|
||||||
|
Dim plugin As New Plugin(filePath, autoCallMainFunction, entryTypeName)
|
||||||
|
If addToList Then Plugins.Add(filePath, plugin)
|
||||||
|
Return plugin
|
||||||
|
Catch ex As Exception
|
||||||
|
Return Nothing
|
||||||
|
End Try
|
||||||
|
End Function
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Loads a Plugin and adds it to the Plugins-List.
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="filePath">The path to the plugin to load.</param>
|
||||||
|
Public Function LoadPlugin(filePath As String) As Plugin
|
||||||
|
Return LoadPlugin(filePath, True)
|
||||||
|
End Function
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Get all PluginFunctions that have one of the given function codes.
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="funcCodes"></param>
|
||||||
|
''' <returns></returns>
|
||||||
|
Public Function GetFunctions(ParamArray funcCodes As String()) As IEnumerable(Of PluginFunction)
|
||||||
|
Dim list As New List(Of PluginFunction)
|
||||||
|
|
||||||
|
For Each kvp In Plugins
|
||||||
|
list.AddRange(kvp.Value.GetFunctions(funcCodes))
|
||||||
|
Next
|
||||||
|
|
||||||
|
Return list
|
||||||
|
End Function
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Get the first PluginFunction that have the one of the given function codes.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns></returns>
|
||||||
|
Public Function GetFunction(ParamArray funcCodes As String()) As PluginFunction
|
||||||
|
Dim f As PluginFunction = Nothing
|
||||||
|
|
||||||
|
For Each kvp In Plugins
|
||||||
|
If f Is Nothing Then
|
||||||
|
For Each func As PluginFunction In kvp.Value.GetFunctions(funcCodes)
|
||||||
|
If f Is Nothing Then
|
||||||
|
f = func
|
||||||
|
End If
|
||||||
|
Next
|
||||||
|
End If
|
||||||
|
Next
|
||||||
|
|
||||||
|
Return f
|
||||||
|
End Function
|
||||||
|
|
||||||
|
End Class
|
||||||
65
Pilz.Threading/CrossThreadsInvokeing.vb
Normal file
65
Pilz.Threading/CrossThreadsInvokeing.vb
Normal file
@@ -0,0 +1,65 @@
|
|||||||
|
'IDE-Voreinstellungen:
|
||||||
|
'Option Explicit On
|
||||||
|
'Option Strict On
|
||||||
|
|
||||||
|
'"My Project"-Einstellungen:
|
||||||
|
'Imports Microsoft.VisualBasic.ControlChars
|
||||||
|
'Imports System.Windows.Forms
|
||||||
|
'Imports System
|
||||||
|
|
||||||
|
Imports System.Windows.Forms
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Stellt Methoden bereit, mit denen ein beliebiger Methoden-Aufruf mit bis zu 3 Argumenten
|
||||||
|
''' in einen Nebenthread verlegt werden kann, bzw. aus einem Nebenthread in den Hauptthread
|
||||||
|
''' </summary>
|
||||||
|
Public Class CrossThreadsInvokeing
|
||||||
|
|
||||||
|
Public Shared Sub RunAsync(Of T1, T2, T3)(ByVal Action As Action(Of T1, T2, T3), ByVal Arg1 As T1, ByVal Arg2 As T2, ByVal Arg3 As T3)
|
||||||
|
' Aufruf von Action.EndInvoke() gewährleisten, indem er als Callback-Argument mitgegeben wird
|
||||||
|
Action.BeginInvoke(Arg1, Arg2, Arg3, AddressOf Action.EndInvoke, Nothing)
|
||||||
|
End Sub
|
||||||
|
Public Shared Sub RunAsync(Of T1, T2)(ByVal Action As Action(Of T1, T2), ByVal Arg1 As T1, ByVal Arg2 As T2)
|
||||||
|
Action.BeginInvoke(Arg1, Arg2, AddressOf Action.EndInvoke, Nothing)
|
||||||
|
End Sub
|
||||||
|
Public Shared Sub RunAsync(Of T1)(ByVal Action As Action(Of T1), ByVal Arg1 As T1)
|
||||||
|
Action.BeginInvoke(Arg1, AddressOf Action.EndInvoke, Nothing)
|
||||||
|
End Sub
|
||||||
|
Public Shared Sub RunAsync(ByVal Action As Action)
|
||||||
|
Action.BeginInvoke(AddressOf Action.EndInvoke, Nothing)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Shared Function GuiCrossInvoke(ByVal Action As [Delegate], ByVal ParamArray Args() As Object) As Boolean
|
||||||
|
Dim frms As FormCollection = Application.OpenForms
|
||||||
|
|
||||||
|
'If frms.Count = 0 Then
|
||||||
|
' 'wenn kein Form mehr da ist, so tun, als ob das Invoking ausgeführt wäre
|
||||||
|
' Return True
|
||||||
|
'ElseIf frms(0).InvokeRequired Then
|
||||||
|
'frms(0).BeginInvoke(Action, Args)
|
||||||
|
'Return True
|
||||||
|
'End If
|
||||||
|
|
||||||
|
If frms.Count > 0 AndAlso frms(0).InvokeRequired Then
|
||||||
|
frms(0).BeginInvoke(Action, Args)
|
||||||
|
Return True
|
||||||
|
End If
|
||||||
|
|
||||||
|
Return False
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Shared Sub RunGui(Of T1, T2, T3)(ByVal Action As Action(Of T1, T2, T3), ByVal Arg1 As T1, ByVal Arg2 As T2, ByVal Arg3 As T3)
|
||||||
|
'falls Invoking nicht erforderlich, die Action direkt ausführen
|
||||||
|
If Not GuiCrossInvoke(Action, Arg1, Arg2, Arg3) Then Action(Arg1, Arg2, Arg3)
|
||||||
|
End Sub
|
||||||
|
Public Shared Sub RunGui(Of T1, T2)(ByVal Action As Action(Of T1, T2), ByVal Arg1 As T1, ByVal Arg2 As T2)
|
||||||
|
If Not GuiCrossInvoke(Action, Arg1, Arg2) Then Action(Arg1, Arg2)
|
||||||
|
End Sub
|
||||||
|
Public Shared Sub RunGui(Of T1)(ByVal Action As Action(Of T1), ByVal Arg1 As T1)
|
||||||
|
If Not GuiCrossInvoke(Action, Arg1) Then Action(Arg1)
|
||||||
|
End Sub
|
||||||
|
Public Shared Sub RunGui(ByVal Action As Action)
|
||||||
|
If Not GuiCrossInvoke(Action) Then Action()
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
End Class
|
||||||
13
Pilz.Threading/My Project/Application.Designer.vb
generated
Normal file
13
Pilz.Threading/My Project/Application.Designer.vb
generated
Normal file
@@ -0,0 +1,13 @@
|
|||||||
|
'------------------------------------------------------------------------------
|
||||||
|
' <auto-generated>
|
||||||
|
' Dieser Code wurde von einem Tool generiert.
|
||||||
|
' Laufzeitversion:4.0.30319.42000
|
||||||
|
'
|
||||||
|
' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
|
||||||
|
' der Code erneut generiert wird.
|
||||||
|
' </auto-generated>
|
||||||
|
'------------------------------------------------------------------------------
|
||||||
|
|
||||||
|
Option Strict On
|
||||||
|
Option Explicit On
|
||||||
|
|
||||||
10
Pilz.Threading/My Project/Application.myapp
Normal file
10
Pilz.Threading/My Project/Application.myapp
Normal file
@@ -0,0 +1,10 @@
|
|||||||
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
|
<MyApplicationData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
|
||||||
|
<MySubMain>false</MySubMain>
|
||||||
|
<SingleInstance>false</SingleInstance>
|
||||||
|
<ShutdownMode>0</ShutdownMode>
|
||||||
|
<EnableVisualStyles>true</EnableVisualStyles>
|
||||||
|
<AuthenticationMode>0</AuthenticationMode>
|
||||||
|
<ApplicationType>1</ApplicationType>
|
||||||
|
<SaveMySettingsOnExit>true</SaveMySettingsOnExit>
|
||||||
|
</MyApplicationData>
|
||||||
35
Pilz.Threading/My Project/AssemblyInfo.vb
Normal file
35
Pilz.Threading/My Project/AssemblyInfo.vb
Normal file
@@ -0,0 +1,35 @@
|
|||||||
|
Imports System
|
||||||
|
Imports System.Reflection
|
||||||
|
Imports System.Runtime.InteropServices
|
||||||
|
|
||||||
|
' Allgemeine Informationen über eine Assembly werden über die folgenden
|
||||||
|
' Attribute gesteuert. Ändern Sie diese Attributwerte, um die Informationen zu ändern,
|
||||||
|
' die einer Assembly zugeordnet sind.
|
||||||
|
|
||||||
|
' Werte der Assemblyattribute überprüfen
|
||||||
|
|
||||||
|
<Assembly: AssemblyTitle("CrossThreads")>
|
||||||
|
<Assembly: AssemblyDescription("")>
|
||||||
|
<Assembly: AssemblyCompany("DRSN")>
|
||||||
|
<Assembly: AssemblyProduct("CrossThreads")>
|
||||||
|
<Assembly: AssemblyCopyright("Copyright © DRSN 2018")>
|
||||||
|
<Assembly: AssemblyTrademark("")>
|
||||||
|
|
||||||
|
<Assembly: ComVisible(False)>
|
||||||
|
|
||||||
|
'Die folgende GUID bestimmt die ID der Typbibliothek, wenn dieses Projekt für COM verfügbar gemacht wird.
|
||||||
|
<Assembly: Guid("ff2262d0-23fc-4536-b691-e99a23942f73")>
|
||||||
|
|
||||||
|
' Versionsinformationen für eine Assembly bestehen aus den folgenden vier Werten:
|
||||||
|
'
|
||||||
|
' Hauptversion
|
||||||
|
' Nebenversion
|
||||||
|
' Buildnummer
|
||||||
|
' Revision
|
||||||
|
'
|
||||||
|
' Sie können alle Werte angeben oder Standardwerte für die Build- und Revisionsnummern verwenden,
|
||||||
|
' übernehmen, indem Sie "*" eingeben:
|
||||||
|
' <Assembly: AssemblyVersion("1.0.*")>
|
||||||
|
|
||||||
|
<Assembly: AssemblyVersion("1.0.0.0")>
|
||||||
|
<Assembly: AssemblyFileVersion("1.0.0.0")>
|
||||||
63
Pilz.Threading/My Project/Resources.Designer.vb
generated
Normal file
63
Pilz.Threading/My Project/Resources.Designer.vb
generated
Normal file
@@ -0,0 +1,63 @@
|
|||||||
|
'------------------------------------------------------------------------------
|
||||||
|
' <auto-generated>
|
||||||
|
' Dieser Code wurde von einem Tool generiert.
|
||||||
|
' Laufzeitversion:4.0.30319.42000
|
||||||
|
'
|
||||||
|
' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
|
||||||
|
' der Code erneut generiert wird.
|
||||||
|
' </auto-generated>
|
||||||
|
'------------------------------------------------------------------------------
|
||||||
|
|
||||||
|
Option Strict On
|
||||||
|
Option Explicit On
|
||||||
|
|
||||||
|
Imports System
|
||||||
|
|
||||||
|
Namespace My.Resources
|
||||||
|
|
||||||
|
'Diese Klasse wurde von der StronglyTypedResourceBuilder automatisch generiert
|
||||||
|
'-Klasse über ein Tool wie ResGen oder Visual Studio automatisch generiert.
|
||||||
|
'Um einen Member hinzuzufügen oder zu entfernen, bearbeiten Sie die .ResX-Datei und führen dann ResGen
|
||||||
|
'mit der /str-Option erneut aus, oder Sie erstellen Ihr VS-Projekt neu.
|
||||||
|
'''<summary>
|
||||||
|
''' Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
|
||||||
|
'''</summary>
|
||||||
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "15.0.0.0"), _
|
||||||
|
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||||
|
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
|
||||||
|
Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
|
||||||
|
Friend Module Resources
|
||||||
|
|
||||||
|
Private resourceMan As Global.System.Resources.ResourceManager
|
||||||
|
|
||||||
|
Private resourceCulture As Global.System.Globalization.CultureInfo
|
||||||
|
|
||||||
|
'''<summary>
|
||||||
|
''' Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird.
|
||||||
|
'''</summary>
|
||||||
|
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||||
|
Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
|
||||||
|
Get
|
||||||
|
If Object.ReferenceEquals(resourceMan, Nothing) Then
|
||||||
|
Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("Pilz.Threading.Resources", GetType(Resources).Assembly)
|
||||||
|
resourceMan = temp
|
||||||
|
End If
|
||||||
|
Return resourceMan
|
||||||
|
End Get
|
||||||
|
End Property
|
||||||
|
|
||||||
|
'''<summary>
|
||||||
|
''' Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle
|
||||||
|
''' Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden.
|
||||||
|
'''</summary>
|
||||||
|
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||||
|
Friend Property Culture() As Global.System.Globalization.CultureInfo
|
||||||
|
Get
|
||||||
|
Return resourceCulture
|
||||||
|
End Get
|
||||||
|
Set
|
||||||
|
resourceCulture = value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
End Module
|
||||||
|
End Namespace
|
||||||
117
Pilz.Threading/My Project/Resources.resx
Normal file
117
Pilz.Threading/My Project/Resources.resx
Normal file
@@ -0,0 +1,117 @@
|
|||||||
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
|
<root>
|
||||||
|
<!--
|
||||||
|
Microsoft ResX Schema
|
||||||
|
|
||||||
|
Version 2.0
|
||||||
|
|
||||||
|
The primary goals of this format is to allow a simple XML format
|
||||||
|
that is mostly human readable. The generation and parsing of the
|
||||||
|
various data types are done through the TypeConverter classes
|
||||||
|
associated with the data types.
|
||||||
|
|
||||||
|
Example:
|
||||||
|
|
||||||
|
... ado.net/XML headers & schema ...
|
||||||
|
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||||
|
<resheader name="version">2.0</resheader>
|
||||||
|
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||||
|
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||||
|
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||||
|
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||||
|
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||||
|
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||||
|
</data>
|
||||||
|
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||||
|
<comment>This is a comment</comment>
|
||||||
|
</data>
|
||||||
|
|
||||||
|
There are any number of "resheader" rows that contain simple
|
||||||
|
name/value pairs.
|
||||||
|
|
||||||
|
Each data row contains a name, and value. The row also contains a
|
||||||
|
type or mimetype. Type corresponds to a .NET class that support
|
||||||
|
text/value conversion through the TypeConverter architecture.
|
||||||
|
Classes that don't support this are serialized and stored with the
|
||||||
|
mimetype set.
|
||||||
|
|
||||||
|
The mimetype is used for serialized objects, and tells the
|
||||||
|
ResXResourceReader how to depersist the object. This is currently not
|
||||||
|
extensible. For a given mimetype the value must be set accordingly:
|
||||||
|
|
||||||
|
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||||
|
that the ResXResourceWriter will generate, however the reader can
|
||||||
|
read any of the formats listed below.
|
||||||
|
|
||||||
|
mimetype: application/x-microsoft.net.object.binary.base64
|
||||||
|
value : The object must be serialized with
|
||||||
|
: System.Serialization.Formatters.Binary.BinaryFormatter
|
||||||
|
: and then encoded with base64 encoding.
|
||||||
|
|
||||||
|
mimetype: application/x-microsoft.net.object.soap.base64
|
||||||
|
value : The object must be serialized with
|
||||||
|
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||||
|
: and then encoded with base64 encoding.
|
||||||
|
|
||||||
|
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||||
|
value : The object must be serialized into a byte array
|
||||||
|
: using a System.ComponentModel.TypeConverter
|
||||||
|
: and then encoded with base64 encoding.
|
||||||
|
-->
|
||||||
|
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||||
|
<xsd:element name="root" msdata:IsDataSet="true">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:choice maxOccurs="unbounded">
|
||||||
|
<xsd:element name="metadata">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:sequence>
|
||||||
|
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||||
|
</xsd:sequence>
|
||||||
|
<xsd:attribute name="name" type="xsd:string" />
|
||||||
|
<xsd:attribute name="type" type="xsd:string" />
|
||||||
|
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
<xsd:element name="assembly">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:attribute name="alias" type="xsd:string" />
|
||||||
|
<xsd:attribute name="name" type="xsd:string" />
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
<xsd:element name="data">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:sequence>
|
||||||
|
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||||
|
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||||
|
</xsd:sequence>
|
||||||
|
<xsd:attribute name="name" type="xsd:string" msdata:Ordinal="1" />
|
||||||
|
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||||
|
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
<xsd:element name="resheader">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:sequence>
|
||||||
|
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||||
|
</xsd:sequence>
|
||||||
|
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
</xsd:choice>
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
</xsd:schema>
|
||||||
|
<resheader name="resmimetype">
|
||||||
|
<value>text/microsoft-resx</value>
|
||||||
|
</resheader>
|
||||||
|
<resheader name="version">
|
||||||
|
<value>2.0</value>
|
||||||
|
</resheader>
|
||||||
|
<resheader name="reader">
|
||||||
|
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||||
|
</resheader>
|
||||||
|
<resheader name="writer">
|
||||||
|
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||||
|
</resheader>
|
||||||
|
</root>
|
||||||
73
Pilz.Threading/My Project/Settings.Designer.vb
generated
Normal file
73
Pilz.Threading/My Project/Settings.Designer.vb
generated
Normal file
@@ -0,0 +1,73 @@
|
|||||||
|
'------------------------------------------------------------------------------
|
||||||
|
' <auto-generated>
|
||||||
|
' Dieser Code wurde von einem Tool generiert.
|
||||||
|
' Laufzeitversion:4.0.30319.42000
|
||||||
|
'
|
||||||
|
' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
|
||||||
|
' der Code erneut generiert wird.
|
||||||
|
' </auto-generated>
|
||||||
|
'------------------------------------------------------------------------------
|
||||||
|
|
||||||
|
Option Strict On
|
||||||
|
Option Explicit On
|
||||||
|
|
||||||
|
|
||||||
|
Namespace My
|
||||||
|
|
||||||
|
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
|
||||||
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "15.9.0.0"), _
|
||||||
|
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||||
|
Partial Friend NotInheritable Class MySettings
|
||||||
|
Inherits Global.System.Configuration.ApplicationSettingsBase
|
||||||
|
|
||||||
|
Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings)
|
||||||
|
|
||||||
|
#Region "Automatische My.Settings-Speicherfunktion"
|
||||||
|
#If _MyType = "WindowsForms" Then
|
||||||
|
Private Shared addedHandler As Boolean
|
||||||
|
|
||||||
|
Private Shared addedHandlerLockObject As New Object
|
||||||
|
|
||||||
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||||
|
Private Shared Sub AutoSaveSettings(sender As Global.System.Object, e As Global.System.EventArgs)
|
||||||
|
If My.Application.SaveMySettingsOnExit Then
|
||||||
|
My.Settings.Save()
|
||||||
|
End If
|
||||||
|
End Sub
|
||||||
|
#End If
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
Public Shared ReadOnly Property [Default]() As MySettings
|
||||||
|
Get
|
||||||
|
|
||||||
|
#If _MyType = "WindowsForms" Then
|
||||||
|
If Not addedHandler Then
|
||||||
|
SyncLock addedHandlerLockObject
|
||||||
|
If Not addedHandler Then
|
||||||
|
AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
|
||||||
|
addedHandler = True
|
||||||
|
End If
|
||||||
|
End SyncLock
|
||||||
|
End If
|
||||||
|
#End If
|
||||||
|
Return defaultInstance
|
||||||
|
End Get
|
||||||
|
End Property
|
||||||
|
End Class
|
||||||
|
End Namespace
|
||||||
|
|
||||||
|
Namespace My
|
||||||
|
|
||||||
|
<Global.Microsoft.VisualBasic.HideModuleNameAttribute(), _
|
||||||
|
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||||
|
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _
|
||||||
|
Friend Module MySettingsProperty
|
||||||
|
|
||||||
|
<Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _
|
||||||
|
Friend ReadOnly Property Settings() As Global.Pilz.Threading.My.MySettings
|
||||||
|
Get
|
||||||
|
Return Global.Pilz.Threading.My.MySettings.Default
|
||||||
|
End Get
|
||||||
|
End Property
|
||||||
|
End Module
|
||||||
|
End Namespace
|
||||||
7
Pilz.Threading/My Project/Settings.settings
Normal file
7
Pilz.Threading/My Project/Settings.settings
Normal file
@@ -0,0 +1,7 @@
|
|||||||
|
<?xml version='1.0' encoding='utf-8'?>
|
||||||
|
<SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" UseMySettingsClassName="true">
|
||||||
|
<Profiles>
|
||||||
|
<Profile Name="(Default)" />
|
||||||
|
</Profiles>
|
||||||
|
<Settings />
|
||||||
|
</SettingsFile>
|
||||||
127
Pilz.Threading/Pilz.Threading.vbproj
Normal file
127
Pilz.Threading/Pilz.Threading.vbproj
Normal file
@@ -0,0 +1,127 @@
|
|||||||
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
|
<Project ToolsVersion="15.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||||
|
<Import Project="$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props" Condition="Exists('$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props')" />
|
||||||
|
<PropertyGroup>
|
||||||
|
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||||
|
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||||
|
<ProjectGuid>{D9C8655E-4F1C-4348-A51C-AB00FD9A14BB}</ProjectGuid>
|
||||||
|
<OutputType>Library</OutputType>
|
||||||
|
<RootNamespace>Pilz.Threading</RootNamespace>
|
||||||
|
<AssemblyName>Pilz.Threading</AssemblyName>
|
||||||
|
<FileAlignment>512</FileAlignment>
|
||||||
|
<MyType>Windows</MyType>
|
||||||
|
<TargetFrameworkVersion>v4.5</TargetFrameworkVersion>
|
||||||
|
<Deterministic>true</Deterministic>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||||
|
<DebugSymbols>true</DebugSymbols>
|
||||||
|
<DebugType>full</DebugType>
|
||||||
|
<DefineDebug>true</DefineDebug>
|
||||||
|
<DefineTrace>true</DefineTrace>
|
||||||
|
<OutputPath>bin\Debug\</OutputPath>
|
||||||
|
<DocumentationFile>Pilz.Threading.xml</DocumentationFile>
|
||||||
|
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||||
|
<DebugType>pdbonly</DebugType>
|
||||||
|
<DefineDebug>false</DefineDebug>
|
||||||
|
<DefineTrace>true</DefineTrace>
|
||||||
|
<Optimize>true</Optimize>
|
||||||
|
<OutputPath>bin\Release\</OutputPath>
|
||||||
|
<DocumentationFile>Pilz.Threading.xml</DocumentationFile>
|
||||||
|
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup>
|
||||||
|
<OptionExplicit>On</OptionExplicit>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup>
|
||||||
|
<OptionCompare>Binary</OptionCompare>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup>
|
||||||
|
<OptionStrict>Off</OptionStrict>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup>
|
||||||
|
<OptionInfer>On</OptionInfer>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Debug|x86'">
|
||||||
|
<DebugSymbols>true</DebugSymbols>
|
||||||
|
<DefineDebug>true</DefineDebug>
|
||||||
|
<DefineTrace>true</DefineTrace>
|
||||||
|
<OutputPath>bin\x86\Debug\</OutputPath>
|
||||||
|
<DocumentationFile>Pilz.Threading.xml</DocumentationFile>
|
||||||
|
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
|
||||||
|
<DebugType>full</DebugType>
|
||||||
|
<PlatformTarget>x86</PlatformTarget>
|
||||||
|
<CodeAnalysisRuleSet>MinimumRecommendedRules.ruleset</CodeAnalysisRuleSet>
|
||||||
|
<UseVSHostingProcess>true</UseVSHostingProcess>
|
||||||
|
</PropertyGroup>
|
||||||
|
<PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Release|x86'">
|
||||||
|
<DefineTrace>true</DefineTrace>
|
||||||
|
<OutputPath>bin\x86\Release\</OutputPath>
|
||||||
|
<DocumentationFile>Pilz.Threading.xml</DocumentationFile>
|
||||||
|
<Optimize>true</Optimize>
|
||||||
|
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
|
||||||
|
<DebugType>pdbonly</DebugType>
|
||||||
|
<PlatformTarget>x86</PlatformTarget>
|
||||||
|
<CodeAnalysisRuleSet>MinimumRecommendedRules.ruleset</CodeAnalysisRuleSet>
|
||||||
|
</PropertyGroup>
|
||||||
|
<ItemGroup>
|
||||||
|
<Reference Include="System" />
|
||||||
|
<Reference Include="System.Data" />
|
||||||
|
<Reference Include="System.Windows.Forms" />
|
||||||
|
<Reference Include="System.Xml" />
|
||||||
|
<Reference Include="System.Core" />
|
||||||
|
<Reference Include="System.Xml.Linq" />
|
||||||
|
<Reference Include="System.Data.DataSetExtensions" />
|
||||||
|
<Reference Include="System.Net.Http" />
|
||||||
|
</ItemGroup>
|
||||||
|
<ItemGroup>
|
||||||
|
<Import Include="Microsoft.VisualBasic" />
|
||||||
|
<Import Include="System" />
|
||||||
|
<Import Include="System.Collections" />
|
||||||
|
<Import Include="System.Collections.Generic" />
|
||||||
|
<Import Include="System.Data" />
|
||||||
|
<Import Include="System.Diagnostics" />
|
||||||
|
<Import Include="System.Linq" />
|
||||||
|
<Import Include="System.Xml.Linq" />
|
||||||
|
<Import Include="System.Threading.Tasks" />
|
||||||
|
</ItemGroup>
|
||||||
|
<ItemGroup>
|
||||||
|
<Compile Include="CrossThreadsInvokeing.vb" />
|
||||||
|
<Compile Include="My Project\AssemblyInfo.vb" />
|
||||||
|
<Compile Include="My Project\Application.Designer.vb">
|
||||||
|
<AutoGen>True</AutoGen>
|
||||||
|
<DependentUpon>Application.myapp</DependentUpon>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="My Project\Resources.Designer.vb">
|
||||||
|
<AutoGen>True</AutoGen>
|
||||||
|
<DesignTime>True</DesignTime>
|
||||||
|
<DependentUpon>Resources.resx</DependentUpon>
|
||||||
|
</Compile>
|
||||||
|
<Compile Include="My Project\Settings.Designer.vb">
|
||||||
|
<AutoGen>True</AutoGen>
|
||||||
|
<DependentUpon>Settings.settings</DependentUpon>
|
||||||
|
<DesignTimeSharedInput>True</DesignTimeSharedInput>
|
||||||
|
</Compile>
|
||||||
|
</ItemGroup>
|
||||||
|
<ItemGroup>
|
||||||
|
<EmbeddedResource Include="My Project\Resources.resx">
|
||||||
|
<Generator>VbMyResourcesResXFileCodeGenerator</Generator>
|
||||||
|
<LastGenOutput>Resources.Designer.vb</LastGenOutput>
|
||||||
|
<CustomToolNamespace>My.Resources</CustomToolNamespace>
|
||||||
|
<SubType>Designer</SubType>
|
||||||
|
</EmbeddedResource>
|
||||||
|
</ItemGroup>
|
||||||
|
<ItemGroup>
|
||||||
|
<None Include="My Project\Application.myapp">
|
||||||
|
<Generator>MyApplicationCodeGenerator</Generator>
|
||||||
|
<LastGenOutput>Application.Designer.vb</LastGenOutput>
|
||||||
|
</None>
|
||||||
|
<None Include="My Project\Settings.settings">
|
||||||
|
<Generator>SettingsSingleFileGenerator</Generator>
|
||||||
|
<CustomToolNamespace>My</CustomToolNamespace>
|
||||||
|
<LastGenOutput>Settings.Designer.vb</LastGenOutput>
|
||||||
|
</None>
|
||||||
|
</ItemGroup>
|
||||||
|
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
|
||||||
|
</Project>
|
||||||
13
Pilz.UI/My Project/Application.Designer.vb
generated
Normal file
13
Pilz.UI/My Project/Application.Designer.vb
generated
Normal file
@@ -0,0 +1,13 @@
|
|||||||
|
'------------------------------------------------------------------------------
|
||||||
|
' <auto-generated>
|
||||||
|
' Dieser Code wurde von einem Tool generiert.
|
||||||
|
' Laufzeitversion:4.0.30319.42000
|
||||||
|
'
|
||||||
|
' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
|
||||||
|
' der Code erneut generiert wird.
|
||||||
|
' </auto-generated>
|
||||||
|
'------------------------------------------------------------------------------
|
||||||
|
|
||||||
|
Option Strict On
|
||||||
|
Option Explicit On
|
||||||
|
|
||||||
10
Pilz.UI/My Project/Application.myapp
Normal file
10
Pilz.UI/My Project/Application.myapp
Normal file
@@ -0,0 +1,10 @@
|
|||||||
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
|
<MyApplicationData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
|
||||||
|
<MySubMain>false</MySubMain>
|
||||||
|
<SingleInstance>false</SingleInstance>
|
||||||
|
<ShutdownMode>0</ShutdownMode>
|
||||||
|
<EnableVisualStyles>true</EnableVisualStyles>
|
||||||
|
<AuthenticationMode>0</AuthenticationMode>
|
||||||
|
<ApplicationType>1</ApplicationType>
|
||||||
|
<SaveMySettingsOnExit>true</SaveMySettingsOnExit>
|
||||||
|
</MyApplicationData>
|
||||||
35
Pilz.UI/My Project/AssemblyInfo.vb
Normal file
35
Pilz.UI/My Project/AssemblyInfo.vb
Normal file
@@ -0,0 +1,35 @@
|
|||||||
|
Imports System
|
||||||
|
Imports System.Reflection
|
||||||
|
Imports System.Runtime.InteropServices
|
||||||
|
|
||||||
|
' Allgemeine Informationen über eine Assembly werden über die folgenden
|
||||||
|
' Attribute gesteuert. Ändern Sie diese Attributwerte, um die Informationen zu ändern,
|
||||||
|
' die einer Assembly zugeordnet sind.
|
||||||
|
|
||||||
|
' Werte der Assemblyattribute überprüfen
|
||||||
|
|
||||||
|
<Assembly: AssemblyTitle("PaintingControls")>
|
||||||
|
<Assembly: AssemblyDescription("")>
|
||||||
|
<Assembly: AssemblyCompany("Dr. Schneider Kunststoffwerke GmbH")>
|
||||||
|
<Assembly: AssemblyProduct("PaintingControls")>
|
||||||
|
<Assembly: AssemblyCopyright("Copyright © Pascal Schedel 2018")>
|
||||||
|
<Assembly: AssemblyTrademark("")>
|
||||||
|
|
||||||
|
<Assembly: ComVisible(False)>
|
||||||
|
|
||||||
|
'Die folgende GUID bestimmt die ID der Typbibliothek, wenn dieses Projekt für COM verfügbar gemacht wird.
|
||||||
|
<Assembly: Guid("35e33313-ac05-4192-9cc7-c60016d65657")>
|
||||||
|
|
||||||
|
' Versionsinformationen für eine Assembly bestehen aus den folgenden vier Werten:
|
||||||
|
'
|
||||||
|
' Hauptversion
|
||||||
|
' Nebenversion
|
||||||
|
' Buildnummer
|
||||||
|
' Revision
|
||||||
|
'
|
||||||
|
' Sie können alle Werte angeben oder Standardwerte für die Build- und Revisionsnummern verwenden,
|
||||||
|
' übernehmen, indem Sie "*" eingeben:
|
||||||
|
' <Assembly: AssemblyVersion("1.0.*")>
|
||||||
|
|
||||||
|
<Assembly: AssemblyVersion("1.0.0.0")>
|
||||||
|
<Assembly: AssemblyFileVersion("1.0.0.0")>
|
||||||
63
Pilz.UI/My Project/Resources.Designer.vb
generated
Normal file
63
Pilz.UI/My Project/Resources.Designer.vb
generated
Normal file
@@ -0,0 +1,63 @@
|
|||||||
|
'------------------------------------------------------------------------------
|
||||||
|
' <auto-generated>
|
||||||
|
' Dieser Code wurde von einem Tool generiert.
|
||||||
|
' Laufzeitversion:4.0.30319.42000
|
||||||
|
'
|
||||||
|
' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
|
||||||
|
' der Code erneut generiert wird.
|
||||||
|
' </auto-generated>
|
||||||
|
'------------------------------------------------------------------------------
|
||||||
|
|
||||||
|
Option Strict On
|
||||||
|
Option Explicit On
|
||||||
|
|
||||||
|
Imports System
|
||||||
|
|
||||||
|
Namespace My.Resources
|
||||||
|
|
||||||
|
'Diese Klasse wurde von der StronglyTypedResourceBuilder automatisch generiert
|
||||||
|
'-Klasse über ein Tool wie ResGen oder Visual Studio automatisch generiert.
|
||||||
|
'Um einen Member hinzuzufügen oder zu entfernen, bearbeiten Sie die .ResX-Datei und führen dann ResGen
|
||||||
|
'mit der /str-Option erneut aus, oder Sie erstellen Ihr VS-Projekt neu.
|
||||||
|
'''<summary>
|
||||||
|
''' Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
|
||||||
|
'''</summary>
|
||||||
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "15.0.0.0"), _
|
||||||
|
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||||
|
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
|
||||||
|
Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
|
||||||
|
Friend Module Resources
|
||||||
|
|
||||||
|
Private resourceMan As Global.System.Resources.ResourceManager
|
||||||
|
|
||||||
|
Private resourceCulture As Global.System.Globalization.CultureInfo
|
||||||
|
|
||||||
|
'''<summary>
|
||||||
|
''' Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird.
|
||||||
|
'''</summary>
|
||||||
|
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||||
|
Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
|
||||||
|
Get
|
||||||
|
If Object.ReferenceEquals(resourceMan, Nothing) Then
|
||||||
|
Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("Pilz.UI.Resources", GetType(Resources).Assembly)
|
||||||
|
resourceMan = temp
|
||||||
|
End If
|
||||||
|
Return resourceMan
|
||||||
|
End Get
|
||||||
|
End Property
|
||||||
|
|
||||||
|
'''<summary>
|
||||||
|
''' Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle
|
||||||
|
''' Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden.
|
||||||
|
'''</summary>
|
||||||
|
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||||
|
Friend Property Culture() As Global.System.Globalization.CultureInfo
|
||||||
|
Get
|
||||||
|
Return resourceCulture
|
||||||
|
End Get
|
||||||
|
Set
|
||||||
|
resourceCulture = value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
End Module
|
||||||
|
End Namespace
|
||||||
117
Pilz.UI/My Project/Resources.resx
Normal file
117
Pilz.UI/My Project/Resources.resx
Normal file
@@ -0,0 +1,117 @@
|
|||||||
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
|
<root>
|
||||||
|
<!--
|
||||||
|
Microsoft ResX Schema
|
||||||
|
|
||||||
|
Version 2.0
|
||||||
|
|
||||||
|
The primary goals of this format is to allow a simple XML format
|
||||||
|
that is mostly human readable. The generation and parsing of the
|
||||||
|
various data types are done through the TypeConverter classes
|
||||||
|
associated with the data types.
|
||||||
|
|
||||||
|
Example:
|
||||||
|
|
||||||
|
... ado.net/XML headers & schema ...
|
||||||
|
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||||
|
<resheader name="version">2.0</resheader>
|
||||||
|
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||||
|
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||||
|
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||||
|
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||||
|
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||||
|
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||||
|
</data>
|
||||||
|
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
|
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||||
|
<comment>This is a comment</comment>
|
||||||
|
</data>
|
||||||
|
|
||||||
|
There are any number of "resheader" rows that contain simple
|
||||||
|
name/value pairs.
|
||||||
|
|
||||||
|
Each data row contains a name, and value. The row also contains a
|
||||||
|
type or mimetype. Type corresponds to a .NET class that support
|
||||||
|
text/value conversion through the TypeConverter architecture.
|
||||||
|
Classes that don't support this are serialized and stored with the
|
||||||
|
mimetype set.
|
||||||
|
|
||||||
|
The mimetype is used for serialized objects, and tells the
|
||||||
|
ResXResourceReader how to depersist the object. This is currently not
|
||||||
|
extensible. For a given mimetype the value must be set accordingly:
|
||||||
|
|
||||||
|
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||||
|
that the ResXResourceWriter will generate, however the reader can
|
||||||
|
read any of the formats listed below.
|
||||||
|
|
||||||
|
mimetype: application/x-microsoft.net.object.binary.base64
|
||||||
|
value : The object must be serialized with
|
||||||
|
: System.Serialization.Formatters.Binary.BinaryFormatter
|
||||||
|
: and then encoded with base64 encoding.
|
||||||
|
|
||||||
|
mimetype: application/x-microsoft.net.object.soap.base64
|
||||||
|
value : The object must be serialized with
|
||||||
|
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||||
|
: and then encoded with base64 encoding.
|
||||||
|
|
||||||
|
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||||
|
value : The object must be serialized into a byte array
|
||||||
|
: using a System.ComponentModel.TypeConverter
|
||||||
|
: and then encoded with base64 encoding.
|
||||||
|
-->
|
||||||
|
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||||
|
<xsd:element name="root" msdata:IsDataSet="true">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:choice maxOccurs="unbounded">
|
||||||
|
<xsd:element name="metadata">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:sequence>
|
||||||
|
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||||
|
</xsd:sequence>
|
||||||
|
<xsd:attribute name="name" type="xsd:string" />
|
||||||
|
<xsd:attribute name="type" type="xsd:string" />
|
||||||
|
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
<xsd:element name="assembly">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:attribute name="alias" type="xsd:string" />
|
||||||
|
<xsd:attribute name="name" type="xsd:string" />
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
<xsd:element name="data">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:sequence>
|
||||||
|
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||||
|
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||||
|
</xsd:sequence>
|
||||||
|
<xsd:attribute name="name" type="xsd:string" msdata:Ordinal="1" />
|
||||||
|
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||||
|
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
<xsd:element name="resheader">
|
||||||
|
<xsd:complexType>
|
||||||
|
<xsd:sequence>
|
||||||
|
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||||
|
</xsd:sequence>
|
||||||
|
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
</xsd:choice>
|
||||||
|
</xsd:complexType>
|
||||||
|
</xsd:element>
|
||||||
|
</xsd:schema>
|
||||||
|
<resheader name="resmimetype">
|
||||||
|
<value>text/microsoft-resx</value>
|
||||||
|
</resheader>
|
||||||
|
<resheader name="version">
|
||||||
|
<value>2.0</value>
|
||||||
|
</resheader>
|
||||||
|
<resheader name="reader">
|
||||||
|
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||||
|
</resheader>
|
||||||
|
<resheader name="writer">
|
||||||
|
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||||
|
</resheader>
|
||||||
|
</root>
|
||||||
73
Pilz.UI/My Project/Settings.Designer.vb
generated
Normal file
73
Pilz.UI/My Project/Settings.Designer.vb
generated
Normal file
@@ -0,0 +1,73 @@
|
|||||||
|
'------------------------------------------------------------------------------
|
||||||
|
' <auto-generated>
|
||||||
|
' Dieser Code wurde von einem Tool generiert.
|
||||||
|
' Laufzeitversion:4.0.30319.42000
|
||||||
|
'
|
||||||
|
' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
|
||||||
|
' der Code erneut generiert wird.
|
||||||
|
' </auto-generated>
|
||||||
|
'------------------------------------------------------------------------------
|
||||||
|
|
||||||
|
Option Strict On
|
||||||
|
Option Explicit On
|
||||||
|
|
||||||
|
|
||||||
|
Namespace My
|
||||||
|
|
||||||
|
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
|
||||||
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "15.9.0.0"), _
|
||||||
|
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||||
|
Partial Friend NotInheritable Class MySettings
|
||||||
|
Inherits Global.System.Configuration.ApplicationSettingsBase
|
||||||
|
|
||||||
|
Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings)
|
||||||
|
|
||||||
|
#Region "Automatische My.Settings-Speicherfunktion"
|
||||||
|
#If _MyType = "WindowsForms" Then
|
||||||
|
Private Shared addedHandler As Boolean
|
||||||
|
|
||||||
|
Private Shared addedHandlerLockObject As New Object
|
||||||
|
|
||||||
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||||
|
Private Shared Sub AutoSaveSettings(sender As Global.System.Object, e As Global.System.EventArgs)
|
||||||
|
If My.Application.SaveMySettingsOnExit Then
|
||||||
|
My.Settings.Save()
|
||||||
|
End If
|
||||||
|
End Sub
|
||||||
|
#End If
|
||||||
|
#End Region
|
||||||
|
|
||||||
|
Public Shared ReadOnly Property [Default]() As MySettings
|
||||||
|
Get
|
||||||
|
|
||||||
|
#If _MyType = "WindowsForms" Then
|
||||||
|
If Not addedHandler Then
|
||||||
|
SyncLock addedHandlerLockObject
|
||||||
|
If Not addedHandler Then
|
||||||
|
AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
|
||||||
|
addedHandler = True
|
||||||
|
End If
|
||||||
|
End SyncLock
|
||||||
|
End If
|
||||||
|
#End If
|
||||||
|
Return defaultInstance
|
||||||
|
End Get
|
||||||
|
End Property
|
||||||
|
End Class
|
||||||
|
End Namespace
|
||||||
|
|
||||||
|
Namespace My
|
||||||
|
|
||||||
|
<Global.Microsoft.VisualBasic.HideModuleNameAttribute(), _
|
||||||
|
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||||
|
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _
|
||||||
|
Friend Module MySettingsProperty
|
||||||
|
|
||||||
|
<Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _
|
||||||
|
Friend ReadOnly Property Settings() As Global.Pilz.UI.My.MySettings
|
||||||
|
Get
|
||||||
|
Return Global.Pilz.UI.My.MySettings.Default
|
||||||
|
End Get
|
||||||
|
End Property
|
||||||
|
End Module
|
||||||
|
End Namespace
|
||||||
7
Pilz.UI/My Project/Settings.settings
Normal file
7
Pilz.UI/My Project/Settings.settings
Normal file
@@ -0,0 +1,7 @@
|
|||||||
|
<?xml version='1.0' encoding='utf-8'?>
|
||||||
|
<SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" UseMySettingsClassName="true">
|
||||||
|
<Profiles>
|
||||||
|
<Profile Name="(Default)" />
|
||||||
|
</Profiles>
|
||||||
|
<Settings />
|
||||||
|
</SettingsFile>
|
||||||
220
Pilz.UI/PaintingControl/DefaultDrawMethodes.vb
Normal file
220
Pilz.UI/PaintingControl/DefaultDrawMethodes.vb
Normal file
@@ -0,0 +1,220 @@
|
|||||||
|
Imports System.Drawing
|
||||||
|
Imports System.Drawing.Drawing2D
|
||||||
|
Imports System.Windows.Forms
|
||||||
|
Imports Pilz.Drawing
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Contains static methods that are used for the standart PaintingObject Types.
|
||||||
|
''' </summary>
|
||||||
|
Public Class DefaultDrawMethodes
|
||||||
|
|
||||||
|
Public Shared Sub DrawText(e As PaintingObjectPaintEventArgs)
|
||||||
|
Dim obj As PaintingObject = e.PaintingObject
|
||||||
|
Dim b As New SolidBrush(obj.TextColor)
|
||||||
|
Dim p As New PointF
|
||||||
|
Dim rect As New Rectangle(e.X, e.Y, obj.Width, obj.Height)
|
||||||
|
|
||||||
|
Dim f As StringFormat = StringFormat.GenericDefault
|
||||||
|
f.Alignment = obj.HorizontalTextAlignment
|
||||||
|
f.LineAlignment = obj.VerticalTextAlignment
|
||||||
|
|
||||||
|
Dim zoomFactor As Single
|
||||||
|
If obj.Parent Is Nothing Then
|
||||||
|
zoomFactor = 1.0!
|
||||||
|
Else
|
||||||
|
zoomFactor = obj.Parent.ZoomFactor.Width
|
||||||
|
End If
|
||||||
|
|
||||||
|
e.Graphics.DrawString(obj.Text, New Font(obj.TextFont.FontFamily, obj.TextFont.Size * zoomFactor, obj.TextFont.Style), b, rect, f)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Shared Sub DrawPicture(e As PaintingObjectPaintEventArgs)
|
||||||
|
Dim obj As PaintingObject = e.PaintingObject
|
||||||
|
Dim objImg As Image
|
||||||
|
Dim result As RectangleF
|
||||||
|
Dim image As Bitmap
|
||||||
|
|
||||||
|
SyncLock e.PaintingObject.Parent
|
||||||
|
If obj?.Image Is Nothing Then Return
|
||||||
|
objImg = obj.Image
|
||||||
|
End SyncLock
|
||||||
|
|
||||||
|
image = obj.BufferedImage
|
||||||
|
result = CalculateImageResolution(obj, objImg.Size)
|
||||||
|
|
||||||
|
If obj.ImageProperties.Rotate = 90 OrElse obj.ImageProperties.Rotate = 270 Then
|
||||||
|
result = CalculateImageResolution(obj, New SizeF(objImg.Size.Height, objImg.Size.Width))
|
||||||
|
Else
|
||||||
|
result = result
|
||||||
|
End If
|
||||||
|
|
||||||
|
If image Is Nothing Then
|
||||||
|
Dim needRescaleImageBecauseRot As Boolean = False
|
||||||
|
|
||||||
|
image = DrawToNewImage(objImg, result.Size)
|
||||||
|
|
||||||
|
Select Case obj.ImageProperties.Rotate
|
||||||
|
Case 90
|
||||||
|
image.RotateFlip(RotateFlipType.Rotate90FlipNone)
|
||||||
|
needRescaleImageBecauseRot = True
|
||||||
|
Case 180
|
||||||
|
image.RotateFlip(RotateFlipType.Rotate180FlipNone)
|
||||||
|
Case 270
|
||||||
|
image.RotateFlip(RotateFlipType.Rotate270FlipNone)
|
||||||
|
needRescaleImageBecauseRot = True
|
||||||
|
End Select
|
||||||
|
If obj.ImageProperties.FlipX Then
|
||||||
|
image.RotateFlip(RotateFlipType.RotateNoneFlipX)
|
||||||
|
End If
|
||||||
|
If obj.ImageProperties.FlipY Then
|
||||||
|
image.RotateFlip(RotateFlipType.RotateNoneFlipY)
|
||||||
|
End If
|
||||||
|
|
||||||
|
If needRescaleImageBecauseRot Then
|
||||||
|
result = CalculateImageResolution(obj, New SizeF(objImg.Size.Height, objImg.Size.Width))
|
||||||
|
image = DrawToNewImage(image, result.Size)
|
||||||
|
End If
|
||||||
|
|
||||||
|
obj.BufferedImage = image
|
||||||
|
End If
|
||||||
|
|
||||||
|
If image IsNot Nothing Then
|
||||||
|
e.Graphics.DrawImageUnscaled(image, New Rectangle(New Point(obj.Location.X + result.Location.X - e.Offset.X, obj.Location.Y + result.Location.Y - e.Offset.Y), result.Size.ToSize))
|
||||||
|
End If
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Shared Function DrawToNewImage(image As Bitmap, newSize As SizeF) As Bitmap
|
||||||
|
Dim bmp As New Bitmap(CInt(newSize.Width), CInt(newSize.Height))
|
||||||
|
Dim gimage As Graphics = Graphics.FromImage(bmp)
|
||||||
|
gimage.SmoothingMode = SmoothingMode.HighQuality
|
||||||
|
gimage.PixelOffsetMode = PixelOffsetMode.HighQuality
|
||||||
|
gimage.PageUnit = GraphicsUnit.Pixel
|
||||||
|
gimage.InterpolationMode = InterpolationMode.HighQualityBicubic
|
||||||
|
gimage.DrawImage(image, New RectangleF(PointF.Empty, newSize))
|
||||||
|
gimage.Dispose()
|
||||||
|
Return bmp
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Shared Sub DrawLine(e As PaintingObjectPaintEventArgs)
|
||||||
|
Dim obj As PaintingObject = e.PaintingObject
|
||||||
|
Dim p2 As New Pen(obj.OutlineColor, obj.OutlineThicknes) With {.DashStyle = obj.OutlineDashStyle}
|
||||||
|
p2.Alignment = PenAlignment.Center
|
||||||
|
Dim no As PointF = New PointF(e.X, e.Y)
|
||||||
|
e.Graphics.DrawLine(p2, no, no + obj.Size)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Shared Function CalculateImageResolution(obj As PaintingObject, imageSize As SizeF) As RectangleF
|
||||||
|
Dim result As New RectangleF
|
||||||
|
Dim objrect As New RectangleF(obj.Location, obj.Size)
|
||||||
|
Dim size As SizeF = imageSize
|
||||||
|
Dim clientRectangle As RectangleF = objrect
|
||||||
|
Dim val As Single = clientRectangle.Width / size.Width
|
||||||
|
|
||||||
|
clientRectangle = objrect
|
||||||
|
Dim num As Single = Math.Min(val, clientRectangle.Height / size.Height)
|
||||||
|
|
||||||
|
result.Width = CInt(Math.Truncate(size.Width * num))
|
||||||
|
result.Height = CInt(Math.Truncate(size.Height * num))
|
||||||
|
|
||||||
|
clientRectangle = objrect
|
||||||
|
result.X = (clientRectangle.Width - result.Width) \ 2
|
||||||
|
|
||||||
|
clientRectangle = objrect
|
||||||
|
result.Y = (clientRectangle.Height - result.Height) \ 2
|
||||||
|
|
||||||
|
Return result
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Shared Sub DrawTriangle(e As PaintingObjectPaintEventArgs)
|
||||||
|
Dim obj As PaintingObject = e.PaintingObject
|
||||||
|
|
||||||
|
If obj.EnableFill Then
|
||||||
|
Dim b As New SolidBrush(obj.FillColor)
|
||||||
|
Dim p1 As New Point(obj.Size.Width / 2 + e.X, e.Y)
|
||||||
|
Dim p2 As New Point(e.X, e.Y + obj.Size.Height)
|
||||||
|
Dim p3 As New Point(e.X + obj.Size.Width, e.Y + obj.Size.Height)
|
||||||
|
e.Graphics.FillPolygon(b, {p1, p2, p3})
|
||||||
|
End If
|
||||||
|
|
||||||
|
If obj.EnableOutline Then
|
||||||
|
Dim lw As Single = obj.OutlineThicknes
|
||||||
|
Dim p As New Pen(obj.OutlineColor, obj.OutlineThicknes) With {.DashStyle = obj.OutlineDashStyle, .Alignment = PenAlignment.Inset}
|
||||||
|
Dim p1 As New Point(obj.Size.Width / 2 + e.X, e.Y)
|
||||||
|
Dim p2 As New Point(e.X, e.Y + obj.Size.Height)
|
||||||
|
Dim p3 As New Point(e.X + obj.Size.Width, e.Y + obj.Size.Height)
|
||||||
|
e.Graphics.DrawPolygon(p, {p1, p2, p3})
|
||||||
|
End If
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Shared Sub DrawRectangle(e As PaintingObjectPaintEventArgs)
|
||||||
|
Dim obj As PaintingObject = e.PaintingObject
|
||||||
|
Dim hol As Single = obj.OutlineThicknes / 2
|
||||||
|
|
||||||
|
If obj.EnableFill Then
|
||||||
|
Dim b As New SolidBrush(obj.FillColor)
|
||||||
|
Dim rect As Rectangle = If(obj.EnableOutline,
|
||||||
|
New Rectangle(e.X + hol, e.Y + hol, obj.Size.Width - hol * 2, obj.Size.Height - hol * 2),
|
||||||
|
New Rectangle(e.X, e.Y, obj.Size.Width, obj.Size.Height))
|
||||||
|
e.Graphics.FillRectangle(b, rect)
|
||||||
|
End If
|
||||||
|
|
||||||
|
If obj.EnableOutline Then
|
||||||
|
Dim p As New Pen(obj.OutlineColor, obj.OutlineThicknes) With {.DashStyle = obj.OutlineDashStyle, .Alignment = PenAlignment.Inset}
|
||||||
|
Dim rect As New Rectangle(e.X, e.Y, obj.Size.Width, obj.Size.Height)
|
||||||
|
e.Graphics.DrawRectangle(p, rect)
|
||||||
|
End If
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Shared Sub DrawEllipse(e As PaintingObjectPaintEventArgs)
|
||||||
|
Dim obj As PaintingObject = e.PaintingObject
|
||||||
|
|
||||||
|
If obj.EnableFill Then
|
||||||
|
Dim b As New SolidBrush(obj.FillColor)
|
||||||
|
Dim rect As Rectangle = New Rectangle(e.X, e.Y, obj.Size.Width, obj.Size.Height)
|
||||||
|
e.Graphics.FillEllipse(b, rect)
|
||||||
|
End If
|
||||||
|
|
||||||
|
If obj.EnableOutline Then
|
||||||
|
Dim p As New Pen(obj.OutlineColor, obj.OutlineThicknes) With {.DashStyle = obj.OutlineDashStyle, .Alignment = PenAlignment.Inset}
|
||||||
|
Dim rect As New Rectangle(e.X, e.Y, obj.Size.Width, obj.Size.Height)
|
||||||
|
e.Graphics.DrawEllipse(p, rect)
|
||||||
|
End If
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Shared Sub DrawSelection(e As PaintingObjectPaintEventArgs)
|
||||||
|
Dim obj As PaintingObject = e.PaintingObject
|
||||||
|
Dim lw As Single = 2.5!
|
||||||
|
Dim hlw As Single = lw / 2
|
||||||
|
Dim hlwphol As Single = hlw '+ hol
|
||||||
|
Dim hlwpholm2 As Single = hlwphol * 2
|
||||||
|
|
||||||
|
Dim p As New Pen(Color.CornflowerBlue, lw) With {.DashStyle = obj.SelectionDashStyle, .Alignment = PenAlignment.Outset}
|
||||||
|
Dim rect As New Rectangle(e.X - hlwphol, e.Y - hlwphol, obj.Size.Width + hlwpholm2, obj.Size.Height + hlwpholm2)
|
||||||
|
e.Graphics.DrawRectangle(p, rect)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Shared Sub DrawGrid(e As PaintEventArgs, pc As PaintingControl, offset As PointF)
|
||||||
|
Dim p As New Pen(pc.GridColor, 0.5)
|
||||||
|
|
||||||
|
Dim curX As Integer = pc.GridChunkSize.Width * pc.ZoomFactor.Width - offset.X
|
||||||
|
Do While curX < pc.Width
|
||||||
|
e.Graphics.DrawLine(p, curX, -offset.Y, curX, pc.Height)
|
||||||
|
curX += (pc.GridChunkSize.Width * pc.ZoomFactor.Width)
|
||||||
|
Loop
|
||||||
|
|
||||||
|
Dim curY As Integer = pc.GridChunkSize.Height * pc.ZoomFactor.Height - offset.Y
|
||||||
|
Do While curY < pc.Height
|
||||||
|
e.Graphics.DrawLine(p, -offset.X, curY, pc.Width, curY)
|
||||||
|
curY += (pc.GridChunkSize.Height * pc.ZoomFactor.Height)
|
||||||
|
Loop
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Shared Sub DrawAreaSelection(e As PaintEventArgs, pc As PaintingControl, startMousePos As PointF, lastMousePos As PointF)
|
||||||
|
Dim p As New Pen(pc.AreaSelectionColor)
|
||||||
|
p.DashStyle = DashStyle.DashDot
|
||||||
|
p.Width = 3
|
||||||
|
Dim rectToDraw As RectangleF = HelpfulDrawingFunctions.GetRectangle(startMousePos, lastMousePos)
|
||||||
|
e.Graphics.DrawRectangle(p, rectToDraw.X, rectToDraw.Y, rectToDraw.Width, rectToDraw.Height)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
End Class
|
||||||
16
Pilz.UI/PaintingControl/EventArgs/PaintingObjectEventArgs.vb
Normal file
16
Pilz.UI/PaintingControl/EventArgs/PaintingObjectEventArgs.vb
Normal file
@@ -0,0 +1,16 @@
|
|||||||
|
Imports System.Drawing
|
||||||
|
Imports System.IO
|
||||||
|
Imports System.Windows.Forms
|
||||||
|
Imports Newtonsoft.Json
|
||||||
|
Imports Newtonsoft.Json.Linq
|
||||||
|
|
||||||
|
Public Class PaintingObjectEventArgs
|
||||||
|
Inherits EventArgs
|
||||||
|
|
||||||
|
Public ReadOnly Property PaintingObjects As PaintingObject() = Nothing
|
||||||
|
|
||||||
|
Friend Sub New(paintingObjects As PaintingObject())
|
||||||
|
_PaintingObjects = paintingObjects
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
End Class
|
||||||
@@ -0,0 +1,78 @@
|
|||||||
|
Imports System.Drawing
|
||||||
|
Imports System.IO
|
||||||
|
Imports System.Windows.Forms
|
||||||
|
Imports Newtonsoft.Json
|
||||||
|
Imports Newtonsoft.Json.Linq
|
||||||
|
|
||||||
|
Public Class PaintingObjectPaintEventArgs
|
||||||
|
Inherits EventArgs
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' The Painting Object to draw.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns></returns>
|
||||||
|
Public ReadOnly Property PaintingObject As PaintingObject
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' The current offset of the page on the screen.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns></returns>
|
||||||
|
Public ReadOnly Property Offset As PointF
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' The Grpahics from the parent PaintingControl.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns></returns>
|
||||||
|
Public ReadOnly Property Graphics As Graphics
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' The position of the PaintingObject on Screen.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns></returns>
|
||||||
|
Public ReadOnly Property Location As PointF
|
||||||
|
Get
|
||||||
|
Return New PointF(X, Y)
|
||||||
|
End Get
|
||||||
|
End Property
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' The X position of the PaintingObject on Screen.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns></returns>
|
||||||
|
Public ReadOnly Property X As Single
|
||||||
|
Get
|
||||||
|
Return PaintingObject.X - Offset.X
|
||||||
|
End Get
|
||||||
|
End Property
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' The Y position of the PaintingObject on Screen.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns></returns>
|
||||||
|
Public ReadOnly Property Y As Single
|
||||||
|
Get
|
||||||
|
Return PaintingObject.Y - Offset.Y
|
||||||
|
End Get
|
||||||
|
End Property
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' The rectangle of the PaintingObject on Screen.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns></returns>
|
||||||
|
Public ReadOnly Property Rectangle As RectangleF
|
||||||
|
Get
|
||||||
|
Return New RectangleF(X, Y, PaintingObject.Width, PaintingObject.Height)
|
||||||
|
End Get
|
||||||
|
End Property
|
||||||
|
|
||||||
|
Friend Sub New(obj As PaintingObject, g As Graphics)
|
||||||
|
Me.New(obj, g, obj.Parent.Offset)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Friend Sub New(obj As PaintingObject, g As Graphics, offset As PointF)
|
||||||
|
PaintingObject = obj
|
||||||
|
Me.Offset = offset
|
||||||
|
Graphics = g
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
End Class
|
||||||
5
Pilz.UI/PaintingControl/IPaintingObjectContainer.vb
Normal file
5
Pilz.UI/PaintingControl/IPaintingObjectContainer.vb
Normal file
@@ -0,0 +1,5 @@
|
|||||||
|
Imports System.Drawing
|
||||||
|
|
||||||
|
Public Interface IPaintingObjectContainer
|
||||||
|
|
||||||
|
End Interface
|
||||||
5
Pilz.UI/PaintingControl/ImageProperties.vb
Normal file
5
Pilz.UI/PaintingControl/ImageProperties.vb
Normal file
@@ -0,0 +1,5 @@
|
|||||||
|
Public Class PaintingObjectImageProperties
|
||||||
|
Public Property FlipY As Boolean = False
|
||||||
|
Public Property FlipX As Boolean = False
|
||||||
|
Public Property Rotate As UShort = 0
|
||||||
|
End Class
|
||||||
120
Pilz.UI/PaintingControl/PaintingControl.resx
Normal file
120
Pilz.UI/PaintingControl/PaintingControl.resx
Normal 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>
|
||||||
660
Pilz.UI/PaintingControl/PaintingControl.vb
Normal file
660
Pilz.UI/PaintingControl/PaintingControl.vb
Normal file
@@ -0,0 +1,660 @@
|
|||||||
|
Imports System.Drawing
|
||||||
|
Imports System.Drawing.Drawing2D
|
||||||
|
Imports System.Runtime.CompilerServices
|
||||||
|
Imports System.Windows.Forms
|
||||||
|
Imports Pilz.Drawing
|
||||||
|
|
||||||
|
Public Class PaintingControl
|
||||||
|
Inherits UserControl
|
||||||
|
Implements IPaintingObjectContainer
|
||||||
|
|
||||||
|
Private curObjMouseDown As PaintingObject = Nothing
|
||||||
|
Private bgColor As Color = Color.White
|
||||||
|
Private startMousePos As Point = Nothing
|
||||||
|
Private lastMousePos As Point = Nothing
|
||||||
|
Private lastHashCode As Integer = 0
|
||||||
|
Private calcOffset_MouseOnTab As Point = Point.Empty
|
||||||
|
Private calcOffset_IsActive As Boolean = False
|
||||||
|
Private calcOffset_LastOffset As PointF = PointF.Empty
|
||||||
|
|
||||||
|
Private Overloads Property ForeColor As Color
|
||||||
|
Private Overloads Property Font As Font
|
||||||
|
Private Overloads Property Text As String
|
||||||
|
|
||||||
|
Public Property Offset As PointF = PointF.Empty
|
||||||
|
Public ReadOnly Property PaintingObjects As New PaintingObjectList(Me)
|
||||||
|
Public Property AutoAreaSelection As Boolean = True
|
||||||
|
Public Property AutoSingleSelection As Boolean = True
|
||||||
|
Public Property AutoMultiselection As Boolean = True
|
||||||
|
Public Property AutoRemoveSelection As Boolean = True
|
||||||
|
Public Property AreaSelectionDashStyle As DashStyle = DashStyle.DashDot
|
||||||
|
Public Property AreaSelectionColor As Color = Color.CornflowerBlue
|
||||||
|
Public Property AutoMoveObjects As Boolean = True
|
||||||
|
Private _IsAreaSelecting As Boolean = False
|
||||||
|
Public ReadOnly Property IsMovingObjects As Boolean = False
|
||||||
|
Public Property GridEnabled As Boolean = True
|
||||||
|
Public Property GridVisible As Boolean = False
|
||||||
|
Public Property GridChunkSize As New Size(20, 20)
|
||||||
|
Public Property GridColor As Color = Color.LightGray
|
||||||
|
Public Property DrawGridMethode As DelegateDrawPaintingControlGridMethode = AddressOf DefaultDrawMethodes.DrawGrid
|
||||||
|
Public Property DrawAreaSelectionMethode As DelegateDrawPaintingControlAreaSelectionMethode = AddressOf DefaultDrawMethodes.DrawAreaSelection
|
||||||
|
Private _ZoomFactor As New SizeF(1, 1)
|
||||||
|
|
||||||
|
Private _stopDrawing As Integer = -1
|
||||||
|
Private bufferedImg As Image = Nothing
|
||||||
|
|
||||||
|
Private pressedShift As Boolean = False
|
||||||
|
Private pressedControl As Boolean = False
|
||||||
|
Private pressedAlt As Boolean = False
|
||||||
|
|
||||||
|
'Friend WithEvents HScrollBarAdv1 As DevComponents.DotNetBar.ScrollBar.HScrollBarAdv
|
||||||
|
'Friend WithEvents VScrollBarAdv1 As DevComponents.DotNetBar.VScrollBarAdv
|
||||||
|
|
||||||
|
Private savedPos As New Dictionary(Of PaintingObject, PointF)
|
||||||
|
|
||||||
|
Public Event SelectionChanged(sender As Object, e As PaintingObjectEventArgs)
|
||||||
|
Public Event PaintingObjectAdded(sender As Object, e As PaintingObjectEventArgs)
|
||||||
|
Public Event PaintingObjectRemoved(sender As Object, e As PaintingObjectEventArgs)
|
||||||
|
Public Event AfterScrollingDone(sender As Object, e As EventArgs)
|
||||||
|
Public Event ZoomFactorChanged(sender As Object, e As EventArgs)
|
||||||
|
|
||||||
|
Public ReadOnly Property SelectedObjects As PaintingObject()
|
||||||
|
Get
|
||||||
|
Dim objs As New List(Of PaintingObject)
|
||||||
|
|
||||||
|
For Each obj As PaintingObject In PaintingObjects
|
||||||
|
If obj.Selected Then
|
||||||
|
objs.Add(obj)
|
||||||
|
End If
|
||||||
|
Next
|
||||||
|
|
||||||
|
Return objs.ToArray
|
||||||
|
End Get
|
||||||
|
End Property
|
||||||
|
|
||||||
|
Public ReadOnly Property IsLayoutSuspended As Boolean
|
||||||
|
Get
|
||||||
|
Return Me.GetType.GetField("layoutSuspendCount", Reflection.BindingFlags.Instance Or Reflection.BindingFlags.NonPublic).GetValue(Me) <> 0
|
||||||
|
End Get
|
||||||
|
End Property
|
||||||
|
|
||||||
|
Public ReadOnly Property StopDrawing As Boolean
|
||||||
|
Get
|
||||||
|
Return _stopDrawing > -1
|
||||||
|
End Get
|
||||||
|
End Property
|
||||||
|
|
||||||
|
Public Overrides Property BackColor As Color
|
||||||
|
Get
|
||||||
|
Return bgColor
|
||||||
|
End Get
|
||||||
|
Set(value As Color)
|
||||||
|
bgColor = value
|
||||||
|
If value <> Color.Transparent Then
|
||||||
|
MyBase.BackColor = value
|
||||||
|
End If
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
Public ReadOnly Property IsAreaSelecting As Boolean
|
||||||
|
Get
|
||||||
|
Return _IsAreaSelecting AndAlso startMousePos <> lastMousePos
|
||||||
|
End Get
|
||||||
|
End Property
|
||||||
|
Public Property ZoomFactor As SizeF
|
||||||
|
Get
|
||||||
|
Return _ZoomFactor
|
||||||
|
End Get
|
||||||
|
Set
|
||||||
|
If _ZoomFactor <> Value Then
|
||||||
|
_ZoomFactor = Value
|
||||||
|
RaiseEvent ZoomFactorChanged(Me, New EventArgs)
|
||||||
|
End If
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
Public Sub New()
|
||||||
|
DoubleBuffered = True
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub CheckKeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown, Me.KeyUp
|
||||||
|
pressedShift = e.Shift
|
||||||
|
pressedControl = e.Control
|
||||||
|
pressedAlt = e.Alt
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Friend ReadOnly Property AreaSelectionRectangle As RectangleF
|
||||||
|
Get
|
||||||
|
Return HelpfulDrawingFunctions.GetRectangle(startMousePos, lastMousePos)
|
||||||
|
End Get
|
||||||
|
End Property
|
||||||
|
|
||||||
|
Private Sub CheckMouseClick(sender As Object, e As MouseEventArgs) Handles Me.MouseClick
|
||||||
|
For Each obj As PaintingObject In GetObjects(New Point(e.X + Offset.X, e.Y + Offset.Y))
|
||||||
|
If Not obj.MouseTransparency Then
|
||||||
|
obj.RaiseMouseClick(GetMouseEventArgs(e, obj))
|
||||||
|
End If
|
||||||
|
Next
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub CheckMouseDown(sender As Object, e As MouseEventArgs) Handles Me.MouseDown
|
||||||
|
lastMousePos = New Point(e.X + Offset.X, e.Y + Offset.Y)
|
||||||
|
|
||||||
|
curObjMouseDown = GetObjects(lastMousePos).Where(Function(n) Not n.MouseTransparency).LastOrDefault
|
||||||
|
curObjMouseDown?.RaiseMouseDown(GetMouseEventArgs(e, curObjMouseDown))
|
||||||
|
|
||||||
|
If Not GetSelectedObjects.Contains(curObjMouseDown) Then
|
||||||
|
Dim hasMovedObjects As Boolean = False
|
||||||
|
If _IsMovingObjects Then
|
||||||
|
For Each obj As PaintingObject In GetSelectedObjects()
|
||||||
|
If HelpfulDrawingFunctions.IsPointInRectangle(lastMousePos, obj.Rectangle) Then
|
||||||
|
hasMovedObjects = True
|
||||||
|
Exit For
|
||||||
|
End If
|
||||||
|
Next
|
||||||
|
End If
|
||||||
|
|
||||||
|
If (Not hasMovedObjects) AndAlso (Not _IsAreaSelecting) Then
|
||||||
|
Dim selChanged As New List(Of PaintingObject)
|
||||||
|
|
||||||
|
If AutoRemoveSelection AndAlso Not pressedShift Then
|
||||||
|
For Each obj As PaintingObject In PaintingObjects
|
||||||
|
If obj.Selected Then
|
||||||
|
obj.SelectedDirect = False
|
||||||
|
If Not selChanged.Contains(obj) Then
|
||||||
|
selChanged.Add(obj)
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
Next
|
||||||
|
End If
|
||||||
|
If AutoSingleSelection Then
|
||||||
|
Dim objtosel As PaintingObject = curObjMouseDown
|
||||||
|
If objtosel?.EnableSelection Then
|
||||||
|
objtosel.SelectedDirect = Not objtosel.Selected
|
||||||
|
If Not selChanged.Contains(objtosel) Then
|
||||||
|
selChanged.Add(objtosel)
|
||||||
|
Else
|
||||||
|
selChanged.Remove(objtosel)
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
RaiseEvent SelectionChanged(Me, New PaintingObjectEventArgs(selChanged.ToArray))
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
If pressedControl Then
|
||||||
|
|
||||||
|
calcOffset_MouseOnTab = New Point(e.X, e.Y)
|
||||||
|
calcOffset_LastOffset = Offset
|
||||||
|
calcOffset_IsActive = True
|
||||||
|
Cursor = Cursors.Arrow
|
||||||
|
|
||||||
|
Else
|
||||||
|
|
||||||
|
Select Case e.Button
|
||||||
|
Case MouseButtons.Left
|
||||||
|
savedPos.Clear()
|
||||||
|
If AutoMoveObjects Then
|
||||||
|
SaveObjectPositions(e, GetSelectedObjects)
|
||||||
|
End If
|
||||||
|
If savedPos.Count > 0 Then
|
||||||
|
_IsMovingObjects = True
|
||||||
|
ElseIf AutoAreaSelection Then
|
||||||
|
startMousePos = New Point(e.X + Offset.X, e.Y + Offset.Y)
|
||||||
|
lastMousePos = startMousePos 'New Point(e.X - Offset.X, e.Y - Offset.Y)
|
||||||
|
_IsAreaSelecting = True
|
||||||
|
End If
|
||||||
|
End Select
|
||||||
|
|
||||||
|
End If
|
||||||
|
End Sub
|
||||||
|
Public Sub RaiseSelectionChanged()
|
||||||
|
RaiseEvent SelectionChanged(Me, New PaintingObjectEventArgs(SelectedObjects))
|
||||||
|
End Sub
|
||||||
|
Private Sub CheckMouseUp(sender As Object, e As MouseEventArgs) Handles Me.MouseUp
|
||||||
|
If _IsAreaSelecting Then
|
||||||
|
_IsAreaSelecting = False
|
||||||
|
End If
|
||||||
|
|
||||||
|
If _IsMovingObjects Then
|
||||||
|
_IsMovingObjects = False
|
||||||
|
AutoArrangeToGrid()
|
||||||
|
'CalculateScrollValues()
|
||||||
|
End If
|
||||||
|
|
||||||
|
If curObjMouseDown IsNot Nothing Then
|
||||||
|
If Not curObjMouseDown.MouseTransparency Then
|
||||||
|
curObjMouseDown.RaiseMouseUp(GetMouseEventArgs(e, curObjMouseDown))
|
||||||
|
End If
|
||||||
|
curObjMouseDown = Nothing
|
||||||
|
End If
|
||||||
|
|
||||||
|
If calcOffset_IsActive Then
|
||||||
|
calcOffset_IsActive = False
|
||||||
|
Cursor = Cursors.Default
|
||||||
|
CalcNewOffset(e.Location)
|
||||||
|
RaiseEvent AfterScrollingDone(Me, New EventArgs)
|
||||||
|
End If
|
||||||
|
End Sub
|
||||||
|
Private Sub CheckMouseMove(sender As Object, e As MouseEventArgs) Handles Me.MouseMove
|
||||||
|
If _IsAreaSelecting OrElse _IsMovingObjects Then
|
||||||
|
lastMousePos = New Point(e.X + Offset.X, e.Y + Offset.Y)
|
||||||
|
End If
|
||||||
|
|
||||||
|
If _IsAreaSelecting Then
|
||||||
|
SelectControlsInArea()
|
||||||
|
End If
|
||||||
|
|
||||||
|
If _IsMovingObjects Then
|
||||||
|
UpdateObjectPositions(e)
|
||||||
|
End If
|
||||||
|
|
||||||
|
For Each obj As PaintingObject In GetObjects(New Point(e.X + Offset.X, e.Y + Offset.Y))
|
||||||
|
If Not obj.MouseTransparency Then
|
||||||
|
obj.RaiseMouseMove(GetMouseEventArgs(e, obj))
|
||||||
|
End If
|
||||||
|
Next
|
||||||
|
|
||||||
|
Dim topObj As PaintingObject = GetObject(New Point(e.X + Offset.X, e.Y + Offset.Y), True)
|
||||||
|
If topObj IsNot Nothing Then
|
||||||
|
Cursor = topObj.Cursor
|
||||||
|
ElseIf calcOffset_IsActive Then
|
||||||
|
Cursor = Cursors.Arrow
|
||||||
|
Else
|
||||||
|
Cursor = Cursors.Default
|
||||||
|
End If
|
||||||
|
|
||||||
|
If calcOffset_IsActive Then
|
||||||
|
If pressedControl Then
|
||||||
|
CalcNewOffset(e.Location)
|
||||||
|
Else
|
||||||
|
calcOffset_IsActive = False
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
Refresh()
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub CalcNewOffset(newMousePos As Point)
|
||||||
|
Offset = New PointF(calcOffset_LastOffset.X - (newMousePos.X - calcOffset_MouseOnTab.X),
|
||||||
|
calcOffset_LastOffset.Y - (newMousePos.Y - calcOffset_MouseOnTab.Y))
|
||||||
|
If Offset.X < 0 Then
|
||||||
|
Offset = New PointF(0, Offset.Y)
|
||||||
|
End If
|
||||||
|
If Offset.Y < 0 Then
|
||||||
|
Offset = New PointF(Offset.X, 0)
|
||||||
|
End If
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Function GetSelectedObjects() As PaintingObject()
|
||||||
|
Dim objs As New List(Of PaintingObject)
|
||||||
|
|
||||||
|
For Each obj As PaintingObject In PaintingObjects
|
||||||
|
If obj.Selected Then objs.Add(obj)
|
||||||
|
Next
|
||||||
|
|
||||||
|
Return objs.ToArray
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Private Sub SaveObjectPositions(e As MouseEventArgs, objs As IList)
|
||||||
|
For Each obj As PaintingObject In objs
|
||||||
|
If Not savedPos.ContainsKey(obj) Then
|
||||||
|
savedPos.Add(obj, New PointF(e.X - obj.Location.X + Offset.X, e.Y - obj.Location.Y + Offset.Y))
|
||||||
|
SaveObjectPositions(e, obj.PinnedObjects)
|
||||||
|
End If
|
||||||
|
Next
|
||||||
|
End Sub
|
||||||
|
Private Sub UpdateObjectPositions(e As MouseEventArgs)
|
||||||
|
UpdateObjectPositions(e, GetSelectedObjects)
|
||||||
|
End Sub
|
||||||
|
Private Sub UpdateObjectPositions(e As MouseEventArgs, objs As IList(Of PaintingObject), Optional movedObjs As List(Of PaintingObject) = Nothing)
|
||||||
|
If IsResizingObjs(objs) Then Return
|
||||||
|
If movedObjs Is Nothing Then movedObjs = New List(Of PaintingObject)
|
||||||
|
Dim updateprocesses As New List(Of Task)
|
||||||
|
|
||||||
|
SuspendDrawing()
|
||||||
|
|
||||||
|
For Each obj As PaintingObject In objs
|
||||||
|
updateprocesses.Add(Task.Run(
|
||||||
|
Sub()
|
||||||
|
Dim sp As PointF = savedPos(obj)
|
||||||
|
|
||||||
|
If Not movedObjs.Contains(obj) Then
|
||||||
|
UpdateObjectPosition(e, obj, sp)
|
||||||
|
movedObjs.Add(obj)
|
||||||
|
End If
|
||||||
|
|
||||||
|
If obj.PinnedObjects.Count > 0 Then
|
||||||
|
UpdateObjectPositions(e, obj.PinnedObjects, movedObjs)
|
||||||
|
movedObjs.AddRange(obj.PinnedObjects.ToArray)
|
||||||
|
End If
|
||||||
|
End Sub))
|
||||||
|
Next
|
||||||
|
|
||||||
|
For Each a In updateprocesses
|
||||||
|
Do Until a.IsCompleted
|
||||||
|
Loop
|
||||||
|
Next
|
||||||
|
|
||||||
|
ResumeDrawing(False)
|
||||||
|
End Sub
|
||||||
|
Private Sub UpdateObjectPosition(e As MouseEventArgs, obj As PaintingObject, sp As PointF)
|
||||||
|
obj.Location = New Point(e.X - sp.X + Offset.X,
|
||||||
|
e.Y - sp.Y + Offset.Y)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Function IsResizingObjs(objs As IList(Of PaintingObject)) As Boolean
|
||||||
|
For Each obj As PaintingObject In objs
|
||||||
|
If obj.IsResizing Then Return True
|
||||||
|
Next
|
||||||
|
Return False
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Private Function GetMouseEventArgs(e As MouseEventArgs, obj As PaintingObject) As MouseEventArgs
|
||||||
|
Return New MouseEventArgs(e.Button, e.Clicks, e.X - obj.X + Offset.X, e.Y - obj.Y + Offset.Y, e.Delta)
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Function GetObject(p As PointF, Optional UseExtRect As Boolean = False) As PaintingObject
|
||||||
|
For Each obj As PaintingObject In PaintingObjects
|
||||||
|
If UseExtRect Then
|
||||||
|
If HelpfulDrawingFunctions.IsPointInRectangle(p, obj.RectangleExtended) Then
|
||||||
|
Return obj
|
||||||
|
End If
|
||||||
|
Else
|
||||||
|
If HelpfulDrawingFunctions.IsPointInRectangle(p, obj.Rectangle) Then
|
||||||
|
Return obj
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
Next
|
||||||
|
|
||||||
|
Return Nothing
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Function GetObjects(p As Point) As PaintingObject()
|
||||||
|
Dim objs As New List(Of PaintingObject)
|
||||||
|
|
||||||
|
For Each obj As PaintingObject In PaintingObjects
|
||||||
|
If HelpfulDrawingFunctions.IsPointInRectangle(p, obj.RectangleExtended) Then
|
||||||
|
objs.Add(obj)
|
||||||
|
End If
|
||||||
|
Next
|
||||||
|
|
||||||
|
Return objs.ToArray
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Function GetObjects(startPoint As Point, endPoint As Point) As PaintingObject()
|
||||||
|
Return GetObjects(New Rectangle(startPoint, CType(endPoint - startPoint, Size)))
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Function GetObjects(rect As Rectangle) As PaintingObject()
|
||||||
|
Dim objs As New List(Of PaintingObject)
|
||||||
|
|
||||||
|
For Each obj As PaintingObject In PaintingObjects
|
||||||
|
Dim objRect As RectangleF = obj.Rectangle
|
||||||
|
If HelpfulDrawingFunctions.IsPointInRectangle(objRect.Location, rect) OrElse
|
||||||
|
HelpfulDrawingFunctions.IsPointInRectangle(objRect.Location + objRect.Size, rect) OrElse
|
||||||
|
HelpfulDrawingFunctions.IsPointInRectangle(New PointF(objRect.Left, objRect.Bottom), rect) OrElse
|
||||||
|
HelpfulDrawingFunctions.IsPointInRectangle(New PointF(objRect.Right, objRect.Top), rect) Then
|
||||||
|
objs.Add(obj)
|
||||||
|
End If
|
||||||
|
Next
|
||||||
|
|
||||||
|
Return objs.ToArray
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Protected Overrides ReadOnly Property CreateParams As CreateParams
|
||||||
|
Get
|
||||||
|
Dim cp = MyBase.CreateParams
|
||||||
|
|
||||||
|
'If EnableFullTransparentBackground Then
|
||||||
|
' cp.ExStyle = cp.ExStyle Or &H20 'WS_EX_TRANSPARENT
|
||||||
|
'End If
|
||||||
|
|
||||||
|
Return cp
|
||||||
|
End Get
|
||||||
|
End Property
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Sorg dafür, dass Events durch dieses Control durchdringen zum Parnet-Control.
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="m"></param>
|
||||||
|
Protected Overrides Sub WndProc(ByRef m As Message)
|
||||||
|
Dim WM_NCHITTEST As Integer = &H84
|
||||||
|
Dim HTTRANSPARENT As Integer = -1
|
||||||
|
|
||||||
|
'If m.Msg = WM_NCHITTEST Then
|
||||||
|
' m.Result = CType(HTTRANSPARENT, IntPtr)
|
||||||
|
'Else
|
||||||
|
' MyBase.WndProc(m)
|
||||||
|
'End If
|
||||||
|
|
||||||
|
MyBase.WndProc(m)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Protected Overrides Sub OnPaintBackground(e As PaintEventArgs)
|
||||||
|
'Stop Drawing directly to the parent
|
||||||
|
Me.SuspendLayout()
|
||||||
|
|
||||||
|
'Draw Background
|
||||||
|
MyBase.OnPaintBackground(e)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Function GetCurrentHashValue() As Integer
|
||||||
|
Dim hashes As New List(Of Integer)
|
||||||
|
|
||||||
|
hashes.AddRange({Offset.X,
|
||||||
|
Offset.Y,
|
||||||
|
Size.Width,
|
||||||
|
Size.Height})
|
||||||
|
|
||||||
|
For Each p As PaintingObject In PaintingObjects
|
||||||
|
hashes.AddRange({p.Location.X,
|
||||||
|
p.Location.Y,
|
||||||
|
p.Size.Width,
|
||||||
|
p.Size.Height,
|
||||||
|
p.DrawMethodes.Count,
|
||||||
|
p.FillColor.ToArgb,
|
||||||
|
p.OutlineColor.ToArgb,
|
||||||
|
p.SelectionColor.ToArgb,
|
||||||
|
p.TextColor.ToArgb,
|
||||||
|
p.Type,
|
||||||
|
p.Text.GetHashCode / p.Text.Length,
|
||||||
|
p.Visible,
|
||||||
|
p.VerticalTextAlignment,
|
||||||
|
p.HorizontalTextAlignment})
|
||||||
|
Next
|
||||||
|
|
||||||
|
Dim hash As Integer = 0
|
||||||
|
|
||||||
|
For Each h As Integer In hashes
|
||||||
|
Try
|
||||||
|
hash += h
|
||||||
|
Catch ex As Exception
|
||||||
|
If h <> 0 AndAlso h <> 1 Then
|
||||||
|
hash /= h
|
||||||
|
End If
|
||||||
|
End Try
|
||||||
|
Next
|
||||||
|
|
||||||
|
Return hash
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Protected Overrides Sub OnPaint(e As PaintEventArgs)
|
||||||
|
'Do default Drawing Methode
|
||||||
|
MyBase.OnPaint(e)
|
||||||
|
|
||||||
|
If StopDrawing Then
|
||||||
|
e.Graphics.DrawImage(bufferedImg, Point.Empty)
|
||||||
|
Else
|
||||||
|
With e.Graphics
|
||||||
|
.SmoothingMode = SmoothingMode.HighQuality
|
||||||
|
.PixelOffsetMode = PixelOffsetMode.HighQuality
|
||||||
|
.PageUnit = GraphicsUnit.Pixel
|
||||||
|
.InterpolationMode = InterpolationMode.HighQualityBicubic
|
||||||
|
End With
|
||||||
|
|
||||||
|
If GridVisible Then
|
||||||
|
DrawGridMethode?.Invoke(e, Me, Offset)
|
||||||
|
End If
|
||||||
|
|
||||||
|
Dim baserect As RectangleF = New RectangleF(Offset, Size)
|
||||||
|
|
||||||
|
For Each obj As PaintingObject In PaintingObjects
|
||||||
|
If obj.Visible AndAlso HelpfulDrawingFunctions.OverlapsTwoRectangles(obj.Rectangle, baserect) Then
|
||||||
|
obj.Draw(e, Offset)
|
||||||
|
End If
|
||||||
|
Next
|
||||||
|
|
||||||
|
If _IsAreaSelecting Then
|
||||||
|
DrawAreaSelectionMethode?.Invoke(e, Me, New PointF(startMousePos.X - Offset.X, startMousePos.Y - Offset.Y), New PointF(lastMousePos.X - Offset.X, lastMousePos.Y - Offset.Y))
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
|
'Start Drawing directly to the Form
|
||||||
|
ResumeLayout(False)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Overloads Function CreateGraphics() As Graphics
|
||||||
|
Return MyBase.CreateGraphics
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Sub PaintFullView(g As Graphics)
|
||||||
|
For Each obj As PaintingObject In PaintingObjects
|
||||||
|
If obj.Visible Then
|
||||||
|
obj.Draw(g, PointF.Empty)
|
||||||
|
End If
|
||||||
|
Next
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Function CalcTextSize(obj As PaintingObject) As SizeF
|
||||||
|
Return CalcTextSize(obj, Parent.CreateGraphics)
|
||||||
|
End Function
|
||||||
|
Private Function CalcTextSize(obj As PaintingObject, g As Graphics) As SizeF
|
||||||
|
Return g.MeasureString(obj.Text, obj.TextFont, obj.Width)
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Private Sub SelectControlsInArea()
|
||||||
|
Dim rect As RectangleF = HelpfulDrawingFunctions.GetRectangle(startMousePos, lastMousePos)
|
||||||
|
For Each obj As PaintingObject In PaintingObjects
|
||||||
|
obj.Selected = HelpfulDrawingFunctions.OverlapsTwoRectangles(obj.Rectangle, rect)
|
||||||
|
Next
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Sub ArrangeToGrid(obj As PaintingObject)
|
||||||
|
Dim zoomedGridChunkSize As New SizeF(GridChunkSize.Width * ZoomFactor.Width, Me.GridChunkSize.Height * ZoomFactor.Height)
|
||||||
|
|
||||||
|
Dim modTop As Integer = obj.Y Mod zoomedGridChunkSize.Height
|
||||||
|
Dim modLeft As Integer = obj.X Mod zoomedGridChunkSize.Width
|
||||||
|
|
||||||
|
Dim halfHeight As Integer = zoomedGridChunkSize.Height / 2
|
||||||
|
Dim halfWidth As Integer = zoomedGridChunkSize.Width / 2
|
||||||
|
|
||||||
|
If modTop > halfHeight Then
|
||||||
|
obj.Y += (zoomedGridChunkSize.Height - modTop)
|
||||||
|
Else
|
||||||
|
obj.Y -= modTop
|
||||||
|
End If
|
||||||
|
|
||||||
|
If modLeft > halfWidth Then
|
||||||
|
obj.X += (zoomedGridChunkSize.Width - modLeft)
|
||||||
|
Else
|
||||||
|
obj.X -= modLeft
|
||||||
|
End If
|
||||||
|
|
||||||
|
If obj.EnableResize AndAlso Not obj.HardcodedSize Then
|
||||||
|
Dim modH As Integer = obj.Height Mod zoomedGridChunkSize.Height
|
||||||
|
Dim modW As Integer = obj.Width Mod zoomedGridChunkSize.Width
|
||||||
|
|
||||||
|
If modH > halfHeight Then
|
||||||
|
obj.Height += (zoomedGridChunkSize.Height - modH)
|
||||||
|
Else
|
||||||
|
obj.Height -= modH
|
||||||
|
End If
|
||||||
|
|
||||||
|
If modW > halfWidth Then
|
||||||
|
obj.Width += (zoomedGridChunkSize.Width - modW)
|
||||||
|
Else
|
||||||
|
obj.Width -= modW
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Sub AutoArrangeToGrid()
|
||||||
|
If GridEnabled Then
|
||||||
|
For Each obj As PaintingObject In GetSelectedObjects()
|
||||||
|
If obj.AutoAlignToGrid Then
|
||||||
|
ArrangeToGrid(obj)
|
||||||
|
End If
|
||||||
|
Next
|
||||||
|
If Not StopDrawing Then Refresh()
|
||||||
|
End If
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Function GetFullSize() As SizeF
|
||||||
|
Return GetFullSize(PaintingObjects)
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Shared Function GetFullSize(objects As IEnumerable(Of PaintingObject)) As SizeF
|
||||||
|
Dim curX As Single = 0
|
||||||
|
Dim curY As Single = 0
|
||||||
|
|
||||||
|
For Each po As PaintingObject In objects
|
||||||
|
Dim myX As Single = po.X + po.Width
|
||||||
|
If curX < myX Then
|
||||||
|
curX = myX
|
||||||
|
End If
|
||||||
|
Dim myY As Single = po.Y + po.Height
|
||||||
|
If curY < myY Then
|
||||||
|
curY = myY
|
||||||
|
End If
|
||||||
|
Next
|
||||||
|
|
||||||
|
Return New SizeF(curX + 20, curY + 20)
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Friend Sub RaisePaintingObjectAdded(args As PaintingObjectEventArgs)
|
||||||
|
RaiseEvent PaintingObjectAdded(Me, args)
|
||||||
|
End Sub
|
||||||
|
Friend Sub RaisePaintingObjectRemoved(args As PaintingObjectEventArgs)
|
||||||
|
RaiseEvent PaintingObjectRemoved(Me, args)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub PaintingControl_PaintingObjectAdded(sender As Object, e As PaintingObjectEventArgs) Handles Me.PaintingObjectAdded, Me.PaintingObjectRemoved
|
||||||
|
'CalculateScrollValues()
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub CheckMouseWheel(sender As Object, e As MouseEventArgs) Handles Me.MouseWheel
|
||||||
|
If pressedControl Then
|
||||||
|
Dim val As Single = e.Delta / 120 / 10
|
||||||
|
ZoomFactor = New SizeF(Math.Max(ZoomFactor.Width + val, 0.25), Math.Max(ZoomFactor.Height + val, 0.25))
|
||||||
|
Refresh()
|
||||||
|
End If
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Sub SuspendDrawing()
|
||||||
|
If _stopDrawing < 0 Then
|
||||||
|
'bufferedImg = New Bitmap(Width, Height)
|
||||||
|
'DrawToBitmap(bufferedImg, New Rectangle(0, 0, bufferedImg.Width, bufferedImg.Height))
|
||||||
|
Utils.SuspendDrawing(Me)
|
||||||
|
End If
|
||||||
|
_stopDrawing += 1
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Sub ResumeDrawing()
|
||||||
|
ResumeDrawing(True)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Sub ResumeDrawing(executeRefresh As Boolean)
|
||||||
|
If _stopDrawing >= 0 Then
|
||||||
|
_stopDrawing -= 1
|
||||||
|
End If
|
||||||
|
|
||||||
|
If _stopDrawing = -1 Then
|
||||||
|
'bufferedImg.Dispose()
|
||||||
|
'bufferedImg = Nothing
|
||||||
|
'If executeRefresh Then Refresh()
|
||||||
|
Utils.ResumeDrawing(Me, executeRefresh)
|
||||||
|
End If
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
End Class
|
||||||
6
Pilz.UI/PaintingControl/PaintingControlDelegates.vb
Normal file
6
Pilz.UI/PaintingControl/PaintingControlDelegates.vb
Normal file
@@ -0,0 +1,6 @@
|
|||||||
|
Imports System.Drawing
|
||||||
|
Imports System.Windows.Forms
|
||||||
|
|
||||||
|
Public Delegate Sub DelegateDrawPaintingObjectMethode(e As PaintingObjectPaintEventArgs)
|
||||||
|
Public Delegate Sub DelegateDrawPaintingControlGridMethode(e As PaintEventArgs, pc As PaintingControl, offset As PointF)
|
||||||
|
Public Delegate Sub DelegateDrawPaintingControlAreaSelectionMethode(e As PaintEventArgs, pc As PaintingControl, startMousePos As PointF, lastMousePos As PointF)
|
||||||
586
Pilz.UI/PaintingControl/PaintingObject.vb
Normal file
586
Pilz.UI/PaintingControl/PaintingObject.vb
Normal file
@@ -0,0 +1,586 @@
|
|||||||
|
Imports System.Drawing
|
||||||
|
Imports System.Drawing.Drawing2D
|
||||||
|
Imports System.Reflection
|
||||||
|
Imports System.Runtime.CompilerServices
|
||||||
|
Imports System.Runtime.InteropServices
|
||||||
|
Imports System.Runtime.Serialization
|
||||||
|
Imports System.Windows.Forms
|
||||||
|
Imports Newtonsoft.Json
|
||||||
|
|
||||||
|
<Serializable> Public Class PaintingObject
|
||||||
|
Implements ICloneable, IPaintingObjectContainer
|
||||||
|
|
||||||
|
Private resizeEngine As PaintingObjectResizing = Nothing
|
||||||
|
Private _Selected As Boolean = False
|
||||||
|
|
||||||
|
Private _Parent As PaintingControl = Nothing
|
||||||
|
Public Property FillColor As Color = Color.Blue
|
||||||
|
Public Property OutlineColor As Color = Color.DarkBlue
|
||||||
|
Public Property OutlineThicknes As Single = 1
|
||||||
|
Public Property OutlineDashStyle As DashStyle = DashStyle.Solid
|
||||||
|
Private _Text As String = ""
|
||||||
|
Public Property TextPosition As TextPosition = TextPosition.FullCenter
|
||||||
|
Public Property VerticalTextAlignment As StringAlignment = StringAlignment.Center
|
||||||
|
Public Property HorizontalTextAlignment As StringAlignment = StringAlignment.Center
|
||||||
|
Public Property TextFont As New Font(FontFamily.GenericSansSerif, 8.25)
|
||||||
|
Public Property TextColor As Color = Color.Black
|
||||||
|
Private _Location As New PointF(50, 50)
|
||||||
|
Private _Size As New SizeF(50, 80)
|
||||||
|
Public Property EnableFill As Boolean = True
|
||||||
|
Public Property EnableOutline As Boolean = True
|
||||||
|
Public Property SelectionColor As Color = Color.CornflowerBlue
|
||||||
|
Public Property SelectionDashStyle As DashStyle = DashStyle.Dot
|
||||||
|
Private _EnableSelection As Boolean = True
|
||||||
|
Public Property Image As Image = Nothing
|
||||||
|
<JsonIgnore> Public Property BufferedImage As Image = Nothing
|
||||||
|
Public Property ImageSizeMode As ImageSizeMode
|
||||||
|
Public Property ImageProperties As New PaintingObjectImageProperties
|
||||||
|
Public Property Tag As String = Nothing
|
||||||
|
Public Property Name As String = ""
|
||||||
|
Public ReadOnly Property PinnedObjects As New List(Of PaintingObject)
|
||||||
|
Public ReadOnly Property DrawMethodes As New List(Of DelegateDrawPaintingObjectMethode)
|
||||||
|
Public ReadOnly Property DrawSelectionMethode As DelegateDrawPaintingObjectMethode = AddressOf DefaultDrawMethodes.DrawSelection
|
||||||
|
Public Property Cursor As Cursor = Cursors.Default
|
||||||
|
Public Property HardcodedSize As Boolean = False
|
||||||
|
Private _Visible As Boolean = True
|
||||||
|
Private _AutoAlignToGrid As Boolean = False
|
||||||
|
Public Property MouseTransparency As Boolean = False
|
||||||
|
Public ReadOnly Property Layering As New PaintingObjectLayering(Me)
|
||||||
|
Public ReadOnly Property PaintingObjects As New PaintingObjectList(_Parent) With {.EnableRaisingEvents = False}
|
||||||
|
|
||||||
|
Public Event MouseClick(sender As PaintingObject, e As MouseEventArgs)
|
||||||
|
Public Event MouseDown(sender As PaintingObject, e As MouseEventArgs)
|
||||||
|
Public Event MouseUp(sender As PaintingObject, e As MouseEventArgs)
|
||||||
|
Public Event MouseMove(sender As PaintingObject, e As MouseEventArgs)
|
||||||
|
Public Event SelectedChanged(sender As PaintingObject, e As EventArgs)
|
||||||
|
Public Event Paint(sender As PaintingObject, e As PaintEventArgs)
|
||||||
|
Public Event ParentChanged(sender As PaintingObject, e As EventArgs)
|
||||||
|
Public Event VisibleChanged(sender As PaintingObject, e As EventArgs)
|
||||||
|
|
||||||
|
Public Sub New()
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Sub New(type As PaintingObjectType)
|
||||||
|
Me.Type = type
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Sub New(type As PaintingObjectType, drawMethodes As DelegateDrawPaintingObjectMethode())
|
||||||
|
Me.New(type)
|
||||||
|
Me.DrawMethodes.AddRange(drawMethodes)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Sub RaiseMouseClick(e As MouseEventArgs)
|
||||||
|
RaiseEvent MouseClick(Me, e)
|
||||||
|
End Sub
|
||||||
|
Public Sub RaiseMouseDown(e As MouseEventArgs)
|
||||||
|
RaiseEvent MouseDown(Me, e)
|
||||||
|
End Sub
|
||||||
|
Public Sub RaiseMouseUp(e As MouseEventArgs)
|
||||||
|
RaiseEvent MouseUp(Me, e)
|
||||||
|
End Sub
|
||||||
|
Public Sub RaiseMouseMove(e As MouseEventArgs)
|
||||||
|
RaiseEvent MouseMove(Me, e)
|
||||||
|
End Sub
|
||||||
|
Private Sub RaisePaint(e As PaintEventArgs)
|
||||||
|
RaiseEvent Paint(Me, e)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Property Type As PaintingObjectType
|
||||||
|
Get
|
||||||
|
Dim tt As PaintingObjectType = PaintingObjectType.Custom
|
||||||
|
|
||||||
|
For Each d As DelegateDrawPaintingObjectMethode In DrawMethodes
|
||||||
|
If d.Method.DeclaringType Is GetType(DefaultDrawMethodes) Then
|
||||||
|
Select Case d.Method.Name
|
||||||
|
Case "DrawPicture"
|
||||||
|
tt = tt Or PaintingObjectType.Picture
|
||||||
|
Case "DrawText"
|
||||||
|
tt = tt Or PaintingObjectType.Text
|
||||||
|
Case "DrawRectangle"
|
||||||
|
tt = tt Or PaintingObjectType.Rectangle
|
||||||
|
Case "DrawEllipse"
|
||||||
|
tt = tt Or PaintingObjectType.Elipse
|
||||||
|
Case "DrawTriangle"
|
||||||
|
tt = tt Or PaintingObjectType.Triangle
|
||||||
|
Case "DrawLine"
|
||||||
|
tt = tt Or PaintingObjectType.Line
|
||||||
|
End Select
|
||||||
|
End If
|
||||||
|
Next
|
||||||
|
|
||||||
|
Return tt
|
||||||
|
End Get
|
||||||
|
Set(value As PaintingObjectType)
|
||||||
|
DrawMethodes.Clear()
|
||||||
|
|
||||||
|
If (value And PaintingObjectType.Picture) = PaintingObjectType.Picture Then
|
||||||
|
DrawMethodes.Add(AddressOf DefaultDrawMethodes.DrawPicture)
|
||||||
|
End If
|
||||||
|
|
||||||
|
If (value And PaintingObjectType.Rectangle) = PaintingObjectType.Rectangle Then
|
||||||
|
DrawMethodes.Add(AddressOf DefaultDrawMethodes.DrawRectangle)
|
||||||
|
End If
|
||||||
|
|
||||||
|
If (value And PaintingObjectType.Elipse) = PaintingObjectType.Elipse Then
|
||||||
|
DrawMethodes.Add(AddressOf DefaultDrawMethodes.DrawEllipse)
|
||||||
|
End If
|
||||||
|
|
||||||
|
If (value And PaintingObjectType.Triangle) = PaintingObjectType.Triangle Then
|
||||||
|
DrawMethodes.Add(AddressOf DefaultDrawMethodes.DrawTriangle)
|
||||||
|
End If
|
||||||
|
|
||||||
|
If (value And PaintingObjectType.Line) = PaintingObjectType.Line Then
|
||||||
|
DrawMethodes.Add(AddressOf DefaultDrawMethodes.DrawLine)
|
||||||
|
End If
|
||||||
|
|
||||||
|
If (value And PaintingObjectType.Text) = PaintingObjectType.Text Then
|
||||||
|
DrawMethodes.Add(AddressOf DefaultDrawMethodes.DrawText)
|
||||||
|
End If
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
<JsonIgnore> Public Property Location As PointF
|
||||||
|
Get
|
||||||
|
If Parent IsNot Nothing Then
|
||||||
|
Return New PointF(_Location.X * Parent.ZoomFactor.Width,
|
||||||
|
_Location.Y * Parent.ZoomFactor.Height)
|
||||||
|
Else
|
||||||
|
Return _Location
|
||||||
|
End If
|
||||||
|
End Get
|
||||||
|
Set(value As PointF)
|
||||||
|
If Parent IsNot Nothing Then
|
||||||
|
_Location = New PointF(value.X / Parent.ZoomFactor.Width,
|
||||||
|
value.Y / Parent.ZoomFactor.Height)
|
||||||
|
Else
|
||||||
|
_Location = value
|
||||||
|
End If
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
<JsonIgnore> Public Property Size As SizeF
|
||||||
|
Get
|
||||||
|
If Parent IsNot Nothing Then
|
||||||
|
Return New SizeF(_Size.Width * Parent.ZoomFactor.Width,
|
||||||
|
_Size.Height * Parent.ZoomFactor.Height)
|
||||||
|
Else
|
||||||
|
Return _Size
|
||||||
|
End If
|
||||||
|
End Get
|
||||||
|
Set(value As SizeF)
|
||||||
|
If Parent IsNot Nothing Then
|
||||||
|
_Size = New SizeF(value.Width / Parent.ZoomFactor.Width,
|
||||||
|
value.Height / Parent.ZoomFactor.Height)
|
||||||
|
Else
|
||||||
|
_Size = value
|
||||||
|
End If
|
||||||
|
ResetImageBuffer()
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
<JsonIgnore> Public Property SizeDirect As SizeF
|
||||||
|
Get
|
||||||
|
Return _Size
|
||||||
|
End Get
|
||||||
|
Set(value As SizeF)
|
||||||
|
_Size = value
|
||||||
|
ResetImageBuffer()
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
<JsonIgnore> Public Property AutoAlignToGrid As Boolean
|
||||||
|
Get
|
||||||
|
Return _AutoAlignToGrid
|
||||||
|
End Get
|
||||||
|
Set(value As Boolean)
|
||||||
|
_AutoAlignToGrid = value
|
||||||
|
If value Then ArrangeToGrid()
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
<JsonIgnore> Public ReadOnly Property IsResizing As Boolean
|
||||||
|
Get
|
||||||
|
If resizeEngine Is Nothing Then
|
||||||
|
Return False
|
||||||
|
Else
|
||||||
|
Return resizeEngine?.IsResizing
|
||||||
|
End If
|
||||||
|
End Get
|
||||||
|
End Property
|
||||||
|
|
||||||
|
<JsonIgnore> Public Property Parent As PaintingControl
|
||||||
|
Get
|
||||||
|
Return _Parent
|
||||||
|
End Get
|
||||||
|
Set(value As PaintingControl)
|
||||||
|
Dim re As Boolean = value IsNot _Parent
|
||||||
|
_Parent = value
|
||||||
|
If re Then RaiseEvent ParentChanged(Me, New EventArgs)
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
<JsonIgnore> Public Property Visible As Boolean
|
||||||
|
Get
|
||||||
|
Return _Visible
|
||||||
|
End Get
|
||||||
|
Set(value As Boolean)
|
||||||
|
If value <> _Visible Then
|
||||||
|
_Visible = value
|
||||||
|
If Not value AndAlso Not _EnableSelection Then EnableResize = False
|
||||||
|
RaiseEvent VisibleChanged(Me, New EventArgs)
|
||||||
|
End If
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
Public Property Selected As Boolean
|
||||||
|
Get
|
||||||
|
Return _Selected
|
||||||
|
End Get
|
||||||
|
Set(value As Boolean)
|
||||||
|
SetSelection(value, True)
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
<JsonIgnore> Public Property SelectedDirect As Boolean
|
||||||
|
Get
|
||||||
|
Return Selected
|
||||||
|
End Get
|
||||||
|
Set(value As Boolean)
|
||||||
|
SetSelection(value, False)
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
Private Sub SetSelection(value As Boolean, raiseEventOnParent As Boolean)
|
||||||
|
If EnableSelection Then
|
||||||
|
If _Selected <> value Then
|
||||||
|
_Selected = value
|
||||||
|
RaiseEvent SelectedChanged(Me, New EventArgs)
|
||||||
|
If raiseEventOnParent Then
|
||||||
|
Parent.RaiseSelectionChanged()
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
Else
|
||||||
|
_Selected = False
|
||||||
|
End If
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
<JsonIgnore> Public Property Width As Single
|
||||||
|
Get
|
||||||
|
Return Size.Width
|
||||||
|
End Get
|
||||||
|
Set(value As Single)
|
||||||
|
Size = New SizeF(value, Size.Height)
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
<JsonIgnore> Public Property Height As Single
|
||||||
|
Get
|
||||||
|
Return Size.Height
|
||||||
|
End Get
|
||||||
|
Set(value As Single)
|
||||||
|
Size = New SizeF(Size.Width, value)
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
<JsonIgnore> Public Property X As Single
|
||||||
|
Get
|
||||||
|
Return Location.X
|
||||||
|
End Get
|
||||||
|
Set(value As Single)
|
||||||
|
Location = New PointF(value, Location.Y)
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
<JsonIgnore> Public Property Y As Single
|
||||||
|
Get
|
||||||
|
Return Location.Y
|
||||||
|
End Get
|
||||||
|
Set(value As Single)
|
||||||
|
Location = New PointF(Location.X, value)
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
<JsonIgnore> Public Property Text As String
|
||||||
|
Get
|
||||||
|
Return _Text
|
||||||
|
End Get
|
||||||
|
Set(value As String)
|
||||||
|
_Text = value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
Public Property Rectangle As RectangleF
|
||||||
|
Get
|
||||||
|
Return New RectangleF(Location, Size)
|
||||||
|
End Get
|
||||||
|
Set(value As RectangleF)
|
||||||
|
Location = value.Location
|
||||||
|
Size = value.Size
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
<JsonIgnore> Public Property EnableSelection As Boolean
|
||||||
|
Get
|
||||||
|
Return _EnableSelection
|
||||||
|
End Get
|
||||||
|
Set(value As Boolean)
|
||||||
|
_EnableSelection = value
|
||||||
|
If Not value AndAlso Not _Visible Then EnableResize = False
|
||||||
|
If Not value Then Selected = False
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
<JsonIgnore> Public Property RectangleExtended As Rectangle
|
||||||
|
Get
|
||||||
|
Return New Rectangle(X - 12,
|
||||||
|
Y - 12,
|
||||||
|
Width + 12 + 12,
|
||||||
|
Height + 12 + 12)
|
||||||
|
End Get
|
||||||
|
Set(value As Rectangle)
|
||||||
|
X = value.X + 12
|
||||||
|
Y = value.Y + 12
|
||||||
|
Width = value.Width - 12 - 12
|
||||||
|
Height = value.Height - 12 - 12
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
Public Sub FitSizeToText()
|
||||||
|
If Parent Is Nothing Then
|
||||||
|
Throw New Exception("You have to put that PaintingObject to a PaintingControl before.")
|
||||||
|
End If
|
||||||
|
|
||||||
|
Dim g As Graphics = Parent.CreateGraphics()
|
||||||
|
Dim newSize As SizeF = g.MeasureString(Text, TextFont)
|
||||||
|
SizeDirect = newSize + New SizeF(1, 0)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Sub SetBounds(x As Integer, y As Integer, width As Integer, height As Integer)
|
||||||
|
Location = New Point(x, y)
|
||||||
|
Size = New Size(width, height)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
<JsonIgnore> Public Property Left As Integer
|
||||||
|
Get
|
||||||
|
Return X
|
||||||
|
End Get
|
||||||
|
Set(value As Integer)
|
||||||
|
X = value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
<JsonIgnore> Public Property Top() As Integer
|
||||||
|
Get
|
||||||
|
Return Y
|
||||||
|
End Get
|
||||||
|
Set(value As Integer)
|
||||||
|
Y = value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
<JsonIgnore> Public ReadOnly Property Right As Integer
|
||||||
|
Get
|
||||||
|
Return X + Width
|
||||||
|
End Get
|
||||||
|
End Property
|
||||||
|
|
||||||
|
<JsonIgnore> Public ReadOnly Property Bottom() As Integer
|
||||||
|
Get
|
||||||
|
Return Y + Height
|
||||||
|
End Get
|
||||||
|
End Property
|
||||||
|
|
||||||
|
Public Property EnableResize As Boolean
|
||||||
|
Get
|
||||||
|
If resizeEngine Is Nothing Then
|
||||||
|
Return False
|
||||||
|
Else
|
||||||
|
Return resizeEngine.Enabled
|
||||||
|
End If
|
||||||
|
End Get
|
||||||
|
Set(value As Boolean)
|
||||||
|
If resizeEngine Is Nothing AndAlso value Then
|
||||||
|
resizeEngine = New PaintingObjectResizing(Me)
|
||||||
|
ElseIf resizeEngine IsNot Nothing Then
|
||||||
|
resizeEngine.Enabled = value
|
||||||
|
End If
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
|
||||||
|
Public Sub Remove()
|
||||||
|
Parent?.PaintingObjects.Remove(Me)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Sub AutoArrangeToGrid()
|
||||||
|
If Parent?.GridEnabled AndAlso AutoAlignToGrid Then
|
||||||
|
ArrangeToGrid()
|
||||||
|
End If
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Sub ArrangeToGrid()
|
||||||
|
If Parent IsNot Nothing Then
|
||||||
|
Parent.ArrangeToGrid(Me)
|
||||||
|
If Not Parent.StopDrawing Then Parent.Refresh()
|
||||||
|
End If
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Sub Draw(e As PaintEventArgs)
|
||||||
|
Draw(e, PointF.Empty)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Sub Draw(e As PaintEventArgs, offset As PointF)
|
||||||
|
Draw(e.Graphics, offset)
|
||||||
|
|
||||||
|
If Visible Then
|
||||||
|
RaisePaint(e)
|
||||||
|
End If
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Sub Draw(g As Graphics, offset As PointF)
|
||||||
|
If Visible Then
|
||||||
|
Dim poevargs As New PaintingObjectPaintEventArgs(Me, g, offset)
|
||||||
|
|
||||||
|
For Each dm As DelegateDrawPaintingObjectMethode In DrawMethodes
|
||||||
|
dm?.Invoke(poevargs)
|
||||||
|
Next
|
||||||
|
|
||||||
|
If Selected AndAlso DrawSelectionMethode IsNot Nothing Then
|
||||||
|
DrawSelectionMethode?.Invoke(poevargs)
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Function Clone() As Object Implements ICloneable.Clone
|
||||||
|
Return Clone(True)
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Function Clone(includePinnedObject As Boolean) As Object
|
||||||
|
Dim obj As New PaintingObject
|
||||||
|
Dim t As Type = Me.GetType
|
||||||
|
Dim blackField As New List(Of String) From {
|
||||||
|
NameOf(_PinnedObjects),
|
||||||
|
NameOf(resizeEngine),
|
||||||
|
NameOf(_Parent),
|
||||||
|
NameOf(BufferedImage)
|
||||||
|
}
|
||||||
|
|
||||||
|
Dim fields As FieldInfo() = t.GetFields(BindingFlags.Public Or BindingFlags.NonPublic Or BindingFlags.IgnoreCase Or BindingFlags.Instance)
|
||||||
|
For Each field As FieldInfo In fields
|
||||||
|
If Not blackField.Contains(field.Name) Then
|
||||||
|
field.SetValue(obj, field.GetValue(Me))
|
||||||
|
End If
|
||||||
|
Next
|
||||||
|
|
||||||
|
If includePinnedObject Then
|
||||||
|
obj.PinnedObjects.AddRange(PinnedObjects)
|
||||||
|
End If
|
||||||
|
|
||||||
|
obj.EnableResize = EnableResize
|
||||||
|
|
||||||
|
Return obj
|
||||||
|
End Function
|
||||||
|
|
||||||
|
<Obsolete("Use Layering.BringToTop() instead!")>
|
||||||
|
Public Sub BringToFront()
|
||||||
|
Layering.BringToTop()
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
<Obsolete("Use Layering.SendToBack() instead!")>
|
||||||
|
Public Sub SendToBack()
|
||||||
|
Layering.SendToBack()
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Sub ResetImageBuffer()
|
||||||
|
BufferedImage = Nothing
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
End Class
|
||||||
|
|
||||||
|
Public Class PaintingObjectList
|
||||||
|
Inherits List(Of PaintingObject)
|
||||||
|
|
||||||
|
Friend ReadOnly Property MyParent As PaintingControl
|
||||||
|
Friend Property EnableRaisingEvents As Boolean = True
|
||||||
|
Public ReadOnly Property Layering As New PaintingObjectListLayering(Me)
|
||||||
|
|
||||||
|
Public Sub New()
|
||||||
|
Me.New(Nothing)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Sub New(parent As PaintingControl)
|
||||||
|
MyParent = parent
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Overloads Sub Add(item As PaintingObject)
|
||||||
|
item.Parent = myParent
|
||||||
|
MyBase.Add(item)
|
||||||
|
item.AutoArrangeToGrid()
|
||||||
|
If EnableRaisingEvents Then
|
||||||
|
MyParent?.RaisePaintingObjectAdded(New PaintingObjectEventArgs({item}))
|
||||||
|
End If
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Overloads Sub AddRange(items As PaintingObject())
|
||||||
|
For Each item As PaintingObject In items
|
||||||
|
item.Parent = myParent
|
||||||
|
Next
|
||||||
|
MyBase.AddRange(items)
|
||||||
|
For Each item As PaintingObject In items
|
||||||
|
item.AutoArrangeToGrid()
|
||||||
|
Next
|
||||||
|
If EnableRaisingEvents Then
|
||||||
|
MyParent?.RaisePaintingObjectAdded(New PaintingObjectEventArgs(items))
|
||||||
|
End If
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Overloads Sub Insert(index As Integer, item As PaintingObject)
|
||||||
|
item.Parent = myParent
|
||||||
|
MyBase.Insert(index, item)
|
||||||
|
myParent?.AutoArrangeToGrid()
|
||||||
|
If EnableRaisingEvents Then
|
||||||
|
MyParent?.RaisePaintingObjectAdded(New PaintingObjectEventArgs({item}))
|
||||||
|
End If
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Overloads Sub Remove(item As PaintingObject)
|
||||||
|
item.Parent = Nothing
|
||||||
|
MyBase.Remove(item)
|
||||||
|
If EnableRaisingEvents Then
|
||||||
|
MyParent?.RaisePaintingObjectRemoved(New PaintingObjectEventArgs({item}))
|
||||||
|
End If
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Overloads Sub RemoveAt(index As Integer)
|
||||||
|
Me(index).Parent = Nothing
|
||||||
|
Dim item As PaintingObject = Me(index)
|
||||||
|
MyBase.RemoveAt(index)
|
||||||
|
If EnableRaisingEvents Then
|
||||||
|
MyParent?.RaisePaintingObjectRemoved(New PaintingObjectEventArgs({item}))
|
||||||
|
End If
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
End Class
|
||||||
|
|
||||||
|
Public Enum PaintingObjectType
|
||||||
|
Custom = 0
|
||||||
|
Text = 1
|
||||||
|
Picture = 2
|
||||||
|
Line = 4
|
||||||
|
Triangle = 8
|
||||||
|
Rectangle = 16
|
||||||
|
Elipse = 32
|
||||||
|
End Enum
|
||||||
|
|
||||||
|
Public Enum ImageSizeMode
|
||||||
|
Fit
|
||||||
|
Zoom
|
||||||
|
Original
|
||||||
|
End Enum
|
||||||
|
|
||||||
|
Public Enum TextPosition
|
||||||
|
HLeft = &H1
|
||||||
|
HRight = &H2
|
||||||
|
HCenter = &H4
|
||||||
|
VUp = &H10
|
||||||
|
VDown = &H20
|
||||||
|
VCenter = &H40
|
||||||
|
FullCenter = HCenter Or VCenter
|
||||||
|
End Enum
|
||||||
85
Pilz.UI/PaintingControl/PaintingObjectLayering.vb
Normal file
85
Pilz.UI/PaintingControl/PaintingObjectLayering.vb
Normal file
@@ -0,0 +1,85 @@
|
|||||||
|
Public Class PaintingObjectLayering
|
||||||
|
|
||||||
|
Public ReadOnly Property PaintingObject As PaintingObject
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Get the current object list from the painting object.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns>Returns the current object list from the painting object.</returns>
|
||||||
|
Public ReadOnly Property ObjectList As PaintingObjectList
|
||||||
|
Get
|
||||||
|
Return PaintingObject.Parent.PaintingObjects
|
||||||
|
End Get
|
||||||
|
End Property
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Create a new instance of object layer managing.
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="obj"></param>
|
||||||
|
Public Sub New(obj As PaintingObject)
|
||||||
|
PaintingObject = obj
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Moves the object by the given number of indicies.
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="count">The number how many objects it should be moved.</param>
|
||||||
|
Public Sub MoveObject(count As Integer)
|
||||||
|
Dim oldIndex As Integer = ObjectList.IndexOf(PaintingObject)
|
||||||
|
Dim newIndex As Integer = oldIndex + count
|
||||||
|
MoveObjectTo(newIndex)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Moves the object to the new index.
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="newIndex"></param>
|
||||||
|
Public Sub MoveObjectTo(newIndex As Integer)
|
||||||
|
Dim list As PaintingObjectList = ObjectList
|
||||||
|
|
||||||
|
'Check & make index valid
|
||||||
|
If newIndex >= ObjectList.Count Then
|
||||||
|
newIndex = ObjectList.Count - 1
|
||||||
|
ElseIf newIndex < 0 Then
|
||||||
|
newIndex = 0
|
||||||
|
End If
|
||||||
|
|
||||||
|
'Remove object
|
||||||
|
list.Remove(PaintingObject)
|
||||||
|
|
||||||
|
'Insert object at new index
|
||||||
|
list.Insert(newIndex, PaintingObject)
|
||||||
|
|
||||||
|
'Order all objects again
|
||||||
|
list.Layering.OrderAll()
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Moves the object to the front.
|
||||||
|
''' </summary>
|
||||||
|
Public Sub BringToTop()
|
||||||
|
MoveObjectTo(ObjectList.Count - 1)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Moves the object to the back.
|
||||||
|
''' </summary>
|
||||||
|
Public Sub SendToBack()
|
||||||
|
MoveObjectTo(0)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Moves the object fordward by one
|
||||||
|
''' </summary>
|
||||||
|
Public Sub OneToTop()
|
||||||
|
MoveObject(+1)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Moves the object backward by one
|
||||||
|
''' </summary>
|
||||||
|
Public Sub OneToBack()
|
||||||
|
MoveObject(-1)
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
End Class
|
||||||
73
Pilz.UI/PaintingControl/PaintingObjectListLayering.vb
Normal file
73
Pilz.UI/PaintingControl/PaintingObjectListLayering.vb
Normal file
@@ -0,0 +1,73 @@
|
|||||||
|
Public Class PaintingObjectListLayering
|
||||||
|
|
||||||
|
|
||||||
|
Public ReadOnly Property ObjectList As PaintingObjectList
|
||||||
|
Public ReadOnly Property Conditions As New Dictionary(Of Integer, Func(Of PaintingObject, Boolean))
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Get the order function will checkout the conditions.
|
||||||
|
''' </summary>
|
||||||
|
''' <returns>Returns true, if conditions are aviable, otherwise false.</returns>
|
||||||
|
Public ReadOnly Property EnableConditions As Boolean
|
||||||
|
Get
|
||||||
|
Return Conditions.Any
|
||||||
|
End Get
|
||||||
|
End Property
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Create a new instance of object list layer managing.
|
||||||
|
''' </summary>
|
||||||
|
''' <param name="list"></param>
|
||||||
|
Public Sub New(list As PaintingObjectList)
|
||||||
|
ObjectList = list
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
''' <summary>
|
||||||
|
''' Order all objects using the conditions. If no conditions are setted, this method will do nothing.
|
||||||
|
''' </summary>
|
||||||
|
Public Sub OrderAll()
|
||||||
|
If EnableConditions Then
|
||||||
|
OrderAllPrivate()
|
||||||
|
End If
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Private Sub OrderAllPrivate()
|
||||||
|
Dim list As PaintingObjectList = ObjectList
|
||||||
|
Dim listOld As List(Of PaintingObject) = list.ToList
|
||||||
|
Dim toRemove As New List(Of PaintingObject)
|
||||||
|
|
||||||
|
'Disable raising events
|
||||||
|
ObjectList.EnableRaisingEvents = False
|
||||||
|
|
||||||
|
'Clear list
|
||||||
|
list.Clear()
|
||||||
|
|
||||||
|
'Add ordered
|
||||||
|
For Each kvp In Conditions.OrderBy(Function(n) n.Key)
|
||||||
|
Dim func = kvp.Value
|
||||||
|
|
||||||
|
For Each obj As PaintingObject In listOld
|
||||||
|
If func(obj) Then
|
||||||
|
'Add to list
|
||||||
|
list.Add(obj)
|
||||||
|
|
||||||
|
'Add to remove
|
||||||
|
toRemove.Add(obj)
|
||||||
|
End If
|
||||||
|
Next
|
||||||
|
|
||||||
|
'Remove remembered objects
|
||||||
|
For Each obj As PaintingObject In toRemove
|
||||||
|
listOld.Remove(obj)
|
||||||
|
Next
|
||||||
|
toRemove.Clear()
|
||||||
|
Next
|
||||||
|
|
||||||
|
'Enable raising events
|
||||||
|
ObjectList.EnableRaisingEvents = True
|
||||||
|
|
||||||
|
'Refresh
|
||||||
|
ObjectList.MyParent?.Refresh()
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
End Class
|
||||||
Some files were not shown because too many files have changed in this diff Show More
Reference in New Issue
Block a user