RegexEditor: Improve Look and Feel

This commit is contained in:
Jonathan Jenne 2021-04-19 14:03:33 +02:00
parent 04fd63a9c7
commit 5e45aef7ff
13 changed files with 326 additions and 87 deletions

View File

@ -12,7 +12,7 @@ Imports System.Runtime.InteropServices
<Assembly: AssemblyDescription("")>
<Assembly: AssemblyCompany("")>
<Assembly: AssemblyProduct("RegexEditor")>
<Assembly: AssemblyCopyright("Copyright © 2019")>
<Assembly: AssemblyCopyright("Copyright © 2021")>
<Assembly: AssemblyTrademark("")>
<Assembly: ComVisible(False)>
@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.1.0.0")>
<Assembly: AssemblyFileVersion("1.1.0.0")>
<Assembly: AssemblyVersion("1.2.0.0")>
<Assembly: AssemblyFileVersion("1.2.0.0")>

View File

@ -22,7 +22,7 @@ Namespace My.Resources
'''<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.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "16.0.0.0"), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
@ -59,5 +59,65 @@ Namespace My.Resources
resourceCulture = value
End Set
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage.
'''</summary>
Friend ReadOnly Property about() As DevExpress.Utils.Svg.SvgImage
Get
Dim obj As Object = ResourceManager.GetObject("about", resourceCulture)
Return CType(obj,DevExpress.Utils.Svg.SvgImage)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage.
'''</summary>
Friend ReadOnly Property actions_check() As DevExpress.Utils.Svg.SvgImage
Get
Dim obj As Object = ResourceManager.GetObject("actions_check", resourceCulture)
Return CType(obj,DevExpress.Utils.Svg.SvgImage)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage.
'''</summary>
Friend ReadOnly Property actions_check1() As DevExpress.Utils.Svg.SvgImage
Get
Dim obj As Object = ResourceManager.GetObject("actions_check1", resourceCulture)
Return CType(obj,DevExpress.Utils.Svg.SvgImage)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage.
'''</summary>
Friend ReadOnly Property definednameuseinformula() As DevExpress.Utils.Svg.SvgImage
Get
Dim obj As Object = ResourceManager.GetObject("definednameuseinformula", resourceCulture)
Return CType(obj,DevExpress.Utils.Svg.SvgImage)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage.
'''</summary>
Friend ReadOnly Property definednameuseinformula1() As DevExpress.Utils.Svg.SvgImage
Get
Dim obj As Object = ResourceManager.GetObject("definednameuseinformula1", resourceCulture)
Return CType(obj,DevExpress.Utils.Svg.SvgImage)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage.
'''</summary>
Friend ReadOnly Property definednameuseinformula2() As DevExpress.Utils.Svg.SvgImage
Get
Dim obj As Object = ResourceManager.GetObject("definednameuseinformula2", resourceCulture)
Return CType(obj,DevExpress.Utils.Svg.SvgImage)
End Get
End Property
End Module
End Namespace

View File

@ -46,7 +46,7 @@
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Serialization.Formatters.Binary.BinaryFormatter
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
@ -60,6 +60,7 @@
: 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">
@ -68,9 +69,10 @@
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" />
<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">
@ -85,9 +87,10 @@
<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="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">
@ -109,9 +112,28 @@
<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>
<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=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="definednameuseinformula" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\definednameuseinformula.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="definednameuseinformula1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\definednameuseinformula1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="actions_check" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\actions_check.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="actions_check1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\actions_check1.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="definednameuseinformula2" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\definednameuseinformula2.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="about" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\about.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
</root>

View File

@ -0,0 +1,3 @@
DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraLayout.LayoutControl, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a

View File

@ -48,21 +48,33 @@
<OptionInfer>On</OptionInfer>
</PropertyGroup>
<ItemGroup>
<Reference Include="DevExpress.Data.Desktop.v20.1, Version=20.1.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.Data.v20.1, Version=20.1.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.Printing.v20.1.Core, Version=20.1.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.Utils.v20.1, Version=20.1.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.XtraEditors.v20.1, Version=20.1.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.Printing.v19.2.Core, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.Utils.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>D:\ProgramFiles\DevExpress 19.2\Components\Bin\Framework\DevExpress.XtraEditors.v19.2.dll</HintPath>
</Reference>
<Reference Include="DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>D:\ProgramFiles\DevExpress 19.2\Components\Bin\Framework\DevExpress.XtraLayout.v19.2.dll</HintPath>
</Reference>
<Reference Include="PresentationCore" />
<Reference Include="System" />
<Reference Include="System.ComponentModel.DataAnnotations" />
<Reference Include="System.Data" />
<Reference Include="System.Deployment" />
<Reference Include="System.Drawing" />
<Reference Include="System.Runtime.Remoting" />
<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" />
<Reference Include="UIAutomationClient" />
<Reference Include="WindowsBase" />
</ItemGroup>
<ItemGroup>
<Import Include="Microsoft.VisualBasic" />
@ -102,6 +114,7 @@
</Compile>
</ItemGroup>
<ItemGroup>
<EmbeddedResource Include="My Project\licenses.licx" />
<EmbeddedResource Include="My Project\Resources.resx">
<Generator>VbMyResourcesResXFileCodeGenerator</Generator>
<LastGenOutput>Resources.Designer.vb</LastGenOutput>
@ -130,5 +143,23 @@
<Name>Language</Name>
</ProjectReference>
</ItemGroup>
<ItemGroup>
<None Include="Resources\actions_check.svg" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\definednameuseinformula.svg" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\definednameuseinformula1.svg" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\actions_check1.svg" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\definednameuseinformula2.svg" />
</ItemGroup>
<ItemGroup>
<None Include="Resources\about.svg" />
</ItemGroup>
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
</Project>

View File

@ -0,0 +1,19 @@
<?xml version='1.0' encoding='UTF-8'?>
<svg x="0px" y="0px" viewBox="0 0 32 32" version="1.1" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink" xml:space="preserve" id="Layer_1" style="enable-background:new 0 0 32 32">
<style type="text/css">
.Yellow{fill:#FFB115;}
.Red{fill:#D11C1C;}
.Blue{fill:#1177D7;}
.Green{fill:#039C23;}
.Black{fill:#727272;}
.White{fill:#FFFFFF;}
.st0{opacity:0.5;}
.st1{display:none;}
.st2{display:inline;fill:#039C23;}
.st3{display:inline;fill:#D11C1C;}
.st4{display:inline;fill:#727272;}
</style>
<g id="About">
<path d="M16,2C8.3,2,2,8.3,2,16s6.3,14,14,14s14-6.3,14-14S23.7,2,16,2z M16,6c1.1,0,2,0.9,2,2s-0.9,2-2,2s-2-0.9-2-2 S14.9,6,16,6z M20,24h-8v-2h2v-8h-2v-2h2h4v10h2V24z" class="Blue" />
</g>
</svg>

View File

@ -0,0 +1,15 @@
<?xml version='1.0' encoding='UTF-8'?>
<svg x="0px" y="0px" viewBox="0 0 32 32" version="1.1" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink" xml:space="preserve" id="Layer_1" style="enable-background:new 0 0 32 32">
<style type="text/css">
.Blue{fill:#1177D7;}
.Yellow{fill:#FFB115;}
.Black{fill:#727272;}
.Green{fill:#039C23;}
.Red{fill:#D11C1C;}
.st0{opacity:0.75;}
.st1{opacity:0.5;}
</style>
<g id="Check">
<polygon points="27,5 11,21 5,15 2,18 11,27 30,8 " class="Green" />
</g>
</svg>

View File

@ -0,0 +1,15 @@
<?xml version='1.0' encoding='UTF-8'?>
<svg x="0px" y="0px" viewBox="0 0 32 32" version="1.1" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink" xml:space="preserve" id="Layer_1" style="enable-background:new 0 0 32 32">
<style type="text/css">
.Blue{fill:#1177D7;}
.Yellow{fill:#FFB115;}
.Black{fill:#727272;}
.Green{fill:#039C23;}
.Red{fill:#D11C1C;}
.st0{opacity:0.75;}
.st1{opacity:0.5;}
</style>
<g id="Check">
<polygon points="27,5 11,21 5,15 2,18 11,27 30,8 " class="Green" />
</g>
</svg>

View File

@ -0,0 +1,9 @@
<?xml version='1.0' encoding='UTF-8'?>
<svg x="0px" y="0px" viewBox="0 0 32 32" version="1.1" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink" xml:space="preserve" id="DefinedNameUseInFormula" style="enable-background:new 0 0 32 32">
<style type="text/css">
.Blue{fill:#1177D7;}
.Black{fill:#727272;}
</style>
<path d="M7,20l-7-7V9l7-7h22c0.6,0,1,0.4,1,1v16c0,0.6-0.4,1-1,1h-8.4l0.5-2h2.3H28V4H7.8L2,9.8v2.3L7.8,18h3.8h1.6 l-0.4,2H7z M6,11c0,1.1,0.9,2,2,2s2-0.9,2-2c0-1.1-0.9-2-2-2S6,9.9,6,11z" class="Black" />
<path d="M19.9,14h2.3l-0.5,2h-2.3l-2.1,8.7c-0.3,1.2-0.7,2.2-1.2,3c-0.6,0.8-1.2,1.4-2,1.8c-0.7,0.4-1.6,0.6-2.6,0.6 c-1,0-1.8-0.2-2.3-0.6c-0.7-0.5-1-1-1-1.6c0-0.5,0.2-0.9,0.5-1.2c0.3-0.3,0.7-0.5,1.2-0.5c0.2,0,0.4,0,0.6,0.1 c0.2,0.1,0.4,0.2,0.6,0.3c0.1,0.1,0.3,0.3,0.6,0.7c0.1,0.2,0.3,0.3,0.4,0.3c0.1,0.1,0.2,0.1,0.4,0.1c0.5,0,0.9-0.6,1.1-1.7l2.2-9.9 h-1.7l0.4-2h1.7l0.4-1.7c0.3-1.4,1-2.4,2-3.2c1-0.8,2.3-1.1,4-1.1c0.8,0,1.5,0.1,1.9,0.3c0.5,0.2,0.8,0.5,1.1,0.8 c0.3,0.4,0.4,0.7,0.4,1.1c0,0.3-0.1,0.6-0.2,0.9c-0.2,0.3-0.4,0.5-0.6,0.6c-0.3,0.1-0.6,0.2-0.9,0.2c-0.3,0-0.6-0.1-0.9-0.2 c-0.3-0.1-0.5-0.3-0.8-0.6c-0.3-0.3-0.5-0.5-0.6-0.6c-0.1-0.1-0.3-0.1-0.4-0.1c-0.3,0-0.6,0.1-0.8,0.4c-0.1,0.2-0.3,0.6-0.4,1.3 L19.9,14z M22.5,22.3l1.2,2.4c0.7-0.9,1.1-1.5,1.3-1.7c0.3-0.3,0.6-0.5,1-0.7s0.6-0.2,0.9-0.2c0.3,0,0.6,0.1,0.8,0.3 s0.3,0.4,0.3,0.7c0,0.2,0,0.4-0.1,0.5s-0.2,0.3-0.3,0.4s-0.3,0.2-0.4,0.2c-0.1,0-0.2,0-0.5,0.1c-0.3,0-0.5,0-0.6,0.1 c-0.1,0-0.2,0.1-0.4,0.2c-0.2,0.1-0.3,0.3-0.5,0.4c-0.1,0.1-0.3,0.4-0.8,1.1l0.4,0.8c0.3,0.6,0.6,1.1,0.8,1.2 c0.2,0.2,0.4,0.3,0.6,0.3c0.3,0,0.7-0.2,1.1-0.6l0.8,1c-0.9,0.8-1.8,1.2-2.7,1.2c-0.4,0-0.7-0.1-1-0.2c-0.3-0.1-0.6-0.3-0.8-0.6 c-0.2-0.2-0.5-0.6-0.7-1.1l-0.4-0.9c-0.4,0.7-0.8,1.2-1.2,1.6c-0.4,0.4-0.8,0.7-1.1,0.9c-0.3,0.2-0.6,0.2-0.9,0.2 c-0.2,0-0.4,0-0.6-0.1c-0.1-0.1-0.3-0.2-0.4-0.4C18,29.3,18,29.2,18,29c0-0.2,0.1-0.4,0.2-0.6c0.1-0.2,0.3-0.3,0.4-0.4 c0.2-0.1,0.5-0.1,0.9-0.1c0.3,0,0.5-0.1,0.7-0.2c0.2-0.1,0.4-0.2,0.6-0.5c0.2-0.2,0.5-0.7,1-1.4L21,24.3h-1.1l0.3-1.4 c0.6-0.1,1.2-0.3,1.7-0.6H22.5z" class="Blue" />
</svg>

View File

@ -0,0 +1,9 @@
<?xml version='1.0' encoding='UTF-8'?>
<svg x="0px" y="0px" viewBox="0 0 32 32" version="1.1" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink" xml:space="preserve" id="DefinedNameUseInFormula" style="enable-background:new 0 0 32 32">
<style type="text/css">
.Blue{fill:#1177D7;}
.Black{fill:#727272;}
</style>
<path d="M7,20l-7-7V9l7-7h22c0.6,0,1,0.4,1,1v16c0,0.6-0.4,1-1,1h-8.4l0.5-2h2.3H28V4H7.8L2,9.8v2.3L7.8,18h3.8h1.6 l-0.4,2H7z M6,11c0,1.1,0.9,2,2,2s2-0.9,2-2c0-1.1-0.9-2-2-2S6,9.9,6,11z" class="Black" />
<path d="M19.9,14h2.3l-0.5,2h-2.3l-2.1,8.7c-0.3,1.2-0.7,2.2-1.2,3c-0.6,0.8-1.2,1.4-2,1.8c-0.7,0.4-1.6,0.6-2.6,0.6 c-1,0-1.8-0.2-2.3-0.6c-0.7-0.5-1-1-1-1.6c0-0.5,0.2-0.9,0.5-1.2c0.3-0.3,0.7-0.5,1.2-0.5c0.2,0,0.4,0,0.6,0.1 c0.2,0.1,0.4,0.2,0.6,0.3c0.1,0.1,0.3,0.3,0.6,0.7c0.1,0.2,0.3,0.3,0.4,0.3c0.1,0.1,0.2,0.1,0.4,0.1c0.5,0,0.9-0.6,1.1-1.7l2.2-9.9 h-1.7l0.4-2h1.7l0.4-1.7c0.3-1.4,1-2.4,2-3.2c1-0.8,2.3-1.1,4-1.1c0.8,0,1.5,0.1,1.9,0.3c0.5,0.2,0.8,0.5,1.1,0.8 c0.3,0.4,0.4,0.7,0.4,1.1c0,0.3-0.1,0.6-0.2,0.9c-0.2,0.3-0.4,0.5-0.6,0.6c-0.3,0.1-0.6,0.2-0.9,0.2c-0.3,0-0.6-0.1-0.9-0.2 c-0.3-0.1-0.5-0.3-0.8-0.6c-0.3-0.3-0.5-0.5-0.6-0.6c-0.1-0.1-0.3-0.1-0.4-0.1c-0.3,0-0.6,0.1-0.8,0.4c-0.1,0.2-0.3,0.6-0.4,1.3 L19.9,14z M22.5,22.3l1.2,2.4c0.7-0.9,1.1-1.5,1.3-1.7c0.3-0.3,0.6-0.5,1-0.7s0.6-0.2,0.9-0.2c0.3,0,0.6,0.1,0.8,0.3 s0.3,0.4,0.3,0.7c0,0.2,0,0.4-0.1,0.5s-0.2,0.3-0.3,0.4s-0.3,0.2-0.4,0.2c-0.1,0-0.2,0-0.5,0.1c-0.3,0-0.5,0-0.6,0.1 c-0.1,0-0.2,0.1-0.4,0.2c-0.2,0.1-0.3,0.3-0.5,0.4c-0.1,0.1-0.3,0.4-0.8,1.1l0.4,0.8c0.3,0.6,0.6,1.1,0.8,1.2 c0.2,0.2,0.4,0.3,0.6,0.3c0.3,0,0.7-0.2,1.1-0.6l0.8,1c-0.9,0.8-1.8,1.2-2.7,1.2c-0.4,0-0.7-0.1-1-0.2c-0.3-0.1-0.6-0.3-0.8-0.6 c-0.2-0.2-0.5-0.6-0.7-1.1l-0.4-0.9c-0.4,0.7-0.8,1.2-1.2,1.6c-0.4,0.4-0.8,0.7-1.1,0.9c-0.3,0.2-0.6,0.2-0.9,0.2 c-0.2,0-0.4,0-0.6-0.1c-0.1-0.1-0.3-0.2-0.4-0.4C18,29.3,18,29.2,18,29c0-0.2,0.1-0.4,0.2-0.6c0.1-0.2,0.3-0.3,0.4-0.4 c0.2-0.1,0.5-0.1,0.9-0.1c0.3,0,0.5-0.1,0.7-0.2c0.2-0.1,0.4-0.2,0.6-0.5c0.2-0.2,0.5-0.7,1-1.4L21,24.3h-1.1l0.3-1.4 c0.6-0.1,1.2-0.3,1.7-0.6H22.5z" class="Blue" />
</svg>

View File

@ -0,0 +1,9 @@
<?xml version='1.0' encoding='UTF-8'?>
<svg x="0px" y="0px" viewBox="0 0 32 32" version="1.1" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink" xml:space="preserve" id="DefinedNameUseInFormula" style="enable-background:new 0 0 32 32">
<style type="text/css">
.Blue{fill:#1177D7;}
.Black{fill:#727272;}
</style>
<path d="M7,20l-7-7V9l7-7h22c0.6,0,1,0.4,1,1v16c0,0.6-0.4,1-1,1h-8.4l0.5-2h2.3H28V4H7.8L2,9.8v2.3L7.8,18h3.8h1.6 l-0.4,2H7z M6,11c0,1.1,0.9,2,2,2s2-0.9,2-2c0-1.1-0.9-2-2-2S6,9.9,6,11z" class="Black" />
<path d="M19.9,14h2.3l-0.5,2h-2.3l-2.1,8.7c-0.3,1.2-0.7,2.2-1.2,3c-0.6,0.8-1.2,1.4-2,1.8c-0.7,0.4-1.6,0.6-2.6,0.6 c-1,0-1.8-0.2-2.3-0.6c-0.7-0.5-1-1-1-1.6c0-0.5,0.2-0.9,0.5-1.2c0.3-0.3,0.7-0.5,1.2-0.5c0.2,0,0.4,0,0.6,0.1 c0.2,0.1,0.4,0.2,0.6,0.3c0.1,0.1,0.3,0.3,0.6,0.7c0.1,0.2,0.3,0.3,0.4,0.3c0.1,0.1,0.2,0.1,0.4,0.1c0.5,0,0.9-0.6,1.1-1.7l2.2-9.9 h-1.7l0.4-2h1.7l0.4-1.7c0.3-1.4,1-2.4,2-3.2c1-0.8,2.3-1.1,4-1.1c0.8,0,1.5,0.1,1.9,0.3c0.5,0.2,0.8,0.5,1.1,0.8 c0.3,0.4,0.4,0.7,0.4,1.1c0,0.3-0.1,0.6-0.2,0.9c-0.2,0.3-0.4,0.5-0.6,0.6c-0.3,0.1-0.6,0.2-0.9,0.2c-0.3,0-0.6-0.1-0.9-0.2 c-0.3-0.1-0.5-0.3-0.8-0.6c-0.3-0.3-0.5-0.5-0.6-0.6c-0.1-0.1-0.3-0.1-0.4-0.1c-0.3,0-0.6,0.1-0.8,0.4c-0.1,0.2-0.3,0.6-0.4,1.3 L19.9,14z M22.5,22.3l1.2,2.4c0.7-0.9,1.1-1.5,1.3-1.7c0.3-0.3,0.6-0.5,1-0.7s0.6-0.2,0.9-0.2c0.3,0,0.6,0.1,0.8,0.3 s0.3,0.4,0.3,0.7c0,0.2,0,0.4-0.1,0.5s-0.2,0.3-0.3,0.4s-0.3,0.2-0.4,0.2c-0.1,0-0.2,0-0.5,0.1c-0.3,0-0.5,0-0.6,0.1 c-0.1,0-0.2,0.1-0.4,0.2c-0.2,0.1-0.3,0.3-0.5,0.4c-0.1,0.1-0.3,0.4-0.8,1.1l0.4,0.8c0.3,0.6,0.6,1.1,0.8,1.2 c0.2,0.2,0.4,0.3,0.6,0.3c0.3,0,0.7-0.2,1.1-0.6l0.8,1c-0.9,0.8-1.8,1.2-2.7,1.2c-0.4,0-0.7-0.1-1-0.2c-0.3-0.1-0.6-0.3-0.8-0.6 c-0.2-0.2-0.5-0.6-0.7-1.1l-0.4-0.9c-0.4,0.7-0.8,1.2-1.2,1.6c-0.4,0.4-0.8,0.7-1.1,0.9c-0.3,0.2-0.6,0.2-0.9,0.2 c-0.2,0-0.4,0-0.6-0.1c-0.1-0.1-0.3-0.2-0.4-0.4C18,29.3,18,29.2,18,29c0-0.2,0.1-0.4,0.2-0.6c0.1-0.2,0.3-0.3,0.4-0.4 c0.2-0.1,0.5-0.1,0.9-0.1c0.3,0,0.5-0.1,0.7-0.2c0.2-0.1,0.4-0.2,0.6-0.5c0.2-0.2,0.5-0.7,1-1.4L21,24.3h-1.1l0.3-1.4 c0.6-0.1,1.2-0.3,1.7-0.6H22.5z" class="Blue" />
</svg>

View File

@ -1,6 +1,6 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmRegexEditor
Inherits DevExpress.XtraEditors.XtraForm
Inherits DevExpress.XtraBars.Ribbon.RibbonForm
'Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _
@ -19,62 +19,29 @@ Partial Class frmRegexEditor
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.btnTest = New System.Windows.Forms.Button()
Me.btnSave = New System.Windows.Forms.Button()
Me.labelResult = New System.Windows.Forms.Label()
Me.Label3 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.txtTest = New System.Windows.Forms.TextBox()
Me.Label4 = New System.Windows.Forms.Label()
Me.Label1 = New System.Windows.Forms.Label()
Me.txtRegex = New System.Windows.Forms.TextBox()
Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl()
Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem()
Me.BarStaticItem1 = New DevExpress.XtraBars.BarStaticItem()
Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.labelResult = New DevExpress.XtraBars.BarStaticItem()
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'btnTest
'
Me.btnTest.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnTest.Location = New System.Drawing.Point(187, 192)
Me.btnTest.Name = "btnTest"
Me.btnTest.Size = New System.Drawing.Size(112, 31)
Me.btnTest.TabIndex = 23
Me.btnTest.Text = "Test"
Me.btnTest.UseVisualStyleBackColor = True
'
'btnSave
'
Me.btnSave.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnSave.DialogResult = System.Windows.Forms.DialogResult.OK
Me.btnSave.Location = New System.Drawing.Point(305, 192)
Me.btnSave.Name = "btnSave"
Me.btnSave.Size = New System.Drawing.Size(112, 31)
Me.btnSave.TabIndex = 22
Me.btnSave.Text = "Speichern"
Me.btnSave.UseVisualStyleBackColor = True
'
'labelResult
'
Me.labelResult.AutoSize = True
Me.labelResult.Location = New System.Drawing.Point(12, 163)
Me.labelResult.Name = "labelResult"
Me.labelResult.Size = New System.Drawing.Size(284, 13)
Me.labelResult.TabIndex = 21
Me.labelResult.Text = "Klicken Sie auf Test, um die Regular Expression zu testen."
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(12, 150)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(52, 13)
Me.Label3.TabIndex = 20
Me.Label3.Text = "Ergebnis:"
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(12, 100)
Me.Label2.Location = New System.Drawing.Point(12, 151)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(63, 13)
Me.Label2.Size = New System.Drawing.Size(64, 13)
Me.Label2.TabIndex = 19
Me.Label2.Text = "Test String:"
'
@ -82,15 +49,16 @@ Partial Class frmRegexEditor
'
Me.txtTest.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.txtTest.Font = New System.Drawing.Font("Consolas", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtTest.Location = New System.Drawing.Point(12, 116)
Me.txtTest.Font = New System.Drawing.Font("Consolas", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtTest.Location = New System.Drawing.Point(12, 167)
Me.txtTest.Multiline = True
Me.txtTest.Name = "txtTest"
Me.txtTest.Size = New System.Drawing.Size(405, 20)
Me.txtTest.Size = New System.Drawing.Size(487, 136)
Me.txtTest.TabIndex = 18
'
'Label4
'
Me.Label4.Location = New System.Drawing.Point(12, 48)
Me.Label4.Location = New System.Drawing.Point(12, 110)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(419, 33)
Me.Label4.TabIndex = 17
@ -100,9 +68,9 @@ Partial Class frmRegexEditor
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(12, 9)
Me.Label1.Location = New System.Drawing.Point(12, 69)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(103, 13)
Me.Label1.Size = New System.Drawing.Size(108, 13)
Me.Label1.TabIndex = 16
Me.Label1.Text = "Regular Expression:"
'
@ -110,41 +78,117 @@ Partial Class frmRegexEditor
'
Me.txtRegex.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.txtRegex.Font = New System.Drawing.Font("Consolas", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtRegex.Location = New System.Drawing.Point(12, 25)
Me.txtRegex.Font = New System.Drawing.Font("Consolas", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtRegex.Location = New System.Drawing.Point(12, 85)
Me.txtRegex.Name = "txtRegex"
Me.txtRegex.Size = New System.Drawing.Size(405, 20)
Me.txtRegex.Size = New System.Drawing.Size(487, 22)
Me.txtRegex.TabIndex = 15
'
'RibbonControl1
'
Me.RibbonControl1.CommandLayout = DevExpress.XtraBars.Ribbon.CommandLayout.Simplified
Me.RibbonControl1.ExpandCollapseItem.Id = 0
Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItem1, Me.BarButtonItem2, Me.BarStaticItem1, Me.labelResult})
Me.RibbonControl1.Location = New System.Drawing.Point(0, 0)
Me.RibbonControl1.MaxItemId = 6
Me.RibbonControl1.Name = "RibbonControl1"
Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1})
Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False]
Me.RibbonControl1.ShowPageHeadersMode = DevExpress.XtraBars.Ribbon.ShowPageHeadersMode.Hide
Me.RibbonControl1.ShowToolbarCustomizeItem = False
Me.RibbonControl1.Size = New System.Drawing.Size(511, 66)
Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1
Me.RibbonControl1.Toolbar.ShowCustomizeItem = False
'
'BarButtonItem1
'
Me.BarButtonItem1.Caption = "Speichern und schließen"
Me.BarButtonItem1.Id = 1
Me.BarButtonItem1.ImageOptions.SvgImage = Global.DigitalData.Controls.RegexEditor.My.Resources.Resources.actions_check1
Me.BarButtonItem1.Name = "BarButtonItem1"
'
'BarButtonItem2
'
Me.BarButtonItem2.Caption = "Regular Expression testen"
Me.BarButtonItem2.Id = 2
Me.BarButtonItem2.ImageOptions.SvgImage = Global.DigitalData.Controls.RegexEditor.My.Resources.Resources.definednameuseinformula1
Me.BarButtonItem2.Name = "BarButtonItem2"
'
'BarStaticItem1
'
Me.BarStaticItem1.Caption = "Ergebnis"
Me.BarStaticItem1.Id = 3
Me.BarStaticItem1.ImageOptions.SvgImage = Global.DigitalData.Controls.RegexEditor.My.Resources.Resources.about
Me.BarStaticItem1.Name = "BarStaticItem1"
Me.BarStaticItem1.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph
'
'RibbonPage1
'
Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1})
Me.RibbonPage1.Name = "RibbonPage1"
Me.RibbonPage1.Text = "RibbonPage1"
'
'RibbonPageGroup1
'
Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem1)
Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem2)
Me.RibbonPageGroup1.Name = "RibbonPageGroup1"
Me.RibbonPageGroup1.Text = "RibbonPageGroup1"
'
'RibbonStatusBar1
'
Me.RibbonStatusBar1.ItemLinks.Add(Me.BarStaticItem1)
Me.RibbonStatusBar1.ItemLinks.Add(Me.labelResult)
Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 309)
Me.RibbonStatusBar1.Name = "RibbonStatusBar1"
Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1
Me.RibbonStatusBar1.Size = New System.Drawing.Size(511, 22)
'
'RibbonPage2
'
Me.RibbonPage2.Name = "RibbonPage2"
Me.RibbonPage2.Text = "RibbonPage2"
'
'labelResult
'
Me.labelResult.Caption = "<kein Ergebnis>"
Me.labelResult.Id = 5
Me.labelResult.Name = "labelResult"
'
'frmRegexEditor
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(429, 235)
Me.Controls.Add(Me.btnTest)
Me.Controls.Add(Me.btnSave)
Me.Controls.Add(Me.labelResult)
Me.Controls.Add(Me.Label3)
Me.ClientSize = New System.Drawing.Size(511, 331)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.txtTest)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.txtRegex)
Me.IconOptions.ShowIcon = False
Me.Controls.Add(Me.RibbonStatusBar1)
Me.Controls.Add(Me.RibbonControl1)
Me.IconOptions.SvgImage = Global.DigitalData.Controls.RegexEditor.My.Resources.Resources.definednameuseinformula2
Me.Name = "frmRegexEditor"
Me.Ribbon = Me.RibbonControl1
Me.StatusBar = Me.RibbonStatusBar1
Me.Text = "Regex Editor"
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents btnTest As Button
Friend WithEvents btnSave As Button
Friend WithEvents labelResult As Label
Friend WithEvents Label3 As Label
Friend WithEvents Label2 As Label
Friend WithEvents txtTest As TextBox
Friend WithEvents Label4 As Label
Friend WithEvents Label1 As Label
Friend WithEvents txtRegex As TextBox
Friend WithEvents RibbonControl1 As DevExpress.XtraBars.Ribbon.RibbonControl
Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage
Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
Friend WithEvents RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar
Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage
Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents BarButtonItem2 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents BarStaticItem1 As DevExpress.XtraBars.BarStaticItem
Friend WithEvents labelResult As DevExpress.XtraBars.BarStaticItem
End Class

View File

@ -4,6 +4,8 @@ Public Class frmRegexEditor
Public RegexString As String
Public Sub New(RegexString As String)
MyBase.New()
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
@ -15,21 +17,22 @@ Public Class frmRegexEditor
txtRegex.Text = RegexString
End Sub
Private Sub btnTest_Click(sender As Object, e As EventArgs) Handles btnTest.Click
Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick
RegexString = txtRegex.Text
Close()
End Sub
Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem2.ItemClick
Try
Dim oTestString As String = txtTest.Text
If Regex.IsMatch(oTestString, txtRegex.Text) Then
labelResult.Text = "Test String ist gültig."
labelResult.Caption = "Test String ist gültig."
Else
labelResult.Text = "Test String ist nicht gültig."
labelResult.Caption = "Test String ist nicht gültig."
End If
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "Regex Test")
End Try
End Sub
Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
RegexString = txtRegex.Text
End Sub
End Class